point_rgba Function

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

Color of point i as drawn by a colored chain: the trajectory's, or the artist's if it has none yet.

Arguments

Type IntentOptional Attributes Name
type(CurveArtist), intent(in) :: self
integer, intent(in) :: i

the trajectory point

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


Calls

proc~~point_rgba~~CallsGraph proc~point_rgba point_rgba color color proc~point_rgba->color num_colors num_colors proc~point_rgba->num_colors

Called by

proc~~point_rgba~~CalledByGraph proc~point_rgba point_rgba proc~tail_colors tail_colors proc~tail_colors->proc~point_rgba proc~update_tail CurveArtist%update_tail proc~update_tail->proc~tail_colors

Source Code

    function point_rgba(self, i) result(rgba)
        type(CurveArtist), intent(in) :: self
        integer, intent(in) :: i                            !! the trajectory point
        real(wp) :: rgba(4)
        if (i <= self%traj%num_colors()) then
            rgba = self%traj%color(i)
        else
            rgba = self%color_
        end if
    end function point_rgba