end_rgba Function

private function end_rgba(self, i, own) result(rgba)

The color of point i for a start or end marker: the trajectory's (its own if none), with point colors.

Arguments

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

the trajectory point
real(kind=wp), intent(in) :: own(4)

the marker's own color

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


Calls

proc~~end_rgba~~CallsGraph proc~end_rgba end_rgba proc~is_colored LineChain%is_colored proc~end_rgba->proc~is_colored proc~point_rgba_or point_rgba_or proc~end_rgba->proc~point_rgba_or proc~color~3 Trajectory%color proc~point_rgba_or->proc~color~3 proc~num_colors Trajectory%num_colors proc~point_rgba_or->proc~num_colors

Called by

proc~~end_rgba~~CalledByGraph proc~end_rgba end_rgba proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~end_rgba

Source Code

    function end_rgba(self, i, own) result(rgba)
        type(MarkerArtist), intent(in) :: self
        integer, intent(in) :: i                            !! the trajectory point
        real(wp), intent(in) :: own(4)                      !! the marker's own color
        real(wp) :: rgba(4)
        rgba = own
        if (self%inter%is_colored()) rgba = point_rgba_or(self%traj, i, own)
    end function end_rgba