vector_move_handle_point Subroutine

private subroutine vector_move_handle_point(self, p)

The tip dragged to p: the vector p / the display scale.

Type Bound

VectorHandle

Arguments

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

the tip's new place (frame coordinates)

Calls

proc~~vector_move_handle_point~~CallsGraph proc~vector_move_handle_point VectorHandle%vector_move_handle_point proc~set_vector VectorHandle%set_vector proc~vector_move_handle_point->proc~set_vector proc~update_arrow update_arrow proc~set_vector->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 vector_move_handle_point(self, p)
        class(VectorHandle), intent(inout) :: self
        real(wp), intent(in) :: p(3)                        !! the tip's new place (frame coordinates)
        call self%set_vector(p / self%scale_)
    end subroutine vector_move_handle_point