DIRECTORY
DisplayList3d,
FileNames,
Graphics,
IO,
Labels,
Menus,
Rope,
SVEditUser,
SVFiles,
SV2d,
SV3d,
SVError,
SVInterfaceTypes,
SVModelTypes,
SVRayTypes,
SVSceneTypes,
SVToolObject,
SVTransforms,
SVViewer,
SVViewerInput,
SVViewerUser,
TFI3d,
ViewerClasses,
ViewerIO,
ViewerOps,
ViewerTools;

SVEditUserImplA: CEDAR PROGRAM
IMPORTS DisplayList3d, FileNames, IO, Labels, Rope, SVError, SVFiles, SVViewer, SVViewerUser, TFI3d, ViewerIO, ViewerOps, ViewerTools
EXPORTS SVEditUser =

BEGIN

ArtworkToolData: TYPE = SVInterfaceTypes.ArtworkToolData;
Assembly: TYPE = REF AssemblyObj;
AssemblyObj: TYPE = SVSceneTypes.AssemblyObj;
AssemblyList: TYPE = SVSceneTypes.AssemblyList;
Camera: TYPE = SVModelTypes.Camera;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
DCProc: TYPE = SVInterfaceTypes.DCProc;
EditToolData: TYPE = SVInterfaceTypes.EditToolData;
MasterObject: TYPE = SVSceneTypes.MasterObject;
Matrix4by4: TYPE = SV3d.Matrix4by4;
MouseButton: TYPE = Menus.MouseButton;
Point2d: TYPE = SV2d.Point2d;
Point3d: TYPE = SV3d.Point3d;
PointSetOp: TYPE = SVRayTypes.PointSetOp;
Primitive: TYPE = SVRayTypes.Primitive;
Scene: TYPE = SVSceneTypes.Scene;
ScratchpadData: TYPE = SVInterfaceTypes.ScratchpadData;
Selection: TYPE = SVInterfaceTypes.Selection;
ToolData: TYPE = SVSceneTypes.ToolData;
Viewer: TYPE = ViewerClasses.Viewer;
ViewerCell: TYPE = REF ViewerCellObj;
ViewerCellObj: TYPE = SVInterfaceTypes.ViewerCellObj;
ViewerProc: TYPE = SVEditUser.ViewerProc;
ViewerAssemblyProc: TYPE = SVEditUser.ViewerAssemblyProc;
ViewerToolData: TYPE = SVInterfaceTypes.ViewerToolData;



PaintSceneAllViewers: PUBLIC PROC [proc: ViewerProc, editToolData: EditToolData, scene: Scene] = TRUSTED {
viewerToolData: ViewerToolData;
success: BOOL;
viewerCell: ViewerCell;
drawProc: PROC [dc: Graphics.Context] = TRUSTED {
proc[dc, viewerToolData];
};
[viewerCell, success] _ FindSceneInAllViewers[scene, editToolData.allViewers];
IF NOT success THEN ERROR;
IF viewerCell.viewersOnScene = NIL THEN RETURN;
viewerToolData _ NARROW[viewerCell.viewersOnScene.data];
SVViewerUser.Painter[drawProc, viewerToolData];
IF viewerCell.viewersOnScene.link = NIL THEN RETURN;
FOR list: Viewer _ viewerCell.viewersOnScene.link, list.link
UNTIL list = viewerCell.viewersOnScene DO
viewerToolData _ NARROW[list.data];
SVViewerUser.Painter[drawProc, viewerToolData];
ENDLOOP;
};

PaintAssemblyAllViewers: PUBLIC PROC [proc: ViewerAssemblyProc, editToolData: EditToolData, scene: Scene, assembly: Assembly] = {
viewerToolData: ViewerToolData;
success: BOOL;
viewerCell: ViewerCell;
drawProc: PROC [dc: Graphics.Context] = TRUSTED {
proc[dc, viewerToolData, assembly];
};
[viewerCell, success] _ FindSceneInAllViewers[scene, editToolData.allViewers];
IF NOT success THEN ERROR;
IF viewerCell.viewersOnScene = NIL THEN RETURN;
viewerToolData _ NARROW[viewerCell.viewersOnScene.data];
SVViewerUser.Painter[drawProc, viewerToolData];
IF viewerCell.viewersOnScene.link = NIL THEN RETURN;

FOR list: Viewer _ viewerCell.viewersOnScene.link, list.link
UNTIL list = viewerCell.viewersOnScene DO
viewerToolData _ NARROW[list.data];
SVViewerUser.Painter[drawProc, viewerToolData];
ENDLOOP;
};





NewOutput: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
newViewer: Viewer;
inHandle, outHandle: IO.STREAM;
[inHandle, outHandle, newViewer] _ MakeNewViewerAndHandle[];
SVError.SetErrorStream[outHandle];
editToolData.messages _ newViewer;
};

MakeNewViewerAndHandle: PRIVATE PROC [] RETURNS [in, out: IO.STREAM, newViewer: Viewer] = TRUSTED {
newViewer _ ViewerOps.CreateViewer[
flavor: $TypeScript,
info: [
name: "SolidViews Typescript",
menu: NIL,
data: NIL,
iconic: TRUE,
column: right,
scrollable: TRUE,
icon: unInit
],
paint: FALSE];
ViewerOps.SetOpenHeight[newViewer, 120];
ViewerOps.OpenIcon[icon: newViewer, closeOthers: FALSE, bottom: TRUE, paint: TRUE];
[in, out] _ ViewerIO.CreateViewerStreams["solidviews output", newViewer, NIL, TRUE];
};

NewViewer: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
viewerCell: ViewerCell;
currentViewerToolData: ViewerToolData;
wdir: Rope.ROPE;
scene: Scene;
wdir _ editToolData.originalWorkingDirectory;
scene _ DisplayList3d.CreateScene[Rope.Concat[wdir, "NoName.pic"]];
[currentViewerToolData, ----] _ SVViewer.CreateViewerTool[editToolData, scene, FALSE, TRUE, editToolData.originalWorkingDirectory];
[viewerCell, editToolData.allViewers] _ AddSceneToAllViewers[scene, editToolData.allViewers];
AddViewerToViewerCell[currentViewerToolData.outer, viewerCell];
SVViewerUser.Selected[NIL, currentViewerToolData, red, FALSE, FALSE];
SVViewerUser.UpdateHeader[scene.name, currentViewerToolData];
};


