
DIRECTORY ColumnLs, Commander, CommanderOps, Convert, FileNames, FS, G2dBasic, G3dBasic, G3dTimeTrees, G3dTool, IO, PFS, PreDebug, Real, Rope, UserProfile, ViewerOps;

G3dToolCmdsImpl: CEDAR PROGRAM
IMPORTS ColumnLs, Commander, CommanderOps, Convert, FileNames, FS, G3dTimeTrees, G3dTool, IO, PFS, PreDebug, Real, Rope, UserProfile, ViewerOps
EXPORTS G3dTool

~ BEGIN
ROPE:	TYPE ~ Rope.ROPE;
Tool:	TYPE ~ G3dTool.Tool;
Op:			TYPE ~ RECORD [proc: Commander.CommandProc, name, usage: ROPE];
OpSequence: 	TYPE ~ RECORD [length: NAT м 0, s: SEQUENCE maxLength: NAT OF Op];

ops:			REF OpSequence м NIL;

Eq: PROC [r1, r2: ROPE] RETURNS [BOOL] ~ {RETURN[Rope.Equal[r1, r2, FALSE]]};

Register: PUBLIC PROC [name: ROPE, proc: Commander.CommandProc, usage: ROPE] ~ {
op: Op м [proc, name, usage];
IF proc # NIL THEN op.usage м Rope.Concat[" ", usage];
IF ops # NIL THEN
FOR n: NAT IN [0..ops.length) DO
IF NOT Eq[name, ops[n].name] THEN LOOP;
ops[n] м op;
RETURN;
ENDLOOP;
IF ops = NIL THEN ops м NEW[OpSequence[10]];
IF ops.length = ops.maxLength THEN {
old: REF OpSequence ~ ops;
ops м NEW[OpSequence[Real.Round[1.3*old.length]]];
FOR i: NAT IN [0..old.length) DO ops[i] м old[i]; ENDLOOP;
ops.length м old.length;
};
ops[ops.length] м op;
ops.length м ops.length+1;
};

PrintOps: PROC [cmd: Commander.Handle м NIL] ~ {
IF ops = NIL
THEN IO.PutRope[cmd.out, "no registered commands\n"]
ELSE {
Alphabetize: PROC [ropes: LIST OF ROPE] RETURNS [ret: LIST OF ROPE] ~ {
IF ropes # NIL THEN {
l: LIST OF ROPE м ropes.rest;
ret м LIST[ropes.first];
WHILE l # NIL DO
name: ROPE м l.first;
rest: LIST OF ROPE м l.rest;
IF Rope.Compare[ret.first, name, FALSE] = greater
THEN ret м CONS[name, ret]
ELSE FOR r: LIST OF ROPE м ret, r.rest DO
IF r.rest = NIL OR Rope.Compare[r.rest.first, name, FALSE] = greater
THEN {l.rest м r.rest; r.rest м l; EXIT};
ENDLOOP;
l м rest;
ENDLOOP;
};
};
names: LIST OF ROPE;
FOR n: NAT IN [0..ops.length) DO
IF ops[n].proc # NIL THEN names м CONS[ops[n].name, names];
ENDLOOP;
IO.PutF[cmd.out, "\t\t\t\t\t\t\t%l3d commands%l\n\n", IO.rope["bz"], IO.rope["BZ"]];
ColumnLs.ColumnateNames[cmd, Alphabetize[names],, fixed, TRUE,, "   "];
IO.PutRope[cmd.out, "\n"];
};
};
IsItError: ERROR = CODE;

