DIRECTORY
CoordSys, Feedback, FileNames, FS, Imager, IO, Labels, Matrix3d, Menus, PredefSweeps, Preprocess3d, Rope, SV2d, SV3d, SVArtwork, SVArtworkUser, SVEditUser, SVEditUserB, SVGraphics, SVHalfSpaces, SVInterfaceTypes, SVMappings, SVMatrix2d, SVModelTypes, SVPolygon2d, SVRayTypes, SVScene, SVSceneTypes, SVScratchpadUser, SVSelections, SVTransforms, SVViewersOnScene, SVViewerTools, SweepGeometry, TFI3d, TiogaMenuOps, ViewerClasses, ViewerTools;

SVEditUserImplE: CEDAR PROGRAM
IMPORTS Feedback, FileNames, FS, IO, Labels, PredefSweeps, Rope, SVArtwork, SVArtworkUser, SVEditUser, SVMappings, SVMatrix2d, SVScene, SVSelections, SVViewersOnScene, SVViewerTools, TFI3d, ViewerTools
EXPORTS SVEditUser, SVEditUserB =

BEGIN

Artwork: TYPE = SVModelTypes.Artwork;
Box: TYPE = SVModelTypes.Box;
Camera: TYPE = SVModelTypes.Camera;
Color: TYPE = Imager.Color;
CoordSystem: TYPE = SVModelTypes.CoordSystem;
EditToolData: TYPE = SVEditUser.EditToolData;
MasterObject: TYPE = SVSceneTypes.MasterObject;
MasterObjectList: TYPE = SVSceneTypes.MasterObjectList;
Material: TYPE = SVModelTypes.Material;
Matrix3by3: TYPE = SV2d.Matrix3by3;
MouseButton: TYPE = Menus.MouseButton;
OMap: TYPE = SVModelTypes.OMap;
Scene: TYPE = SVSceneTypes.Scene;
Selection: TYPE = SVInterfaceTypes.Selection;
SelectionGenerator: TYPE = SVInterfaceTypes.SelectionGenerator;
Slice: TYPE = SVSceneTypes.Slice;
SMap: TYPE = SVModelTypes.SMap;
SpaceFunction: TYPE = SVModelTypes.SpaceFunction;
SVData: TYPE = SVInterfaceTypes.SVData;
Tube: TYPE = SVModelTypes.Tube;
Viewer: TYPE = ViewerClasses.Viewer;

globalBoxOMapIndex: PUBLIC NAT _ 1;
globalBoxOMapCount: NAT = 2;
globalBoxOMapArray: PUBLIC ARRAY[1..globalBoxOMapCount] OF Rope.ROPE _ 
["Orthogonal", "Radial"];

BoxOCycle: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
globalBoxOMapIndex _ IF globalBoxOMapIndex = globalBoxOMapCount THEN 1 ELSE globalBoxOMapIndex + 1;
Labels.Set[editToolData.artworkSection.oMapLabel, globalBoxOMapArray[globalBoxOMapIndex]];
};

GetSimpleArtworkParameters: PRIVATE PROC [editToolData: EditToolData, scene: Scene] RETURNS [color: Color, success: BOOL, material: Material] = {
materialName: Rope.ROPE _ SVEditUser.globalMatArray[editToolData.artworkSection.materialValue];
partialSuccess: BOOL;

success _ TRUE;
[color, partialSuccess] _ SVViewerTools.GetColor[editToolData.artworkSection.rgb];
IF NOT partialSuccess THEN {
success _ FALSE;
Feedback.AppendRaw[$Solidviews, "Can't read your rgb color.", oneLiner];
Feedback.BlinkRaw[$Solidviews];
};
[material, partialSuccess] _ SVArtwork.RopeToMaterial[materialName];
IF NOT partialSuccess THEN {
success _ FALSE;
Feedback.AppendRaw[$Solidviews, Rope.Cat["Material ", materialName," not known."], oneLiner];
Feedback.BlinkRaw[$Solidviews];
RETURN;
};
};

