
DIRECTORY G2dBasic, G2dMatrix, IO, Rope, Vector2;

G3dBasic: CEDAR DEFINITIONS
~ BEGIN
ROPE:						TYPE ~ Rope.ROPE;
STREAM:					TYPE ~ IO.STREAM;

Pair:						TYPE ~ G2dBasic.Pair;					-- RECORD [x, y: REAL м 0.0]
Triple:					TYPE ~ G2dBasic.Triple;				-- RECORD [x, y, z: REAL м 0.0];

NatPair:					TYPE ~ G2dBasic.NatPair;				-- RECORD [x, y: NAT м 0];
IntPair:					TYPE ~ G2dBasic.IntPair;				-- RECORD [x, y: INT м 0];
IntegerPair:				TYPE ~ G2dBasic.IntegerPair;			-- RECORD [x, y: INTEGER м 0];

Quad:						TYPE ~ RECORD [x, y, z, w: REAL м 0.0];
Sign:						TYPE ~ G2dBasic.Sign;					-- {positive, negative}
Border:					TYPE ~ G2dBasic.Border;				-- {inside, outside, edge}
Box:						TYPE ~ RECORD [min, max: Triple];	-- 3d bounding box

Hull:						TYPE ~ RECORD [						-- elaborate bounding box
center:							Triple м origin,				 -- center of hull
pMin, pMax:						Triple м origin,				 -- min and max points
rMin, rMax:						REAL м 0.0					 -- min and max radii
];

Segment:					TYPE ~ RECORD [p0, p1: Triple];		-- 3d line segment

Screen:					TYPE ~ RECORD [
quad:								Quad м [],					-- homogeneous location
pos:								Pair м [0, 0],					-- screen space position
intPos:							IntegerPair м [0, 0],			-- screen space position in integers
visible:							BOOL м TRUE,				-- 3d point in viewing frustum?
l, r, b, t, n, f:					BOOL м FALSE,				-- l, r, b. t, n, f clip?
fwdFacing:						BOOL м TRUE				-- if vertex normal forward facing
];

Surface:					TYPE ~ RECORD [						-- descriptor of polygon/patch
clientData:						REF ANY м NIL,				 -- surface's private data
vertices:							NatSequence м NIL			 -- vertex indices in shape
];	

Ray:						TYPE ~ RECORD [base, axis: Triple];

Circle:					TYPE ~ RECORD [						-- 3d circle
center, normal:					Triple м origin,
radius:							REAL м 0.0
];

Sphere:					TYPE ~ RECORD [center: Triple, radius: REAL м 0.0];

Triad:						TYPE ~ RECORD [
v, n, b:							Triple м origin			 -- vector, principal normal, binormal
];									-- see Computational Geometry for Design and Manufacture

Frame:					TYPE ~ RECORD [
position:						Triple м origin,				-- position on curve
triad:							Triad м [origin,origin,origin]	-- triad (right-handed)
];

Intersection:				TYPE ~ RECORD [
point:								Triple м origin,
doesIntersect:						BOOL м TRUE
];
NatSequence:				TYPE ~ G2dBasic.NatSequence;
NatSequenceRep: 		TYPE ~ G2dBasic.NatSequenceRep;

IntegerSequence:			TYPE ~ G2dBasic.IntegerSequence;
IntegerSequenceRep: 	TYPE ~ G2dBasic.IntegerSequenceRep;

IntSequence:				TYPE ~ G2dBasic.IntSequence;
IntSequenceRep: 		TYPE ~ G2dBasic.IntSequenceRep;

RealSequence:			TYPE ~ G2dBasic.RealSequence;
RealSequenceRep:		TYPE ~ G2dBasic.RealSequenceRep;

PairSequence:			TYPE ~ G2dBasic.PairSequence;
PairSequenceRep:		TYPE ~ G2dBasic.PairSequenceRep;

NatPairSequence:		TYPE ~ G2dBasic.NatPairSequence;
NatPairSequenceRep:	TYPE ~ G2dBasic.NatPairSequenceRep;

IntegerPairSequence:	TYPE ~ G2dBasic.IntegerPairSequence;
IntegerPairSequenceRep: TYPE ~ G2dBasic.IntegerPairSequenceRep;

IntPairSequence:			TYPE ~ G2dBasic.IntPairSequence;
IntPairSequenceRep:		TYPE ~ G2dBasic.IntPairSequenceRep;

BoolSequence:			TYPE ~ REF BoolSequenceRep;
BoolSequenceRep:		TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF BOOL
];

NatTable:					TYPE ~ REF NatTableRep;
NatTableRep:				TYPE ~ RECORD [
 length:							CARDINAL м 0,
 element:							SEQUENCE maxLength: CARDINAL OF NatSequence
 ];

TripleSequence:			TYPE ~ G2dBasic.TripleSequence;
TripleSequenceRep:		TYPE ~ G2dBasic.TripleSequenceRep;

QuadSequence:			TYPE ~ REF QuadSequenceRep;
QuadSequenceRep:		TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Quad
];

SegmentSequence:		TYPE ~ REF SegmentSequenceRep;
SegmentSequenceRep:	TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Segment
];