ToolCmd: Commander.CommandProc ~ {
t: Tool;
{
ENABLE {
UNCAUGHT => {msg м "unknown error"; GOTO Failure};
IsItError => {msg м usage; GOTO Failure};
PFS.Error => {msg м error.explanation; GOTO Failure};
Convert.Error => {msg м "Conversion error"; GOTO Failure};
};
GetInteger: PROC [index: INT] RETURNS [i: INT] ~ {i м Convert.IntFromRope[args[index]]};
IsIt: PROC [rope: ROPE, argsNeeded: INT] RETURNS [b: BOOL] ~ {
IF index >= args.argc THEN RETURN[FALSE];
b м Eq[rope, args[index]];
IF b AND args.argc <= index+argsNeeded THEN ERROR IsItError;
};
SkipArgs: PROC [nSkip: INT] ~ {index м index+nSkip};
scene, shape, funct: ROPE;
index, nViews: INTEGER м 1;
arcBalls: BOOL м UserProfile.Boolean["3dTool.ArcBalls", TRUE];
args: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd];
WHILE index < args.argc DO
SELECT TRUE FROM
IsIt["-shape", 1]			=> {shape м args[index+1];						SkipArgs[2]};
IsIt["-scene", 1]			=> {scene м args[index+1];						SkipArgs[2]};
IsIt["-noArcBalls", 0]	=> {arcBalls м FALSE;								SkipArgs[1]};
IsIt["-useArcBalls", 0]	=> {arcBalls м TRUE;								SkipArgs[1]};
IsIt["-nViews", 1]		=> {nViews м GetInteger[index+1];				SkipArgs[2]};
ENDCASE					=> {IF funct = NIL THEN funct м args[index];	SkipArgs[1]};
ENDLOOP;
IF funct # NIL
THEN {
Reject: PROC [why: ROPE] RETURNS [reject: BOOL м FALSE] ~ {
msg м why;
result м $Failure;
};
DoOp: PROC ~ {
RemoveArgument: PROC [key: ROPE] ~ {
once: BOOL м FALSE;
tmp: CommanderOps.ArgumentVector ~ CommanderOps.Parse[cmd];
cmd.commandLine м NIL;
FOR i: INTEGER IN [1..tmp.argc) DO -- args[0] is command name
IF NOT once AND Eq[tmp[i], key]
THEN once м TRUE
ELSE cmd.commandLine м Rope.Cat[cmd.commandLine, " ", tmp[i]]
ENDLOOP;
};
cmd.command м funct;
RemoveArgument["3d"];
RemoveArgument[funct];
[result, msg] м op.proc[cmd];
};
FunctArg: PROC RETURNS [r: ROPE м NIL] ~ {
FOR i: INT IN [0..args.argc-1) DO
IF Eq[args[i], funct] THEN RETURN[args[i+1]];
ENDLOOP;
};
op: Op;
IF ops # NIL THEN FOR i: INTEGER IN [0..ops.length) DO
IF Eq[funct, ops[i].name] THEN {op м ops[i]; EXIT};
ENDLOOP;
SELECT TRUE FROM
Eq[funct, "?"] => PrintOps[cmd];
op.proc = NIL => RETURN[$Failure, Rope.Concat["no such funct: ", funct]];
Eq[FunctArg[], "?"] AND NOT Eq[op.name, "UseCG6"] =>
RETURN[$Failure, Rope.Concat["Usage:", op.usage]];
ENDCASE => [] м PreDebug.Protect[DoOp, Reject];
}
ELSE {
name: ROPE м Rope.Substr[cmd.command, Rope.FindBackward[cmd.command, "/"]+1];
IF shape # NIL THEN name м Rope.Concat["3d ", shape];
t м G3dTool.MakeTool[name:name, nViews:nViews, noOpen:TRUE, useArcBalls:arcBalls];
IF shape # NIL THEN {
s: ROPE м FileNames.ResolveRelativePath[shape];
IF (msg м G3dTool.ReadFromShapeFile[t, s, TRUE]) # NIL THEN GOTO Failure;
G3dTool.GetShape[t, FileNames.GetShortName[shape]].selected м TRUE;
};
t.cmd м cmd;
IF scene # NIL AND NOT DoScene[scene, cmd, t] THEN RETURN[$Failure];
ViewerOps.OpenIcon[t.outer];
};
EXITS Failure => {
IF t # NIL THEN ViewerOps.DestroyViewer[t.outer];
result м $Failure;
};
};
};

