GGDescribe.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Bier on August 9, 1985 4:26:08 pm PDT
Contents: Printing out descriptions of gargoyle objects onto text streams, for debugging and feedback.
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.