DIRECTORY
BasicTime,
BitMap3d,
CastRays,
CGDevice,
Containers,
CoordSys,
DisplayList3d,
DisplayListToTree,
FileNames,
FS,
Graphics,
GraphicsBasic,
GraphicsColor,
IO,
Matrix3d,
Menus,
Preprocess3d,
Real,
Rope,
SV2d,
SV3d,
SVDraw3d,
SVDrawMonitor,
SVEditUser,
SVError,
SVFiles,
SVInterfaceTypes,
SVModelTypes,
SVRayTypes,
SVSceneTypes,
SVSelections,
SVTransforms,
SVViewerTool,
SVViewerUser,
TFI3d,
TFO3d,
ViewerClasses,
ViewerOps,
ViewerTools;

SVViewerUserImplA: CEDAR PROGRAM
IMPORTS BasicTime, BitMap3d, CastRays, CoordSys, DisplayList3d, DisplayListToTree, FileNames, FS, Graphics, IO, Matrix3d, Preprocess3d, Real, Rope, SVDraw3d, SVEditUser, SVError, SVFiles, SVSelections, SVTransforms, SVViewerUser, TFI3d, TFO3d, ViewerOps, ViewerTools
EXPORTS GraphicsBasic, SVViewerUser =

BEGIN

Assembly: TYPE = SVSceneTypes.Assembly;
BoundBox: TYPE = SVModelTypes.BoundBox;
Camera: TYPE = SVModelTypes.Camera;
Color: TYPE = GraphicsColor.Color;
CoordSysGenerator: TYPE = DisplayList3d.CoordSysGenerator;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
CSGTree: TYPE = SVRayTypes.CSGTree;
DeviceObject: PUBLIC TYPE = CGDevice.Rep;
DrawStyle: TYPE = SVModelTypes.DrawStyle;
FileCamera: TYPE = SVSceneTypes.FileCamera;
EditToolData: TYPE = SVEditUser.EditToolData;
MasterObject: TYPE = SVSceneTypes.MasterObject;
Matrix4by4: TYPE = SV3d.Matrix4by4;
MouseButton: TYPE = Menus.MouseButton;
Point2d: TYPE = SV2d.Point2d;
Primitive: TYPE = SVRayTypes.Primitive;
Scene: TYPE = SVSceneTypes.Scene;
Vector: TYPE = SV3d.Vector;
Viewer: TYPE = ViewerClasses.Viewer;

ViewerToolData: TYPE = SVInterfaceTypes.ViewerToolData;
DCProc: TYPE = SVInterfaceTypes.DCProc;

ReadTwoReals: PUBLIC PROC [textViewer: Viewer] RETURNS [x, y: REAL] = TRUSTED {
wholeRope: Rope.ROPE _ ViewerTools.GetContents[textViewer];
wholeStream: IO.STREAM _ IO.RIS[wholeRope];
TFI3d.ReadBlank[wholeStream];
x _ TFI3d.ReadReal[wholeStream];
TFI3d.ReadBlankAndRope[wholeStream, ","];
y _ TFI3d.ReadReal[wholeStream];
};

Painter: PUBLIC PROC [proc: DCProc, viewerToolData: ViewerToolData _ NIL] = TRUSTED {
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
viewerToolData.proc _ proc;
ViewerOps.PaintViewer[viewer: viewerToolData.viewerPicture,
hint: client,
whatChanged: viewerToolData,
clearClient: FALSE];
}; -- end of Painter
UpdateHeader: PUBLIC PROC [pictureFile: Rope.ROPE, viewerToolData: ViewerToolData] = TRUSTED {
headerRope: Rope.ROPE;
aisName: Rope.ROPE;
viewName: Rope.ROPE _ viewerToolData.camera.viewName;
IF pictureFile = NIL THEN pictureFile _ viewerToolData.scene.name;
headerRope _ Rope.Cat[viewName, " View of Solid Scene: ", pictureFile];
aisName _ Rope.Concat[SVFiles.FilenameMinusExtension[pictureFile], ".ais"];
viewerToolData.outer.name _ headerRope;
ViewerOps.PaintViewer[viewerToolData.outer, caption, FALSE, NIL];
};

NewVersion: PUBLIC PROC [viewer: Viewer] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[viewer.data];
scene: Scene _ viewerToolData.scene;
scene.dirty _ TRUE;
viewerToolData.treeOutOfDate _ TRUE;
viewerToolData.outer.newVersion _ TRUE;
UpdateHeader[scene.name, viewerToolData];
};

SceneOldVersion: PUBLIC PROC [viewerToolData: ViewerToolData] = TRUSTED {
scene: Scene _ viewerToolData.scene;
SVEditUser.SceneOldVersion[viewerToolData, scene];
};

OldVersion: PUBLIC PROC [viewer: Viewer] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[viewer.data];
scene: Scene _ viewerToolData.scene;
scene.dirty _ FALSE;
viewerToolData.treeOutOfDate _ TRUE; -- OldVersion may result from loading a new scene, or creating an empty scene.  In either case, the ray tracing tree is out of date.  Set flag just in case.
viewerToolData.outer.newVersion _ FALSE;
UpdateHeader[scene.name, viewerToolData];
};

EraseAndDrawScene: PUBLIC PROC [viewerToolData: ViewerToolData] = TRUSTED {-- like DrawSceneButton but erases the screen before drawing.
DoDrawScene: PROC [dc: Graphics.Context] = TRUSTED {
EraseAndDrawSceneEtc[dc, viewerToolData];
};
Painter[DoDrawScene, viewerToolData];
};

