start_flight Subroutine

private subroutine start_flight(self, from, start, to, finish, duration)

Fly from camera start (in view from's frame) to finish (in view to's) over duration s, from now.

Arguments

Type IntentOptional Attributes Name
type(WindowProxy), intent(inout) :: self
type(View), intent(in), target :: from

the views whose frames start and finish are in
real(kind=wp), intent(in) :: start(3,3)

(columns: eye, center, up; duration: s)
type(View), intent(in), target :: to

the views whose frames start and finish are in
real(kind=wp), intent(in) :: finish(3,3)

(columns: eye, center, up; duration: s)
real(kind=wp), intent(in) :: duration

(columns: eye, center, up; duration: s)

Calls

proc~~start_flight~~CallsGraph proc~start_flight start_flight proc~window_wall window_wall proc~start_flight->proc~window_wall proc~wall_time wall_time proc~window_wall->proc~wall_time

Called by

proc~~start_flight~~CalledByGraph proc~start_flight start_flight proc~place_camera place_camera proc~place_camera->proc~start_flight proc~set_camera WindowProxy%set_camera proc~set_camera->proc~start_flight proc~frame WindowProxy%frame proc~frame->proc~place_camera proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame

Source Code

    subroutine start_flight(self, from, start, to, finish, duration)
        type(WindowProxy), intent(inout) :: self
        type(View), intent(in), target :: from, to          !! the views whose frames start and finish are in
        real(wp), intent(in) :: start(3,3), finish(3,3), duration  !! (columns: eye, center, up; duration: s)
        self%flight%from => from
        self%flight%to => to
        self%flight%start = start
        self%flight%finish = finish
        self%flight%duration = duration
        self%flight%started = window_wall(self)
        self%flight%active = .true.
    end subroutine start_flight