apply_style Subroutine

private subroutine apply_style(self)

Give the line width and dash pattern to the chain (if built).

Arguments

Type IntentOptional Attributes Name
type(CustomLineSegments), intent(inout) :: self

Calls

proc~~apply_style~2~~CallsGraph proc~apply_style~2 apply_style 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

Called by

proc~~apply_style~2~~CalledByGraph proc~apply_style~2 apply_style proc~segments_build_contents CustomLineSegments%segments_build_contents proc~segments_build_contents->proc~apply_style~2 proc~set_line_width CustomLineSegments%set_line_width proc~set_line_width->proc~apply_style~2 proc~set_pattern~2 CustomLineSegments%set_pattern proc~set_pattern~2->proc~apply_style~2

Source Code

    subroutine apply_style(self)
        type(CustomLineSegments), intent(inout) :: self
        if (.not. self%chain%is_built()) return
        ! white: each point's own color shows (shaders/line.vert multiplies them)
        call self%chain%set_style([1.0_wp, 1.0_wp, 1.0_wp, 1.0_wp], self%width_)
        call self%chain%set_pattern(self%pattern_factor, self%pattern_)
    end subroutine apply_style