color Function

private pure function color(self, i) result(c)

Color i ([r, g, b, a]).

Type Bound

Trajectory

Arguments

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

the color (1 to num_colors)

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


Called by

proc~~color~3~~CalledByGraph proc~color~3 Trajectory%color proc~point_rgba_or point_rgba_or proc~point_rgba_or->proc~color~3 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 color(self, i) result(c)
        class(Trajectory), intent(in) :: self
        integer, intent(in) :: i                            !! the color (1 to num_colors)
        real(wp) :: c(4)
        c = real(self%col(:, i), wp)
    end function color