Set3DArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
scene: Scene _ editToolData.sceneSection.currentScene;
color: Color;
threeDArtwork: Artwork;
material: Material;
success: BOOL;
x, y, z: REAL;
spaceFunction: SpaceFunction;
g: SelectionGenerator;
selectionsExist: BOOL;
arg: ATOM _ NARROW[event.rest.first];

IF arg=$Undo THEN {
Feedback.AppendRaw[$Solidviews, "Can't undo Set3DArtwork.", oneLiner]; Feedback.BlinkRaw[$Solidviews]; RETURN};
[color, success, material] _ GetSimpleArtworkParameters[editToolData, scene];
IF NOT success THEN RETURN;

[g, selectionsExist] _ SVSelections.GetSelectionGenerator[movee];
SVSelections.ComplainIfNot[selectionsExist];
IF NOT selectionsExist THEN RETURN;
FOR assembly: Slice _ SVSelections.NextSelectionCoincident[g], SVSelections.NextSelectionCoincident[g] UNTIL assembly = NIL DO
IF Rope.Equal[assembly.name, "background", FALSE] THEN {
Feedback.AppendRaw[$Solidviews, "Can't apply 3DArtwork to the background ... ignored", oneLiner];
Feedback.BlinkRaw[$Solidviews]; 
LOOP;
}; -- a special case to set background color
[x, y, z] _ SVViewerTools.GetThreeReals[editToolData.artworkSection.boxXYZ];
spaceFunction _ SVMappings.CreateFunction[[x, y, z]];
threeDArtwork _ SVArtwork.Create3DArtwork[assembly.coordSys, material, spaceFunction];
SVScene.SetArtworkAssembly[assembly, threeDArtwork, scene];
ENDLOOP;

SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
SVViewersOnScene.PaintSceneAllViewers[$PaintEntireScene, editToolData, scene];
};

GetFullPicname: PRIVATE PROC [editToolData: EditToolData] RETURNS [fullName: Rope.ROPE, success: BOOL] = {
wdir: Rope.ROPE _ editToolData.originalWorkingDirectory;
picName: Rope.ROPE _ ViewerTools.GetContents[editToolData.artworkSection.picName];
success _ TRUE;
[fullName,,] _ FS.ExpandName[picName, wdir
! FS.Error => IF error.group = user THEN {
success _ FALSE;
Feedback.AppendRaw[$Solidviews, error.explanation, oneLiner];
Feedback.BlinkRaw[$Solidviews];
CONTINUE;
}
];
};

SetColorArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
scene: Scene _ editToolData.sceneSection.currentScene;
color: Color;
colorArtwork: Artwork;
material: Material;
success: BOOL;
g: SelectionGenerator;
selectionsExist: BOOL;
arg: ATOM _ NARROW[event.rest.first];

IF arg=$Undo THEN {
Feedback.AppendRaw[$Solidviews, "Can't undo SetColorArtwork.", oneLiner]; Feedback.BlinkRaw[$Solidviews]; RETURN};
[color, success, material] _ GetSimpleArtworkParameters[editToolData, scene];
IF NOT success THEN RETURN;

[g, selectionsExist] _ SVSelections.GetSelectionGenerator[movee];
SVSelections.ComplainIfNot[selectionsExist];
IF NOT selectionsExist THEN RETURN;
FOR assembly: Slice _ SVSelections.NextSelectionCoincident[g], SVSelections.NextSelectionCoincident[g] UNTIL assembly = NIL DO
IF Rope.Equal[assembly.name, "background", FALSE] THEN {
scene.backgroundColor _ color;
LOOP;
}; -- a special case to set background color
colorArtwork _ SVArtwork.CreateColorArtwork[color, material];
SVScene.SetArtworkAssembly[assembly, colorArtwork, scene];
ENDLOOP;

SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
SVViewersOnScene.PaintSceneAllViewers[$PaintEntireScene, editToolData, scene];
};


SetTubeArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
scene: Scene _ editToolData.sceneSection.currentScene;
tubeHeight: REAL _ SVViewerTools.GetReal[editToolData.artworkSection.tubeHeight, 100];
tubeRadius: REAL _ SVViewerTools.GetReal[editToolData.artworkSection.tubeRadius, 50];
picName: Rope.ROPE;
resolution: REAL _ SVViewerTools.GetReal[editToolData.artworkSection.resolution, 72.0];
material: Material;
backgroundColor: Color;
tube: Tube;
isColor: BOOL;
mat: Matrix3by3;
artwork, oldArtwork: Artwork;
success: BOOL;
g: SelectionGenerator;
selectionsExist: BOOL;
lastAssembly: Slice;

[picName, success] _ GetFullPicname[editToolData];
IF NOT success THEN RETURN;
[backgroundColor, success, material] _ GetSimpleArtworkParameters[editToolData, scene];
IF NOT success THEN RETURN;

[g, selectionsExist] _ SVSelections.GetSelectionGenerator[movee];
SVSelections.ComplainIfNot[selectionsExist];
IF NOT selectionsExist THEN RETURN;
FOR assembly: Slice _ SVSelections.NextSelectionCoincident[g], SVSelections.NextSelectionCoincident[g] UNTIL assembly = NIL DO
IF Rope.Equal[assembly.name, "background", FALSE] THEN {
Feedback.AppendRaw[$Solidviews, "Can't put tube artwork in background.", oneLiner];
Feedback.BlinkRaw[$Solidviews];
RETURN;
};
tube _ SVMappings.CreateTube[tubeRadius, tubeHeight];

oldArtwork _ assembly.artwork;
IF oldArtwork = NIL THEN mat _ SVMatrix2d.Identity[]
ELSE {
IF ISTYPE[oldArtwork.surface, Tube] THEN mat _ oldArtwork.artWRTPad.mat
ELSE mat _ SVMatrix2d.Identity[];
};
isColor _  SVViewerTools.GetBool[editToolData.artworkSection.isColor];
artwork _ SVArtwork.CreateFileArtwork[coordSys: assembly.coordSys, material: material, surface: tube, oMap: tubeO, sMap: tubeS, filename: picName, isColor: isColor, background: backgroundColor, resolution: resolution, mat: mat
! SVArtwork.FileNotFound => {
Feedback.AppendRaw[$Solidviews, Rope.Cat["Sampled image ", picName, " not found."], oneLiner];
Feedback.BlinkRaw[$Solidviews];
GOTO FileProblem}
];

SVScene.SetArtworkAssembly[assembly, artwork, scene];
lastAssembly _ assembly;
REPEAT
FileProblem => NULL;
FINISHED => {
SVArtworkUser.SetArtwork[editToolData.artworkTool, artwork, scene.name, lastAssembly.name];
SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
};
ENDLOOP;
};

GetBoxOMap: PRIVATE PROC [viewer: Viewer] RETURNS [oMap: OMap] = {
mapRope: Rope.ROPE _ ViewerTools.GetContents[viewer];
SELECT TRUE FROM
Rope.Equal[mapRope, "Orthogonal", FALSE] => RETURN[orthogonal];
Rope.Equal[mapRope, "Radial", FALSE] => RETURN[radial];
ENDCASE => ERROR UnknownOMap;
};
UnknownOMap: ERROR = CODE;

SetBoxArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
scene: Scene _ editToolData.sceneSection.currentScene;
x, y, z: REAL;
picName: Rope.ROPE _ ViewerTools.GetContents[editToolData.artworkSection.picName];
resolution: REAL _ SVViewerTools.GetReal[editToolData.artworkSection.resolution, 72.0];
material: Material;
backgroundColor: Color;
box: Box;
isColor: BOOL;
oMap: OMap _ GetBoxOMap[editToolData.artworkSection.oMapLabel];
artwork: Artwork;
success: BOOL;
g: SelectionGenerator;
selectionsExist: BOOL;
oldAssembly: Slice;

[picName, success] _ GetFullPicname[editToolData];
IF NOT success THEN RETURN;
[backgroundColor, success, material] _ GetSimpleArtworkParameters[editToolData, scene];
IF NOT success THEN RETURN;

[x, y, z] _ SVViewerTools.GetThreeReals[editToolData.artworkSection.boxXYZ];
isColor _ SVViewerTools.GetBool[editToolData.artworkSection.isColor];

