set_head_size Subroutine

private subroutine set_head_size(self, size)

The head's length (scene units; at most half the arrow); 0 (the default): 0.2 of the arrow's length.

Type Bound

VectorHandle

Arguments

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

the head's length (scene units; 0: 0.2 of the arrow)

Calls

proc~~set_head_size~~CallsGraph proc~set_head_size VectorHandle%set_head_size proc~update_arrow update_arrow proc~set_head_size->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_head_size(self, size)
        class(VectorHandle), intent(inout) :: self
        real(wp), intent(in) :: size                        !! the head's length (scene units; 0: 0.2 of the arrow)
        self%head_size_ = max(0.0_wp, size)
        call update_arrow(self)
    end subroutine set_head_size