rotated Function

private pure function rotated(r, m) result(rm)

rotate(r) * m, for a rotation r (3x3).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: r(3,3)

rotation (3x3); transform (4x4)
real(kind=wp), intent(in) :: m(4,4)

rotation (3x3); transform (4x4)

Return Value real(kind=wp), (4,4)


Called by

proc~~rotated~~CalledByGraph proc~rotated rotated proc~world_to_view View%world_to_view proc~world_to_view->proc~rotated proc~fly fly proc~fly->proc~world_to_view proc~get_camera WindowProxy%get_camera proc~get_camera->proc~world_to_view proc~home View%home proc~home->proc~world_to_view proc~place_camera place_camera proc~place_camera->proc~world_to_view proc~place_camera->proc~fly proc~place_camera->proc~home proc~set_camera WindowProxy%set_camera proc~set_camera->proc~world_to_view proc~track_view track_view proc~track_view->proc~world_to_view proc~frame WindowProxy%frame proc~frame->proc~place_camera proc~frame->proc~track_view proc~dispatch_events dispatch_events proc~frame->proc~dispatch_events proc~view_camera view_camera proc~view_camera->proc~get_camera proc~cursor_ray WindowProxy%cursor_ray proc~cursor_ray->proc~view_camera proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame proc~screen_position WindowProxy%screen_position proc~screen_position->proc~view_camera proc~window_pick WindowProxy%window_pick proc~window_pick->proc~view_camera proc~drag_handle drag_handle proc~drag_handle->proc~cursor_ray proc~grab_handle grab_handle proc~grab_handle->proc~cursor_ray proc~hover_handle hover_handle proc~hover_handle->proc~window_pick proc~dispatch_event dispatch_event proc~dispatch_event->proc~drag_handle proc~dispatch_event->proc~grab_handle proc~dispatch_event->proc~hover_handle proc~release_handle release_handle proc~dispatch_event->proc~release_handle proc~release_handle->proc~hover_handle proc~dispatch_events->proc~dispatch_event

Source Code

    pure function rotated(r, m) result(rm)
        real(wp), intent(in) :: r(3,3), m(4,4)              !! rotation (3x3); transform (4x4)
        real(wp) :: rm(4,4)
        rm = m
        rm(1:3, :) = matmul(r, m(1:3, :))
    end function rotated