FindSceneInAllViewers: PUBLIC PROC [scene: Scene, allViewers: LIST OF ViewerCell] RETURNS [viewerCell: ViewerCell, success: BOOL] = TRUSTED {
success _ FALSE;
FOR list: LIST OF ViewerCell _ allViewers, list.rest UNTIL list = NIL OR success DO
IF list.first.scene = scene THEN {
viewerCell _ list.first;
success _ TRUE;
RETURN;
};
ENDLOOP;
};
AddSceneToAllViewers: PUBLIC PROC [scene: Scene, allViewers: LIST OF ViewerCell] RETURNS [viewerCell: ViewerCell, newAllViewers: LIST OF ViewerCell] = TRUSTED {
viewerCell _ NEW[ViewerCellObj _ [scene, NIL]];
newAllViewers _ CONS[viewerCell, allViewers];
};
FindViewerInAllViewers: PUBLIC PROC [viewer: Viewer, allViewers: LIST OF ViewerCell] RETURNS [viewerCell: ViewerCell, before, listCell, after: Viewer, success: BOOL] = TRUSTED {
firstViewer: Viewer;
success _ FALSE;
FOR allList: LIST OF ViewerCell _ allViewers, allList.rest UNTIL allList = NIL OR success DO
before _ NIL;
firstViewer _ allList.first.viewersOnScene;
IF firstViewer = NIL THEN LOOP;
IF firstViewer = viewer THEN {
listCell _ firstViewer;
after _ firstViewer.link;
viewerCell _ allList.first;
success _ TRUE;
RETURN};
before _ firstViewer;
IF firstViewer.link = NIL THEN LOOP;
FOR viewerList: Viewer _ firstViewer.link, viewerList.link
UNTIL viewerList = firstViewer OR success DO
IF viewerList = viewer THEN {
listCell _ viewerList;
after _ viewerList.link;
viewerCell _ allList.first;
success _ TRUE;
RETURN};
before _ viewerList;
ENDLOOP;
ENDLOOP;
};
FindViewerInViewerCell: PUBLIC PROC [viewer: Viewer, viewerCell: ViewerCell] RETURNS [before, listCell, after: Viewer, success: BOOL] = TRUSTED {
firstViewer: Viewer;
success _ FALSE;
firstViewer _ viewerCell.viewersOnScene;
IF firstViewer = NIL THEN {success _ FALSE; RETURN};
IF firstViewer = viewer THEN {
before _ NIL;-- this tells delete proc that it needs a new firstViewer
listCell _ firstViewer;
after _ firstViewer.link;
success _ TRUE;
RETURN};
before _ firstViewer;
FOR viewerList: Viewer _ viewerCell.viewersOnScene.link, viewerList.link
UNTIL viewerList = firstViewer OR viewerList = NIL DO
IF viewerList = viewer THEN {
listCell _ viewerList;
after _ viewerList.link;
success _ TRUE;
RETURN};
before _ viewerList;
ENDLOOP;
success _ FALSE;
};
DeleteViewerFromAllViewers: PUBLIC PROC [viewerCell: ViewerCell, before, listCell, after: Viewer] = TRUSTED {
viewerToolData: ViewerToolData;
IF before = NIL OR viewerCell.viewersOnScene = listCell THEN {
IF after = NIL THEN {viewerCell.viewersOnScene _ NIL; RETURN};
FOR v: Viewer _ after, v.link
UNTIL v.link = listCell DO
REPEAT FINISHED =>
IF v = after THEN {
after.link _ NIL;
viewerToolData _ NARROW[after.data];
SVViewerUser.UpdateHeader[NIL, viewerToolData]}
ELSE v.link _ after;
ENDLOOP;
viewerCell.viewersOnScene _ after;
}
ELSE {
IF before = after THEN {
after.link _ NIL;
viewerToolData _ NARROW[after.data];
SVViewerUser.UpdateHeader[NIL, viewerToolData]}
ELSE before.link _ after;
};
};
AddViewerToViewerCell: PUBLIC PROC [viewer: Viewer, viewerCell: ViewerCell] = TRUSTED {
IF viewerCell.viewersOnScene = NIL THEN {
viewer.link _ NIL;
viewerCell.viewersOnScene _ viewer;
RETURN};
viewer.link _ viewerCell.viewersOnScene;
IF viewerCell.viewersOnScene.link = NIL THEN
viewerCell.viewersOnScene.link _ viewer
ELSE FOR v: Viewer _ viewerCell.viewersOnScene.link, v.link
UNTIL v.link=viewerCell.viewersOnScene DO
REPEAT FINISHED => v.link _ viewer;
ENDLOOP;
viewerCell.viewersOnScene _ viewer;
};


LoadScene: PUBLIC PROC [viewerToolData: ViewerToolData, picName: Rope.ROPE, wdir: Rope.ROPE] RETURNS [scene: Scene, success: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
oldViewerCell, newViewerCell: ViewerCell;
before, listCell, after: Viewer;
sceneName: Rope.ROPE;
[scene, success] _ SVFiles.OpenScene[picName, wdir];
IF NOT success THEN RETURN;
[newViewerCell, editToolData.allViewers] _
AddSceneToAllViewers[scene, editToolData.allViewers];
[oldViewerCell, before, listCell, after, success] _ FindViewerInAllViewers[viewerToolData.outer, editToolData.allViewers];
IF success THEN {
DeleteViewerFromAllViewers[oldViewerCell, before, listCell, after];
AddViewerToViewerCell[viewerToolData.outer, newViewerCell];
editToolData.sceneSection.currentScene _ scene;
sceneName _ FileNames.GetShortName[scene.name];
Labels.Set[editToolData.sceneSection.sceneName, sceneName];
}
ELSE ERROR;
};
SaveScene: PUBLIC PROC [viewerToolData: ViewerToolData, picName: Rope.ROPE] RETURNS [success: BOOL] = TRUSTED {
scene: Scene _ viewerToolData.scene;
success _ SVFiles.SaveScene[scene, picName];
};
StoreScene: PUBLIC PROC [viewerToolData: ViewerToolData, scene: Scene, picName: Rope.ROPE] RETURNS [success: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
oldViewerCell, newViewerCell: ViewerCell;
before, listCell, after: Viewer;
sceneAlreadyExists, viewerThere: BOOL _ FALSE;
success _ SVFiles.StoreScene[scene, picName];
SVViewerUser.SceneOldVersion[viewerToolData];
IF NOT success THEN RETURN;
[oldViewerCell, before, listCell, after, viewerThere] _
FindViewerInAllViewers[viewerToolData.outer, editToolData.allViewers];
IF viewerThere THEN {-- if viewer was there delete it.
IF oldViewerCell.scene = scene THEN RETURN;  -- user is storing old file.
DeleteViewerFromAllViewers[oldViewerCell, before, listCell, after];
};
[newViewerCell, sceneAlreadyExists] _ FindSceneInAllViewers[scene, editToolData.allViewers];
IF NOT sceneAlreadyExists THEN [newViewerCell, editToolData.allViewers] _
AddSceneToAllViewers[scene, editToolData.allViewers];
AddViewerToViewerCell[viewerToolData.outer, newViewerCell];
};

