
DIRECTORY Args, Atom, Commander, G3dBasic, G3dMatrix, G3dQuaternion, G3dRender, G3dShape, G3dSpline, G3dTimeTrees, IO, Random, Rope, ViewerClasses, ViewerTools;

G3dScene: CEDAR DEFINITIONS
~ BEGIN
Arg:				TYPE ~ Args.Arg;
PropList:			TYPE ~ Atom.PropList;
Handle:			TYPE ~ Commander.Handle;
Pair:				TYPE ~ G3dBasic.Pair;
Triple:			TYPE ~ G3dBasic.Triple;
Matrix:			TYPE ~ G3dMatrix.Matrix;
MatrixSequence:	TYPE ~ G3dMatrix.MatrixSequence;
SplineSequence:	TYPE ~ G3dSpline.SplineSequence;
Quaternion:		TYPE ~ G3dQuaternion.Quaternion;
Context3d:		TYPE ~ G3dRender.Context3d;
RenderStyle:		TYPE ~ G3dRender.RenderStyle;
Shape:			TYPE ~ G3dShape.Shape;
ShapeSequence:	TYPE ~ G3dShape.ShapeSequence;
TimeTree:		TYPE ~ G3dTimeTrees.TimeTree;
STREAM:			TYPE ~ IO.STREAM;
RandomStream:	TYPE ~ Random.RandomStream;
ROPE:				TYPE ~ Rope.ROPE;
Viewer:			TYPE ~ ViewerClasses.Viewer;
WriteCameraParameters: PROC [context3d: Context3d];
WriteParameters: PROC [context3d: Context3d, fileName: ROPE м NIL];
WriteParametersToStream: PROC [context3d: Context3d, out: STREAM];
MakeFrameFromFile: PROC [context3d: Context3d, fileName: ROPE];
ReadParameters: PROC [context3d: Context3d, fileName: ROPE м NIL, cmdOut: STREAM м NIL]
RETURNS [shouldRepaint: BOOL];
LogProc: TYPE ~ PROC [rope: ROPE, clientData: REF ANY];

WriteLog: PROC [ps: ParseState, msg: ROPE];
Parse: PROC [
context3d: Context3d,
operation: ROPE,
cmdOut: STREAM м NIL,
logProc: LogProc м NIL,
logErrors: BOOL м TRUE,
fileName: ROPE м NIL,
clientData: REF ANY м NIL,
parseState: ParseState м NIL]
RETURNS [ParseState];

InheritMaterial: PROC [ps: ParseState];

SaveCurrentShapeInTree: PROC [ps: ParseState];
SceneProc:		TYPE ~ PROC [ps: ParseState, args: ROPE, data: REF ANY];
Registry:			TYPE ~ LIST OF RECORD [key: ROPE, proc: SceneProc, data: REF ANY];
SourceText:		TYPE ~ REF SourceTextRep;
SourceTextRep:	TYPE ~ RECORD [
fileName:					ROPE м NIL,
position:					INT м 0
];

ParseState:		TYPE ~ REF ParseStateRep;
ParseStateRep:	TYPE ~ RECORD [
fileName:				ROPE м NIL,					-- originating scene file (if any)
index:					INT м 0,						-- character position within scene file
errorMessage:		ROPE м NIL,					-- if any errors encountered
errorViewer:			Viewer м NIL,				-- viewer for displaying parse errors
cmdHandle:			Handle м NIL,				-- for Cedar command execution
nesting:				NAT м 0,						-- nesting of parse calls
directory:				ROPE м NIL,					-- working directory
shouldRepaint:		BOOL м FALSE,				-- operations necessitated a repaint?
logProc:				LogProc м NIL,				-- for logging operations
clientData:			REF ANY м NIL,				-- passed to registered procs
context3d:				Context3d м NIL,				-- rendering information
command:			ROPE м NIL,					-- currently executing command (key)
currentShape:		Shape м NIL,					-- currently active shape
currentMaterial:		Material м [],				-- currently active surface attributes
ctm:					Matrix м NIL,				-- current transformation matrix
buildData:			REF ANY м NIL,				-- state data for G3dBuild routines
timeTree:				TimeTree м NIL,				-- hiearchy with animation info
changes:				PropList м NIL,				-- what's changed in this key
inKey:				BOOL м FALSE,				-- TRUE when we're creating keys
matrixStack:			LIST OF Matrix м NIL,		-- matrix stack for pusing/popping
randomStream:		RandomStream м NIL,		-- for pseudo-variables
materials:				MaterialSequence м NIL,	-- accumulated surface attributes
variables:				VariableSequence м NIL	-- accumulated key-substitute pairs
];

