ribbon_drawn_color Function

private function ribbon_drawn_color(self, i) result(rgba)

The color of the pair at trajectory point i as drawn (rgba: the trajectory's color times the artist's alpha, or the artist's color).

Type Bound

RibbonArtist

Arguments

Type IntentOptional Attributes Name
class(RibbonArtist), intent(in) :: self
integer, intent(in) :: i

the trajectory point

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


Calls

proc~~ribbon_drawn_color~~CallsGraph proc~ribbon_drawn_color RibbonArtist%ribbon_drawn_color is_colored is_colored proc~ribbon_drawn_color->is_colored point_color point_color proc~ribbon_drawn_color->point_color

Source Code

    function ribbon_drawn_color(self, i) result(rgba)
        class(RibbonArtist), intent(in) :: self
        integer, intent(in) :: i                            !! the trajectory point
        real(wp) :: rgba(4)
        rgba = self%color_
        if (.not. self%chain%is_colored()) return
        rgba = self%chain%point_color(2 * i - 1)
        rgba(4) = rgba(4) * self%color_(4)
    end function ribbon_drawn_color