set_rgba Subroutine

public pure subroutine set_rgba(rgba, color)

Set rgba from color: [r, g, b] (alpha unchanged) or [r, g, b, a].

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: rgba(4)

[r, g, b, a]
real(kind=wp), intent(in) :: color(:)

[r, g, b] or [r, g, b, a] (0 to 1)

Called by

proc~~set_rgba~~CalledByGraph proc~set_rgba set_rgba proc~cone_set_line_color PolyhedralCone%cone_set_line_color proc~cone_set_line_color->proc~set_rgba proc~curve_set_color CurveArtist%curve_set_color proc~curve_set_color->proc~set_rgba proc~new_ribbon_artist new_ribbon_artist proc~new_ribbon_artist->proc~set_rgba proc~plane_set_line_color RadialPlane%plane_set_line_color proc~plane_set_line_color->proc~set_rgba proc~poly_set_line_color Polyhedron%poly_set_line_color proc~poly_set_line_color->proc~set_rgba proc~ribbon_set_color RibbonArtist%ribbon_set_color proc~ribbon_set_color->proc~set_rgba proc~segment_set_color SegmentArtist%segment_set_color proc~segment_set_color->proc~set_rgba proc~set_cone_color PolyhedralCone%set_cone_color proc~set_cone_color->proc~set_rgba proc~set_face_color Polyhedron%set_face_color proc~set_face_color->proc~set_rgba proc~set_marker_color MarkerArtist%set_marker_color proc~set_marker_color->proc~set_rgba proc~set_plane_color RadialPlane%set_plane_color proc~set_plane_color->proc~set_rgba proc~set_point_color Polyhedron%set_point_color proc~set_point_color->proc~set_rgba proc~set_trail_style CurveArtist%set_trail_style proc~set_trail_style->proc~set_rgba proc~set_vertex_colors Polyhedron%set_vertex_colors proc~set_vertex_colors->proc~set_rgba proc~update_highlight update_highlight proc~update_highlight->proc~set_rgba interface~ribbonartist RibbonArtist interface~ribbonartist->proc~new_ribbon_artist proc~curve_set_highlight CurveArtist%curve_set_highlight proc~curve_set_highlight->proc~update_highlight proc~new_curve_artist new_curve_artist proc~new_curve_artist->proc~curve_set_color proc~new_marker_artist new_marker_artist proc~new_marker_artist->proc~set_marker_color proc~new_segment_artist new_segment_artist proc~new_segment_artist->proc~segment_set_color proc~segment_set_highlight SegmentArtist%segment_set_highlight proc~segment_set_highlight->proc~update_highlight interface~curveartist CurveArtist interface~curveartist->proc~new_curve_artist interface~markerartist MarkerArtist interface~markerartist->proc~new_marker_artist interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist

Source Code

    pure subroutine set_rgba(rgba, color)
        real(wp), intent(inout) :: rgba(4)                  !! [r, g, b, a]
        real(wp), intent(in) :: color(:)                    !! [r, g, b] or [r, g, b, a] (0 to 1)
        integer :: n
        n = min(4, size(color))
        rgba(1:n) = color(1:n)
    end subroutine set_rgba