set_display_scale Subroutine

private subroutine set_display_scale(self, scale)

Scene units per unit of the vector (> 0; default 1): the arrow is scale * vector.

Type Bound

VectorHandle

Arguments

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

scene units per vector unit (> 0; else ignored)

Calls

proc~~set_display_scale~~CallsGraph proc~set_display_scale VectorHandle%set_display_scale proc~update_arrow update_arrow proc~set_display_scale->proc~update_arrow interface~vkf_switch_set vkf_switch_set proc~update_arrow->interface~vkf_switch_set interface~vkf_transform_set_matrix vkf_transform_set_matrix proc~update_arrow->interface~vkf_transform_set_matrix proc~arrow_sizes arrow_sizes proc~update_arrow->proc~arrow_sizes proc~check_status check_status proc~update_arrow->proc~check_status proc~cross cross proc~update_arrow->proc~cross proc~tip VectorHandle%tip proc~update_arrow->proc~tip proc~arrow_sizes->proc~tip

Source Code

    subroutine set_display_scale(self, scale)
        class(VectorHandle), intent(inout) :: self
        real(wp), intent(in) :: scale                       !! scene units per vector unit (> 0; else ignored)
        if (scale <= 0.0_wp) return
        self%scale_ = scale
        call update_arrow(self)
    end subroutine set_display_scale