[g, selectionsExist] _ SVSelections.GetSelectionGenerator[movee];
SVSelections.ComplainIfNot[selectionsExist];
IF NOT selectionsExist THEN RETURN;
success _ TRUE;

FOR assembly: Slice _ SVSelections.NextSelectionCoincident[g], SVSelections.NextSelectionCoincident[g] UNTIL assembly = NIL DO
box _ SVMappings.CreateBox[x,y,z];
artwork _ SVArtwork.CreateFileArtwork[coordSys: assembly.coordSys, material: material, surface: box, oMap: oMap, sMap: unfoldedBox, filename: picName, isColor: isColor, background: backgroundColor, resolution: resolution
! SVArtwork.FileNotFound => {success _ FALSE; CONTINUE}];
IF NOT success THEN RETURN;

SVScene.SetArtworkAssembly[assembly, artwork, scene];
oldAssembly _ assembly;
REPEAT
FINISHED => {
SVArtworkUser.SetArtwork[editToolData.artworkTool, artwork, scene.name, oldAssembly.name];
SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
};
ENDLOOP;
};


GetArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
scene: Scene _ editToolData.sceneSection.currentScene;
assembly: Slice;
artwork: Artwork;
materialName: Rope.ROPE;

IF Rope.Equal[ViewerTools.GetContents[editToolData.sceneSection.source],
"background", FALSE] THEN {
ViewerTools.SetContents[editToolData.artworkSection.picName, NIL];
SVViewerTools.SetColor[editToolData.artworkSection.rgb, scene.backgroundColor];
RETURN}; -- a special case to get background color
assembly _ SVSelections.TopMoveeCoincident[];
IF assembly = NIL THEN RETURN;
artwork _ assembly.artwork;
ViewerTools.SetContents[editToolData.artworkSection.picName, FileNames.GetShortName[artwork.source]];
SVViewerTools.SetColor[editToolData.artworkSection.rgb, artwork.color];
materialName _ SVArtwork.MaterialToRope[artwork.material];
ViewerTools.SetContents[editToolData.artworkSection.material, materialName];
IF artwork.source = NIL THEN {
ViewerTools.SetContents[editToolData.artworkSection.isColor, NIL];
ViewerTools.SetContents[editToolData.artworkSection.resolution, NIL];
ViewerTools.SetContents[editToolData.artworkSection.tubeHeight, NIL];
ViewerTools.SetContents[editToolData.artworkSection.tubeRadius, NIL];
ViewerTools.SetContents[editToolData.artworkSection.boxXYZ, NIL];
}-- a pure color artwork.  Update color and material only. Blank out other info.
ELSE {-- a file artwork.  Display isColorFile, resolution, simple surface parameters and mapping types
SVViewerTools.SetBool[editToolData.artworkSection.isColor, artwork.isColorFile];
SVViewerTools.SetReal[editToolData.artworkSection.resolution, artwork.resolution];
WITH artwork.surface SELECT FROM
tube: SVMappings.Tube => {
SVViewerTools.SetReal[editToolData.artworkSection.tubeHeight, tube.H];
SVViewerTools.SetReal[editToolData.artworkSection.tubeRadius, tube.R];
};
box: SVMappings.Box => {
SVViewerTools.SetThreeReals[editToolData.artworkSection.boxXYZ, box.x, 2*box.halfY, box.z];
SELECT artwork.oMap FROM
orthogonal => {
globalBoxOMapIndex _ 1;
ViewerTools.SetContents[editToolData.artworkSection.oMapLabel, SVArtwork.OMapToRope[orthogonal]];
};
radial => {
globalBoxOMapIndex _ 2;
ViewerTools.SetContents[editToolData.artworkSection.oMapLabel, SVArtwork.OMapToRope[radial]];
};
ENDCASE => ERROR;
};
ENDCASE => ERROR;
};
SVArtworkUser.SetArtwork[editToolData.artworkTool, artwork, scene.name, assembly.name];
}; -- end of GetArtwork

RotateArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
degrees: REAL _ SVViewerTools.GetReal[editToolData.artworkTransformSection.degrees, 45];
SVArtworkUser.RotateArtwork[editToolData.artworkTool, degrees];
SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
};
NormalizeArtwork: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
SVArtworkUser.NormalizeArtwork[editToolData.artworkTool];
SVViewersOnScene.SceneNewVersion[editToolData.currentSVData];
};


