set_pattern Subroutine

private subroutine set_pattern(self, factor, pattern)

Dash pattern: OpenGL's line stipple (16 bits, bit 0 first, each factor window units; 65535: solid), as set_pattern.

Type Bound

CustomLineSegments

Arguments

Type IntentOptional Attributes Name
class(CustomLineSegments), intent(inout) :: self
integer, intent(in) :: factor

window units per bit (>= 1)
integer, intent(in) :: pattern

16 bits, bit 0 first (65535: solid)

Calls

proc~~set_pattern~2~~CallsGraph proc~set_pattern~2 CustomLineSegments%set_pattern proc~apply_style~2 apply_style proc~set_pattern~2->proc~apply_style~2 proc~is_built LineChain%is_built proc~apply_style~2->proc~is_built proc~set_pattern LineChain%set_pattern proc~apply_style~2->proc~set_pattern proc~set_style LineChain%set_style proc~apply_style~2->proc~set_style proc~apply_style apply_style proc~set_pattern->proc~apply_style proc~set_style->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 set_pattern(self, factor, pattern)
        class(CustomLineSegments), intent(inout) :: self
        integer, intent(in) :: factor       !! window units per bit (>= 1)
        integer, intent(in) :: pattern      !! 16 bits, bit 0 first (65535: solid)
        self%pattern_factor = max(1, factor)
        self%pattern_ = iand(pattern, int(z'FFFF'))
        call apply_style(self)
    end subroutine set_pattern