DrawOneCSInViewer: PUBLIC PROC [viewerToolData: ViewerToolData, cs: CoordSystem] = TRUSTED {
DoDrawOneCSInViewer: PROC [dc: Graphics.Context] = TRUSTED {
DrawOneCS[dc, viewerToolData, cs];
};
Painter[DoDrawOneCSInViewer, viewerToolData];
};

ComplementAssembly: PUBLIC PROC [viewerToolData: ViewerToolData, assem: Assembly] = {
DoComplementAssembly: PROC [dc: Graphics.Context] = TRUSTED {
SVViewerUser.DrawAssemblyXOR[dc, viewerToolData, assem];
};
SVViewerUser.Painter[DoComplementAssembly, viewerToolData];
};

DrawAssemblyXOR: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, assembly: Assembly] = TRUSTED {
scene: Scene;
camera: Camera;
paintMode: Graphics.PaintMode;
scene _ viewerToolData.scene;
camera _ viewerToolData.camera;
paintMode _ Graphics.SetPaintMode[dc, invert];
DisplayList3d.DrawAssembly[dc, assembly, scene, camera];

[] _ Graphics.SetPaintMode[dc, paintMode];
};

DrawAssembly: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, assembly: Assembly] = TRUSTED {
scene: Scene;
camera: Camera;
scene _ viewerToolData.scene;
camera _ viewerToolData.camera;
DisplayList3d.DrawAssembly[dc, assembly, scene, camera];
};

DrawSceneEtc: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, hardcopy: BOOL _ FALSE] = TRUSTED {
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
IF viewerToolData.doubleBuffer AND NOT hardcopy THEN {
BitMap3d.Erase[viewerToolData.altDC];

DisplayList3d.DrawScene[viewerToolData.altDC.dc, scene, camera];
Graphics.SetColor[dc, GraphicsColor.black];
IF viewerToolData.showCoordSys THEN
DrawAllCS[viewerToolData.altDC.dc, viewerToolData];
SVSelections.ComplementAnySelectionsDC[viewerToolData.altDC.dc, viewerToolData]; 

BitMap3d.DrawAltDisplayContext[dc, viewerToolData.altDC];
}
ELSE {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];

DisplayList3d.DrawScene[dc, scene, camera];
Graphics.SetColor[dc, GraphicsColor.black];
IF viewerToolData.showCoordSys THEN
DrawAllCS[dc, viewerToolData];
SVSelections.ComplementAnySelectionsDC[dc, viewerToolData];

};
}; -- end of DrawSceneEtc

EraseAndDrawSceneEtc: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData] = TRUSTED {
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
IF viewerToolData.doubleBuffer THEN {
BitMap3d.Erase[viewerToolData.altDC];
DisplayList3d.DrawScene[viewerToolData.altDC.dc, scene, camera];
BitMap3d.DrawAltDisplayContext[dc, viewerToolData.altDC];

IF viewerToolData.showCoordSys THEN
DrawAllCS[dc, viewerToolData];
SVSelections.ComplementAnySelectionsDC[dc, viewerToolData];
}
ELSE {
Graphics.SetColor[dc, GraphicsColor.white];
Graphics.DrawBox[dc, Graphics.GetBounds[dc]];
DisplayList3d.DrawScene[dc, scene, camera];
Graphics.SetColor[dc, GraphicsColor.black];
IF viewerToolData.showCoordSys THEN
DrawAllCS[dc, viewerToolData];
SVSelections.ComplementAnySelectionsDC[dc, viewerToolData];
};
}; -- end of EraseAndDrawSceneEtc
DrawAllCS: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData] = TRUSTED {
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
g: CoordSysGenerator _ DisplayList3d.GetCoordSysGenerator[scene];
mat: Matrix4by4;
FOR cs: CoordSystem _ DisplayList3d.NextCoordSys[g], DisplayList3d.NextCoordSys[g]
UNTIL cs = NIL DO
mat _ CoordSys.FindInTermsOfCamera[cs, camera.coordSys];
SVDraw3d.DrawCoordSys[dc, mat, camera];
ENDLOOP;
};

DrawOneCS: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData, cs: CoordSystem] = TRUSTED {
camera: Camera _ viewerToolData.camera;
SVDraw3d.DrawCoordSys[dc, cs.wrtCamera, camera];
};


PlaceOrigin: PUBLIC PROC [viewer: Viewer] = TRUSTED {
originX, originY: REAL;
transMat: Matrix4by4;
viewerToolData: ViewerToolData _ NARROW[viewer.data];
screenCS: CoordSystem;
camera: Camera _ viewerToolData.camera;
screenCS _ camera.screenCS;
originX _ viewer.cw;-- convert window width to real
originY _ viewer.ch;-- convert window height to real
originX _ originX/2.0;-- find the midpoint in window coords
originY _ originY/2.0;
transMat _ Matrix3d.MakeTranslateMat[-originX,-originY,0];
SVTransforms.AbsTransf[screenCS, camera.coordSys, transMat];
}; -- end of PlaceOrigin
ResizeBitMaps: PUBLIC PROC [viewer: Viewer] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[viewer.data];
BitMap3d.ResizeBitMap[viewer, viewerToolData.altDC];
};

DrawSceneButton: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
DoDrawScene: PROC [dc: Graphics.Context] = TRUSTED {
DrawSceneEtc[dc, viewerToolData];
};
Painter[DoDrawScene, viewerToolData];
};

Reset: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ viewerToolData.editToolData;
success: BOOL;
wdir: Rope.ROPE;
scene: Scene _ viewerToolData.scene;

wdir _ editToolData.originalWorkingDirectory;
[scene, success] _ SVEditUser.LoadScene[viewerToolData, scene.name, wdir];
IF success THEN {
viewerToolData.scene _ scene;
SVSelections.KillSkitterAndSelections[editToolData];
SceneOldVersion[viewerToolData];
UpdateHeader[scene.name, viewerToolData];
EraseAndDrawScene[viewerToolData];
SVViewerUser.Selected[parent, clientData, mouseButton, shift, control];
};
}; -- end of Reset