RemakeMO: PROC [mo: MasterObject] = {
mo.class.update[mo, NIL];
};

LinesOfLongitude: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
thisMO: MasterObject;
linesOfLongRope: Rope.ROPE _ ViewerTools.GetSelectionContents[];
linesOfLongitude: NAT;
scene: Scene _ svData.scene;
IF Rope.Length[linesOfLongRope] = 0 THEN linesOfLongitude _ 4
ELSE linesOfLongitude _ TFI3d.ReadBlankAndNAT[IO.RIS[linesOfLongRope]];
PredefSweeps.SetLinesOfLongitude[linesOfLongitude];
FOR ol: MasterObjectList _ scene.masterObjects, ol.rest UNTIL ol = NIL DO
thisMO _ ol.first;
RemakeMO[thisMO];
ENDLOOP;
SVViewersOnScene.PaintSceneAllViewers[paintAction: $PaintEntireScene, editToolData: editToolData, scene: svData.scene];
};

LinesOfLatitude: PUBLIC PROC [event: LIST OF REF ANY, svData: SVData] = {
editToolData: EditToolData _ svData.editToolData;
thisMO: MasterObject;
linesOfLatRope: Rope.ROPE _ ViewerTools.GetSelectionContents[];
linesOfLatitude: NAT;
scene: Scene _ svData.scene;
IF Rope.Length[linesOfLatRope] = 0 THEN linesOfLatitude _ 4
ELSE linesOfLatitude _ TFI3d.ReadBlankAndNAT[IO.RIS[linesOfLatRope]];
PredefSweeps.SetLinesOfLatitude[linesOfLatitude];
FOR ol: MasterObjectList _ scene.masterObjects, ol.rest UNTIL ol = NIL DO
thisMO _ ol.first;
RemakeMO[thisMO];
ENDLOOP;
SVViewersOnScene.PaintSceneAllViewers[$PaintEntireScene, editToolData, svData.scene];
};

END.
File: SVEditUserImplE.mesa
Author: Eric Bier on June 14, 1985 5:49:18 pm PDT
Last edited by Bier on April 29, 1987 5:16:24 pm PDT
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Contents: All of the procedures called by SVEditTool when menus and buttons are pressed (part 5)
IMPORTED TYPES

GLOBAL VARIABLES
This is a horrible breach of information hiding, but I haven't the time.  I shouldn't be picking apart artwork records and CoordSystem2d's in the user interface.
End of horrible kludge.

Sets the artwork of all of assembly's leaf subassemblies.
Get the artwork of the currently named assembly.  Stuff this information into the artwork section and display the artwork.
Extra Menus
Update all of the master objects.
Update all of the master objects.

Κε˜Ihead1™J™1Jš
œ4™4Jšœ
Οm
œ1™<Jš
œ`™`J˜š
Οk	˜	Jšœ	ž
œžœ	žœŒ˜ΉJ˜—šœžœ
ž˜Jšžœžœžœ¦
˜Ι
Jšžœ˜"—Jš
ž˜J˜Jš
œ™Jšœ	žœ˜%Jšœžœ˜Jšœžœ˜#Jšœžœ˜Jšœ
žœ˜-Jšœžœ˜-Jšœžœ˜/Jšœžœ!˜7Jšœ
žœ˜'Jšœžœ˜#Jšœ
žœ˜&Jšœžœ˜Jšœžœ˜!Jšœžœ˜-Jšœžœ'˜?Jšœžœ˜!Jšœžœ˜Jšœžœ˜1Jšœžœ˜'Jšœžœ˜šœžœ˜$J˜—š
œ™Jšœžœ
žœ˜#Jšœžœ˜Jš	œžœ
žœžœžœ˜GJš
œ˜J˜—šΟn	œžœ
žœ	žœ
žœ
žœ
žœ˜CJš
œ1˜1Jšœžœ)žœžœ˜cJš
œZ˜ZJš
œ˜J˜—š
Ÿœžœ
žœ,žœžœ˜‘
JšœžœH˜_Jšœžœ
˜J˜Jšœ
žœ
˜Jšœ
ΟbœL˜Ršžœ
žœžœ˜Jš œžœ
˜Jš
œH˜HJš
œ˜J˜—Jšœ
 œ;˜Dšžœ
