
DIRECTORY G3dBasic, G3dMatrix, G3dQuaternion, G3dShape, G3dTube, IO, Rope;

G3dSweep: CEDAR DEFINITIONS
~ BEGIN
Triple:					TYPE ~ G3dBasic.Triple;
TripleSequence:			TYPE ~ G3dBasic.TripleSequence;
Shape:					TYPE ~ G3dShape.Shape;
Matrix:					TYPE ~ G3dMatrix.Matrix;
AxisAngle:				TYPE ~ G3dQuaternion.AxisAngle;
ROPE:						TYPE ~ Rope.ROPE;
STREAM:					TYPE ~ IO.STREAM;
Tube:						TYPE ~ G3dTube.Tube;
Quaternion:				TYPE ~ G3dQuaternion.Quaternion;	
SurfaceDescription:		TYPE ~ REF SurfaceDescriptionRep;
SurfaceDescriptionRep:	TYPE ~ RECORD [
open:								BOOL м FALSE
];

SweepPaths:				TYPE ~ REF SweepPathsRep;
SweepPathsRep:			TYPE ~ RECORD [
shapeFile:						ROPE м NIL,
shapeBlend:						BlendType м smooth,
scaleFile:							ROPE м NIL,
scaleBlend:						BlendType м smooth,
rotateFile:						ROPE м NIL,
rotateBlend:						BlendType м smooth,
translateFile:						ROPE м NIL,
translateBlend:					BlendType м smooth,
pathFile:							ROPE м NIL,
pathBlend:						BlendType м smooth
];

BlendType:			TYPE ~ {straight, smooth, cyclic};

SubdivisionType:	TYPE ~ {none, halfTriangulate, quarterTriangulate};

FileType:				TYPE ~ {shape, path, scale, rotate, translate};

ShapeBlendProc:	TYPE ~ PROC [
t: 					REAL,
blend:				BlendType м smooth,
clientData:		REF ANY м NIL
] RETURNS [Shape];

PathProc:			TYPE ~ PROC [
t: 					REAL,
blend:				BlendType м smooth,
clientData:		REF ANY м NIL
] RETURNS [Matrix];

ScaleProc:			TYPE ~ PROC [
t:					REAL,
blend:				BlendType м smooth,
clientData: 		REF ANY м NIL
] RETURNS [Triple];

RotateProc:		TYPE ~ PROC [
t: 					REAL,
blend:				BlendType м smooth,
clientData:		REF ANY м NIL
] RETURNS [AxisAngle];

TranslateProc:	TYPE ~ PROC [
t: 					REAL,
blend:				BlendType м smooth,
clientData:		REF ANY м NIL
] RETURNS [Triple];

XformProc:		TYPE ~ PROC [
t: 					REAL,
blend:				BlendType м smooth,
clientData:		REF ANY м NIL
] RETURNS [Matrix];

KeyData:					TYPE ~ REF KeyDataRep;
KeyDataRep:				TYPE ~ RECORD [
alpha:							REAL м -1.0,
rope:							ROPE м NIL,
real:							REAL м 0.0,
triple:							Triple м [0.0, 0.0, 0.0],
quaternion:					Quaternion,
next, prev:					KeyData м NIL
];