ConfirmReset: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
rope: Rope.ROPE;
dirty: BOOL;
dirty _ viewerToolData.outer.newVersion;
IF dirty THEN rope _ "Confirm discard of edits"
ELSE rope _ IO.PutFR["Confirm reset of %g", [rope[scene.name]]];
SVError.AppendHerald[rope, TRUE];
}; -- end of ConfirmReset

Save: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
success: BOOL;
sceneName: Rope.ROPE;
scene: Scene _ viewerToolData.scene;
sceneName _ FileNames.StripVersionNumber[scene.name];
success _ SVEditUser.SaveScene[viewerToolData, sceneName];
IF success THEN {
SVViewerUser.Selected[parent, clientData, mouseButton, shift, control];
SceneOldVersion[viewerToolData];
UpdateHeader[scene.name, viewerToolData];
};
}; -- end of Save

ConfirmSave: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
exists: BOOL;
rope: Rope.ROPE;
exists _ SVFiles.FileExists[scene.name];
IF exists THEN rope _ IO.PutFR["Confirm Save to %g [Old File]", [rope[scene.name]]]
ELSE {
rope _ IO.PutFR["%g doesn't exist. Use Store", [rope[scene.name]]];
SVError.Blink[]
};
SVError.Append[rope, TRUE, TRUE];
};

Get: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
success: BOOL;
picName: Rope.ROPE _ ViewerTools.GetSelectionContents[];
fullName: Rope.ROPE;
aisName, wdir: Rope.ROPE;
scene: Scene;
oldScreenCS: CoordSystem _ viewerToolData.camera.screenCS;
startTime: BasicTime.GMT;
endTime: BasicTime.GMT;
totalTime: INT;
timeRope: Rope.ROPE;

IF Rope.Length[picName] = 0 THEN RETURN;
wdir _ editToolData.originalWorkingDirectory;
success _ TRUE;
[fullName,,] _ FS.ExpandName[picName, wdir
! FS.Error => IF error.group = user THEN {
success _ FALSE;
CONTINUE;
}
];
IF NOT success THEN RETURN;
startTime _ BasicTime.Now[];
[scene, success] _ SVEditUser.LoadScene[viewerToolData, fullName, wdir];
IF success THEN {
fileCamera: FileCamera;
cameraName: Rope.ROPE;
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
timeRope _ IO.PutFR[" Done loading %g in time (%r)", [rope[fullName]], [integer[totalTime]]];
SVError.Append[timeRope, TRUE, TRUE];

IF scene.cameraOrder = NIL THEN fileCamera _ scene.cameras.first
ELSE {
cameraName _ scene.cameraOrder.first;
[fileCamera, success] _ DisplayList3d.FindFileCameraFromName[cameraName, scene];
IF NOT success THEN {
fileCamera _ scene.cameras.first;
SVError.Append[Rope.Cat["Camera ", cameraName, " not found"], TRUE, TRUE];
SVError.Blink[];
};
};
viewerToolData.scene _ scene;
SVSelections.KillSkitterAndSelections[editToolData];
viewerToolData.camera _ DisplayList3d.CreateCamera[scene.coordSysRoot, CoordSys.CopyCoordSysFromAnyTree[oldScreenCS, "SCREEN", NIL, NIL]];
DisplayList3d.StuffCameraFromFileCamera[viewerToolData.camera, fileCamera, viewerToolData.camera.style];
SceneOldVersion[viewerToolData];
UpdateHeader[fullName, viewerToolData];
aisName _ Rope.Concat[SVFiles.FilenameMinusExtension[fullName], ".ais"];
ViewerTools.SetContents[viewerToolData.textSection.ais, aisName];
EraseAndDrawScene[viewerToolData];
SVViewerUser.Selected[parent, clientData, mouseButton, shift, control];
};
}; -- end of Get

ConfirmGet: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
scene: Scene _ viewerToolData.scene;
picName: Rope.ROPE _ ViewerTools.GetSelectionContents[];
fullName, wdir: Rope.ROPE;
rope: Rope.ROPE;
success: BOOL _ TRUE;
dirty: BOOL;

IF Rope.Length[picName] = 0 THEN {
SVError.Append["Please select a file name.", TRUE, TRUE];
SVError.Blink[];
RETURN;
};
wdir _ editToolData.originalWorkingDirectory;

[fullName,,] _ FS.ExpandName[picName, wdir
! FS.Error => IF error.group = user THEN {
SVError.Append[Rope.Concat["Get: ", error.explanation], TRUE, TRUE];
success _ FALSE;
CONTINUE;
}
];
IF NOT success THEN RETURN;
dirty _ viewerToolData.outer.newVersion;
IF dirty THEN rope _ IO.PutFR["Confirm discard of edits and load of %g", [rope[fullName]]]
ELSE rope _ IO.PutFR["Confirm load of %g", [rope[fullName]]];
SVError.Append[rope, TRUE, TRUE];
}; -- end of ConfirmGet

Store: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
wdir: Rope.ROPE;
success: BOOL;
aisName: Rope.ROPE;
picName: Rope.ROPE _ ViewerTools.GetSelectionContents[];
fullName: Rope.ROPE;
scene: Scene _ viewerToolData.scene;