NotifyOfEmpty: PUBLIC PROC [viewerToolData: ViewerToolData, from: Scene, to: Scene] = TRUSTED {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
before, listCell, after: Viewer;
success: BOOL;
viewerCell, newViewerCell: ViewerCell;
[viewerCell, success] _ FindSceneInAllViewers[from, editToolData.allViewers];
IF NOT success THEN ERROR;
[before, listCell, after, success] _ FindViewerInViewerCell [viewerToolData.outer, viewerCell];
IF NOT success THEN ERROR;
DeleteViewerFromAllViewers[viewerCell, before, listCell, after];
[newViewerCell, editToolData.allViewers] _ AddSceneToAllViewers[to, editToolData.allViewers];
AddViewerToViewerCell[viewerToolData.outer, newViewerCell];
};
NotifyDestroy: PUBLIC PROC [viewer: Viewer] = TRUSTED {
viewerCell: ViewerCell;
before, listCell, after: Viewer;
success: BOOL;
viewerToolData: ViewerToolData _ NARROW[viewer.data];
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
[viewerCell, before, listCell, after, success] _ FindViewerInAllViewers[viewer, editToolData.allViewers];
IF NOT success THEN ERROR;
IF viewerCell.viewersOnScene = viewer THEN viewerCell.viewersOnScene _ viewer.link;
};

SceneNewVersion: PUBLIC PROC [viewerToolData: ViewerToolData] = TRUSTED {
viewerCell: ViewerCell;
scene: Scene _ viewerToolData.scene;
firstViewer: Viewer;
success: BOOL;
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
[viewerCell, success] _ FindSceneInAllViewers [scene, editToolData.allViewers];
IF NOT success THEN ERROR;
firstViewer _ viewerCell.viewersOnScene;
SVViewerUser.NewVersion[firstViewer];
FOR viewerList: Viewer _ firstViewer.link, viewerList.link
UNTIL viewerList = NIL OR viewerList = firstViewer DO
SVViewerUser.NewVersion[viewerList];
ENDLOOP;
};

UpdateAllHeaders: PUBLIC PROC [viewerToolData: ViewerToolData, scene: Scene] = TRUSTED {
viewerCell: ViewerCell;
firstViewer: Viewer;
success: BOOL;
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
[viewerCell, success] _ FindSceneInAllViewers [scene, editToolData.allViewers];
IF NOT success THEN ERROR;
firstViewer _ viewerCell.viewersOnScene;
SVViewerUser.UpdateHeader[scene.name, NARROW[firstViewer.data]];
FOR viewerList: Viewer _ firstViewer.link, viewerList.link
UNTIL viewerList = NIL OR viewerList = firstViewer DO
SVViewerUser.UpdateHeader[scene.name, NARROW[viewerList.data]];
ENDLOOP;
};
SceneOldVersion: PUBLIC PROC [viewerToolData: ViewerToolData, scene: Scene] = TRUSTED {
viewerCell: ViewerCell;
firstViewer: Viewer;
success: BOOL;
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
[viewerCell, success] _ FindSceneInAllViewers [scene, editToolData.allViewers];
IF NOT success THEN ERROR;
firstViewer _ viewerCell.viewersOnScene;
SVViewerUser.OldVersion[firstViewer];
FOR viewerList: Viewer _ firstViewer.link, viewerList.link
UNTIL viewerList = NIL OR viewerList = firstViewer DO
SVViewerUser.OldVersion[viewerList];
ENDLOOP;
};

NewSelectedViewer: PUBLIC PROC [viewerToolData: ViewerToolData] = TRUSTED {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
sceneName: Rope.ROPE;
IF viewerToolData # editToolData.currentViewerToolData
THEN {
SVViewerUser.Deselected[editToolData.currentViewerToolData];
editToolData.currentViewerToolData _ viewerToolData;
editToolData.sceneSection.currentScene _ viewerToolData.scene;
viewerToolData.textSection.isSelected _ TRUE;
Labels.SetDisplayStyle[viewerToolData.textSection.selected, $WhiteOnBlack, TRUE];
sceneName _ FileNames.GetShortName[viewerToolData.scene.name];
Labels.Set[editToolData.sceneSection.sceneName, sceneName];
};
};

ReSelectViewer: PUBLIC PROC [viewerToolData: ViewerToolData] = {
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
sceneName: Rope.ROPE;
IF editToolData.currentViewerToolData # viewerToolData THEN {
SVViewerUser.Deselected[editToolData.currentViewerToolData];
editToolData.currentViewerToolData _ viewerToolData;
viewerToolData.textSection.isSelected _ TRUE;
Labels.SetDisplayStyle[viewerToolData.textSection.selected, $WhiteOnBlack, TRUE];
sceneName _ FileNames.GetShortName[viewerToolData.scene.name];
Labels.Set[editToolData.sceneSection.sceneName, sceneName];
};
editToolData.sceneSection.currentScene _ viewerToolData.scene;
};


SetSourceName: PUBLIC PROC [source: Assembly, editToolData: EditToolData] = {
oldMoveeRope: Rope.ROPE _ ViewerTools.GetContents[editToolData.sceneSection.source];
IF source = NIL THEN ViewerTools.SetContents[editToolData.sceneSection.source, NIL]
ELSE {
IF NOT Rope.Equal[oldMoveeRope, source.name, TRUE] THEN
ViewerTools.SetContents[editToolData.sceneSection.source, source.name];
};
};

SetTargetName: PUBLIC PROC [target: Assembly, editToolData: EditToolData] = {
oldTargetRope: Rope.ROPE _ ViewerTools.GetContents[editToolData.sceneSection.target];
IF target = NIL THEN ViewerTools.SetContents[editToolData.sceneSection.target, NIL]
ELSE {
IF NOT Rope.Equal[oldTargetRope, target.name, TRUE] THEN
ViewerTools.SetContents[editToolData.sceneSection.target, target.name];
};
};

SetPlaneName: PUBLIC PROC [plane: Assembly, editToolData: EditToolData] = {
oldPlaneRope: Rope.ROPE _ ViewerTools.GetContents[editToolData.sceneSection.plane];
IF plane = NIL THEN ViewerTools.SetContents[editToolData.sceneSection.plane, NIL]
ELSE {
IF NOT Rope.Equal[oldPlaneRope, plane.name, TRUE] THEN
ViewerTools.SetContents[editToolData.sceneSection.plane, plane.name];
};
};

SetCurrentAssemblyName: PUBLIC PROC [current: Assembly, editToolData: EditToolData] = {
oldSkitterRope: Rope.ROPE _ ViewerTools.GetContents[editToolData.sceneSection.current];
IF current = NIL THEN ViewerTools.SetContents[editToolData.sceneSection.current, NIL]
ELSE {
IF NOT Rope.Equal[oldSkitterRope, current.name, TRUE] THEN
ViewerTools.SetContents[editToolData.sceneSection.current, current.name];
};
};