KeyList:					TYPE ~ REF KeyListRep;
KeyListRep:				TYPE ~ RECORD [
type:							BlendType м smooth,
tube:							Tube,
knots:							TripleSequence,
keys:							KeyData
];
pi: REAL = 3.141593;
piOver2: REAL = 1.570796;
piTimes2: REAL = 6.283186;
degreesToRadians: REAL = .01745329;
radiansToDegrees: REAL = 57.29577;
KeyListFromFile: PUBLIC PROC [filename: ROPE, type: FileType, b: BlendType] RETURNS [KeyList];
KeyListFromStream: PUBLIC PROC [stream: STREAM, type: FileType, b: BlendType] RETURNS [KeyList];
Merge2Shapes: PUBLIC PROC [s1, s2: Shape, addPolys: BOOL м TRUE] RETURNS [s: Shape];
AddTriangleToShape: PUBLIC PROC [shape: Shape, v0, v1, v2: INT];
AddGeneralQuadrilateralToShape: PUBLIC PROC [
shape: Shape,
v0, v1, v2, v3: INT,
op: SubdivisionType м none
];
SimpleSetupShapeBlendProc: PUBLIC PROC [lo, hi: ROPE] RETURNS [REF ANY];
SimpleSetupRotateProc: PUBLIC PROC [lo, hi: AxisAngle] RETURNS [REF ANY];
SimpleSetupPathProc: PUBLIC PROC [lo, hi: Triple] RETURNS [REF ANY];
SimpleSetupScaleProc: PUBLIC PROC [lo, hi: Triple] RETURNS [REF ANY];
SimpleSetupTranslateProc: PUBLIC PROC [lo, hi: Triple] RETURNS [REF ANY];
SetupDefaultShapeBlendProc: PUBLIC PROC [f: ROPE, b: BlendType] RETURNS [REF ANY];
SetupDefaultPathProc: PUBLIC PROC [f: ROPE, b: BlendType] RETURNS [REF ANY];
SetupDefaultScaleProc: PUBLIC PROC [f: ROPE, b: BlendType] RETURNS [REF ANY];
SetupDefaultRotateProc: PUBLIC PROC [f: ROPE, b: BlendType] RETURNS [REF ANY];
SetupDefaultTranslateProc: PUBLIC PROC [f: ROPE, b: BlendType] RETURNS [REF ANY];
DefaultShapeBlendProc: PUBLIC ShapeBlendProc;
DefaultPathProc: PUBLIC PathProc;
DefaultScaleProc: PUBLIC ScaleProc;
DefaultRotateProc: PUBLIC RotateProc;
DefaultTranslateProc: PUBLIC TranslateProc;
MakeSweepShape: PUBLIC PROC [
shapeProc: ShapeBlendProc,
shapeData: REF ANY м NIL,
shapeBlend: BlendType м smooth,
pathProc: PathProc м NIL,
pathData: REF ANY м NIL,
pathBlend: BlendType м smooth,
scaleProc: ScaleProc м NIL,
scaleData: REF ANY м NIL,
scaleBlend: BlendType м smooth,
rotateProc: RotateProc м NIL,
rotateData: REF ANY м NIL,
rotateBlend: BlendType м smooth,
translateProc: TranslateProc м NIL,
translateData: REF ANY м NIL,
translateBlend: BlendType м smooth,
xformProc: XformProc м NIL,
xformData: REF ANY м NIL,
xformBlend: BlendType м smooth,
steps: INT м 10,
tLo: REAL м 0.0,
tHi: REAL м 1.0,
firstInstance: BOOL м FALSE,
lastInstance: BOOL м FALSE,
reverseFirstInstance: BOOL м FALSE,
reverseLastInstance: BOOL м TRUE,
anchor: BOOL м FALSE,
instance: BOOL м TRUE,
connect: BOOL м TRUE,
localXSections: BOOL м FALSE,
tubeTexture: BOOL м TRUE,
close: BOOL м FALSE
] RETURNS [Shape];

END.
   ╞  