IF Rope.Length[picName] = 0 THEN RETURN;
wdir _ editToolData.originalWorkingDirectory;
success _ TRUE;
[fullName,,] _ FS.ExpandName[picName, wdir
! FS.Error => IF error.group = user THEN {
success _ FALSE;
CONTINUE;
}
];
IF NOT success THEN RETURN;
success _ SVEditUser.StoreScene[viewerToolData, scene, fullName];
IF success THEN {
UpdateHeader[fullName, viewerToolData];
SVViewerUser.Selected[parent, clientData, mouseButton, shift, control];
SceneOldVersion[viewerToolData];
UpdateHeader[scene.name, viewerToolData];
aisName _ Rope.Concat[SVFiles.FilenameMinusExtension[fullName], ".ais"];
ViewerTools.SetContents[viewerToolData.textSection.ais, aisName];};
}; -- end of Store

ConfirmStore: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
scene: Scene _ viewerToolData.scene;
picName: Rope.ROPE _ ViewerTools.GetSelectionContents[];
fullName, wdir: Rope.ROPE;
exists: BOOL;
success: BOOL _ TRUE;
rope: Rope.ROPE;

IF Rope.Length[picName] = 0 THEN {
SVError.Append["Please select a file name.", TRUE, TRUE];
SVError.Blink[];
RETURN;
};
wdir _ editToolData.originalWorkingDirectory;
[fullName,,] _ FS.ExpandName[picName, wdir
! FS.Error => IF error.group = user THEN {
SVError.Append[Rope.Concat["Store: ", error.explanation], TRUE, TRUE];
success _ FALSE;
CONTINUE;
}
];

exists _ SVFiles.FileExists[fullName];
IF exists THEN rope _ IO.PutFR["Confirm Store of %g [Old File]", [rope[fullName]]]
ELSE rope _ IO.PutFR["Confirm Store to %g [New File]", [rope[fullName]]];
SVError.AppendHerald[rope, TRUE];
};

Split: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
SVEditUser.Split[viewerToolData, scene];
};

Erase: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
DoErase: PROC [dc: Graphics.Context] = TRUSTED {
mark: Graphics.Mark _ Graphics.Save[dc];
Graphics.SetColor[dc, Graphics.white];
Graphics.DrawBox[dc,Graphics.GetBounds[dc]];
Graphics.SetColor[dc, Graphics.white];
Graphics.Restore[dc,mark];
};
Painter[DoErase, viewerToolData];
};
Empty: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ viewerToolData.editToolData;
oldScene: Scene _ viewerToolData.scene;
newScene: Scene;
oldScreenCS: CoordSystem;
fileCamera: FileCamera;
cameraName: Rope.ROPE;

oldScreenCS _ viewerToolData.camera.screenCS;
newScene _ viewerToolData.scene _ DisplayList3d.CreateScene["NoName.pic"];
SVSelections.KillSkitterAndSelections[editToolData];
UpdateHeader[newScene.name, viewerToolData];
SVViewerUser.Selected[parent, clientData, mouseButton, shift, control];

IF newScene.cameraOrder = NIL THEN fileCamera _ newScene.cameras.first
ELSE {
success: BOOL;
cameraName _ newScene.cameraOrder.first;
[fileCamera, success] _ DisplayList3d.FindFileCameraFromName[cameraName, newScene];
IF NOT success THEN {
fileCamera _ newScene.cameras.first;
SVError.Append[Rope.Cat["Camera ", cameraName, " not found"], TRUE, TRUE];
SVError.Blink[];
};
};
viewerToolData.camera _ DisplayList3d.CreateCamera[newScene.coordSysRoot, CoordSys.CopyCoordSysFromAnyTree[oldScreenCS, "SCREEN", NIL, NIL]];
DisplayList3d.StuffCameraFromFileCamera[viewerToolData.camera, fileCamera, viewerToolData.camera.style];

Erase[parent, clientData, mouseButton, shift, control];
SVEditUser.NotifyOfEmpty[viewerToolData: viewerToolData, from: oldScene, to: viewerToolData.scene];

SceneOldVersion[viewerToolData];
ViewerTools.SetContents[viewerToolData.textSection.ais, "default.ais"];
};

ConfirmEmpty: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
rope: Rope.ROPE;
dirty: BOOL;
dirty _ viewerToolData.outer.newVersion;
IF dirty THEN rope _ "Confirm discard of edits"
ELSE rope _ "Confirm emptying of viewer";
SVError.AppendHerald[rope, TRUE];
};

RayCast: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
tree: CSGTree;
startTime: BasicTime.GMT;
afterTreeTime: BasicTime.GMT;
endTime: BasicTime.GMT;
totalTime: INT;
outStream: IO.STREAM _ SVError.GetErrorStream[];
timeRope, wdir: Rope.ROPE;
aisFileRope: Rope.ROPE _ ViewerTools.GetContents[viewerToolData.textSection.ais];
success: BOOL;

wdir _ editToolData.originalWorkingDirectory;
success _ TRUE;
[aisFileRope,,] _ FS.ExpandName[aisFileRope, wdir
! FS.Error => IF error.group = user THEN {
SVError.Append[Rope.Concat["RayCast: ", error.explanation], TRUE, TRUE];
success _ FALSE;
CONTINUE;
}
];
IF NOT success THEN RETURN;

startTime _ BasicTime.Now[];
tree _ DisplayListToTree.AssemblyToTree[scene.assembly, scene, camera];
afterTreeTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[from: startTime, to: afterTreeTime];
timeRope _ IO.PutFR["Building tree took (%r)",[integer[totalTime]]];
SVError.Append[timeRope, TRUE, TRUE];
IF mouseButton = red OR mouseButton = blue THEN {
success _ CastRays.DrawTree[tree, scene.lightSources, camera, aisFileRope, mouseButton = blue, SVViewerUser.RayCastProgress, viewerToolData, outStream];
}
ELSE { -- yellow bug
cameraPoint: Point2d;
[cameraPoint, ----] _ SVSelections.GetPositionSkitter[];

success _ CastRays.DrawTreeWithStartLine[cameraPoint[2], tree, scene.lightSources, camera, aisFileRope, mouseButton = blue, SVViewerUser.RayCastProgress, viewerToolData, outStream];
};
IF NOT success THEN {
outStream.PutF["...Raycast aborted."];
RETURN;
};
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[from: afterTreeTime, to: endTime];
timeRope _ IO.PutFR[" Raycast took (%r)",[integer[totalTime]]];
SVError.Append[timeRope, TRUE, TRUE];
SVViewerUser.DrawBlackAndWhite[parent, clientData, mouseButton, shift, control];
}; -- end of RayCast

