DIRECTORY CedarProcess,  Controls, Draw2d, FS, G3dBasic, G3dShape, G3dTool, IO, MessageWindow, Rope;

G3dToolIOImpl: CEDAR PROGRAM
IMPORTS CedarProcess, Controls, Draw2d, FS, G3dShape, G3dTool, IO, MessageWindow, Rope
EXPORTS G3dTool

~ BEGIN
Surface:				TYPE ~ G3dBasic.Surface;
Shape:				TYPE ~ G3dShape.Shape;
Vertex:				TYPE ~ G3dShape.Vertex;
Tool:					TYPE ~ G3dTool.Tool;
Triple:				TYPE ~ G3dTool.Triple;
ROPE:					TYPE ~ Rope.ROPE;
STREAM:				TYPE ~ IO.STREAM;
IOOpsButton: PUBLIC G3dTool.ClickProc ~ {
t: Tool м NARROW[clientData];
Inner: PROC ~ {
choice: INT м Controls.PopUpRequest[["Output"], LIST[
-- 1 -- ["Read Shape"],
-- 2 -- ["Read Shape and Auto Scale"],
-- 3 -- ["Write .SHAPE", "Output a points-polygons shape file"],
-- 4 -- ["Write .NONE", "Output a points-polygons .none file"],
-- 5 -- ["Write INTERPRESS", "Output interpress file of the current display"],
-- 6 -- ["IP stroke width", "width of strokes for IP output"],
-- 7 -- ["Write RIB", "write output to a named file"]]];
G3dTool.SetCursor[t, TRUE];
SELECT choice FROM
1 => ReadShape[t, FALSE];
2 => ReadShape[t, TRUE];
3, 4 => {
shape: INT м G3dTool.ChooseShape[t, "Output Shape"];
SELECT shape FROM
-2 => G3dTool.TSWrite[t, "No shape to write."];
-1 => G3dTool.TSWrite[t, "Choose only one shape."];
ENDCASE => {
r: ROPE м Controls.TypescriptReadFileName[t.typescript];
IF choice = 3
THEN G3dShape.ShapeToFile[r, t.shapes[shape]]
ELSE {
out: STREAM м FS.StreamOpen[r, $create];
s: Shape м t.shapes[shape];
IF NOT s.vertices.valid[normal] THEN G3dShape.SetVertexNormals[s];
IF NOT G3dShape.ShapeToStreamPerFormat[s, out, $DotNone]
THEN G3dTool.TSWrite[t, "can't write shape"];
IO.Close[out];
};
};
};
5 => {
Draw: Controls.DrawProc ~ {
v: G3dTool.View м G3dTool.GetView[viewer, t];
G3dTool.Draw[context, viewer, $IPOut, v.camera.matrix, v.viewport, v, t, t]; 
};
t.forInterpress м TRUE;
Draw2d.IPOut[Controls.TypescriptReadFileName[t.typescript], Draw, t];
t.forInterpress м FALSE;
};
6 => t.ipStrokeWidth м Controls.GetReal[t.typescript, "Stroke width", t.ipStrokeWidth];
7 => G3dTool.WriteRIBtoFile[t, Controls.TypescriptReadFileName[t.typescript]];
ENDCASE;
G3dTool.SetCursor[t, FALSE];
};
CedarProcess.DoWithPriority[background, Inner];
};

ReadShape: PROC [t: Tool, autoScale: BOOL] ~ {
prompt: ROPE м IO.PutFR1["Add shape: (dir = %g) ", IO.rope[t.outerData.directory]];
r: ROPE м Controls.TypescriptRead[t.typescript, prompt];
IF r # NIL THEN {
c: CHAR м Rope.Fetch[r, 0];
IF c # '[ AND c # '/ THEN r м Rope.Concat[t.outerData.directory, r];
IF (r м G3dTool.ReadFromShapeFile[t, r, autoScale]) # NIL
THEN Blink[r]
ELSE G3dTool.Repaint[t, $ShapeOps];
};
};