Split: PUBLIC PROC [viewerToolData: ViewerToolData, scene: Scene] = TRUSTED {
viewerCell: ViewerCell;
oldViewer, newViewer: Viewer;
success: BOOL;
currentViewerToolData: ViewerToolData;
editToolData: EditToolData _ NARROW[viewerToolData.editToolData];
[currentViewerToolData,----] _ SVViewer.CreateViewerTool[editToolData, scene, FALSE, FALSE, editToolData.originalWorkingDirectory];
newViewer _ currentViewerToolData.outer;
oldViewer _ viewerToolData.outer;
[viewerCell, success] _ FindSceneInAllViewers[scene, editToolData.allViewers];
AddViewerToViewerCell[newViewer, viewerCell];
newViewer.newVersion _ oldViewer.newVersion;
newViewer.newFile _ oldViewer.newFile;
newViewer.file _ oldViewer.file;
SVViewerUser.UpdateHeader[scene.name, currentViewerToolData];
ViewerOps.ComputeColumn[column: newViewer.column, paint: TRUE]; -- now do the painting
};

DestroyAllSolidviewsWindows: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = {
editToolData: EditToolData _ NARROW[clientData];
allViewers: LIST OF ViewerCell _ editToolData.allViewers;
viewerCell: ViewerCell;
artworkTool: Viewer _ NARROW[editToolData.artworkTool.data, ArtworkToolData].outer;
scratchpad: Viewer _ NARROW[editToolData.scratchpad.data, ScratchpadData].scratchViewerData.outer;
messages: Viewer _ editToolData.messages;
editTool: Viewer _ editToolData.outer;
next: Viewer;

FOR sceneCellList: LIST OF ViewerCell _ allViewers, sceneCellList.rest UNTIL sceneCellList = NIL DO
viewerCell _ sceneCellList.first;
IF viewerCell.viewersOnScene = NIL THEN {}
ELSE{
IF viewerCell.viewersOnScene.link = NIL THEN {}
ELSE {
FOR list: Viewer _ viewerCell.viewersOnScene.link, next
UNTIL list = viewerCell.viewersOnScene DO
next _ list.link;
ViewerOps.DestroyViewer[list];
ENDLOOP;
};
ViewerOps.DestroyViewer[viewerCell.viewersOnScene];
};
ENDLOOP;
ViewerOps.DestroyViewer[artworkTool];
ViewerOps.DestroyViewer[scratchpad];
ViewerOps.DestroyViewer[messages];
ViewerOps.DestroyViewer[editTool];
};


FindAssemblyFromName: PUBLIC PROC [name: Rope.ROPE, scene: Scene] RETURNS [assembly: Assembly, superAssembly: Assembly, found: BOOL] = TRUSTED {
found _ TRUE;
[assembly, superAssembly] _ 
DisplayList3d.FindAssemblyFromName[name, scene
!DisplayList3d.AssemblyNotFound => {found _ FALSE; CONTINUE}];
IF NOT found THEN {
SVError.Append["Assembly ", TRUE];
SVError.Append[name];
SVError.Append[" not found", FALSE, TRUE];
SVError.Blink[];
};
};

GetParent: PUBLIC PROC [editToolData: EditToolData] RETURNS [super: Assembly, success: BOOL] = TRUSTED {
superName: Rope.ROPE _ ViewerTools.GetContents[editToolData.sceneSection.parent];
scene: Scene _ editToolData.sceneSection.currentScene;
success _ TRUE;
super _ NIL;
[super, ----] _ DisplayList3d.FindAssemblyFromName[superName, scene
!DisplayList3d.AssemblyNotFound => {success _ FALSE; CONTINUE}];
IF NOT success THEN {
SVError.Append["Assembly "];
SVError.Append[superName];
SVError.Append[" not found", FALSE, TRUE];
SVError.Blink[];};
}; -- end of GetParent
GetPoint3d: PUBLIC PROC [textViewer: Viewer] RETURNS [pt: Point3d] = TRUSTED {
wholeRope: Rope.ROPE _ ViewerTools.GetContents[textViewer];
wholeStream: IO.STREAM _ IO.RIS[wholeRope];
TFI3d.ReadBlank[wholeStream];
pt[1] _ TFI3d.ReadReal[wholeStream];
TFI3d.ReadBlankAndRope[wholeStream, ","];
TFI3d.ReadBlank[wholeStream];
pt[2] _ TFI3d.ReadReal[wholeStream];
TFI3d.ReadBlankAndRope[wholeStream, ","];
TFI3d.ReadBlank[wholeStream];
pt[3] _ TFI3d.ReadReal[wholeStream];
};

ScenePrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.sceneName];
};
CurrentAssemblyPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.current];
};
SourcePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.source];
};
TargetPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.target];
};
NewPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.new];
};
ParentPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sceneSection.parent];
};

RGBPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.rgb];
};
SphereRadiusPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.sphereSection.radius];
};
BlockXYZPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.blockSection.xyz];
};
CylinderRadiusPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cylinderSection.radius];
};
CylinderHeightPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cylinderSection.height];
};
ConeRadiusPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.coneSection.radius];
};

ConeHeightPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.coneSection.height];
};

BigRadiusPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton,
shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.torusSection.bigRadius];
};

SectionRadiusPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton,
shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.torusSection.sectionRadius];
};

LinDepthPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.linSection.depth];
};

StuffPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.utilitySection.stuffNum];
};
DegreesPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.transformSection.degrees];
};
TranslateXYZPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.transformSection.transXYZ];
};
ScaleXYZPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.transformSection.scaleXYZ];
};
EvenScaleXYZPrompt: PUBLIC PROC[parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.transformSection.scalar];
};

CameraNamePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.name];
};

FocusPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.focusPoint];
};
ScanResolutionPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton,
shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.resolution];
};
CameraOriginPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.origin];
};
SlantPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.slant];
};

FocalLengthPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.focalLength];
};

FramePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.frame];
};
ClippingPlanePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.clippingPlanes];
};

VisibleAssemblyPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraSection.visibleAssemblies];
};

CameraOrderPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.cameraOrderSection.order];
};

ResolutionPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.resolution];
};

TubeHeightPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.tubeHeight];
};
TubeRadiusPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.tubeRadius];
};
BoxXYZPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.boxXYZ];
};

ArtworkNamePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton,
shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkSection.picName];
};
ArtworkDegreesPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton,
shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.artworkTransformSection.degrees];
};


LightNamePrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.lightSection.name];
};
LightPositionPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.lightSection.position];
};
LightColorPrompt: PUBLIC PROC [parent: REF ANY, clientData: REF ANY, mouseButton: MouseButton, shift, control: BOOL] = TRUSTED {
editToolData: EditToolData _ NARROW[clientData];
ViewerTools.SetSelection[editToolData.lightSection.color];
};

Init: PRIVATE PROC = TRUSTED {
};

Init[];