ConfirmRayCast: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
exists: BOOL;
aisFileRope: Rope.ROPE _ ViewerTools.GetContents[viewerToolData.textSection.ais];
redRope: Rope.ROPE _ Rope.Concat[SVFiles.FilenameMinusExtension[aisFileRope], "-red.ais"];
greenRope: Rope.ROPE _ Rope.Concat[SVFiles.FilenameMinusExtension[aisFileRope], "-green.ais"];
blueRope: Rope.ROPE _ Rope.Concat[SVFiles.FilenameMinusExtension[aisFileRope], "-blue.ais"];
rope: Rope.ROPE;
IF mouseButton = blue THEN { -- black and white only
exists _ SVFiles.FileExists[aisFileRope];
rope _ IO.PutFR["Confirm raycast to %g.", [rope[aisFileRope]]];
IF exists THEN rope _ Rope.Concat[rope, " [Old File]"]
ELSE rope _ Rope.Concat[rope, " [New File]"];
}
ELSE {
exists _ SVFiles.FileExists[aisFileRope] OR SVFiles.FileExists[redRope] OR SVFiles.FileExists[greenRope] OR SVFiles.FileExists[blueRope];
rope _ IO.PutFR["Confirm raycast to %g [-red, -green, -blue, plain].ais", [rope[SVFiles.FilenameMinusExtension[aisFileRope]]]];
IF exists THEN rope _ Rope.Concat[rope, " [Old Files]"]
ELSE rope _ Rope.Concat[rope, " [New Files]"];
};
SVError.AppendHerald[rope, TRUE];
};

Stop: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
camera: Camera _ viewerToolData.camera;
camera.abort _ TRUE;
};

ARay: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
x, y: REAL;
xInt, yInt: INTEGER;
outHandle: IO.STREAM;
tree: CSGTree _ DisplayListToTree.AssemblyToTree[scene.assembly, scene, camera];
color: Color;
[x, y] _ ReadTwoReals[viewerToolData.textSection.xyz];
xInt _ Real.FixI[x];  yInt _ Real.FixI[y];
outHandle _ SVError.GetErrorStream[];
color _ CastRays.SingleRay[xInt, yInt,
  tree, scene.lightSources, camera, TRUE, outHandle];
outHandle.PutF["[%g,%g]: ",[real[x]], [real[y]]];
TFO3d.FileoutColor[outHandle, color];
}; -- end of ARay

DrawCoordSystems: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
DoDrawCoordSys: PROC [dc: Graphics.Context] = TRUSTED {
DrawAllCS[dc, viewerToolData];
};
Painter[DoDrawCoordSys, viewerToolData];
};

DrawBoundBoxes: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
tree: CSGTree;
DoDrawBoundBoxes: PROC [dc: Graphics.Context] = TRUSTED {
SVDraw3d.DrawBoundBoxes[dc, tree, camera];
};
tree _ DisplayListToTree.AssemblyToTree[scene.assembly, scene, camera];  -- does a TellAboutCameraAndWorld
[] _ Preprocess3d.PreprocessForInteraction[tree, camera];
Painter[DoDrawBoundBoxes, viewerToolData];
}; -- end of DrawBoundBoxes

DrawBoundSpheres: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
viewerToolData: ViewerToolData _ NARROW[clientData];
scene: Scene _ viewerToolData.scene;
camera: Camera _ viewerToolData.camera;
tree: CSGTree;
DoDrawBoundSpheres: PROC [dc: Graphics.Context] = TRUSTED {
SVDraw3d.DrawBoundSpheres[dc, tree, camera];
};
tree _ DisplayListToTree.AssemblyToTree[scene.assembly, scene, camera];  -- does a TellAboutCameraAndWorld
[] _ Preprocess3d.PreprocessForSlice[tree, camera];  -- computes the bounding spheres
Painter[DoDrawBoundSpheres, viewerToolData];
}; -- end of DrawBoundSpheres

END.

	φFile: SVViewerUserImplA.mesa
Author: Eric Bier in October 1982
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Last edited by Bier on January 15, 1985 0:12:23 am PST
Contents: Code to respond to button presses made in an SVViewer
TEXT VIEWER PARSING CODE (deserves its own module)

MISCELLANEOUS

SVDrawMonitor.PrepareToDrawScene[];
SVDrawMonitor.DoneDrawingScene[];
Tell EditTool that scene is no longer dirty.  EditTool will call back all affected viewers using OldVersion (see below).
DRAW SOMETHING IN A SOLID VIEWER (Fetches a display context first)

DRAW A SET OF ITEMS INTO A GIVEN DISPLAY CONTEXT

BitMap3d.Erase[viewerToolData.xorDC];
SVSelections.ComplementAnySelectionsOnDC[viewerToolData.xorDC.dc, assembly, scene];
BitMap3d.DrawAltDisplayContext[dc, viewerToolData.xorDC];
May also draw coordinate systems, drawing planes, etc depending on the current selected modes.
Make sure coordinate systems and selections will be drawn in black.
Make sure coordinate systems and selections will be drawn in black.
Put this code back into the ELSE clause to implement the display of coordinate frames only for the current STAR assembly.
IF viewerPictureData.showCoordSys THEN
IF editToolData.sceneSection.currentScene = scene THEN {
[assem, success] _ SVEditUser.TGetAssembly[editToolData.sceneSection.assemblyName, scene];
IF success THEN DrawOneCS[dc, viewerToolData, assem.coordSys];
};

