set_style Subroutine

private subroutine set_style(self, color, width)

Color (rgba) and width (window units) of the whole chain.

Type Bound

LineChain

Arguments

Type IntentOptional Attributes Name
class(LineChain), intent(inout) :: self
real(kind=wp), intent(in) :: color(4)

[r, g, b, a] (0 to 1)
real(kind=wp), intent(in) :: width

(window units)

Calls

proc~~set_style~~CallsGraph proc~set_style LineChain%set_style proc~apply_style 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~~set_style~~CalledByGraph proc~set_style LineChain%set_style proc~apply_style~2 apply_style proc~apply_style~2->proc~set_style proc~segment_build SegmentArtist%segment_build proc~segment_build->proc~set_style proc~segment_set_color SegmentArtist%segment_set_color proc~segment_set_color->proc~set_style proc~segment_set_width SegmentArtist%segment_set_width proc~segment_set_width->proc~set_style proc~new_segment_artist new_segment_artist proc~new_segment_artist->proc~segment_set_color 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 interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist

Source Code

    subroutine set_style(self, color, width)
        class(LineChain), intent(inout) :: self
        real(wp), intent(in) :: color(4)        !! [r, g, b, a] (0 to 1)
        real(wp), intent(in) :: width           !! (window units)
        integer :: j
        self%color = real(color, c_float)
        self%width = real(width, c_float)
        do j = 1, self%n_chunks
            call apply_style(self, self%chunks(j)%line)
        end do
    end subroutine set_style