SurfaceSequence:		TYPE ~ REF SurfaceSequenceRep;
SurfaceSequenceRep:	TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Surface
];

RefSequence:				TYPE ~ REF RefSequenceRep;
RefSequenceRep:			TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF REF
];
origin:					Triple ~ [0.0, 0.0, 0.0];

xAxis:						Triple ~ G2dBasic.xAxis;
yAxis:					Triple ~ G2dBasic.yAxis;
zAxis:						Triple ~ G2dBasic.zAxis;

PI:							REAL ~ G2dBasic.PI;
TripleSequenceFromList: PROC [LIST OF Triple] RETURNS [TripleSequence];
CopyBoolSequence: PROC [bools: BoolSequence] RETURNS [BoolSequence];
CopyNatTable: PROC [nats: NatTable] RETURNS [NatTable];
CopyTripleSequence: PROC [triples: TripleSequence] RETURNS [TripleSequence];
CopyQuadSequence: PROC [quads: QuadSequence] RETURNS [QuadSequence];
CopySegmentSequence: PROC [segments: SegmentSequence] RETURNS [SegmentSequence];
CopySurfaceSequence: PROC [surfaces: SurfaceSequence] RETURNS [SurfaceSequence];
CopyRefSequence: PROC [refs: RefSequence] RETURNS [RefSequence];
AddToBoolSequence: PROC [bools: BoolSequence, bool: BOOL] RETURNS [BoolSequence];
AddToNatTable: PROC [nats: NatTable, natSequence: NatSequence] RETURNS [NatTable];
AddToTripleSequence: PROC [triples: TripleSequence, triple: Triple]
RETURNS [TripleSequence];
AddToQuadSequence: PROC [quads: QuadSequence, quad: Quad] RETURNS [QuadSequence];
AddToSegmentSequence: PROC [segments: SegmentSequence, segment: Segment]
RETURNS [SegmentSequence];
AddToSurfaceSequence: PROC [surfaces: SurfaceSequence, surface: Surface]
RETURNS [SurfaceSequence];
AddToRefSequence: PROC [refs: RefSequence, ref: REF] RETURNS [RefSequence];
LengthenBoolSequence: PROC [bools: BoolSequence, amount: REAL м 1.3]
RETURNS [BoolSequence];

LengthenNatTable: PROC [nats: NatTable, amount: REAL м 1.3] RETURNS [NatTable];
LengthenTripleSequence: PROC [triples: TripleSequence, amount: REAL м 1.3]
RETURNS [TripleSequence];
LengthenQuadSequence: PROC [quads: QuadSequence, amount: REAL м 1.3]
RETURNS [QuadSequence];
LengthenSegmentSequence: PROC [segments: SegmentSequence, amount: REAL м 1.3]
RETURNS [SegmentSequence];
LengthenSurfaceSequence: PROC [surfaces: SurfaceSequence, amount: REAL м 1.3]
RETURNS [SurfaceSequence];
LengthenRefSequence: PROC [refs: RefSequence, amount: REAL м 1.3]
RETURNS [RefSequence];

END.

  ╝  
G3dBasic.mesa
Copyright ╙ 1984, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 14, 1992 1:49 pm PDT
Glassner, July 5, 1989 7:03:05 pm PDT
Basic Types
Miscellaneous Types
Sequences
Constants
Sequence Operations
Additional Sequences Operations: see G2dVector, G3dMatrix, and G3dSpline
Miscellany
Return a sequence given a list.
Copying
Return a copy of the input BoolSequence.

Return a copy of the input NatTable.

Return a copy of the input sequence of triples.

Return a copy of the input sequence of quads.

Return a copy of the input sequence of segments.

Return a copy of the input sequence of surfaces.

Return a copy of the input sequence of REFs.
Adding To
Add bool to the sequence.

Add natSequence to the sequence.

Add triple to the sequence.

Add quad to the sequence.

Add segment to the sequence.

Add surface to the sequence.

Add refAny to the sequence.
Lengthening
Return a copy of the input sequence whose maxLength is amount*input.maxLength.
Return a copy of the input sequence whose maxLength is amount*input.maxLength.

Return a copy of the input sequence whose maxLength is amount*input.maxLength.

Return a copy of the input sequence whose maxLength is amount*input.maxLength.

Return a copy of the input sequence whose maxLength is amount*input.maxLength.

Return a copy of the input sequence whose maxLength is amount*input.maxLength.

Return a copy of the input sequence whose maxLength is amount*input.maxLength.
 Э╩║  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ&JЩ%JШ JЪ╧k	ЬЮЬШ1JШ ЧJЪ╨blЬЮЬЮШJЪЬЮШheadЪ╧lЩJЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШJШ ЧJЪ
