segment_set_dash_mode Subroutine

private subroutine segment_set_dash_mode(self, mode)

The dash pattern's layout (see set_dash_mode): screen-locked dashes start again at each segment's start, as GL_LINES; DASH_FIXED (strips only) is taken as DASH_SCENE.

Type Bound

SegmentArtist

Arguments

Type IntentOptional Attributes Name
class(SegmentArtist), intent(inout) :: self
integer, intent(in) :: mode

DASH_SCENE or DASH_SCREEN

Calls

proc~~segment_set_dash_mode~~CallsGraph proc~segment_set_dash_mode SegmentArtist%segment_set_dash_mode proc~set_dash_mode LineChain%set_dash_mode proc~segment_set_dash_mode->proc~set_dash_mode proc~apply_style apply_style proc~set_dash_mode->proc~apply_style interface~vkf_line_set_dash_mode vkf_line_set_dash_mode proc~apply_style->interface~vkf_line_set_dash_mode interface~vkf_line_set_highlight vkf_line_set_highlight proc~apply_style->interface~vkf_line_set_highlight interface~vkf_line_set_trail vkf_line_set_trail proc~apply_style->interface~vkf_line_set_trail proc~check_status check_status proc~apply_style->proc~check_status proc~line_set_pattern line_set_pattern proc~apply_style->proc~line_set_pattern proc~line_set_style line_set_style proc~apply_style->proc~line_set_style proc~marker_set_style marker_set_style proc~apply_style->proc~marker_set_style interface~vkf_line_style vkf_line_style proc~line_set_pattern->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_pattern->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed proc~marker_set_style->interface~vkf_line_style proc~marker_set_style->interface~vkf_line_style_changed

Source Code

    subroutine segment_set_dash_mode(self, mode)
        class(SegmentArtist), intent(inout) :: self
        integer, intent(in) :: mode                         !! DASH_SCENE or DASH_SCREEN
        call self%chain%set_dash_mode(merge(DASH_SCENE, mode, mode == DASH_FIXED), 0.0_wp)
    end subroutine segment_set_dash_mode