END.
tFile: SVEditUserImplA.mesa
Last edited by Bier on May 23, 1985 2:18:59 pm PDT
Copyright c 1984 by Xerox Corporation.  All rights reserved.
Author: Eric Bier in October 1982
Contents: All of the procedures called by SVEditTool when menus and buttons are pressed
GLOBAL VARIABLES
Draw the first viewer if there is one.
Draw the rest (remember they are linked in a ring)
Draw the first viewer if there is one.
Draw the rest (remember they are linked in a ring)
DrawAnySelections: PUBLIC PROC [dc: Graphics.Context, viewerToolData: ViewerToolData] = TRUSTED {
If the target or movee selection is in viewerToolData.outer then draw the coordinate system of this selection.  Tell the selection about the current positions of CAMERA and WORLD before drawing it (We will assume, for now, that the assembly it refers to is already updated).
IF targetSelection.viewerToolData = viewerToolData AND targetSelection.assembly # NIL
THEN {
SVTransforms.TellAboutParent[targetSelection.coordSys];
SVViewerUser.DrawOneTargetCS[dc, viewerToolData, targetSelection.coordSys];
};
IF moveeSelection.viewerToolData = viewerToolData AND moveeSelection.assembly # NIL
THEN {
SVTransforms.TellAboutParent[moveeSelection.coordSys];
SVViewerUser.DrawOneCS[dc, viewerToolData, moveeSelection.coordSys];
};
};
SetTargetSelection: PUBLIC PROC [cameraPoint: Point2d, assembly: Assembly, primitive: Primitive, worldMat: Matrix4by4, viewerToolData: ViewerToolData] RETURNS [selection: Selection] = TRUSTED {
targetSelection.cameraPoint _ cameraPoint;
targetSelection.primitive _ primitive;
targetSelection.assembly _ assembly;
IF assembly # NIL THEN {
targetSelection.coordSys.parent _ assembly.coordSys.parent;
targetSelection.coordSys.mat _ Matrix3d.WorldToLocal[targetSelection.coordSys.withRespectTo.wrtWorld, worldMat];
targetSelection.coordSys.wrtWorld _ worldMat; -- not necessary but as long as its already calculated...
};
targetSelection.viewerToolData _ viewerToolData;
selection _ targetSelection;
At this point, we may wish to update "Assembly:" in the edittool to be the selected assembly.  We should also make sure that the selected scene is the scene we are now pointing at.
SVViewerUser.Selected[NIL, viewerToolData, red, FALSE, FALSE]; -- fake a button push
SetTargetName[assembly, NARROW[viewerToolData.editToolData]];
};
SetMoveeSelection: PUBLIC PROC [cameraPoint: Point2d, assembly: Assembly, primitive: Primitive, worldMat: Matrix4by4, viewerToolData: ViewerToolData] RETURNS [selection: Selection] = TRUSTED {
moveeSelection.cameraPoint _ cameraPoint;
moveeSelection.assembly _ assembly;
moveeSelection.primitive _ primitive;
IF assembly # NIL THEN {
moveeSelection.coordSys.withRespectTo _ assembly.coordSys.withRespectTo;
moveeSelection.coordSys.mat _
Matrix3d.WorldToLocal[moveeSelection.coordSys.withRespectTo.wrtWorld, worldMat];
moveeSelection.coordSys.wrtWorld _ worldMat; -- not necessary but as long as its already calculated...
};
moveeSelection.viewerToolData _ viewerToolData;
selection _ moveeSelection;
At this point, we may wish to update "WRT:" in the edittool to be the selected assembly.
SetMoveeName[assembly, NARROW[viewerToolData.editToolData]];
};
SetFinalTarget: PUBLIC PROC [cameraPoint: Point2d, assembly: Assembly, primitive: Primitive, worldMat: Matrix4by4, viewerToolData: ViewerToolData] RETURNS [selection: Selection] = TRUSTED {
localMat: Matrix4by4;
withRespectTo: CoordSystem;
finalTarget _ NEW[SelectionObj];
finalTarget.cameraPoint _ cameraPoint;
finalTarget.assembly _ assembly;
finalTarget.primitive _ primitive;
IF assembly # NIL THEN {
withRespectTo _ assembly.coordSys.withRespectTo;
localMat _ Matrix3d.WorldToLocal[withRespectTo.wrtWorld, worldMat];
finalTarget.coordSys _ CoordSys.CreateCoordSys["finalTarget", localMat, withRespectTo];
};
finalTarget.viewerToolData _ viewerToolData;
selection _ finalTarget;
};
SetFinalMovee: PUBLIC PROC [cameraPoint: Point2d, assembly: Assembly, primitive: Primitive, worldMat: Matrix4by4, viewerToolData: ViewerToolData] RETURNS [selection: Selection] = TRUSTED {
localMat: Matrix4by4;
withRespectTo: CoordSystem;
finalMovee _ NEW[SelectionObj];
finalMovee.cameraPoint _ cameraPoint;
finalMovee.assembly _ assembly;
finalMovee.primitive _ primitive;
IF assembly # NIL THEN {
withRespectTo _ assembly.coordSys.withRespectTo;
localMat _ Matrix3d.WorldToLocal[withRespectTo.wrtWorld, worldMat];
finalMovee.coordSys _ CoordSys.CreateCoordSys["finalMovee", localMat, withRespectTo];
};
finalMovee.viewerToolData _ viewerToolData;
selection _ finalMovee;
};
clientData is editToolData
fake a button press on the Selected button
viewers are linked in a ring so we go around until we are back at the first viewer.
is it the first viewer?
viewers are linked in a ring so we go around until we are back at the first viewer.
is it the first viewer?
ViewerCell is in the key spot.  after becomes new key spot.
Search the ring for the last cell (which currently refers to viewer cell) and have it refer to after.
a viewer is loading a new scene.  All newly loaded scenes are considered unique (since the file might have been editted by hand since last loading) Add a viewer cell.
a viewer is saving a scene.  Save if possible.  No other action required.  This viewer should be on our list from when this scene was opened or stored.
a viewer is storing a scene.  If this viewer previously had a scene, we will have to remove it from that scene list and add it to a new one.  Otherwise we just have to add it.
if this viewerCell doesn't exist, add it.
add scene to proper viewer cell.
This viewer is about to be destroyed.  The window manager will take care of removing it from our linked list.  However, make sure that this viewer is not the viewer refered to by the viewerCell corresponding to its scene.  (We would lose all our viewers if this is the case).  If so, move our pointer to someone else.
Loops through split viewers updating headers.
Loops through split viewers updating headers.
 Loops through split viewers updating headers.
