set_view_between_frames Subroutine

private subroutine set_view_between_frames(self, root, frame, lookat, frame_type, rotation_type)

Look from frame at lookat (both in the tree of root).

Type Bound

View

Arguments

Type IntentOptional Attributes Name
class(View), intent(inout) :: self
class(ReferenceFrame), intent(in), target :: root

the tree's root, viewed and looked-at frames

class(ReferenceFrame), intent(in), target :: frame

the tree's root, viewed and looked-at frames

class(ReferenceFrame), intent(in), target :: lookat

the tree's root, viewed and looked-at frames

integer, intent(in), optional :: frame_type

ABSOLUTE_FRAME or RELATIVE_FRAME (default)

integer, intent(in), optional :: rotation_type

VIEW_DIRECT or VIEW_AZEL (default)


Source Code

    subroutine set_view_between_frames(self, root, frame, lookat, frame_type, rotation_type)
        class(View), intent(inout) :: self
        class(ReferenceFrame), intent(in), target :: root, frame, lookat !! the tree's root, viewed and looked-at frames
        integer, intent(in), optional :: frame_type         !! ABSOLUTE_FRAME or RELATIVE_FRAME (default)
        integer, intent(in), optional :: rotation_type      !! VIEW_DIRECT or VIEW_AZEL (default)
        self%root => root
        self%frame => frame
        self%lookat => lookat
        self%frame_type = RELATIVE_FRAME
        self%rotation_type = VIEW_AZEL
        if (present(frame_type)) self%frame_type = frame_type
        if (present(rotation_type)) self%rotation_type = rotation_type
    end subroutine set_view_between_frames