Material:					TYPE ~ RECORD [
name:								ROPE м NIL,
backFaces:						BOOL м FALSE,
renderStyle:						RenderStyle м smooth,
color:								Triple м [0.7, 0.7, 0.7],
diffuseReflectivity:				REAL м 1.0,
specularReflectivity:			REAL м 1.0,
metallicity:						REAL м 1.0,
shininess:						REAL м 50.0,
transmittance:					REAL м 0.0,
visible:							BOOL м TRUE,
textureOffset:					Pair м [0.0, 0.0],
textureScale:						Pair м [1.0, 1.0],
bumpScale:						REAL м 1.0,
textureFiltering:					BOOL м FALSE,
textureIntensityName:			ROPE м NIL,
textureColorName:				ROPE м NIL,
textureBumpName:				ROPE м NIL
];

MaterialSequence:		TYPE ~ REF MaterialSequenceRep;
MaterialSequenceRep:	TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Material
];

Variable:					TYPE ~ RECORD [name, value: ROPE м NIL];

VariableSequence:		TYPE ~ REF VariableSequenceRep;
VariableSequenceRep:	TYPE ~ RECORD [
length:							CARDINAL м 0,
element:							SEQUENCE maxLength: CARDINAL OF Variable
];

ParseError: ERROR [explanation: ROPE];

RegisterProc: PROC [key: ROPE, proc: SceneProc, data: REF ANY м NIL];
UnregisterProc: PROC [key: ROPE];

GetRegistry: PROC RETURNS [Registry];
ResetRegistry: PROC;
MakeTransformNode: PROC [ps: ParseState];
MakeKeysNode: PROC [ps: ParseState];
MakeShapeNode: PROC [ps: ParseState];
AssignCtmToShape: PROC [ps: ParseState, shape: Shape];

GetArgs: PROC [ps: ParseState, input, format: ROPE] RETURNS
[Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg,Arg];

SubstituteVariables: PROC [
variables: VariableSequence,
input: ROPE,
rs: RandomStream м NIL]
RETURNS [out: ROPE];
LookupVariable: PROC [variables: VariableSequence, name: ROPE] RETURNS [ROPE];

END.

  а  
G3dScene.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 15, 1992 11:31 pm PDT
Glassner, June 25, 1990 4:00:32 pm PDT
Type Declarations
Write Scene Descriptions to a File or Viewer
Write the camera parameters to the primary selection.

Write all the relevant parameters of the context3d to the specified file.
If fileName = NIL, obtain it from the current mouse selection.
If fileName = NIL and no fileName selected by the mouse, write to the primary selection.

Write all the relevant parameters of the context3d to the output stream.
Read Scene Descriptions from a File or Viewer
Display a scene described in fileName, without altering context3d.

Set context3d parameters based on the scene description.
If fileName = NIL, obtain it from the current mouse selection.  If fileName = NIL and no
name selected with the mouse, read parameters from the primary selection.
Parsing a Scene Description
Send the message to the log, if a logProc has been assigned to ps.

Perform the specified operation on the context3d.
operation consists of an arbitrary number of operations:
each operation is a keyword followed by arguments, if required.
Only registered operations (see below) and a short number of internally defined operations
are supported; see the graphics 3d documentation for the standard list of operations.
If logProc # NIL, a message is written for each operation parsed.
If logErrors, any errors encountered are printed in an error viewer.
If fileName # NIL, it is used when printing errors.
a parseState may be given for continuity between calls on Parse; otherwise one is allocated.
Support for Shape Creation
Assign the material information in ps.currentMaterial to the shape in ps.currentShape
Save the active shape in the TimeTree associated with ps.
Registering Procedures Callable from a Scene File
book-keeping:
3d context3d:
current attributes:
build state:
animation support:
accumulated state:
Procedures registered with the global registry may raise this error, output to a log file results.
Register the proc as callable from a scene file under the name "key;"
arguments following key (up to a carriage-return) are passed to proc, as is data.
Proc must be a top level procedure and, naturally, must be registered before it is called.

Remove the registered proc from the registry.
Return the global registry.

Set the global registry to NIL.

TimeTree Node Construction
Create a transform node in ps.timeTree if needed

Create a keys node in ps.timeTree if needed

Create a shape node in ps.timeTree if needed

Utility Procs for Registered SceneProcs
Assign the matrix at the top of the stack to the shape.
Like Args.ArgsGetFromRope, but replaces all variable names in the input
with their values before evaluation.
In the specified rope replace all variable names with their values.

