set_marker_color Subroutine

private subroutine set_marker_color(self, which, color)

The color of the markers in which (an ior of MARKER_* flags): [r, g, b] (alpha unchanged) or [r, g, b, a].

Type Bound

MarkerArtist

Arguments

Type IntentOptional Attributes Name
class(MarkerArtist), intent(inout) :: self
integer, intent(in) :: which

the markers (an ior of MARKER_* flags)
real(kind=wp), intent(in) :: color(:)

[r, g, b] or [r, g, b, a] (0 to 1)

Calls

proc~~set_marker_color~~CallsGraph proc~set_marker_color MarkerArtist%set_marker_color proc~marker_style marker_style proc~set_marker_color->proc~marker_style proc~set_rgba set_rgba proc~set_marker_color->proc~set_rgba proc~is_colored LineChain%is_colored proc~marker_style->proc~is_colored proc~set_marker_style LineChain%set_marker_style proc~marker_style->proc~set_marker_style proc~apply_style apply_style proc~set_marker_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_marker_color~~CalledByGraph proc~set_marker_color MarkerArtist%set_marker_color proc~new_marker_artist new_marker_artist proc~new_marker_artist->proc~set_marker_color interface~markerartist MarkerArtist interface~markerartist->proc~new_marker_artist

Source Code

    subroutine set_marker_color(self, which, color)
        class(MarkerArtist), intent(inout) :: self
        integer, intent(in) :: which                        !! the markers (an ior of MARKER_* flags)
        real(wp), intent(in) :: color(:)                    !! [r, g, b] or [r, g, b, a] (0 to 1)
        if (iand(which, MARKER_START) /= 0) call set_rgba(self%start_color, color)
        if (iand(which, MARKER_END) /= 0) call set_rgba(self%end_color, color)
        if (iand(which, MARKER_INTERMEDIATE) /= 0) call set_rgba(self%intermediate_color, color)
        call marker_style(self)
    end subroutine set_marker_color