ЬЮЬ╧c╨csбвбЬбШAЪ
ЬЮЬбвбвбЬбШGJШ ЧJЪ
ЬЮЬбвбвбЬбШCJЪ
ЬЮЬбвбвбЬбШCЪ
ЬЮЬбвбвбЬбШMJШ ЧJЪЬЮЬЮЬЮЬШ2ЧЪаЩJЪЬЮЬбШ<JЪЬЮЬбШAЪЬ
ЮЬЮЬбШ>JШ ЧЪЬЮЬЮЬбШ9JЪЬ#бШ4JЪЬ&бШ;JЪЬЮЬбШ5JШJШ ЧJЪЬЮЬЮЬбШ@JШ ЪЬ
ЮЬЮЬШJЪЬбШ3JЪЬбШ7JЪЬ$б&ШJJЪЬЮЬЮЬб!Ш>JЪЬЮЬЮЬбШ@JЪЬЮЬЮЬб"ШAJЪЬШJШ ЧЪЬЮЬЮЬбвб
вбвбШ@JЪЬЮЬЮЬЮЬбШ=JЪЬЮЬбвбвбШ?JШJШ ЧЪЬ
ЮЬЮЬШ-JШ ЧЪЬЮЬЮЬбШ-JШ$JЪЬЮЬШJШJШ ЧЪЬЮЬЮЬЮЬШ?JШ ЧЪЬЮЬЮЬШJЪЬ"б%ШGЪЬб╨cz1ШCJШ ЧЧЪЬ
ЮЬЮЬШJЪЬ#бШ7JЪЬ╧sЬбШCJШJШ ЧЪЬЮЬЮЬШ JШJЪЬЮЬЮШJШЧЧЪа	Щ	JЪЬЮЬШ,JЪЬЮЬШ1JШ JЪЬЮЬШ3ЪЬЮЬШ8JШ ЧJЪЬЮЬШ,ЪЬЮЬШ1JШ ЧJЪЬЮЬШ-ЪЬЮЬШ2JШ ЧJЪЬЮЬШ-JЪЬЮЬШ2JШ JЪЬЮЬШ2JЪЬЮЬШ7JШ JЪЬЮЬ Ш9JЪЬдЮЬ#Ш?JШ JЪЬЮЬШ3JЪЬЮЬШ8JШ JЪЬЮЬЮЬШ+ЪЬЮЬЮЬШ!JЪЬЮЬШJЪЬЮЬЮЬЮЬЮШ3JШJШ ЧJЪЬЮЬЮЬШ%ЪЬЮЬЮЬШJЪЬЮЬШJЪЬ	ЮЬЮЬЮЬШ;ШJШ ЧЧJЪЬЮЬШ1ЪЬЮЬШ6JШ ЧJЪЬЮЬЮЬШ+ЪЬЮЬЮЬШ!JЪЬЮЬШJЪЬЮЬЮЬЮЬШ3ШJШ ЧЧJЪЬЮЬЮЬШ0ЪЬЮЬЮЬШ#JЪЬЮЬШJЪЬЮЬЮЬЮЬШ6JШJШ ЧJЪЬЮЬЮЬШ0ЪЬЮЬЮЬШ#JЪЬЮЬШJЪЬЮЬЮЬЮЬШ6JШJШ ЧJЪЬЮЬЮЬШ*ЪЬЮЬЮЬШ!JЪЬЮЬШJЪЬЮЬЮЬЮЬЮШ2JШЧЧЪа	Щ	Ш%JШ ЧJШ$JШ#Ш$JШ ЧJЪЮЬЮЬЮЬШЧЪаЩJЩHJЩ
Ъ
╧nЬЮЬЮЬЮЬ	ЮЬШGJЪЬЩЧJЩЪеЬЮЬЮЬШDJЪЬ(Щ(JЩ ЧЪеЬЮЬЮЬШ7Щ$JЩ ЧЧЪеЬЮЬЮЬШLЩ/JЩ ЧЧЪеЬЮЬЮЬШDЩ-JЩ ЧЧЪеЬЮЬЮЬШPJЩ0JЩ ЧЪеЬЮЬЮЬШPJЩ0JЩ ЧЪеЬЮЬЮЬШ@JЪЬ'дЬЩ,ЧJЩ	ЪеЬдЮдЬдЬдЬдЮЬдЮдЬШQJЩJЩ ЧЪеЬЮЬ+ЮЬШRЩ JЩ ЧЧЪеЬЮЬ*ШCJЪЮЬШЩJЩ ЧЧЪеЬЮЬ"ЮЬШQЩJЩ ЧЧЪеЬЮЬ.ШHJЪЮЬШJЩJЩ ЧЪеЬЮЬ.ШHJЪЮЬШJЩJЩ ЧЪеЬЮЬЮЬЮЬШKJЩЧJЩЪеЬЮЬЮЬШDJЪЮЬШJЩNЧJШ ЪеЬЮЬЮЬЮЬШOЩNJЩ ЧЧЪеЬЮЬ#ЮЬШJJЪЮЬШЩNJЩ ЧЧЪеЬЮЬЮЬШDJЪЮЬШЩNJЩ ЧЧЪеЬЮЬ%ЮЬШMJЪЮЬШJЩNJЩ ЧЪеЬЮЬ%ЮЬШMJЪЮЬШJЩNJЩ ЧЪеЬЮЬЮЬШAJЪЮЬШJЩNЧЧJШ JЪЮЬШJШ Ч ЕЧ    |  &Є  