new_segment_artist Function

private function new_segment_artist(traj, color, width, stride) result(a)

A segment artist for traj (optional), drawn in color color ([r, g, b] or [r, g, b, a]; default white) and width (window units; default 1), at every stride-th point (default 1).

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); width (window units, default 1)
real(kind=wp), intent(in), optional :: width

[r, g, b] or [r, g, b, a] (0 to 1); width (window units, default 1)
integer, intent(in), optional :: stride

a segment at every stride-th point (default 1)

Return Value type(SegmentArtist)


Calls

proc~~new_segment_artist~~CallsGraph proc~new_segment_artist new_segment_artist proc~position_sources position_sources proc~new_segment_artist->proc~position_sources proc~segment_set_color SegmentArtist%segment_set_color proc~new_segment_artist->proc~segment_set_color proc~segment_set_trajectory SegmentArtist%segment_set_trajectory proc~new_segment_artist->proc~segment_set_trajectory proc~set_stride SegmentArtist%set_stride proc~new_segment_artist->proc~set_stride proc~set_rgba set_rgba proc~segment_set_color->proc~set_rgba proc~set_style LineChain%set_style proc~segment_set_color->proc~set_style proc~segment_set_trajectory->proc~position_sources proc~dof Trajectory%dof proc~segment_set_trajectory->proc~dof proc~apply_style apply_style proc~set_style->proc~apply_style interface~vkf_line_set_dash_mode vkf_line_set_dash_mode proc~apply_style->interface~vkf_line_set_dash_mode interface~vkf_line_set_highlight vkf_line_set_highlight proc~apply_style->interface~vkf_line_set_highlight interface~vkf_line_set_trail vkf_line_set_trail proc~apply_style->interface~vkf_line_set_trail proc~check_status check_status proc~apply_style->proc~check_status proc~line_set_pattern line_set_pattern proc~apply_style->proc~line_set_pattern proc~line_set_style line_set_style proc~apply_style->proc~line_set_style proc~marker_set_style marker_set_style proc~apply_style->proc~marker_set_style interface~vkf_line_style vkf_line_style proc~line_set_pattern->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_pattern->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed proc~marker_set_style->interface~vkf_line_style proc~marker_set_style->interface~vkf_line_style_changed

Called by

proc~~new_segment_artist~~CalledByGraph proc~new_segment_artist new_segment_artist interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist

Source Code

    function new_segment_artist(traj, color, width, stride) result(a)
        type(Trajectory), intent(in), target, optional :: traj !! the trajectory to draw (not owned)
        real(wp), intent(in), optional :: color(:), width   !! [r, g, b] or [r, g, b, a] (0 to 1); width (window units, default 1)
        integer, intent(in), optional :: stride             !! a segment at every stride-th point (default 1)
        type(SegmentArtist) :: a
        a%end_ = position_sources(3)
        if (present(traj)) call a%set_trajectory(traj)
        if (present(color)) call a%set_color(color)
        if (present(width)) a%width_ = width
        if (present(stride)) call a%set_stride(stride)
    end function new_segment_artist