This viewer has just been loaded with a different scene.  Any selections are now invalid.
IF targetSelection.viewerToolData = viewerToolData THEN targetSelection.assembly _ NIL;
IF moveeSelection.viewerToolData = viewerToolData THEN moveeSelection.assembly _ NIL;
This should not be necessary but just in case.
Create a new viewer and split all viewers onto this scene
Destroy all solid viewers, the artwork tool, the scratchpad, the messages viewer, and the editTool.  The user is done with Solidviews.
TGetCoordSys: PUBLIC PROC [viewer: Viewer, scene: Scene] RETURNS [cs: CoordSystem, success: BOOL] = TRUSTED {
csRope: Rope.ROPE;
csList: CoordSys.CoordSysList;
csRope _ ViewerTools.GetContents[viewer];
success _ TRUE;
csList _ CoordSys.MakeListFromTree[scene.coordSysRoot];
cs _ CoordSys.FindCoordSysInList[csRope, csList
! CoordSys.CoordSysNotFound => {success _ FALSE; CONTINUE}];
IF NOT success THEN {
SVError.Append["Assembly ", TRUE];
SVError.Append[csRope];
SVError.Append[" not found", FALSE, TRUE];
SVError.Blink[];
};
}; -- end of GetCoordSys
TGetAssembly: PUBLIC PROC [viewer: Viewer, scene: Scene] RETURNS [as: Assembly, success: BOOL] = TRUSTED {
viewer is a TextViewer.
asRope: Rope.ROPE;
asRope _ ViewerTools.GetContents[viewer];
success _ TRUE;
[as, ----] _ DisplayList3d.FindAssemblyFromName[asRope, scene
!DisplayList3d.AssemblyNotFound => {
SVError.Append["Assembly ", TRUE];
SVError.Append[asRope];
SVError.Append[" not found", FALSE, TRUE];
SVError.Blink[];
success _ FALSE;
CONTINUE}]
}; -- end of GetAssembly

Κ%
–

"cedar" style˜Ihead1š
œ™Jš
œ2™2Jšœ
Οm
œ1™<Jš
œ!™!Jš
œW™WJ˜š
Ο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šžœžœa˜…
Jšžœ˜—Jš
ž˜˜Jšœžœ$˜9Jšœ
žœžœ
˜!Jšœ
žœ˜-Jšœžœ˜/Jšœžœ˜#Jšœ
žœ˜-Jšœžœ˜'Jšœžœ!˜3Jšœžœ˜/Jšœžœ˜#Jšœ
žœ˜&Jšœ	žœ˜Jšœ	žœ˜Jšœžœ˜)Jšœžœ˜'Jšœžœ˜!Jšœžœ#˜7Jšœžœ˜-Jš
œ'˜'Jšœžœ˜$Jšœžœžœ˜%JšΟb
œžœ"˜5Jšœžœ˜)Jšœžœ!˜9Jšœžœ#˜7—J˜Jš
œ™J˜J˜šΟnœžœ
žœ@žœ˜jJš
œ˜Jšœ	žœ
˜Jš
œ˜šœ
žœžœ˜1Jš
œ˜Jš
œ˜—JšœŸœ!˜Nšžœ
žœ	žœ
žœ
˜Jš
œ&™&—Jšžœžœ
žœ
žœ
˜/Jšœžœ!˜8šœ
Ÿœ
Ÿœ˜/Jš
œ2™2—Jšžœ"žœ
žœ
žœ
˜4Jšžœ9˜<šžœ"ž˜)Jšœžœ˜#Jšœ
Ÿœ
Ÿœ˜/—Jšžœ
˜Jš
œ˜—J˜
procš œžœ]˜
Jš
œ˜Jšœ	žœ
˜Jš
œ˜šŸœžœžœ˜1Jš
œ#˜#Jš
œ˜—JšœŸœ!˜Nšžœ
žœ	žœ
žœ
˜Jš
œ&™&—Jšžœžœ
žœ
žœ
˜/Jšœžœ!˜8šœ
Ÿœ
Ÿœ˜/Jš
œ2™2—Jšžœ"žœ
žœ
žœ
˜4J˜Jšžœ9˜<šžœ"ž˜)Jšœžœ˜#Jšœ
Ÿœ
Ÿœ˜/—Jšžœ
˜Jš
œ˜J˜—š œžœ
žœ:žœ™aJš
œ’™’Jšžœ1žœž™Ušžœ™Jš
œ7™7Jš
œK™KJš
œ™—Jšžœ0žœž™Sšžœ™Jš
œ6™6Jš
œD™DJš
œ™—Jš
œ™—J˜š
 œžœ
žœxžœžœ™Α
Jš
œ*™*Jš
œ&™&Jš
œ$™$šžœžœ
žœ™Jš
œ;™;Jš
œp™pJšœ.Οc9™gJš
œ™—Jš
œ0™0Jš
œ™J™΄
Jšœžœžœžœ‘™TJšœžœ™=Jš
œ™—š
 œžœ
žœxžœžœ™ΐ
Jš
œ)™)Jš
œ#™#Jš
œ%™%šžœžœ
žœ™Jš
œH™Hš
œ™Jš
œP™P—Jšœ-‘9™fJš
œ™—Jš
œ/™/Jš
œ™J™XJšœžœ™<Jš
œ™—J˜š
 œžœ
žœxžœžœ™½
Jš
œ™Jš
œ™Jšœžœ™ Jš
œ&™&Jš
œ ™ Jš
œ"™"šžœžœ
žœ™Jš
œ0™0Jš
œC™CJš
œW™WJš
œ™—Jš
œ,™,Jš
œ™Jš
œ™—š
 