Blink: PROC [r: ROPE] ~ {
MessageWindow.Append[Rope.Concat["\t\t", r], TRUE];
MessageWindow.Blink[];
};

END.
..

  ─  
G3dToolIOImpl.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Bloomenthal, April 2, 1993 3:37 pm PST
3d Tool: IO
Types
IO
--6-- ["RIB to selection", "write output to current (Tioga) selection"],
--7-- ["Color Display", "Write out Color Image"]]];
6 => {
v: ViewerClasses.Viewer м ViewerTools.GetSelectedViewer[];
IF v # NIL AND (v.class.flavor = $Text OR v.class.flavor = $Typescript)
THEN WriteRIBtoStream[t, ViewerIO.CreateViewerStreams[NIL, v].out]
ELSE Blink["Make a primary selection first\n"];
};
7 =>
IF G3dTool.Context3dOk[t] THEN
G3dRenderWithImager.MakeInterpressPage[GetFirstActiveContext3d[t],
Controls.TypescriptReadFileName[t.typescript] ! G3dRender.Error => CONTINUE]
Э╩ё  ХNewlineDelimiter
Щ ЩJЪЬ
╧mЬ1Щ<JЩ&ЧheadЪ╧lЩJЪ╧k	Ь[ШdJШ ЧЪ╨blЬЯЬЯШJЪЯЬOШVJЪЯЬШЧJШ JЪЬЯШЪЮЩJЪЬЯЬШ$JЪЬ
ЯЬШ JЪЬЯЬШ"JЪЬ	ЯЬШJЪЬЯЬШ!JЪЯЬЯЬЯЬШJЪЯЬЯЬЯЬЯЬШЧЪЮЩЪ╧nЬЯЬШ)JЪЬ
ЯЬШЪбЬЯЬШЪЬЯЬ%ЯЬШ5JЪ╧cЬШJЪвЬШ&JЪвЬ9Ш@JЪвЬ8Ш?JЪвЬGШNJЪвЬ7Ш>JЪвЬ1Ш8ЧJЪЬЯЬШЪЯЬЯШJЪЬЯЬШJЪЬЯЬШЪЬ	Ш	JЪЬЯЬ*Ш4ЪЯЬЯШJЪЬ/Ш/JЪЬ3Ш3ЪЯЬШJЪЬЯЬ1Ш8ЪЯЬШJЪЯЬ)Ш-ЪЯЬШJЪЬЯЬЯЬШ(JШJЪЯЬЯЬЯЬШBЪЯЬЯЬ2Ш8JЪЯЬ)Ш-ЧJЪЯЬШJШЧЧJШЧJШЧЧШЪбЬШJШ-JШMJШЧJЪЬЯЬШJШEJЪЬЯЬШJШЧJШWJЪЬNШNJЪЯЬШJЪЬЯЬШЧJШЧJШ/JШJШ ЧЪб	ЬЯЬЯЬШ.IcodeЪЬЯЬЯЬ"ЯЬШSLЪЬЯЬ1Ш8ЪЯЬЯЬЯЬШJЪЬЯЬШJЪЯЬЯЬЯЬ+ШDЪЯЬ4ЯШ9JЪЯЬ	ШJЪЯЬШ#ЧJШЧJШJШ ЧЪбЬЯЬЯЬШJЪЬ-ЯЬШ3JШJШJШ ЧЧJЪЯЬШШJЪвЬCЩHJЪвЬ.Щ3ЪЬЩJЩ:ЪЯЬ╧sЬгЯгЯгЬгЬгЬгЯгЬгЬгЬЩGJЪЯЬ2ЯЬ	ЩBJЪЯЬ+Щ/ЧJЪЬЩЧЩЪЯЬЯЩЩBJЪЬCЯЬЩLЧЧЧJШ ЧЧ ЕЧ    
╞  {  