Return the value of the variable with the given name.  If no such variable exists,
return the name itself as the value.
Э╩w  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ'JЩ&JШ JЪ╧k	ЬЧШаJШ ЧJЪ╨blЬЮЬЮШJЪЬЮШheadЪ╧lЩJЪЬЮЬШJЪЬЮЬШ!JЪЬ	ЮЬШ"JЪЬЮЬШJЪЬ	ЮЬШ!JЪЬ
ЮЬШ"JЪЬЮЬШ0JЪЬЮЬШ0JЪЬЮЬШ-JЪЬЮЬШ'JЪЬЮЬШ+JЪЬЮЬШJЪЬЮЬШ-JЪЬ
ЮЬШ(JЪЮЬЮЬЮЬЮЬШJЪЬЮЬШ)JЪЮЬЮЬЮЬШJЪЬ
ЮЬШ&ЧЪа,Щ,Ъ╧nЬЮЬШ3JЩ5JЩ ЧЪбЬЮЬ"ЮЬЮЬШCJЪЬIЩIJЪЬ╧sЬ-Щ>JЪЬвЬGЩXJЩ ЧЪбЬЮЬЮЬШBJЪЬHЩHЧЧЪа-Щ-ЪбЬЮЬ"ЮЬШ?JЪЬBЩBJЩ ЧЪбЬЮЬ"ЮЬЮЬ
ЮЬЮЬШWJЪЮЬЮЬШJЪЬ8Щ8JЪЬвЬ=вЬЩXJЪЬIЩIЧЧЪаЩЪЬ	ЮЬЮЬЮЬЮЬЮЬШ7JШ ЧЪбЬЮЬЮЬШ+JЩBJЩ ЧЪбЬЮЬШJЪЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJЪЬ
ЮЬЮЬШJЪЬЮЬЮЬЮЬШJЪЬЮЬШJЪЮЬШJШ JЪЬ1Щ1ЪЬ8Щ8JЪЬ?Щ?ЧЩZJЩUЧJЪЬвЬ1ЩAJЩDJЪЬвЬ"Щ3JЩ\ЧЧЪаЩЪбЬЮЬШ'JЩUЧJШ ЪбЬЮЬШ.JЩ9ЧЧЪа1Щ1JЪЬЮЬЮЬЮЬЮЬЮЬШDJЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШNJЪЬЮЬЮЬШ&ЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬШJШJШ ЧJЪЬЮЬЮЬШ&ЪЬЮЬЮЬШЩJЪЬЮЬЮЬ╧c"Ш?JЪЬЮЬг'Ш@JЪЬЮЬЮЬгШ;JЪЬЮЬг%ШEJЪЬЮЬгШ<JЪЬЮЬгШ3JЪЬЮЬЮЬгШ2JЪЬЮЬЮЬг%ШFJЪЬЮЬгШ7JЪЬЮЬЮЬЮЬг!Ш=ЧЪЬЩJЪЬЮЬгШ:ЧЩJЪЬЮЬЮЬг)Ш?JЪЬЮЬгШ9JЪЬ г*ШJJЪЬЮЬг Ш:ЧЩJЪЬЮЬЮЬЮЬг#ШBЧЩJЪЬЮЬгШ?JЪЬЮЬгШ<JЪЬ
ЮЬЮЬг Ш;ЧЩJЪЬЮЬЮЬ
ЮЬг"ШHJЪЬЮЬгШ;JЪЬ!ЮЬг!ШGJЪЬ!ЮЬг#ШHJШЧJШ ЧЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJШ'JШ'JЪЬЮЬШ#JЪЬЮЬШ#JЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬЮЬШJШ%JШ%JЪЬЮЬШJЪЬЮЬЮЬШ#JЪЬЮЬЮЬШ#JЪЬЮЬЮШ JЪЬЮЬЮШJЪЬШJШ ЧJЪЬЮЬЮЬШ2ЪЬЮЬЮЬШ$JЪЬЮЬШJЪЬЮЬЮЬЮЬ	Ш7JШJШ ЧЪ	ЬЮЬЮЬЮЬЮЬШ6JШ ЧJЪЬЮЬЮЬШ2ЪЬЮЬЮЬШ$JЪЬЮЬШJЪЬЮЬЮЬЮЬ	Ш7JШJШ ЧЪб
ЬЮЬЮЬШ&JЪЬbЩbJШ ЧЪбЬЮЬЮЬЮЬЮЬЮЬШEJЩEJЩQJЩZJЩ ЧЪбЬЮЬЮЬШ!JЩ-JШ ЧЪбЬЮЬЮЬШ%JЩJЩ ЧЪбЬЮЬШJЩJЩ ЧJЪаЩЪбЬЮЬШ)JЩ0JЩ ЧЪбЬЮЬШ$JЩ+JЩ ЧЪбЬЮЬШ%JЩ,JЩ ЧJЪа'Щ'ЪбЬЮЬ Ш6JЩ7ЧJШ ЪбЬЮЬ!ЮЬЮШ;JЪЬJШJJЩGJЩ$JШ ЧЪбЬЮвЬШJЪЬ
вЬШJЪЬвЮШJЪЬЮЬШJЪЮвЬвЮЬШЩCJЩ ЧЧЪ
бЬЮЬ%ЮЬЮЬЮЬШNJЩRJЩ$ЧJШ ЧJЪЮЬШJШ Ч ЕЧ    >  (U  