set_zoom_speed Subroutine

private subroutine set_zoom_speed(self, speed)

How fast the mouse zooms (default 1, VSG's: 10% per wheel step, and a right drag's rate): e.g. 0.3 for a gentler zoom. Scales scroll steps however they come (a mouse wheel, a trackpad, a host's scroll).

Type Bound

WindowProxy

Arguments

Type IntentOptional Attributes Name
class(WindowProxy), intent(inout) :: self
real(kind=wp), intent(in) :: speed

(> 0; 1: the default)

Calls

proc~~set_zoom_speed~~CallsGraph proc~set_zoom_speed WindowProxy%set_zoom_speed proc~apply_camera_controls apply_camera_controls proc~set_zoom_speed->proc~apply_camera_controls interface~vkf_viewer_set_camera_controls vkf_viewer_set_camera_controls proc~apply_camera_controls->interface~vkf_viewer_set_camera_controls

Source Code

    subroutine set_zoom_speed(self, speed)
        class(WindowProxy), intent(inout) :: self
        real(wp), intent(in) :: speed                       !! (> 0; 1: the default)
        if (speed <= 0.0_wp) return
        self%zoom_speed_ = speed
        call apply_camera_controls(self)
    end subroutine set_zoom_speed