<> <> <> <> <<>> DIRECTORY GGModelTypes, Rope; GGDescribe: CEDAR DEFINITIONS = BEGIN Cluster: TYPE = GGModelTypes.Cluster; Outline: TYPE = GGModelTypes.Outline; Sequence: TYPE = GGModelTypes.Sequence; TouchGroup: TYPE = GGModelTypes.TouchGroup; Traj: TYPE = GGModelTypes.Traj; DescribeCluster: PROC [cluster: Cluster] RETURNS [text: Rope.ROPE]; DescribeOutline: PROC [outline: Outline] RETURNS [text: Rope.ROPE]; DescribeTraj: PROC [traj: Traj] RETURNS [text: Rope.ROPE]; DescribeSegment: PROC [traj: Traj, segNum: NAT] RETURNS [text: Rope.ROPE]; DescribeJoint: PROC [traj: Traj, jointNum: NAT] RETURNS [text: Rope.ROPE]; DescribeSequence: PROC [seq: Sequence] RETURNS [text: Rope.ROPE]; DescribeTouchGroup: PROC [group: TouchGroup] RETURNS [text: Rope.ROPE]; END.