new_ribbon_artist Function

private function new_ribbon_artist(traj, color) result(a)

A ribbon artist for traj (optional), of color color ([r, g, b], alpha unchanged, or [r, g, b, a]; default white, alpha 0.25), from the frame's origin to the positions (see set_start_x_data, ... for others).

Arguments

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

the trajectory to draw (not owned)
real(kind=wp), intent(in), optional :: color(:)

[r, g, b] or [r, g, b, a] (0 to 1; default white, alpha 0.25)

Return Value type(RibbonArtist)


Calls

proc~~new_ribbon_artist~~CallsGraph proc~new_ribbon_artist new_ribbon_artist proc~position_sources position_sources proc~new_ribbon_artist->proc~position_sources proc~ribbon_set_trajectory RibbonArtist%ribbon_set_trajectory proc~new_ribbon_artist->proc~ribbon_set_trajectory proc~set_rgba set_rgba proc~new_ribbon_artist->proc~set_rgba proc~ribbon_set_trajectory->proc~position_sources proc~dof Trajectory%dof proc~ribbon_set_trajectory->proc~dof

Called by

proc~~new_ribbon_artist~~CalledByGraph proc~new_ribbon_artist new_ribbon_artist interface~ribbonartist RibbonArtist interface~ribbonartist->proc~new_ribbon_artist

Source Code

    function new_ribbon_artist(traj, color) result(a)
        type(Trajectory), intent(in), target, optional :: traj !! the trajectory to draw (not owned)
        real(wp), intent(in), optional :: color(:)          !! [r, g, b] or [r, g, b, a] (0 to 1; default white, alpha 0.25)
        type(RibbonArtist) :: a
        a%end_ = position_sources(3)
        if (present(traj)) call a%set_trajectory(traj)
        if (present(color)) call set_rgba(a%color_, color)
    end function new_ribbon_artist