marker_color Function

private pure function marker_color(self, which) result(c)

The color of the start, intermediate or end markers (which: one MARKER_* flag).

Type Bound

MarkerArtist

Arguments

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

MARKER_START, MARKER_INTERMEDIATE or MARKER_END

Return Value real(kind=wp), (4)


Source Code

    pure function marker_color(self, which) result(c)
        class(MarkerArtist), intent(in) :: self
        integer, intent(in) :: which                        !! MARKER_START, MARKER_INTERMEDIATE or MARKER_END
        real(wp) :: c(4)
        select case (which)
        case (MARKER_START)
            c = self%start_color
        case (MARKER_END)
            c = self%end_color
        case default
            c = self%intermediate_color
        end select
    end function marker_color