curve_style Subroutine

private subroutine curve_style(self)

The style: the artist's color, or white if the points' colors are drawn (the shader multiplies them by it).

Type Bound

CurveArtist

Arguments

Type IntentOptional Attributes Name
class(CurveArtist), intent(inout) :: self

Calls

proc~~curve_style~~CallsGraph proc~curve_style CurveArtist%curve_style is_colored is_colored proc~curve_style->is_colored proc~apply_highlight apply_highlight proc~curve_style->proc~apply_highlight set_pattern set_pattern proc~curve_style->set_pattern set_style set_style proc~curve_style->set_style style_node style_node proc~curve_style->style_node proc~set_highlight LineChain%set_highlight proc~apply_highlight->proc~set_highlight proc~apply_style apply_style proc~set_highlight->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~~curve_style~~CalledByGraph proc~curve_style CurveArtist%curve_style proc~curve_set_color CurveArtist%curve_set_color proc~curve_set_color->proc~curve_style proc~curve_set_highlight CurveArtist%curve_set_highlight proc~curve_set_highlight->proc~curve_style proc~curve_set_pattern CurveArtist%curve_set_pattern proc~curve_set_pattern->proc~curve_style proc~curve_set_width CurveArtist%curve_set_width proc~curve_set_width->proc~curve_style proc~new_curve_artist new_curve_artist proc~new_curve_artist->proc~curve_set_color interface~curveartist CurveArtist interface~curveartist->proc~new_curve_artist

Source Code

    subroutine curve_style(self)
        class(CurveArtist), intent(inout) :: self
        real(wp) :: rgba(4)
        rgba = self%color_
        if (self%chain%is_colored()) rgba = 1.0_wp
        call self%chain%set_style(rgba, self%width_)
        call self%chain%set_pattern(self%pattern_factor, self%pattern_)
        call apply_highlight(self%highlight_, self%chain)
        if (c_associated(self%tail)) call self%chain%style_node(self%tail)
    end subroutine curve_style