DoScene: PROC [sceneFile: ROPE, cmd: Commander.Handle, t: Tool м NIL]
RETURNS [ok: BOOL м TRUE]
~ {
ENABLE {
FS.Error => {IO.PutF1[cmd.out, "%g\n", IO.rope[error.explanation]]; ok м FALSE; CONTINUE};
};
op: ROPE м PFS.RopeOpen[PFS.PathFromRope[sceneFile]].rope;	-- ignore Tioga comments
IF t = NIL THEN t м G3dTool.MakeTool[
name: Rope.Concat["3dScene ", sceneFile], nViews: 0, useArcBalls: TRUE]; 
t.cmd м cmd;
G3dTool.Context3dOk[t];
G3dTimeTrees.ReportTimeTree[t.timeTree];
G3dTool.PrepareForDrawing[t];
G3dTool.UpdateCamera[t];
};
usage: ROPE ~
"Usage: 3d [function] [tool option]
	no specified function creates a generic 3d tool
	type '3d ?' to list functions
	tool options include:
		-shape		<shape file>
		-scene		<scene description file>
		-nViews		<number of viewports>
		-noArcBalls	[default false or as given by user profile]
		-useArcBalls	[default true or as given by user profile]";

Commander.Register["3d", ToolCmd, Rope.Concat["\n", usage]];

END.
..
sceneUsage: ROPE ~ "Usage: 3dScene <Scene Filename>
	Parse the scene file.";

SceneCmd: Commander.CommandProc ~ {
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd];
SELECT TRUE FROM
argv.argc # 2 => RETURN[$Failure, sceneUsage];
Rope.Equal[argv[1], "?"] => RETURN[msg: sceneUsage];
ENDCASE => [] м DoScene[argv[1], cmd];
};


interpretUsage: ROPE ~ "Usage: 3dInterpret <Mesa Filename> [-noLog]
	Interpret the mesa file.";


     
G3dToolCmdsImpl.mesa
Copyright ╙ 1985, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, October 20, 1992 10:39 pm PDT
Heckbert, August 9, 1988 5:51:51 pm PDT
Glassner, July 9, 1990 3:50:53 pm PDT
Shoemake, November 7, 1989 0:15:49 am PST
Imported Types
3d Registration and Dispatch
3d Imaging Commands Using G3dTool
G3dScene.ParseError => {
ok _ FALSE;
IO.PutF[cmd.out, Rope.Cat[explanation, "\n"]];
ViewerOps.DestroyViewer[t.outer];
CONTINUE};
ps: G3dScene.ParseState;
G3dScene.RegisterProc["Draw", Draw, t];
ps _ G3dScene.Parse[t.context3d, op, cmd.out,,, sceneFile];
t.timeTree _ ps.timeTree;
t.focusNode _ ps.timeTree.root;
t.shapes _ ps.context3d.shapes;
Start Code
The Wayside
lineTool: BOOL _ Rope.Equal[name, "3dLine", FALSE];
ops: IF lineTool
THEN [animation: TRUE, stop: TRUE, lf: TRUE, shape: TRUE, interpress: TRUE]
ELSE [TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE],
IF interpret.rope # NIL THEN t.client _ [data: G3dInterpret.MakeInterpretTool[
interpret.rope, right, TRUE, t ! G3dInterpret.Error => {msg _ reason; GOTO Quit}]];