žœžœ˜Jš œžœ
˜Jš
œ]˜]Jš
œ˜Jšžœ
˜Jš
œ˜—J˜J˜—šŸœžœ
žœ	žœ
žœ
žœ
žœ˜FJš
œ1˜1Jš
œ6˜6Jš
œ
˜
Jš
œ˜Jš
œ˜Jšœ	žœ
˜Jšœ	žœ
˜J˜Jš
œ˜Jšœžœ
˜J˜%J˜˜Jšœgžœ˜o—Jšœ œ˜MJšžœ
žœ	žœ
žœ
˜J˜Jš
œA˜AJš
œ,˜,Jšžœ
žœžœ
žœ
˜#šžœdžœžœ
ž˜~šžœ)žœžœ˜8Jš
œa˜aJš
œ ˜ Jšžœ
˜JšœΟc)˜,—Jš
œL˜LJš
œ5˜5Jš 
œ
 œ-˜VJš
œ;˜;—Jšžœ
˜J˜Jš
œ=˜=Iprocš
œN˜NJš
œ˜J˜—šŸœžœ
žœžœžœžœ˜jJšœžœ)˜8Jšœžœ@˜RJšœ
žœ
˜šœžœ˜*šœžœ
žœžœ˜*Jšœ
žœ
˜Jš
œ=˜=Jš
œ˜Jšžœ
˜	J˜
—Jš
œ˜—J˜J˜—šŸœžœ
žœ	žœ
žœ
žœ
žœ˜IJš
œ1˜1Jš
œ6˜6Jš
œ
˜
Jš
œ˜Jš
œ˜Jšœ	žœ
˜Jš
œ˜Jšœžœ
˜J˜%J˜˜Jšœjžœ˜r—Jšœ œ˜MJšžœ
žœ	žœ
žœ
˜J˜Jš
œA˜AJš
œ,˜,Jšžœ
žœžœ
žœ
˜#šžœdžœžœ
ž˜~šžœ)žœžœ˜8Jš
œ˜Jšžœ
˜Jšœ‘)˜,—Jš œ1˜=Jš
œ:˜:—Jšžœ
˜J˜Jš
œ=˜=Lš
œN˜NJš
œ˜J˜—J˜šŸœžœ
žœ	žœ
žœ
žœ
žœ˜HJš
œ1˜1Jš
œ6˜6JšœžœF˜VJšœžœE˜UJšœžœ
˜JšœžœG˜WJš
œ˜Jš
œ˜Jš
œ˜Jšœ	žœ
˜J˜Jš
œ˜Jšœ	žœ
˜Jš
œ˜Jšœžœ
˜J˜J˜Jš
œ2˜2Jšžœ
žœ	žœ
žœ
˜Jš
œW˜WJšžœ
žœ	žœ
žœ
˜J˜Jš
œA˜AJš
œ,˜,Jšžœ
žœžœ
žœ
˜#šžœdžœžœ
ž˜~šžœ)žœžœ˜8Jš
œS˜SJš
œ˜Jš
ž˜Jš
œ˜—Jšœ 
œ˜5˜J™‘
—Jš
œ˜Jšžœžœ
žœ˜4šžœ˜Jšžœ
žœžœ˜GJšžœ˜!J˜J™J™—Jšœ= œ˜Fšœ œn œ?˜β
š
œ˜Jš
œ^˜^Jš
œ˜Jšžœ
˜—Jš
œ˜—J˜šœ œ˜5Jš
œ9™9—Jš
œ˜—š
ž˜Jšœžœ
˜šžœ˜
Jš
œ[˜[Jš
œ=˜=J˜——Jšžœ
˜Jš
œ˜J˜—šŸ
œžœ
žœžœ˜BJšœžœ#˜5šžœ
žœ
ž˜Jšœ"žœžœ
˜?Jšœžœžœ	˜7Jšžœžœ
˜—Jš
œ˜—Jšœ
žœžœ
˜J˜šŸ
œžœ
žœ	žœ
žœ
žœ
žœ˜GJš
œ1˜1Jš
œ6˜6Jšœ	žœ
˜Jšœžœ@˜RJšœžœG˜WJš
œ˜Jš
œ˜Jš
œ	˜	Jšœ	žœ
˜Jš
œ?˜?Jš
œ˜Jšœ	žœ
˜Jš
œ˜Jšœžœ
˜Jš
œ˜J˜Jš
œ2˜2Jšžœ
žœ	žœ
žœ
˜Jš
œW˜WJšžœ
žœ	žœ
žœ
˜J˜Jš
œL˜LJš œ>˜EJ˜Jš
œA˜AJš
œ,˜,Jšžœ
žœžœ
žœ
˜#Jšœ
žœ
˜J˜šžœdžœžœ
ž˜~Jšœ 	œ˜"šœ œr œ5˜ά
Jšœ'žœžœ˜9—Jšžœ
žœ	žœ
žœ
˜J˜Jšœ œ˜5Jš
œ˜—š
ž˜šžœ˜
Jš
œZ˜ZJš
œ=˜=J˜——Jšžœ
˜Jš
œ˜J˜J˜—šŸ
œžœ
žœ	žœ
žœ
žœ
žœ˜DJš
œz™zJš
œ1˜1Jš
œ6˜6Jš
œ˜Jš
œ˜Jšœžœ
˜J˜šžœF˜HJšœžœžœ˜Jšœ=žœ˜BJš
œO˜OJšΠbkœ‘)˜2—Jš
œ-˜-Jšžœžœ
žœ
žœ
˜Jš
œ˜Jš
œe˜eJšœ3 œ˜GJš
œ:˜:Jšœ4 œ˜Lšžœžœ
žœ˜Jšœ4 œžœ˜BJšœ4 
œžœ˜EJšœ4 
œžœ˜EJšœ4 
œžœ˜EJšœ4 œžœ˜AJšœ
‘O˜P—šžœ‘`˜fJšœ2 œ˜PJšœ2 
œ˜Ršžœžœ
ž˜ š
œ˜Jšœ2 
œž
œ˜FJšœ2 
œž
œ˜FJš
œ˜—š
œ˜Jš
œ[˜[Jšžœž˜š
œ˜Jš
œ˜Jš
œa˜aJ˜—˜Jš
œ˜Jš
œ]˜]J˜—Jšžœžœ
˜Jš
œ˜—Jšžœžœ
˜—Jš
œ˜—Jš
œW˜WJšœ‘˜J˜—šŸ
œžœ
žœ	žœ
žœ
žœ
žœ˜GJš
œ1˜1Jšœ	žœK˜XJš
œ?˜?Jš
œ=˜=Jš
œ˜—šŸœžœ
žœ	žœ
žœ
žœ
žœ˜JJš
œ1˜1Jš
œ9˜9Jš
œ=˜=Jš
œ˜J˜—J˜J™
codešŸœžœ˜%Mšœžœ˜M˜M˜—šŸœžœ	žœ
žœ
žœ
žœ˜JMšœ#ž
œž
˜1Lš
œ˜L•StartOfExpansion[]šœžœ&˜@Lšœžœ
˜Lš
œ˜Mšžœ"žœ˜=šžœ*žœ
žœ˜GLš
 !™!—Mš
œ3˜3šžœ5žœžœ
ž˜IJš
œ˜Jš
œ˜Jšžœ
˜—Lš
œw˜wMš
œ˜M˜—šŸœžœ	žœ
žœ
žœ
žœ˜IMšœ#ž
œž
˜1Lš
œ˜L–[]šœžœ&˜?Lšœžœ
˜Lš
œ˜Mšžœ!žœ˜;šžœ)žœ
žœ˜ELš
 !™!—Mš
œ1˜1šžœ5žœžœ
ž˜IJš
œ˜Jš
œ˜Jšžœ
˜—Lš
œU˜UMš
œ˜M˜—J™Jšžœ
˜—…—:τLα