position_sources Function

public pure function position_sources(dof) result(s)

The sources of a trajectory's positions: x, y, (z) of the position, and zero for components beyond dof.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: dof

degrees of freedom (2 or 3)

Return Value type(DataSource), (3)


Called by

proc~~position_sources~~CalledByGraph proc~position_sources position_sources proc~curve_set_trajectory CurveArtist%curve_set_trajectory proc~curve_set_trajectory->proc~position_sources proc~marker_set_trajectory MarkerArtist%marker_set_trajectory proc~marker_set_trajectory->proc~position_sources proc~new_curve_artist new_curve_artist proc~new_curve_artist->proc~position_sources proc~new_curve_artist->proc~curve_set_trajectory proc~new_marker_artist new_marker_artist proc~new_marker_artist->proc~position_sources proc~new_marker_artist->proc~marker_set_trajectory proc~new_ribbon_artist new_ribbon_artist proc~new_ribbon_artist->proc~position_sources proc~ribbon_set_trajectory RibbonArtist%ribbon_set_trajectory proc~new_ribbon_artist->proc~ribbon_set_trajectory proc~new_segment_artist new_segment_artist proc~new_segment_artist->proc~position_sources proc~segment_set_trajectory SegmentArtist%segment_set_trajectory proc~new_segment_artist->proc~segment_set_trajectory proc~point_at Trajectory%point_at proc~point_at->proc~position_sources proc~ribbon_set_trajectory->proc~position_sources proc~segment_set_trajectory->proc~position_sources proc~set_default_data TrajectoryFollower%set_default_data proc~set_default_data->proc~position_sources interface~curveartist CurveArtist interface~curveartist->proc~new_curve_artist interface~markerartist MarkerArtist interface~markerartist->proc~new_marker_artist interface~ribbonartist RibbonArtist interface~ribbonartist->proc~new_ribbon_artist interface~segmentartist SegmentArtist interface~segmentartist->proc~new_segment_artist proc~add_trajectory TrajectoryFollower%add_trajectory proc~add_trajectory->proc~set_default_data proc~trajectory_path_position TrajectoryPath%trajectory_path_position proc~trajectory_path_position->proc~point_at proc~follow ReferenceFrame%follow proc~follow->proc~add_trajectory proc~set_trajectory~2 TrajectoryFollower%set_trajectory proc~follow->proc~set_trajectory~2 proc~set_trajectory~2->proc~add_trajectory

Source Code

    pure function position_sources(dof) result(s)
        integer, intent(in) :: dof      !! degrees of freedom (2 or 3)
        type(DataSource) :: s(3)
        integer :: k
        do k = 1, 3
            if (k <= dof) s(k) = DataSource(SOURCE_POSOPT, element=k)
        end do
    end function position_sources