apply_camera_controls Subroutine

private subroutine apply_camera_controls(self)

Give the zoom speed and throw to the trackball (if open).

Arguments

Type IntentOptional Attributes Name
type(WindowProxy), intent(inout) :: self

Calls

proc~~apply_camera_controls~~CallsGraph proc~apply_camera_controls apply_camera_controls interface~vkf_viewer_set_camera_controls vkf_viewer_set_camera_controls proc~apply_camera_controls->interface~vkf_viewer_set_camera_controls

Called by

proc~~apply_camera_controls~~CalledByGraph proc~apply_camera_controls apply_camera_controls proc~open WindowProxy%open proc~open->proc~apply_camera_controls proc~set_camera_throw WindowProxy%set_camera_throw proc~set_camera_throw->proc~apply_camera_controls proc~set_zoom_speed WindowProxy%set_zoom_speed proc~set_zoom_speed->proc~apply_camera_controls

Source Code

    subroutine apply_camera_controls(self)
        type(WindowProxy), intent(inout) :: self
        if (.not. c_associated(self%viewer_)) return
        if (vkf_viewer_set_camera_controls(self%viewer_, real(self%zoom_speed_, c_double), &
                                           merge(1_c_int, 0_c_int, self%camera_throw_)) /= 0) &
            write(*, '(a)') 'vkframes: could not set the camera controls'
    end subroutine apply_camera_controls