œžœ
žœxžœžœ™Ό
Jš
œ™Jš
œ™Jšœ
žœ™Jš
œ%™%Jš
œ™Jš
œ!™!šžœžœ
žœ™Jš
œ0™0Jš
œC™CJš
œU™UJš
œ™—Jš
œ+™+Jš
œ™Jš
œ™—J˜J˜š 	œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜yJšœžœ
˜0Jš
œ˜Jšœžœ
žœ
˜Jš
œ<˜<Jš
œ"˜"Jš
œ"˜"Jš
œ˜—š œžœ
žœžœžœ
žœžœ˜c˜#J˜Jšœ-žœžœ
žœžœžœ˜Š
—Jš
œ(˜(Jšœ1žœ
žœ	žœ˜SJšœIžœžœ˜TJš
œ˜—J˜š 	œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜yJš
œ™Jšœžœ
˜0Jš
œ˜Jš
œ&˜&J˜Jš
œ
˜
Jš
œ-˜-Jš
œC˜CJšœ‘œ3žœžœ)˜ƒ
Jš
œ]˜]Jš
œ?˜?Jšœžœžœžœ˜EJš
œ*™*Jš
œ=˜=Jš
œ˜—J˜J˜š œžœ
žœžœ
žœ
žœ#žœžœ˜
Jšœ
žœ
˜š
žœžœ
žœ$žœžœ
žœ	ž˜Sšžœžœ˜"Jš
œ˜Jšœ
žœ
˜Jšžœ
˜Jš
œ˜——Jšžœ
˜Jš
œ˜—š œžœ
žœžœ
žœ
žœ)žœ
žœžœ˜ 
Jšœ
žœžœ˜/Jšœžœ˜-Jš
œ˜—š œžœ
žœžœ
žœ
žœDžœžœ˜±
Jš
œS™SJš
œ˜Jšœ
žœ
˜š
žœ
žœ
žœ'žœžœ
žœ	ž˜\Jšœ	žœ
˜
Jš
œ+˜+Jšžœžœ
žœ
žœ
˜Jš
œ™šžœžœ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœ
žœ
˜Jšžœ˜—Jš
œ˜Jšžœžœ
žœ
žœ
˜$Jšžœ7˜:šžœžœ	ž˜,šžœžœ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœ
žœ
˜Jšžœ˜—Jš
œ˜—Jšžœ
˜—Jšžœ
˜Jš
œ˜—š œžœ
žœ*žœ,žœžœ˜‘
Jš
œS™SJš
œ˜Jšœ
žœ
˜Jš
œ(˜(Jš
žœžœ
žœžœžœ˜4Jš
œ™šžœžœ˜Jšœ	žœ
‘9˜FJš
œ˜Jš
œ˜Jšœ
žœ
˜Jšžœ˜—Jš
œ˜JšžœE˜Hšžœžœžœ
ž˜5šžœžœ˜Jš
œ˜Jš
œ˜Jšœ
žœ
˜Jšžœ˜—Jš
œ˜—Jšžœ
˜Jšœ
žœ
˜Jš
œ˜—š œžœ
žœ=žœ˜mJš
œ˜šžœ
žœ
žœ&žœ˜>Jš
œ‘
™‘
Jš
žœ	žœ
žœžœžœ˜>Jšžœ˜šžœž˜šžœ
žœ˜šžœžœ˜Jšœ
žœ
˜Jšœžœ
˜$Jšœžœ˜/—Jšžœ˜——Jšžœ
˜Jš
œ"˜"Jš
œ
˜
—šžœ˜šžœžœ˜Jšœ
žœ
˜Jšœžœ
˜$Jšœžœ˜/—Jšžœ˜Jš
œ˜—Jš
œ˜—š œžœ
žœ,žœ˜Wšžœžœ
žœ˜)Jšœžœ
˜Jš
œ#˜#Jšžœ˜—Jš
œ(˜(šžœ"žœ
ž˜,Jš
œ'˜'—Jšžœ
žœ3˜;šžœ"ž˜)Jšžœ
žœ˜#—Jšžœ
˜Jš
œ#˜#Jš
œ˜J˜—J˜š 	œžœ
žœ0žœ
žœžœžœžœ˜Ž
Jš
œ¦
™¦
Jšœžœ˜AJš
œ)˜)Jš
œ ˜ Jšœžœ
˜Jš
œ4˜4Jšžœ
žœ	žœ
žœ
˜š
œ*˜*Jš
œ5˜5—Jš
œz˜zšžœ	žœ˜Jš
œC˜CJš
œ;˜;Jš
œ/˜/Jš
œ/˜/Jš
œ;˜;Jš
œ
˜
—Jšžœ
žœ
˜Jš
œ˜—š 	œžœ
žœ0žœžœžœžœ˜oJš
œ—
™—
Jš
œ$˜$Jš
œ,˜,Jš
œ˜—š 
œžœ
žœ>žœžœžœžœ˜~Jš
œ―
™―
Jšœžœ˜AJš
œ)˜)Jš
œ ˜ Jšœ!žœžœ
˜.Jš
œ-˜-Jš
œ-˜-Jšžœ
žœ	žœ
žœ
˜š
œ7˜7Jš
œF˜F—šžœ
žœ‘!˜6Jšžœžœ
žœ‘˜IJš
œC˜CJš
œ˜—Jš
œ)™)Jš
œ\˜\šžœ
žœžœ+˜IJš
œ5˜5—Jš
œ ™ Jš
œ;˜;Jš
œ˜J˜—š 
œžœ
žœ<žœ˜_Jšœžœ˜AJš
œ ˜ Jšœ	žœ
˜Jš
œ&˜&Jš
œM˜MJšžœ
žœ	žœ
žœ
˜Jš
œ_˜_Jšžœ
žœ	žœ
žœ
˜Jš
œ@˜@Jš
œ]˜]Jš
œ;˜;Jš
œ˜—š 
œžœ
žœžœ˜7Jš
œ½™½Jš
œ˜Jš
œ ˜ Jšœ	žœ
˜Jšœ!žœ˜5Jšœžœ˜AJš
œi˜iJšžœ
žœ	žœ
žœ
˜Jšžœ$žœ)˜SJš
œ˜—J˜š œžœ
žœ$žœ˜IJš
œ-™-Jš
œ˜Jš
œ$˜$Jš
œ˜Jšœ	žœ
˜Jšœžœ˜AJš
œO˜OJšžœ
žœ	žœ
žœ
˜Jš
œ(˜(Jš
œ%˜%Jšžœ7˜:šžœžœ
žœž˜5Jš
œ$˜$—Jšžœ
˜Jš
œ˜—š œžœ
žœ2žœ˜XJš
œ-™-Jš
œ˜Jš
œ˜Jšœ	žœ
˜Jšœžœ˜AJš
œO˜OJšžœ
žœ	žœ
žœ
˜Jš
œ(˜(Jšœ&žœ˜@Jšžœ7˜:šžœžœ
žœž˜5Jšœ&žœ˜?—Jšžœ
˜Jš
œ˜—š œžœ
žœ2žœ˜WJš
œ.™.Jš
œ˜Jš
œ˜Jšœ	žœ
˜Jšœžœ˜AJš
œO˜OJšžœ
žœ	žœ
žœ
˜Jš
œ(˜(Jš
œ%˜%Jšžœ7˜:šžœžœ
žœž˜5Jš
œ$˜$—šžœ
˜J™Y—Jšžœ1žœžœ
™WJšžœ0žœžœ
™UJš
œ˜—J˜š œžœ
žœ$žœ˜KJšœžœ˜AJ˜Jšžœ4˜6šžœ˜Jš
œ<˜<Jš
œ4˜4Jš
œ>˜>Jšœ(žœ
˜-JšœKžœ˜QJš
œ>˜>Jš
œ;˜;J˜—Jš
œ˜—š œžœ
žœ%˜@Jšœžœ˜AJ˜šžœ5žœ˜=Jš
œ<˜<Jš
œ4˜4Jšœ(žœ
˜-JšœKžœ˜QJš
œ>˜>Jš
œ;˜;J˜—š
œ>˜>J™.—Jš
œ˜J˜—š 
œžœ
žœ3˜MJšœžœ=˜TJšžœ
žœ
žœ;žœ
˜Sšžœ˜šžœ
žœ'žœž˜7Jš
œG˜G—J˜—J˜J˜—š 
œžœ
žœ3˜MJšœžœ=˜UJšžœ
žœ
žœ;žœ
˜Sšžœ˜šžœ
žœ(žœž˜8Jš
œG˜G—J˜—J˜J˜—š œžœ
žœ2˜KJšœžœ<˜SJšžœ	žœ
žœ:žœ
˜Qšžœ˜šžœ
žœ&žœž˜6Jš
œE˜E—J˜—J˜J˜—š œžœ
žœ4˜WJšœžœ>˜WJšžœžœ
žœ<žœ
˜Ušžœ˜šžœ
žœ*žœž˜:Jš
œI˜I—J˜—J˜J˜—š œžœ
žœ2žœ˜MJš
œ9™9Jš
œ˜Jš
œ˜Jšœ	žœ
˜Jš
œ&˜&Jšœžœ˜AJš	œ‘œ
Ÿœžœžœ)˜ƒ
Jš
œ(˜(Jš
œ!˜!Jš
œN˜NJš
œ-˜-Jš
œ,˜,Jš
œ&˜&Jš
œ ˜ Jš
œ=˜=Jšœ9žœ‘˜VJš
œ˜—J˜š œžœ
žœ
žœ
žœžœ
žœ,žœ˜ƒ
Lš
Ϡ
™†
Lšœžœ
˜0Lšœžœ
žœ&˜9Lš
œ˜Lšœžœ7˜SLšœžœG˜bLš
œ)˜)Lš
œ&˜&Lš
œ
˜
L˜šžœžœ
žœ-žœžœ
ž˜cJš
œ!˜!Jšžœžœ
žœ˜*šžœ
˜Jšžœ"žœ
žœ˜/šžœ˜Jšžœ4˜7šžœ"ž˜)Jš
œ˜Jš
œ˜—Jšžœ
˜J˜—Jš
œ3˜3J˜——Jšžœ
˜Lš
œ%˜%Lš
œ$˜$Lš
œ"˜"Lš
œ"˜"L˜L˜L˜—š œžœ
žœ žœžœžœ™mJšœ
žœ
™J™Jš
œ)™)Jšœ
žœ
™Jš
œ7™7Jš
œ/™/Jšœ*žœžœ™<šžœ
žœ	žœ™Jšœžœ™"Jš
œ™Jšœžœžœ™*Jš
œ™Jš
œ™—Jšœ‘™—š œžœ
žœ žœžœžœ™jJš
œ™Jšœ
žœ
™Jš
œ)™)Jšœ
žœ
™šœ‘œ4™=Jš
œ$™$Jšœžœ™"Jš
œ™Jšœžœžœ™*Jš
œ™Jšœ
žœ
™Jšžœ™
—Jšœ‘™J™—š œžœ
žœ
žœžœ6žœžœ˜
Jšœžœ
˜
š
œ˜Jš
œ.˜.Jšœ,žœžœ˜>—šžœ
žœžœ˜Jšœžœ˜"Jš
œ˜Jšœžœžœ˜*Jš
œ˜J˜—˜J˜——š 	œžœ
žœžœžœžœ˜hJšœžœ=˜QJš
œ6˜6Jšœ
žœ
˜Jšœžœ
˜Jšœ‘œ7˜CJšœ.žœžœ˜@šžœ
žœ	žœ˜Jš
œ˜Jš
œ˜Jšœžœžœ˜*Jš
œ˜—Jšœ‘˜—š
 
œžœ
žœžœžœ˜NJšœžœ'˜;Jš	œ
žœ
žœžœ
žœ˜+Jš
œ˜Jš
œ$˜$Jš
œ)˜)Jš
œ˜Jš
œ$˜$Jš
œ)˜)Jš
œ˜Jš
œ$˜$Jš
œ˜—J˜š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜zJšœžœ
˜0Jš
œ>˜>Jš
œ˜—š œžœ
žœ
žœžœ
žœ,žœ
 ˜}Jšœžœ