May also draw coordinate systems, drawing planes, etc depending on the current selected modes.
First we erase the old context white (this is a little wasteful since some of the DrawScene options draw in a background color -- however, some don't).
Make sure you have up to date coordSys positions.
Assume that cs has a valid cs.wrtCamera field.
MENU PROCS

viewer is the viewerPicture
 Find the center of the solid window in solid window coordinates.
viewer is the viewerPicture
 resize its bitMap
BitMap3d.ResizeBitMap[viewer, viewerToolData.xorDC];
Menus.MenuProc
viewer is a SolidWindow. clientData is viewerToolData
Reload this scene from its backing file.
TIMING VARIABLES
START TIMING
END TIMING
Create a new viewer onto this scene.  Update the ring of links joining all viewers onto this scene,
Creates a new empty scene for the viewer to view.
This must be done after NotifyOfEmpty since SVEditUser expects to register to the newly created NoName scene before it resets the [New Version] headers.

Get x and y from appropriate slots.  Interpret this as camera coordinates and draw a cross.
viewer is Container
viewer is Container
ΚC˜Iheadš
œ™Jš
œ!™!Jšœ
Οm
œ1™<Jš
œ6™6Jš
œ?™?J˜š
Οk	˜	Jš
œ
˜
Jš
œ	˜	Jš
œ	˜	Jš
œ	˜	Jš
œ˜Jš
œ	˜	Jš
œ˜Jš
œ˜J˜
Jšžœ
˜Jš
œ	˜	Jš
œ˜Jš
œ˜Jšžœ
˜Jš
œ	˜	Jš
œ˜Jš
œ
˜
Jš
œ˜Jš
œ˜Jš
œ˜J˜Jš
œ	˜	J˜Jš
œ˜J˜Jš
œ˜J˜J˜
J˜J˜
J˜
J˜
Jš
œ
˜
Jš
œ
˜
Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
Jš
œ˜—J˜šœžœ
ž˜ JšžœWžœžœœ
˜ŠJšžœ˜%—J˜Jš
ž˜˜Jšœ
žœ˜'Jšœ
žœ˜'Jšœžœ˜#Jšœžœ˜"Jšœžœ#˜:Jšœ
žœ˜-Jšœ	žœ˜#Jšœžœ
žœ˜)Jšœžœ˜)Jšœžœ˜+Jšœžœ˜-Jšœžœ˜/Jšœžœ˜#Jšœ
žœ˜&Jšœ	žœ˜Jšœžœ˜'Jšœžœ˜!Jšœžœ˜Jšœžœ˜$J˜Jšœžœ#˜7Jšœžœ˜'J˜—Iproc™2L™šΟnœžœ
žœžœžœžœ˜OJšœžœ'˜;Jš	œ
žœ
žœžœ
žœ˜+Jš
œ˜Jš
œ ˜ Jš
œ)˜)Jš
œ ˜ Jš
œ˜—J˜L™
L™š
Ÿœžœ
žœ1žœžœ˜UJš
œ$˜$Jš
œ'˜'Jš
œ˜J™#š
œ;˜;Jš
œ
˜
Jš
œ˜Jšœ
žœ˜—J™!JšœΟc˜—š
Ÿœžœ
žœžœ$žœ˜^Jšœžœ
˜Jšœžœ
˜Jšœžœ"˜5Jšžœžœ
žœ)˜BJš
œG˜GJš
œK˜KJš
œ'˜'Jšœ5žœžœ˜AJš
œ˜J˜—šŸ
œžœ
žœžœ˜4Jšœ!žœ˜5Jš
œ$˜$Jšœžœ
˜Jšœžœ
˜$Jšœ"žœ
˜'Jš
œ)˜)Jš
œ˜J˜—šŸœžœ
žœ$žœ˜IJ™xJš
œ$˜$Jš
œ2˜2Jš
œ˜J˜—šŸ
œžœ
žœžœ˜4Jšœ!žœ˜5Jš
œ$˜$Jšœžœ
˜Jšœžœ œ
˜Α
Jšœ"žœ
˜(Jš
œ)˜)Jš
œ˜—J˜L™BL™š	Ÿœžœ
žœ$žœ =˜ˆ
šŸœžœžœ˜4Jš
œ)˜)Jš
œ˜—Jš
œ%˜%Jš
œ˜J˜—šŸœžœ
žœ5žœ˜\šŸœžœžœ˜<Jš
œ"˜"Jš
œ˜—Jš
œ-˜-Jš
œ˜J˜—šŸœžœ
žœ6˜UšŸœžœžœ˜=Jš
œ8˜8J˜—Jš
œ;˜;J˜—J˜L™0L™šŸœžœ
žœNžœ˜sL˜
Lš
œ˜L˜Lš
œ˜Lš
œ˜L˜.LšΟbœ™%Jšœ‘œ˜8Lšœ
‘œ+™SL˜Lš‘œ™9L˜*L˜J˜—šŸœžœ
žœNžœ˜pL˜
Lš
œ˜Lš
œ˜Lš
œ˜Jš
œ8˜8J˜J˜—š
Ÿœžœ
žœBžœžœ˜tJš
œ^™^Jš
œ$˜$Jš
œ'˜'šžœžœ
žœ
žœ˜6Jš
œ&˜&š
œ@˜@J™C—Jš
œ+˜+šžœž˜#Jš
œ3˜3—Jš
œR˜RJš
œ9˜9Jš
œ
˜
—šžœ˜Jšœžœ˜Bš
œ+˜+J™C—Jš
œ+˜+šžœž˜#Jš
œ˜—Jš
œ<˜<Jš
œ˜—Jšœ ˜J˜J™yšžœ ž™&šžœ0žœ™8Jš
œZ™ZJšžœ	žœ/™>Jš
œ™J™———šŸœžœ
žœ:žœ˜dJš
œ^™^Jš
œ$˜$Jš
œ'˜'šžœžœ˜%Jš
œf˜fJš
œ9˜9J˜šžœž˜#Jš
œ˜—Jš
œ;˜;Jš
œ
˜
—šžœ˜Jš
œ+˜+š
œ-˜-Jš
œ—
™—
—Jš
œ+˜+Jš
œ+˜+šžœž˜#Jš
œ˜—Jš
œ;˜;Jš
œ˜—Jšœ ˜!—šŸ	œžœ
žœ:žœ˜YJš
œ$˜$Jš
œ'˜'Jš
œA˜AJš
œ˜šžœO˜RJšžœžœ
ž˜Jš
œ8˜8Jš
œ1™1Jš
œ'˜'—Jšžœ
˜Jš
œ˜J˜—šŸ	œžœ
žœKžœ˜jš
œ'˜'Jš
œ.™.—Jš
œ0˜0Jš
œ˜J˜—J˜Lš
œ
™
L™šŸœžœ
žœžœ˜5Jš
œ™Jš
œA™AJšœžœ
˜Jš
œ˜Jšœ!žœ˜5Jš
œ˜Jš
œ'˜'Jš
œ˜Jšœ ˜3Jšœ  ˜4Jšœ %˜;Jš
œ˜Jš
œ:˜:Jš
œ<˜<Jšœ ˜—šŸ
œžœ
žœžœ˜7Jš
œ™Jš
œ™Jšœ!žœ˜5Jš
œ4˜4Jš
œ4™4Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜Jš
œ™Jš
œ5™5šœ!žœ
˜4JšŸœžœžœ˜4Jš
œ!˜!Jš
œ˜—Jš
œ%˜%Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜uJšœ!žœ
˜4Jš
œ9˜9Jšœ	žœ
˜Jšœžœ
˜Jš
œ$˜$J˜Jš
œ-˜-Jš
œJ˜JJš
œ(™(šžœ	žœ˜Jš
œ˜Jš
œ4˜4Jš
œ ˜ Jš
œ)˜)Jš
œ"˜"Jš
œG˜GJš
œ˜—Jšœ ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœ!žœ
˜4Jš
œ$˜$Jšœžœ
˜Jšœžœ
˜Jš
œ(˜(Jšžœžœ"˜/Jšžœžœ2˜@Jšœžœ˜!Jšœ ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜tJšœ!žœ
˜4Jšœ	žœ
˜Jšœžœ
˜Jš
œ$˜$Jš
œ5˜5Jš
œ:˜:šžœ	žœ˜Jš
œG˜GJš
œ ˜ Jš
œ)˜)Jš
œ˜—Jšœ ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜{Jšœ!žœ
˜4Jš
œ$˜$Jšœžœ
˜
Jšœžœ
˜Jš
œ(˜(Jšžœžœžœ;˜Sšžœ˜Jšœžœ:˜CJš
œ˜Jš
œ˜—Jšœžœžœ˜!Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜sJšœ!žœ
˜4Jšœžœ˜AJšœ	žœ
˜Jšœžœ&˜8Jšœžœ
˜Jšœžœ
˜Jš
œ
˜
Jš
œ:˜:Jš
œ™Jš
œ˜Jš
œ˜Jšœžœ
˜Jšœžœ
˜J˜Jšžœžœ
žœ
˜(Jš‘œ)˜-Jšœ
žœ
˜šœ
‘œžœ˜*šœžœ
žœžœ˜*Jšœ
žœ
˜Jšžœ
˜	J˜
—Jš
œ˜—Jšžœ
žœ	žœ
žœ
˜Jš
œ™Jš
‘˜Jšœ‘œ!˜Hšžœ	žœ˜Jš
œ˜Jšœžœ
˜™
Jš
‘˜Jš
œ1˜1Jš
œ]˜]Jšœž
œ˜%—J˜Jšžœžœ
žœ!˜@šžœ˜Jš
œ%˜%Jš
œP˜Pšžœ
žœ	žœ˜Jš
œ!˜!Jšœ>žœžœ˜JJš
œ˜J˜—J˜—Jš
œ˜Jš
œ4˜4Jšœžœžœ˜Š
Jš
œh˜hJš
œ ˜ Jš
œ'˜'Jš
œH˜HJš
œA˜AJš
œ"˜"Jš
œG˜GJš
œ˜—Jšœ ˜J˜—šŸ
œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜zJšœ!žœ
˜4Jšœžœ˜AJš
œ$˜$Jšœžœ&˜8Jšœžœ
˜Jšœžœ
˜Jšœ	žœžœ
˜Jšœžœ
˜J˜šžœžœ˜"Jšœ-žœžœ˜9J˜Jšžœ
˜Jš
œ˜—Jš
œ-˜-J˜šœžœ˜*šœžœ
žœžœ˜*J•StartOfExpansion[]šœ8žœžœ˜DJšœ
žœ
˜Jšžœ
˜	J˜
—Jš
œ˜—Jšžœ
žœ	žœ
žœ
˜Jš
œ(˜(JšžœžœžœC˜ZJšžœžœ/˜=Jšœžœžœ˜!Jšœ ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜uJšœ!žœ
˜4Jšœžœ˜AJšœžœ
˜Jšœ	žœ
˜Jšœžœ
˜Jšœžœ&˜8Jšœžœ
˜Jš
œ$˜$J˜Jšžœžœ
˜(Jš
œ-˜-Jšœ
žœ
˜šœžœ˜*šœžœ
žœžœ˜*Jšœ
žœ
˜Jšžœ
˜	J˜
—Jš
œ˜—Jšžœ
žœ	žœ
žœ
˜Jš
œA˜Ašžœ	žœ˜Jš
œ'˜'Jš
œG˜GJš
œ ˜ Jš
œ)˜)Jš
œH˜HJš
œC˜C—Jšœ ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœ!žœ
˜4Jšœžœ˜AJš
œ$˜$Jšœžœ&˜8Jšœžœ
˜Jšœžœ
˜
Jšœ	žœžœ
˜Jšœžœ
˜J˜šžœžœ˜"Jšœ-žœžœ˜9J˜Jšžœ
˜J˜—Jš
œ-˜-šœžœ˜*šœžœ
žœžœ˜*J–[]šœ:žœžœ˜FJšœ
žœ
˜Jšžœ
˜	J˜
—Jš
œ˜—J˜Jš
œ&˜&Jšžœžœžœ:˜RJšžœžœ;˜IJšœžœ˜!Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜uJš
œc™cJšœ!žœ
˜4Jš
œ$˜$Jš
œ(˜(Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜uJšœ!žœ
˜4šŸœžœžœ˜0Jš
œ(˜(Jš
œ&˜&Jš
œ,˜,Jš
œ&˜&Jš
œ˜Jš
œ˜—Jš
œ!˜!Jš
œ˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜uJš
œ1™1Jšœ!žœ
˜4Jš
œ9˜9Jš
œ'˜'Jš
œ˜J˜Jš
œ˜Jšœžœ˜Jš
œ-˜-Jšœ0‘œ˜JJš
œ4˜4Jš
œ,˜,Jš
œH˜HJšžœžœ
žœ$˜Fšžœ˜Jšœ	žœ
˜Jš
œ(˜(Jš
œS˜Sšžœ
žœ	žœ˜Jš
œ$˜$Jšœ>žœžœ˜JJš
œ˜J˜—Jš
œ˜—Jšœ&‘œPžœžœ˜
Jš
œi˜iJš
œ7˜7Jš
œd˜dJš
œ ˜ Jš
Ϫ
™™
Jš
œG˜GJš
œ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœ!žœ
˜4Jš
œ$˜$Jšœžœ
˜Jšœžœ
˜Jš
œ(˜(Jšžœžœ"˜/Jšžœ%˜)Jšœžœ˜!Jš
œ˜—J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜wJšœ!žœ
˜4Jšœžœ˜AJš
œ$˜$Jš
œ'˜'Jš
œ˜Jšœžœ
˜Jšœžœ
˜Jšœžœ
˜Jšœžœ
˜Jšœžœ
žœ˜0Jšœžœ
˜Jšœžœ;˜QJšœ	žœ
˜J˜Jš
œ-˜-Jšœ
žœ
˜šœžœ˜1šœžœ
žœžœ˜*J–[]šœ<žœžœ˜HJšœ
žœ
˜Jšžœ
˜	J˜
—Jš
œ˜—Jšžœ
žœ	žœ
žœ
˜J˜Jš
‘˜Jšœ‘œ ˜GJš
‘ ˜ Jšœ#‘	œ‘
œ˜AJšœžœ7˜DJšœžœžœ˜%šžœžœžœ˜1Jšœ‘œ}˜˜
J˜
—šžœ 
˜Jš
œ˜Jšœ œ&˜8J˜Jšœ‘œ
˜΅
J˜—šžœ
žœ	žœ˜Jš
œ&˜&Jšžœ
˜J˜—Jš
‘˜Jšœ#‘
œ‘œ˜?Jšœžœ2˜?Jšœžœžœ˜%Jš
œP˜PJšœ ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜~Jšœ!žœ
˜4Jšœžœ
˜
Jšœžœ;˜QJšœžœH˜ZJšœžœJ˜^JšœžœI˜\Jšœžœ
˜šžœžœ ˜4Jš
œ)˜)Jšœžœ6˜?Jšžœžœ(˜6Jšžœ)˜-Jš
œ
˜
—šžœ˜Jšœ)žœžœžœ˜‰
Jšœžœv˜Jšžœžœ)˜7Jšžœ*˜.Jš
œ˜—Jšœžœ˜!Jš
œ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜tJšœ!žœ
˜4Jš
œ'˜'Jšœžœ
˜Jš
œ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜tšœ!žœ
˜4Jš
œ$˜$Jš
œ'˜'Jš
œ[™[Jšœžœ
˜Jšœžœ
˜Jšœžœ
žœ
˜Jš
œP˜PJš
œ
˜
Jš
œ6˜6Jš
œ*˜*Jš
œ%˜%Jš
œ&˜&Jšœ$žœ
˜5Jš
œ1˜1Jš
œ%˜%Jšœ ˜——J˜šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœ!žœ
˜4šŸœžœžœ˜7Jš
œ˜Jš
œ˜—Jš
œ(˜(Jš
œ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜~Jš
œ™Jšœ!žœ
˜4Jš
œ$˜$Jš
œ'˜'Jš
œ˜šŸœžœžœ˜9Jš
œ*˜*Jš
œ˜—JšœI !˜jJš
œ9˜9Jš
œ*˜*Jšœ ˜J˜—šŸœžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jš
œ™Jšœ!žœ
˜4Jš
œ$˜$Jš
œ'˜'Jš
œ˜šŸœžœžœ˜;Jš
œ,˜,Jš
œ˜—JšœI !˜jJšœ5  ˜UJš
œ,˜,Jšœ ˜—J˜Jšžœ
˜J˜—…—`°…ι