
DIRECTORY FileInterpreter, FS, G3dInterpret, G3dBasic, G3dRender, G3dScene, G3dShape, G3dTool, ImagerColor, IO, List, Rope, StatementInterpreter, ViewerClasses;

G3dInterpretImpl: CEDAR PROGRAM
IMPORTS FileInterpreter, FS, G3dRender, G3dScene, G3dTool, IO, Rope, StatementInterpreter
EXPORTS G3dInterpret

~ BEGIN
InterpretTool:	TYPE ~ G3dInterpret.InterpretTool;
RenderTool:	TYPE ~ G3dTool.Tool;
ROPE:			TYPE ~ Rope.ROPE;

Error:			PUBLIC SIGNAL [reason: ROPE] = CODE;
Draw: G3dScene.SceneProc ~ {
tool: G3dTool.Tool м NARROW[data];
tool.shapes м ps.context.shapes;
G3dTool.PrepareForDrawing[tool];
G3dTool.Repaint[tool];
};

MakeInterpretTool: PUBLIC PROC [
fileName: ROPE,
column: ViewerClasses.Column м left,
log: BOOL м TRUE,
renderTool: RenderTool м NIL]
RETURNS [a: InterpretTool]
~ {
IF fileName # NIL THEN {
symbols: FileInterpreter.Symbols м FileInterpreter.CreateSymbolTable[NIL];
err: ROPE м StatementInterpreter.InterpretStatement[
"{ OPEN G3dInterpret; NULL }",, LIST[symbols]];
IF err # NIL THEN Error[err];
a м NEW[G3dInterpret.InterpretToolRep];
a.fileTool м FileInterpreter.CreateTool[
symbols, fileName, "3dInterpret", column, a, log,,, Repeat, Abort, LIST[["Help", Help]]];
IF a.fileTool = NIL THEN Error["Can't find file"];
IF (a.renderTool м renderTool) = NIL THEN a.renderTool м
G3dTool.MakeTool[name: "3dInterpret", nViews: 0, client: [data: a]];
IF NOT G3dTool.Context3dOk[a.renderTool] THEN Error["Bad 3d context!"];
G3dScene.RegisterProc["Draw", Draw, a.renderTool];
FileInterpreter.Execute[a.fileTool];
};
};

Log: G3dScene.LogProc ~ {
a: InterpretTool м NARROW[clientData];
FileInterpreter.WriteToLog[a.fileTool, rope];
};

Parse: PUBLIC PROC [rope: ROPE] ~ {
a: InterpretTool м GetInterpretTool[];
{
ENABLE {
FS.Error => {Log[error.explanation, a]; CONTINUE};
G3dScene.ParseError => {Log[explanation, a]; CONTINUE};
};
IF NOT G3dTool.Context3dOk[a.renderTool] THEN Error["Can't create 3d context"];
a.parseState м G3dScene.Parse[
a.renderTool.context3d, rope, a.fileTool.cmd.out, Log,, a.fileTool.fileName, a, a.parseState];
IF a.parseState.errorMessage # NIL THEN Log[a.parseState.errorMessage, a];
};
};

Parses: PROC [key: ROPE, reals: LIST OF REAL м NIL, ints: LIST OF INT м NIL] ~ {
AddToList: PROC [value: IO.Value] ~ {
IF tail = NIL
THEN values м tail м LIST[value]
ELSE {tail.rest м LIST[value]; tail м tail.rest};
};
format: ROPE м Rope.Cat[key, ": "];
values, tail: LIST OF IO.Value м NIL;
IF reals # NIL
THEN FOR l: LIST OF REAL м reals, l.rest WHILE l # NIL DO
AddToList[IO.real[l.first]];
format м Rope.Cat[format, "%g "];
ENDLOOP
ELSE FOR l: LIST OF INT м ints, l.rest WHILE l # NIL DO
AddToList[IO.int[l.first]];
format м Rope.Cat[format, "%g "];
ENDLOOP;
IF values # NIL THEN Parse[IO.PutFLR[format, values]];
};

ParseReals:	PUBLIC PROC [key: ROPE, values: LIST OF REAL] ~ {Parses[key, values]};
ParseInts:	PUBLIC PROC [key: ROPE, values: LIST OF INT] ~ {Parses[key,, values]};

GetInterpretTool: PUBLIC PROC RETURNS [InterpretTool] ~ {
RETURN[NARROW[FileInterpreter.GetClientData[]]];
};

Help: ViewerClasses.ClickProc ~ {G3dTool.OpenHelp["3dInterpret"]};

Repeat: FileInterpreter.ClientProc ~ {
renderTool: G3dTool.Tool м NARROW[clientData, InterpretTool].renderTool;
renderTool.context3d м NIL;
renderTool.shapes м NIL;
};