˜0Jš
œ<˜<Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœžœ
˜0Jš
œ;˜;Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœžœ
˜0Jš
œ;˜;Jš
œ˜—š 	œžœ
žœ
žœžœ
žœ,žœžœ˜yJšœžœ
˜0Jš
œ8˜8Jš
œ˜—š œžœ
žœ
žœžœ
žœ,žœžœ˜|Jšœžœ
˜0Jš
œ;˜;Jš
œ˜—L˜š 	œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜yJšœžœ
˜0Jš
œ:˜:Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜
Jšœžœ
˜0Jš
œ<˜<Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜}Jšœžœ
˜0Jš
œ8˜8Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜ƒ
Jšœžœ
˜0Jš
œ>˜>Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜ƒ
Jšœžœ
˜0Jš
œ>˜>Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜Jšœžœ
˜0Jš
œ:˜:Jš
œ˜J˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜Jšœžœ
˜0Jš
œ:˜:Jš
œ˜—Jš œžœ
žœ
žœ
žœžœ
žœ˜]šœžœžœ˜!Jšœžœ
˜0Jš
œ>˜>Jš
œ˜—Jš œžœ
žœ
žœ
žœžœ
žœ˜ašœžœžœ˜!Jšœžœ
˜0Jš
œB˜BJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜~Jšœžœ
˜0Jš
œ8˜8Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜zJšœžœ
˜0Jš
œ?˜?Jš
œ˜—š 
œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜|Jšœžœ
˜0Jš
œ@˜@Jš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜
Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜}Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ	žœ
žœžœ
žœ,žœžœ˜
Jšœžœ
˜0Jš
œ?˜?Jš
œ˜—J˜š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœžœ
˜0Jš
œ:˜:Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜{Jšœžœ
˜0Jš
œ@˜@Jš
œ˜—Jš œžœ
žœ
žœ
žœžœ
žœ˜bšœžœžœ˜!Jšœžœ
˜0Jš
œ@˜@Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜‚
Jšœžœ
˜0Jš
œ<˜<Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜{Jšœžœ
˜0Jš
œ;˜;Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜
Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜{Jšœžœ
˜0Jš
œ;˜;Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœ˜{Jšœžœ
˜0Jš
œD˜DJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœ˜}Jšœžœ
˜0Jš
œG˜GJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœ˜yJšœžœ
˜0Jš
œ@˜@Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœžœ
˜0Jš
œA˜AJš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜|Jšœžœ
˜0Jš
œ=˜=Jš
œ˜—J˜Jš œžœ
žœ
žœ
žœžœ
žœ˜_šœžœžœ˜!Jšœžœ
˜0Jš
œ>˜>Jš
œ˜—Jš œžœ
žœ
žœ
žœžœ
žœ˜bšœžœžœ˜!Jšœžœ
˜0Jš
œG˜GJš
œ˜J˜—J˜š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜Jšœžœ
˜0Jš
œ9˜9Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜ƒ
Jšœžœ
˜0Jš
œ=˜=Jš
œ˜—š œžœ
žœ
žœ
žœžœ
žœ,žœžœ˜€
Jšœžœ
˜0Jš
œ:˜:Jš
œ˜—J˜š œžœ
žœžœ˜Jš
œ˜—J˜š
œ˜J˜J˜—Jšžœ
˜—…—s4΅²