G3dSweep.mesa
Copyright ╙ 1984, 1992 by Xerox Corporation.  All rights reserved.
Glassner, September 21, 1989 12:28:24 pm PDT
Bloomenthal, July 15, 1992 4:06 pm PDT
Basic Types
Local Types
Constants
Impl Procs
Support for KeyLists From Files and Streams
Shape Blending And Combining Procedures
Polygon To Shape Utility Procedures
Simple Sweep  Setup Procedures
Sweep Default Setup Procedures
Sweep Default Evaluation Procedures
Sweep Construction
Э╩ч  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЪЬЩJЪЬ	╧eЬ6ЩBJЪЬ,Щ,JЩ&JШ ЧЪ╧k	Ь8ЮЬШJJШ ЧJЪ╤blnЬЮЬЮШJЪЬЮШheadЪ╧lЩJЪЬЮЬШ#JЪЬЮЬШ1JЪЬЮЬШ!JЪЬЮЬШ$JЪЬЮЬШ-JЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬШ0ЧЪаЩJЪЬЮЬЮЬШ6ЪЬЮЬЮЬШ&JЪЬЮЬЮШJШЧJШ JЪЬЮЬЮЬШ(ЪЬЮЬЮЬШ JЪЬЮЬЮЬШJШ$JЪЬЮЬЮЬШJШ$JЪЬЮЬЮЬШJШ%JЪЬЮЬЮЬШJШ'JЪЬЮЬЮЬШJШ"JШJШ ЧJЪЬЮЬШ/JШ JЪЬЮЬ/ШDJШ JЪЬЮЬ+Ш<JШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬ	ШЧJШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬ
ШЧJШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬ
ШЧJШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬШЧJШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬ
ШЧJШ ЪЬЮЬЮЬШJЪЬЮЬШJШJЪЬЮЬЮЬЮШJЪЬЮЬ
ШJШ ЧJЪЬЮЬЮЬШ#ЪЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJШ'JШJЪЬЮШJШJШ ЧJЪЬЮЬЮЬШ#ЪЬЮЬЮЬШJШJШJШJШJШЧЧЪа	Щ	JЪЬЮЬШJЪЬ	ЮЬШJЪЬ
ЮЬШJЪЬЮЬШ#JЪЬЮЬШ"ЧЪа
Щ
JЪа+Щ+JЪ╧nЬЮЬЮЬ ЮЬШ^JЪбЬЮЬ
ЮЬ ЮЬШ`JЪа'Щ'JЪ
бЬЮЬЮЬЮЬЮЬШTJЪа#Щ#JЪбЬЮЬЮЬШ@ЪбЬЮЬШ-JЪЬШJЪЬЮЬШJШJЪЬШЧJЪаЩJЪбЬ╧sЮвЬ	ЮЬвЮвЬЮвЮЬвШHJЪ
бЬЮЬЮЬЮЬЮЬШIJЪ
бЬЮЬЮЬЮЬЮЬШDJЪ
бЬЮЬЮЬЮЬЮЬШEJЪ
бЬЮЬЮЬЮЬЮЬШIJЪаЩJЪбЬвЮвЬЮЬвЬвЬ
вЮвЬЮвЮЬвШRJЪбЬЮЬЮЬЮЬЮЬЮЬШLJЪбЬЮЬЮЬЮЬЮЬЮЬШMJЪбЬЮЬЮЬЮЬЮЬЮЬШNJЪбЬЮЬЮЬЮЬЮЬЮЬШQJЪа#Щ#JЪбЬЮЬШ-JЪбЬЮЬ
Ш!JЪбЬЮЬШ#JЪбЬЮЬШ%JЪбЬЮЬШ+JЪаЩЪбЬЮЬШJШJЪЬЮЬЮЬЮЬШJШJЪЬЮЬШJЪЬ
ЮЬЮЬЮЬШJШJЪЬЮЬШJЪЬЮЬЮЬЮЬШJШJЪЬЮЬШJЪЬЮЬЮЬЮЬШJШ JЪЬЮЬШ#JЪЬЮЬЮЬЮЬШJШ#JЪЬЮЬШJЪЬЮЬЮЬЮЬШJШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШ#JЪЬЮЬЮЬШ!JЪЬЮЬЮЬШJЪЬ
ЮЬЮЬШJЪЬ	ЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮШJЪЬЮЬ	ШЧJШ ЧJЪЮЬШЧ ЕЧ    Ю  K  