Draw: G3dScene.SceneProc ~ {G3dTool.Repaint[NARROW[data]]};
InterpretCmd: Commander.CommandProc ~ {
mesa, noLog: Args.Arg;
[mesa, noLog] _ Args.ArgsGet[cmd, "[s-noLog%b" !
Args.Error => {msg _ reason; GOTO Bad}];
IF mesa.rope = NIL THEN RETURN[$Failure, interpretUsage];
IF Rope.Equal[mesa.rope, "?"] THEN RETURN[msg: interpretUsage];
[] _ G3dInterpret.MakeInterpretTool[mesa.rope, left, NOT noLog.bool
! G3dInterpret.Error => {msg _ reason; GOTO Bad}];
EXITS Bad => RETURN[$Failure, msg];
};

Register["Scene",		SceneCmd,		Rope.Cat["\n", sceneUsage]];
Register["3dTest",		ToolCmd,			Rope.Cat["\n", toolUsage]];
Register["3dLine",		ToolCmd,			Rope.Cat["\n", toolUsage]];
Register["3dInterpret",	InterpretCmd,	Rope.Cat["\n", interpretUsage]];
 Э╩
Ь  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ*JЩ'JЩ%Щ)JШ ЧJЪ╧k	ЬЭШжJШ ЧЪ╨blЬЮЬЮШJЪЮЬИШПJЪЮЬШJШ ЧJЪЬЮШheadЪ╧lЩJЪЮЬЮЬЮЬШJЪЬЮЬШЧЪаЩJЪЬЮЬЮЬ,ЮЬШEЪЬЮЬЮЬ	ЮЬЮ	ЬЮЬЮЬШOJШ ЧЪЬЮЬЮЬШJШ ЧЪ╧nЬЮЬ
ЮЬЮЬЮЬЮЬЮЬШMJШ ЧcodeЪ
бЬЮЬЮЬЮЬ&ЮЬШPJШJЪЮЬЮЬЮЬ$Ш6ЪЮЬЮЬЮШЪЮЬЮЬЮЬЮШ JЪЮЬЮЬЮЬЮЬШ'JШJЪЮЬШJЪЮЬШЧЧJЪЮЬЮЬЮЬЮЬШ,ЪЮЬЮЬШ$JЪЬЮЬШJЪЬЮЬ)Ш2JЪ
ЮЬЮЬЮЬЮЬЮЬШ:JШJШЧJШJШLШLШ ЧЪбЬЮЬЮЬШ0ЪЮЬЮШJЪЮЬЮЬ-Ш4ЪЮЬШЪбЬЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬЮЬШGЪЮЬ	ЮЬЮЬШJЪЬЮЬЮЬЮЬШJЪЬЮЬШЪЮЬЮЬЮШJЪЬЮЬШJЪЬЮЬЮЬЮЬ
ШЪЮЬЮЬШ1JЪЮЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮШ)ЪЮЬ
ЮЬЮЬ"ЮЬШDJЪЮЬЮЬШ)ЧJЪЮЬШЧЧJШ	JЪЮЬШЧJШЧJШЧJЪЬЮЬЮЬЮЬШЪЮЬЮЬЮЬЮШ JЪЮЬЮЬЮЬ	ЮЬШ;JЪЮЬШЧJЪЮЬ3ЮЬЮЬШTJЪЬ9ЮЬ
ШGJЪЮЬШJШЧЧJШЧЧЪа!Щ!ЪЬЮЬЮЬШJШ ЧЪ╨bnЬШ"JШJШЪЮЬШJЪЮЬЮЬ
Ш2JЪЬЮЬ
Ш)JЪЮЬ$ЮЬ
Ш5JЪЬ+ЮЬ
Ш:JШЧJЪ
б
ЬЮЬ	ЮЬЮЬЮЬ+ШXЪбЬЮЬЮЬЮЬЮЬЮЬШ>JЪЮЬЮЬЮЬЮЬШ)JШJЪЮЬЮЬЮЬЮЬШ<JШЧJЪбЬЮЬ	ЮЬШ4JЪЬЮЬШJЪЬЮЬШJЪЬ
ЮЬ*ЮЬШ>JШ<ЪЮЬЮШЪЮЬЮЬЮШJШAJШAJЪЬ&ЮЬШAJЪЬ'ЮЬШAJШFJЪЮЬ	ЮЬ	ЮЬЮЬ#ШFЧJЪЮЬШЧЪЮЬ	ЮШЪЮЬШЪбЬ╧sЮгЬгЮЬгЮгЬгЮгЬЮЬгЬгЬШ;JЪЬгЬШ
JЪЬгЬШJШЧЪбЬЮЬШЪбЬЮЬЮЬШ$JЪЬЮЬЮЬШJШ;JЪЬЮЬШЪ	ЮЬЮЬЮЬЮЬ╧cШ=ЪЮЬЮЬЮЬШJЪЮЬЮШJЪЮЬ9Ш=ЧJЪЮЬШЧJШЧJШJШJШJШJШЧЪ
бЬЮЬЮЬЮЬЮЬШ*ЪЮЬЮЬЮЬЮШ!JЪЮЬЮЬЮЬШ-JЪЮЬШЧJШЧJШЪЮЬЮЬЮЬЮЬЮЬЮЬЮШ6JЪЮЬЮЬЮЬШ3JЪЮЬШЧЪЮЬЮЬЮШJШ JЪЬ
ЮЬЮЬгЬгЬгЬШIЪЬЮЬЮЬгЬШ4JЪЮЬ,Ш2ЧJЪЮЬ(Ш/ЧJШЧЪЮЬШJЪЬЮЬCШMJЪЮЬ	ЮЬЮЬ"Ш5JЪЬгЬгЬгЬЮЬгЬШRЪЮЬ	ЮЬЮЬШJЪЬЮЬ(Ш/JЪ
ЮЬ(ЮЬЮЬЮЬЮЬ	ШIJЪЬ>ЮЬШCJШЧJШJЪЮгЬгЬгЮЬЮЬЮЬЮЬЮЬШDJШJШЧЧЪЮЬШJЪЮЬЮЬЮЬ"Ш1JШJШЧJШJШJШ ЧЪбЬЮЬЮЬ#ЮЬШEJЪЮЬЮЬЮЬШJЪЬШЪЮЬШJЪЮЬгЬгЬЮЬгЬгЮЬгЬгЬгЮЬгЮЬШZЪЬЩJЪЬЮЬЩJЪЮЬ,Щ.JЪЬ!Щ!JЪЮЬЩ
ЧJШЧJЪЬЩJЪЬЮЬЮЬ
ЮЬ дШSЪЮЬЮЬЮЬШ%JЪЬBЮЬШIЧJШJЪЬШJЩ'JЪЬ;Щ;JЪЬЩJЪЬЩJЪЬЩJШ(JШJЪЬШJШЧЧЪа
Щ
ЪЬЮЬШJШ█JШ ЧJШ<JШ ЧЪЮЬШJШЧЪаЩJЪЬ
ЮЬЮЬЩ3ЪЬЮЬ	ЩJЪЮЬЮЬЮЬЮЬ	ЮЬЮЬЩKJЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЩ<ЧЪЮЬЮЬЮЬ2ЩNJЪЬЮЬ+ЮЬ	ЩSJЩ ЧЪЬЮЬ<ШLJШ ЧЪвЬШ#JШ<ЪЮЬЮЬЮШJЪЬЮЬШ.JЪЬЮЬШ4JЪЮЬШ&ЧJШJШ ЧЪбЬ(ЮЬ	Щ;JШ ЧЪбЬЩ'JЩЩ0JЪЬЮЬЩ(ЧJЪЮЬЮЬЮЬЮЬЩ9JЪЮЬЮЬЮЬЩ?ЪЬ5ЮЬЩCJЪЬ'ЮЬЩ2ЧJЪЮЬЮЬЩ#JЩJЩ ЧЪЬЮЬKШ_JШ ЧJЩ:JЩ:JЩ:ЩFJШ ЧЧЧ ЕЧ    └  +t  