set_marker_shape Subroutine

private subroutine set_marker_shape(self, shape)

The marker's shape (a MARKER_* shape of vkf_artists but MARKER_IMAGE; default MARKER_DISK).

Type Bound

TimeHandle

Arguments

Type IntentOptional Attributes Name
class(TimeHandle), intent(inout) :: self
integer, intent(in) :: shape

a MARKER_* shape

Calls

proc~~set_marker_shape~~CallsGraph proc~set_marker_shape TimeHandle%set_marker_shape proc~time_show_state TimeHandle%time_show_state proc~set_marker_shape->proc~time_show_state proc~check_status check_status proc~time_show_state->proc~check_status proc~color~2 ReferenceFrame%color proc~time_show_state->proc~color~2 proc~dragged DragHandle%dragged proc~time_show_state->proc~dragged proc~hovered DragHandle%hovered proc~time_show_state->proc~hovered proc~marker_set_style marker_set_style proc~time_show_state->proc~marker_set_style interface~vkf_line_style vkf_line_style proc~marker_set_style->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~marker_set_style->interface~vkf_line_style_changed

Source Code

    subroutine set_marker_shape(self, shape)
        class(TimeHandle), intent(inout) :: self
        integer, intent(in) :: shape                        !! a MARKER_* shape
        self%shape_ = max(MARKER_DISK, min(MARKER_IMAGE - 1, shape))
        call self%show_state()
    end subroutine set_marker_shape