point_rgba_or Function

private pure function point_rgba_or(traj, i, own) result(rgba)

Color of point i: the trajectory's, or own if it has none yet.

Arguments

Type IntentOptional Attributes Name
type(Trajectory), intent(in) :: traj

the trajectory
integer, intent(in) :: i

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

the color if it has none

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


Calls

proc~~point_rgba_or~~CallsGraph proc~point_rgba_or 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~~point_rgba_or~~CalledByGraph proc~point_rgba_or point_rgba_or proc~color_at color_at proc~color_at->proc~point_rgba_or proc~end_rgba end_rgba proc~end_rgba->proc~point_rgba_or proc~marker_update MarkerArtist%marker_update proc~marker_update->proc~end_rgba proc~add_intermediates add_intermediates proc~marker_update->proc~add_intermediates proc~push_intermediate push_intermediate proc~push_intermediate->proc~color_at proc~intermediates_by_data intermediates_by_data proc~intermediates_by_data->proc~push_intermediate proc~intermediates_by_distance intermediates_by_distance proc~intermediates_by_distance->proc~push_intermediate proc~intermediates_by_time intermediates_by_time proc~intermediates_by_time->proc~push_intermediate proc~add_intermediates->proc~intermediates_by_data proc~add_intermediates->proc~intermediates_by_distance proc~add_intermediates->proc~intermediates_by_time

Source Code

    pure function point_rgba_or(traj, i, own) result(rgba)
        type(Trajectory), intent(in) :: traj                !! the trajectory
        integer, intent(in) :: i                            !! the point
        real(wp), intent(in) :: own(4)                      !! the color if it has none
        real(wp) :: rgba(4)
        rgba = own
        if (i >= 1 .and. i <= traj%num_colors()) rgba = traj%color(i)
    end function point_rgba_or