Abort: FileInterpreter.ClientProc ~ {
G3dRender.AbortRender[NARROW[clientData, InterpretTool].renderTool.context3d];
};

END.
..


    
G3dInterpretImpl.mesa
Copyright ╙ 1988, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 19, 1992 11:20 am PDT
Heckbert, August 10, 1988 6:36:38 pm PDT
Glassner, November 18, 1989 12:25:38 pm PST
Type Declarations
Tool Creation and Use
Previous procs used before we relied on OPEN
MakeInterpretTool: PUBLIC PROC [script: ROPE, log: BOOL _ TRUE, fork: BOOL _ FALSE]
RETURNS [data: InterpretTool]
~ {
IF script # NIL THEN {
FillTable: FileInterpreter.ClientFillTableProc ~ {
RegisterProc[NEW[RealProc				_ CameraFieldOfView]];
RegisterProc[NEW[Real3Proc				_ CameraPosition]];
RegisterProc[NEW[Real3Proc				_ CameraLookAt]];
RegisterProc[NEW[Real3Proc				_ CameraUpDirection]];
RegisterProc[NEW[RopeReal7Proc			_ ShapeRotate]];
RegisterProc[NEW[RopeReal3Proc			_ ShapePlace]];
RegisterProc[NEW[RopeProc				_ AddShape]];
RegisterProc[NEW[RopeProc				_ DeleteShape]];
RegisterProc[NEW[RopeSwitchProc		_ BackFaces]];
RegisterProc[NEW[RopeProc				_ InvertShapeNormals]];
RegisterProc[NEW[RopeRealProc			_ SetShapeShininess]];
RegisterProc[NEW[RopeReal3Proc			_ SetShapeColor]];
RegisterProc[NEW[RopeRenderModeProc	_ SetShapeRenderMode]];
RegisterProc[NEW[RopeRenderStyleProc	_ SetShapeRenderStyle]];
RegisterProc[NEW[Rope2Proc				_ ReadTextureMap]];
RegisterProc[NEW[Rope2Proc				_ ReadBumpMap]];
RegisterProc[NEW[RopeRealProc			_ SetBumpScale]];
RegisterProc[NEW[RopeReal2Proc			_ ScaleTextureMap]];
RegisterProc[NEW[RopeProc				_ RemoveTextureAndBumpMapping]];
RegisterProc[NEW[RopeLightStyleProc	_ SetShapeLighting]];
RegisterProc[NEW[RopeReal6Proc			_ AddLight]];
RegisterProc[NEW[RopeProc				_ DeleteLight]];
RegisterProc[NEW[Real3Proc				_ SetAmbientLight]];
RegisterProc[NEW[PROC						_ Render]];
RegisterProc[NEW[RopeProc				_ RenderToFile]];
RegisterProc[NEW[RopeProc				_ SavePicture]];
RegisterProc[NEW[Real3Proc				_ SetBackground]];
RegisterProc[NEW[SwitchProc				_ SetAntiAliasing]];
RegisterProc[NEW[Real4Proc				_ SetViewPort]];
RegisterProc[NEW[DisplayModeProc		_ SetDisplayMode]];
FOR l: List.LORA _ G3dInterpret.GetScriptProcRegistry[], l.rest WHILE l # NIL DO
RegisterProc[l.first];
ENDLOOP;
};
symbols: FileInterpreter.Symbols _ FileInterpreter.CreateSymbolTable[FillTable];
data _ NEW[InterpretToolRep];
data.tool _ FileInterpreter.CreateTool[
symbols, script, "G3dInterpret", cmd, data, log,, AbortProc, LIST[["Help", Help]]];
IF data.tool = NIL THEN Error["Can't find file"];
IF log THEN data.tool.out _ cmd.out;
FileInterpreter.Execute[data.tool, fork];
};
};

scriptProcRegistry: LIST OF REF ANY _ NIL;
RegisterScriptProc: PUBLIC PROC [refAny: REF ANY] ~ {
scriptProcRegistry _ LIST[scriptProcRegistry, refAny];
};

UnRegisterAllScriptProcs: PUBLIC PROC ~ {
scriptProcRegistry _ NIL;
};

GetScriptProcRegistry: PUBLIC PROC RETURNS [LIST OF REF ANY] ~ {
RETURN[scriptProcRegistry];
};

Э╩t  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ'JЩ(JЩ+JШ JЪ╧k	ЬЧШаJШ ЧЪ╤blnЬЮЬЮШJЪЮЬRШYJЪЮЬШJШ ЧJЪЬЮШheadЪ╧lЩJЪЬЮЬШ1JЪЬЮЬШ ЪЮЬЮЬЮЬШJШ ЧJЪ	ЬЮ	ЬЮЬ
ЮЬЮЬШ-ЧЪаЩЪ╧nЬШJЪЬЮЬШ"JШ JЪЬ Ш JЪЬШJШJШ ЧЪбЬЮЬШ JЪЬ
ЮШJШ$JЪЬЮЬЮЬШJЪЬЮЬШJЪЮЬШJШЪЮЬЮЬЮЬШJЪЬEЮЬШJЪЬЮЬ+Ш4JЪЬ╧sЬвЬЮЬШ/ЧJЪЮЬЮЬЮЬШJЪЬЮЬ Ш'Ш(JЪЬCЮЬШYЧJЪЮЬЮЬЮЬШ2ЪЮЬЮЬЮЬШ8JЪЬвЬ-ШDЧJЪЮЬЮЬ#ЮЬШGJШ2JШ$JШЧШJШ ЧЧЪбЬШJЪЬЮЬШ&JЪЬ-Ш-JШJШ ЧЪбЬЮЬЮЬЮЬШ#JШ&ШЪЮЬШJЪЮЬ&ЮЬШ2JЪЬ,Ю	ЬШ7JШЧJЪЮЬЮЬ#ЮЬ"ШOШJЪЬвЬвЬвЬ,Ш^ЧJЪЮЬЮЬЮЬ#ШJJШЧJШJШ ЧЪбЬЮЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШPЪ╨bn	ЬЮЬ	ЮЬШ%ЪЮЬЮШJЪЮЬЮЬШ JЪЮЬЮЬШ1ЧJШЧJЪЬЮЬШ#JЪ	ЬЮЬЮЬЮЬ	ЮЬШ%ЪЮЬ	ЮШЪЮЬЮЬЮЬЮЬЮЬЮЬЮШ9JЪЬ
ЮЬШJШ!JЪЮШЧЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮШ7JЪЬ
ЮЬШJШ!JЪЮЬШЧЧJЪЮЬ
ЮЬЮЬЮЬШ6JШJШ ЧJЪб
ЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШRЪб	ЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШQJШ ЧЪбЬЮЬЮЬЮЬШ9JЪЮЬЮЬ#Ш0JШJШ ЧЪбЬ>ШBJШ ЧЪбЬ Ш&JЪЬЮЬ'ШHJЪЬЮЬШJЪЬЮЬШJШJШ ЧЪбЬ Ш%JЪЬЮЬ2ШNJШJШ ЧЧJЪЮЬШJШЪ╨bl,Щ,ЪбЬЮЬ
ЮЬЮЬЮЬЮЬЮЬЩSJЪЮЬЩJЩЪЮЬ
ЮЬЮЬЩЪб	Ь)Щ2JЪЬЮЬ#Щ3JЪЬЮЬ!Щ1JЪЬЮЬЩ/JЪЬЮЬ$Щ4JЪЬЮЬ!Щ1JЪЬЮЬ Щ0JЪЬЮЬЩ*JЪЬЮЬЩ-JЪЬЮЬЩ/JЪЬЮЬ$Щ4JЪЬЮЬ&Щ6JЪЬЮЬ#Щ3JЪЬЮЬ+Щ;JЪЬЮЬ-Щ=JЪЬЮЬ!Щ1JЪЬЮЬЩ.JЪЬЮЬ!Щ1JЪЬЮЬ%Щ5JЪЬЮЬ-Щ=JЪЬЮЬ)Щ9JЪЬЮЬЩ.JЪЬЮЬЩ-JЪЬЮЬ"Щ2JЪЬЮЬЮ
ЬЩ&JЪЬЮЬ	ЮЬЩ.JЪЬЮЬЩ-JЪЬЮЬ Щ0JЪЬЮЬ#Щ3JЪЬЮЬЩ.JЪЬЮЬ%Щ5Ъ	ЮЬ	ЮЬ0ЮЬЮЬЮЩPJЩJЪЮЬЩЧJЩЧJЩPJЪЬЮЬЩЩ'JЪЬ=ЮЬЩSЧJЪЮЬЮЬЮЬЩ1JЪЮЬЮЬЩ$JЩ)JЩЧJЩJЩ ЧЪЬЮЬЮЬЮЬЮЬЮЬЩ*JШ ЧЪ
бЬЮЬЮЬ
ЮЬЮЬЩ5JЪЬЮЬЩ6JЩJЩ ЧЪбЬЮЬЮЬЩ)JЪЬЮЬЩJЩJЩ ЧЪбЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЩ@JЪЮЬЩJЩJЩ ЧЧJШ Ч ЕЧ    N  ╨  