DIRECTORY
FS, GGBasicTypes, GGButtons, GGCircleCache, GGContainer, GGEditTool, SlackProcess, GGError, GGEvent, GGGraphicsButton, GGInterfaceTypes, GGMenus, GGModelTypes, GGMouseEvent, GGSegmentTypes, GGStatistics, GGSessionLog, GGUserInput, GGWindow, IO, Menus, PopUpSelection, Rope, Rules, TiogaMenuOps, VFonts, ViewerClasses, ViewerOps, ViewerTools;

GGMenusImpl: CEDAR PROGRAM
IMPORTS FS, GGButtons, GGCircleCache, GGEvent, SlackProcess, GGContainer, GGEditTool, GGError, GGGraphicsButton, GGMouseEvent, GGStatistics, GGSessionLog, GGUserInput, GGWindow, IO, Rope, PopUpSelection, Rules, TiogaMenuOps, VFonts, ViewerOps, ViewerTools
EXPORTS GGMenus = BEGIN

Caret: TYPE = REF CaretObj;
CaretObj: TYPE = GGInterfaceTypes.CaretObj;
ImagerProc: TYPE = GGInterfaceTypes.ImagerProc;
MouseButton: TYPE = Menus.MouseButton;
Outline: TYPE = GGModelTypes.Outline;
Point: TYPE = GGBasicTypes.Point;
Scene: TYPE =  REF SceneObj;
SceneObj: TYPE = GGModelTypes.SceneObj;
Segment: TYPE = GGSegmentTypes.Segment;
Sequence: TYPE = GGModelTypes.Sequence;
Traj: TYPE = GGModelTypes.Traj;
GargoyleData: TYPE = REF GargoyleDataObj;
GargoyleDataObj: TYPE = GGInterfaceTypes.GargoyleDataObj;
Viewer: TYPE = ViewerClasses.Viewer;

entryHeight: CARDINAL = 15; -- height of a line of items
entryVSpace: CARDINAL = 2; -- vertical leading between lines
entryHSpace: CARDINAL = 2; -- horizontal space between items on a line
column1: CARDINAL = 200; -- horizontal space between margin and column 1;
column2: CARDINAL = 250; -- horizontal space between margin and column 2.
column3: CARDINAL = 500; -- horizontal space between margin and column 3;
smallNumberSize: CARDINAL = 60;
pointSize: CARDINAL = 160;
boldFont: VFonts.Font; -- initialized in Init below;

PopUpMenuEntry: TYPE = RECORD [
name: Rope.ROPE,
input: LIST OF REF ANY
];

ExtractChoiceList: PROC [menu: LIST OF PopUpMenuEntry] RETURNS [choices: LIST OF Rope.ROPE] = {
pos: LIST OF Rope.ROPE;
newCell: LIST OF Rope.ROPE;
IF menu = NIL THEN ERROR;
choices _ CONS[menu.first.name, NIL];
pos _ choices;
FOR l: LIST OF PopUpMenuEntry _ menu.rest, l.rest UNTIL l = NIL DO
newCell _ CONS[l.first.name, NIL];
pos.rest _ newCell;
pos _ newCell;
ENDLOOP;
};

QueuePopUpMenuAction: PROC [label: Rope.ROPE, menu: LIST OF PopUpMenuEntry, gargoyleData: GargoyleData, onceOnly: BOOL _ TRUE] = {
index: NAT;
choices: LIST OF Rope.ROPE _ ExtractChoiceList[menu];
DO
index _ PopUpSelection.Request[header: label, choice: choices];
IF index < 0 THEN ERROR;
IF index = 0 THEN RETURN;
FOR entries: LIST OF PopUpMenuEntry _ menu, entries.rest UNTIL entries = NIL DO
IF index = 1 THEN {
GGUserInput.MenuNotify[gargoyleData, entries.first.input];
EXIT;
};
index _ index - 1;
REPEAT
FINISHED => ERROR;
ENDLOOP;
IF onceOnly THEN RETURN;
ENDLOOP;
};

BuildControlPanel: PUBLIC PROC [gargoyleData: GargoyleData, windowMenu: Menus.Menu] = {
BuildFileMenuLine[gargoyleData, windowMenu];
BuildMasterMenuLine[gargoyleData];
BuildStyleMenuLine[gargoyleData];
BuildGravityLine[gargoyleData];
BuildSlopeLine[gargoyleData];
BuildAngleLine[gargoyleData];
BuildRadiusLine[gargoyleData];
BuildDistanceLine[gargoyleData];
BuildMeasureLine[gargoyleData];
BuildFeedbackLine[gargoyleData];
AddARule[gargoyleData];
};

AddARule: PROC [gargoyleData: GargoyleData] = {
rule: Rules.Rule;

rule _ Rules.Create[[
parent: gargoyleData.outer,
wy: gargoyleData.height,
ww: gargoyleData.outer.cw,
wh: 2
]];
GGContainer.ChildXBound[gargoyleData.outer, rule];
gargoyleData.height _ gargoyleData.height + rule.wh + entryVSpace;
}; -- end of AddARule

fudgeX: INTEGER _ 2;
BuildFileMenuLine: PROC [gargoyleData: GargoyleData, windowMenu: Menus.Menu] = {
nextX: INTEGER _ GGButtons.BuildButtonLine [gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["Clear", button, LIST[$Clear], NIL, 0, FALSE, ConfirmClear],
["Restore", button, LIST[$Reset], NIL, 0, FALSE, ConfirmReset],
["Get", button, LIST[$Get], NIL, 0, FALSE, ConfirmGet], -- guarded in spite of Tioga viewers menus
["Merge", button, LIST[$Merge], NIL, 0, FALSE, ConfirmMerge],
["Store", button, LIST[$Store], NIL, 0, FALSE, ConfirmStore],
["Save", button, LIST[$Save]],
["Stuff", button, LIST[$Stuff], NIL, 0, FALSE, NIL, NIL, LIST[$StuffScreen]] -- KAP. 8/11/86
]];

nextX _ nextX+fudgeX;
nextX _ GGButtons.BuildUnQueuedButtonLine [gargoyleData.outer, nextX, gargoyleData.height, gargoyleData, LIST[
["Interpress", button, InterpressMenu, NIL, 0, FALSE, NIL, boldFont],
["Script", button, ScriptMenu, NIL, 0, FALSE, NIL, boldFont],
]];

gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildMasterMenuLine: PROC [gargoyleData: GargoyleData] = {
nextX: INTEGER _ GGButtons.BuildUnQueuedButtonLine [gargoyleData.outer, 0, gargoyleData.height, gargoyleData, LIST[
["Hierarchy", button, HierarchyMenu, NIL, 0, FALSE, NIL, boldFont],
["Transform", button, TransformMenu, NIL, 0, FALSE, NIL, boldFont],
["Overlap", button, OverlapMenu, NIL, 0, FALSE, NIL, boldFont],
["Curves", button, CurveTypeMenu, NIL, 0, FALSE, NIL, boldFont],
["Shapes", button, ShapesMenu, NIL, 0, FALSE, NIL, boldFont],
["Text", button, TextOpsMenu, NIL, 0, FALSE, NIL, boldFont],
["Groups", button, GroupOpsMenu, NIL, 0, FALSE, NIL, boldFont],
["Debug", button, DebugMenu, NIL, 0, FALSE, NIL, boldFont],
["Refresh!", button, RefreshButton],
["Revive!", button, ReviveButton],
["Help!", button, HelpMenu]
]];

gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildStyleMenuLine: PROC [gargoyleData: GargoyleData] = {
nextX: INTEGER _ GGButtons.BuildUnQueuedButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, LIST[
["Width", button, LineWidthMenu, NIL, 0, FALSE, NIL, boldFont],
["Color", button, LineColorMenu, NIL, 0, FALSE, NIL, boldFont],
["Fill", button, AreaColorMenu, NIL, 0, FALSE, NIL, boldFont],
["Select", button, AreaSelectMenu, NIL, 0, FALSE, NIL, boldFont],
["Edit", button, EditMenu, NIL, 0, FALSE, NIL, boldFont],
["HotSpots", button, HotSpotsMenu, NIL, 0, FALSE, NIL, boldFont],
["Units", button, UnitsMenu, NIL, 0, FALSE, NIL, boldFont]
]];

[gargoyleData.refresh.showColors, nextX] _ GGButtons.BuildTwoStateButton[viewer: gargoyleData.outer, x: nextX + entryHSpace, y: gargoyleData.height, clientData: gargoyleData, handleProc: GGUserInput.MenuNotify, name: "ShowColors", action: LIST[$ToggleShowColors], init: off];

gargoyleData.refresh.screenStyle _ GGButtons.BuildEnumTypeSelection[viewer: gargoyleData.outer, x: nextX + entryHSpace, y: gargoyleData.height, maxWidth: 144, clientData: gargoyleData, handleProc: GGUserInput.MenuNotify, title: "ScreenStyle:", default: "PrintFonts", borderOnButtons: TRUE, style: flipThru, allInOneRow: TRUE, buttonNames: LIST["PrintFonts", "ScreenFonts", "WYSIWYG"], atom: $ScreenChoiceChange];

gargoyleData.height _ gargoyleData.height + entryHeight + entryVSpace;
};

BuildGravityLine: PROC [gargoyleData: GargoyleData] = {
nextX: NAT _ 0;
gargoyleData.hitTest.gravityTypeMenu _ 
GGButtons.BuildEnumTypeSelection[viewer: gargoyleData.outer, x: 0, y: gargoyleData.height, maxWidth: 144,
clientData: gargoyleData,
handleProc: GGUserInput.MenuNotify,
title: "GravType:", default: "PreferPoints",
borderOnButtons: TRUE, style: flipThru, allInOneRow: TRUE,
buttonNames: LIST["StrictDistance", "PreferPoints"],
atom: $GravityChoiceChange];
gargoyleData.hitTest.gravityType _ innerCircle;

nextX _ gargoyleData.hitTest.gravityTypeMenu.nextx;
nextX _ GGButtons.BuildButtonLine[
gargoyleData.outer, nextX + entryHSpace, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["GravExtent:", label]]];

nextX _ GGGraphicsButton.BuildGraphicsButton[
viewer: gargoyleData.outer,
x: nextX + entryHSpace,
y: gargoyleData.height,
w: 60, -- changed from 72 to make more room in line
h: entryHeight,
name: "GravExtent",
atom: $GravityExtentChange,
initValue: GGEditTool.GetDefaultGravityExtent[],
clientData: gargoyleData];

[gargoyleData.hitTest.gravButton, nextX] _
GGButtons.BuildTwoStateButton[viewer: gargoyleData.outer, x: nextX + 2*entryHSpace, y: gargoyleData.height,
clientData: gargoyleData,
handleProc: GGUserInput.MenuNotify,
name: "Gravity",
action: LIST[$ToggleGravity],
init: on];

[gargoyleData.refresh.alignments, nextX] _
GGButtons.BuildTwoStateButton[viewer: gargoyleData.outer, x: nextX + entryHSpace, y: gargoyleData.height,
clientData: gargoyleData,
handleProc: GGUserInput.MenuNotify,
name: "Alignments",
action: LIST[$ToggleAlignments],
init: on];

[gargoyleData.hitTest.midpointButton, nextX] _
GGButtons.BuildTwoStateButton[viewer: gargoyleData.outer, x: nextX + entryHSpace, y: gargoyleData.height,
clientData: gargoyleData,
handleProc: GGUserInput.MenuNotify,
name: "Midpoints",
action: LIST[$ToggleMidpoints],
init: off];

[gargoyleData.hitTest.heuristicsButton, nextX] _
GGButtons.BuildTwoStateButton[viewer: gargoyleData.outer, x: nextX + entryHSpace, y: gargoyleData.height,
clientData: gargoyleData,
handleProc: GGUserInput.MenuNotify,
name: "Heuristics",
action: LIST[$ToggleHeuristics],
init: IF GGEditTool.GetDefaultHeuristics[] THEN on ELSE off];

gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildSlopeLine: PROC [gargoyleData: GargoyleData] = {
buttonHandle: GGButtons.ScalarButtonHandle;
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify,LIST[
["Slope:", button, LIST[$SlopePrompt]],
["Get!", button, LIST[$GetSlope]],
["Add!", button, LIST[$AddSlope]],
["Delete!", button, LIST[$DeleteSlope]]
]];
buttonHandle _ GGButtons.CreateScalarButtonViewer[gargoyleData.outer, nextX, gargoyleData.height];
gargoyleData.hitTest.slopeHeader _ buttonHandle;
GGEvent.StandardSlopes[LIST[$StandardSlopes], gargoyleData];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildAngleLine: PROC [gargoyleData: GargoyleData] = {
buttonHandle: GGButtons.ScalarButtonHandle;
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify,LIST[
["Angle:", button, LIST[$AnglePrompt]],
["Get!", button, LIST[$GetAngle]],
["Add!", button, LIST[$AddAngle]],
["Delete!", button, LIST[$DeleteAngle]]
]];
buttonHandle _ GGButtons.CreateScalarButtonViewer[gargoyleData.outer, nextX, gargoyleData.height];
gargoyleData.hitTest.angleHeader _ buttonHandle;
GGEvent.StandardAngles[LIST[$StandardAngles], gargoyleData];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildRadiusLine: PROC [gargoyleData: GargoyleData] = {
buttonHandle: GGButtons.ScalarButtonHandle;
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["Radius:", button, LIST[$RadiusPrompt]],
["Get!", button, LIST[$GetRadius]],
["Add!", button, LIST[$AddRadius]],
["Delete!", button, LIST[$DeleteRadius]]
]];
buttonHandle _ GGButtons.CreateScalarButtonViewer[gargoyleData.outer, nextX, gargoyleData.height];
gargoyleData.hitTest.radiusHeader _ buttonHandle;
GGEvent.StandardRadii[LIST[$StandardRadii], gargoyleData];
gargoyleData.hitTest.radiusCircleCache _ GGCircleCache.Create[];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildDistanceLine: PROC [gargoyleData: GargoyleData] = {
buttonHandle: GGButtons.ScalarButtonHandle;
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["LineDistance:", button, LIST[$DistancePrompt]],
["Get!", button, LIST[$GetDistance]],
["Add!", button, LIST[$AddDistance]],
["Delete!", button, LIST[$DeleteDistance]]
]];
buttonHandle _ GGButtons.CreateScalarButtonViewer[gargoyleData.outer, nextX, gargoyleData.height];
gargoyleData.hitTest.distanceHeader _ buttonHandle;
GGEvent.StandardDistances[LIST[$StandardDistances], gargoyleData];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildMeasureLine: PROC [gargoyleData: GargoyleData] = {
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["SlopeValue:", button, LIST[$MeasureSlopeHit]],
["0.0", text, NIL, SlopeViewInGGData, smallNumberSize],
["AngleValue:", button, LIST[$MeasureAngleHit]],
["0.0", text, NIL, AngleViewInGGData, smallNumberSize],
["RadiusValue:", button, LIST[$MeasureRadiusHit]],
["0.0", text, NIL, DistanceViewInGGData, smallNumberSize],
["LineDistanceValue:", button, LIST[$MeasureLineDistHit]],
["0.0", text, NIL, LineDistViewInGGData, smallNumberSize]
]];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

BuildFeedbackLine: PROC [gargoyleData: GargoyleData] = {
nextX: NAT _ GGButtons.BuildButtonLine[gargoyleData.outer, 0, gargoyleData.height, gargoyleData, GGUserInput.MenuNotify, LIST[
["Feedback . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Line", label, NIL, FeedbackLineInGGData, column3]
]];
gargoyleData.height _ gargoyleData.height + entryHeight;
};

Dummy: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
GGError.AppendHerald[gargoyleData.feedback, "Menu Level: This feature not yet implemented", oneLiner];
GGError.Blink[gargoyleData.feedback];
};


InterpressMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["MergeIPEditable", LIST [$MergeIPEditable]],
["MergeIPSlice", LIST [$MergeIPSlice]],
["ToIP", LIST [$ToIP]],
["ToIPScreen", LIST [$ToIPScreen]],
["IncludeIPByReference",  LIST[$IncludeIPByReference]],
["IncludeIPByValue", LIST[$IncludeIPByValue]],
["ShowIPIncludeMode", LIST[$ShowIPIncludeMode]]
];
QueuePopUpMenuAction["Interpress", menu, gargoyleData, mouseButton#blue];
};

ScriptMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry _ LIST [
["OpenScript", LIST [$ScriptAction, $Open]],
["CloseScript", LIST [$ScriptAction, $Close]],
["PlaybackScript", LIST [$ScriptAction, $Playback]],
["FastPlayScript", LIST [$ScriptAction, $FastPlay]]
];
choices: LIST OF Rope.ROPE _ ExtractChoiceList[menu];
index: NAT _ PopUpSelection.Request[header: "Script", choice: choices];
SELECT index FROM
<0 => ERROR;
=0 => RETURN;
=1 => OpenSessionLog[parent, clientData, mouseButton, shift, control];
=2 => CloseSessionLog[parent, clientData, mouseButton, shift, control];
=3 => PlaybackLog[parent, clientData, mouseButton, shift, control];
=4 => FastPlaybackLog[parent, clientData, mouseButton, shift, control];
ENDCASE => ERROR;
};

ConfirmClear: PROC [clientData: REF ANY] = {
gargoyleData: GargoyleData _ NARROW[clientData];
GGError.AppendHerald[gargoyleData.feedback, "Confirm deletion of all objects", oneLiner];
};

ConfirmReset: PROC [clientData: REF ANY] = {
gargoyleData: GargoyleData _ NARROW[clientData];
GGError.AppendHerald[gargoyleData.feedback, "Confirm reset to original file", oneLiner];
};

ConfirmGet: PROC [clientData: REF ANY] = {
gargoyleData: GargoyleData _ NARROW[clientData];
filename: Rope.ROPE _ ViewerTools.GetSelectionContents[];
GGError.AppendHerald[gargoyleData.feedback, Rope.Cat["Confirm getting of file ", filename, " to the current scene."], oneLiner];
};

ConfirmMerge: PROC [clientData: REF ANY] = {
gargoyleData: GargoyleData _ NARROW[clientData];
filename: Rope.ROPE _ ViewerTools.GetSelectionContents[];
GGError.AppendHerald[gargoyleData.feedback, Rope.Cat["Confirm addition of file ", filename, " to the current scene."], oneLiner];
};

ConfirmStore: PROC [clientData: REF ANY] = {
gargoyleData: GargoyleData _ NARROW[clientData];
fullName, msg: Rope.ROPE;
success, exists: BOOL;
[fullName, success] _ GetGargoyleFileName[gargoyleData];
IF NOT success THEN RETURN;
exists _ FileExists[fullName];
IF exists THEN msg _ IO.PutFR["Confirm Store of %g [Old File]", [rope[fullName]]]
ELSE msg _ IO.PutFR["Confirm Store to %g [New File]", [rope[fullName]]];
GGError.AppendHerald[gargoyleData.feedback, msg, oneLiner];
};

GetGargoyleFileName: PROC [gargoyleData: GargoyleData] RETURNS [fullName: Rope.ROPE _ NIL, success: BOOL _ TRUE] = {
cp: FS.ComponentPositions;
fileName: Rope.ROPE _ ViewerTools.GetSelectionContents[];
IF Rope.Length[fileName]=0 OR Rope.Equal[fileName, ""] THEN RETURN[NIL, FALSE];
[fullName, cp, ] _ FS.ExpandName[fileName, gargoyleData.currentWDir ! FS.Error => {
GGError.Append[gargoyleData.feedback, "   FS Error during name expansion", oneLiner];
GGError.Blink[gargoyleData.feedback];
success _ FALSE;
CONTINUE;
}
];
IF success AND cp.ext.length=0 THEN fullName _ Rope.Concat[fullName, ".gargoyle"]; -- add gargoyle extension
};

FileExists: PROC [fileName: Rope.ROPE] RETURNS [answer: BOOL] = {
answer _ TRUE;
[----, ----, ----, ----] _ FS.FileInfo[fileName
! FS.Error => {IF error.code = $unknownFile THEN {answer _ FALSE;  CONTINUE}
  ELSE ERROR}];
};
HierarchyMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Delete (DEL)", LIST [$Delete]],
["UnDelete", LIST [$Undelete]],
["AddHoles (^h)", LIST [$AddHoles]],
["UnionCombine", LIST [$UnionCombine]],
["DescribeSelected", LIST [$DescribeCurve, $Selected]]
];
QueuePopUpMenuAction["Hierarchy", menu, gargoyleData, mouseButton#blue];
};

TransformMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Rotate", LIST [$Rotate]],
["Scale", LIST [$Scale]],
["ScaleX", LIST [$ScaleX]],
["ScaleY", LIST [$ScaleY]],
["TranslateX", LIST [$TranslateX]],
["TranslateY", LIST [$TranslateY]],
["SixPoint", LIST [$SixPointTransform]],
["FourPoint", LIST [$FourPointTransform]]
];
QueuePopUpMenuAction["Transform", menu, gargoyleData, mouseButton#blue];
};

OverlapMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Top", LIST [$Top]],
["Bottom", LIST [$Bottom]],
["UpOne", LIST [$UpOne]],
["DownOne", LIST [$DownOne]]
];
QueuePopUpMenuAction["Overlap", menu, gargoyleData, mouseButton#blue];
};

ShapesMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Triangle", LIST [$PolygonInCircle, NEW[INT _ 3] ]],
["Square", LIST [$PolygonInCircle, NEW[INT _ 4] ]],
["Pentagon", LIST [$PolygonInCircle, NEW[INT _ 5] ]],
["Hexagon", LIST [$PolygonInCircle, NEW[INT _ 6] ]],
["Octagon", LIST [$PolygonInCircle, NEW[INT _ 8] ]],
["FromSelectedCount", LIST [$PolygonInCircle, NEW[INT _ -1] ]],
["Knotched Line", LIST [$KnotchedLine, NEW[REAL _ 4.0], NEW[INT _ 8]] ],
["Box", LIST [$NewBox, NEW[REAL _ 1.0] ]],
["Circle", LIST [$NewCircle, NEW[REAL _ 1.0] ]],
["Arrow", LIST [$NewArrow, NEW[REAL _ 0.5], NEW[REAL _ 0.125] ]],
["8.5 by 11", LIST [$Frame, NEW[REAL _ 8.5*72.0], NEW[REAL _ 11.0*72.0] ]],
["11 by 14", LIST [$Frame, NEW[REAL _ 11.0*72.0], NEW[REAL _ 14.0*72.0] ]],
["38 by 50.66 (Versatec)", LIST [$Frame, NEW[REAL _ 38.0*72.0], NEW[REAL _ 50.666667*72.0] ]],
["640 x 480", LIST [$Frame, NEW[REAL _ 640.0], NEW[REAL _ 480.0] ]],
["1024 x 768", LIST [$Frame, NEW[REAL _ 1024.0], NEW[REAL _ 768.0] ]]
];
QueuePopUpMenuAction["Shapes", menu, gargoyleData, mouseButton#blue];
};


DebugMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Typescript", LIST [$Typescript]],
["Draw Tight Boxes", LIST [$DrawTightBoxes]],
["Draw Bounding Boxes", LIST [$DrawBoundBoxes]],
["Draw Outline Boxes", LIST [$DrawOutlineBoxes]],
["Draw Selection Box", LIST [$DrawSelectionBox]],
["Draw Moving Box", LIST [$DrawMovingBox]],
["Test Gravity", LIST [$TestGravity]],
["ToIPTestGravity", LIST [$ToIPTestGravity]],
["Performance Stats", LIST [$Statistics]],
["Reset Stats", LIST [$ResetStatistics]],
["SlackLog", LIST [$SlackLog]],
["Describe Caret Object", LIST [$DescribeCaretObject]],
["FSM Info", LIST [$FSMInfo]],
["Print All Input", LIST [$PrintAllInput]],
["Reset All Input", LIST [$ResetAllInput]],
["CauseAnError", LIST [$CauseAnError]]
];
QueuePopUpMenuAction["Debug", menu, gargoyleData, mouseButton#blue];
};

HelpMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
openHeight: INTEGER _ 140;
help: ViewerClasses.Viewer;
name: Rope.ROPE _ "GGHelp.Tioga";
IF (help _ ViewerOps.FindViewer[FS.ExpandName[name, gargoyleData.originalWDir].fullFName])#NIL THEN { -- viewer already exists
IF help.column#right THEN ViewerOps.ChangeColumn[help, right];
}
ELSE {
help _ ViewerOps.CreateViewer[flavor: $Text, info: [iconic: TRUE, column: right, openHeight: openHeight], paint: FALSE];
TiogaMenuOps.Load[viewer: help, fileName: Rope.Concat[gargoyleData.originalWDir, "GGHelp.Tioga"]];
};
ViewerOps.SetOpenHeight[viewer: help, clientHeight: openHeight];
ViewerOps.OpenIcon[icon: help, bottom: FALSE, paint: FALSE]; -- must do Open before Top
ViewerOps.TopViewer[viewer: help, paint: FALSE];
ViewerOps.ComputeColumn[right]; -- repaint right column
};

RefreshButton: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, gargoyleData: gargoyleData, remake: triggerBag, backgndOK: FALSE, edited: FALSE, okToClearFeedback: TRUE]
};

AbortButton: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.aborted _ ALL[TRUE];
};

ReviveButton: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
GGMouseEvent.ResetMouseMachinery[gargoyleData];
GGStatistics.ResetTable[GGStatistics.GlobalTable[]];
SlackProcess.Restart[gargoyleData.slackHandle];
gargoyleData.refresh.suppressRefresh _ FALSE;
gargoyleData.aborted _ ALL[FALSE];
IF mouseButton#blue THEN GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, gargoyleData: gargoyleData, remake: triggerBag, backgndOK: FALSE, edited: FALSE, okToClearFeedback: TRUE]
};
LineWidthMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["0 pt (LOOK 0)", LIST[$LineWidth, NEW[REAL _ 0.0]]],
["1 pt (LOOK 1)", LIST[$LineWidth, NEW[REAL _ 1.0]]],
["2 pt (LOOK 2)" , LIST[$LineWidth, NEW[REAL _ 2.0]]],
["3 pt (LOOK 3)", LIST[$LineWidth, NEW[REAL _ 3.0]]],
["4 pt (LOOK 4)", LIST[$LineWidth, NEW[REAL _ 4.0]]],
["FromSelection", LIST[$LineWidth]],
["ShowValue", LIST[$PrintLineWidth]],
["FindMatching", LIST[$SelectMatchingWidth]]
];
QueuePopUpMenuAction["Line Width", menu, gargoyleData, mouseButton#blue];
};

LineColorMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["none", LIST[$LineColorNone]],
["black" , LIST[$LineColorBlack]],
["white", LIST[$LineColorWhite]],
["gray", LIST[$LineColorGray]],
["FromColorTool", LIST[$LineColorFromColorTool]],
["FollowColorTool", LIST[$LineColorFollowColorTool]],
["ToColorTool", LIST[$LineColorToColorTool]],
["FromSelectedName", LIST[$LineColorFromSelectedName]],
["FromSelectedRGB", LIST[$LineColorFromSelectedRGB]],
["ShowValue", LIST[$PrintLineColor]],
["FindMatchingName", LIST[$SelectMatchingLineCNS]],
["FindMatchingRGB", LIST[$SelectMatchingLineRGB]]
];
QueuePopUpMenuAction["Line Color", menu, gargoyleData, mouseButton#blue];
};

AreaColorMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["none", LIST[$AreaColorNone]],
["black" , LIST[$AreaColorBlack]],
["white", LIST[$AreaColorWhite]],
["gray", LIST[$AreaColorGray]],
["FromColorTool", LIST[$AreaColorFromColorTool]],
["FollowColorTool", LIST[$AreaColorFollowColorTool]],
["ToColorTool", LIST[$AreaColorToColorTool]],
["FromSelectedName", LIST[$AreaColorFromSelectedName]],
["FromSelectedRGB", LIST[$AreaColorFromSelectedRGB]],
["ShowValue", LIST[$PrintAreaColor]],
["FindMatchingName", LIST[$SelectMatchingAreaCNS]],
["FindMatchingRGB", LIST[$SelectMatchingAreaRGB]]
];
QueuePopUpMenuAction["Fill", menu, gargoyleData, mouseButton#blue];
};

ArrowsMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["none", LIST[$Arrows, NEW[INT _ 0]]],
["left/down", LIST[$Arrows, NEW[INT _ 1]]],
["right/up" , LIST[$Arrows, NEW[INT _ 2]]],
["both", LIST[$Arrows, NEW[INT _ 3]]]
];
QueuePopUpMenuAction["Arrows", menu, gargoyleData, mouseButton#blue];
};

AreaSelectMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["New", LIST [$AreaSelectNew]],
["NewWithDelete", LIST [$AreaSelectNewAndDelete]],
["Extend", LIST [$AreaSelectExtend]],
["All (^d)", LIST [$AreaSelectAll]],
["Degenerate", LIST [$AreaSelectDegenerate]]
];
QueuePopUpMenuAction["Area Select", menu, gargoyleData, mouseButton#blue];
};

TextOpsMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["AddText", LIST [$AddText]],
["FontNameFromSelection", LIST [$FontNameFromSelection]],
["ShowFontName", LIST [$PrintSelectedFontName]],
["FindTextMatchingFont", LIST[$SelectMatchingFont]],
["DefaultNameFromSelection", LIST [$DefaultNameFromSelection]],
["ShowDefaultFontName", LIST [$PrintDefaultFontName]],
["DropShadowOn 1 pt", LIST [$DropShadowOn, NEW[REAL _ -1.0], NEW[REAL _ -1.0]]],
["DropShadowOn 2 pt", LIST [$DropShadowOn, NEW[REAL _ -2.0], NEW[REAL _ -2.0]]],
["DropShadowOn 3 pt", LIST [$DropShadowOn, NEW[REAL _ -3.0], NEW[REAL _ -3.0]]],
["DropShadowOff", LIST [$DropShadowOff]],
["AmplifySpaceFromSelection", LIST [$AmplifySpaceFromSelection]],
["ShowAmplifySpace", LIST [$PrintAmplifySpace]]
];
QueuePopUpMenuAction["Text", menu, gargoyleData, mouseButton#blue];
};

GroupOpsMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["AddToGroup", LIST [$AddToGroup]],
["FindGroup", LIST [$SelectGroup]],
["RemoveFromGroup", LIST [$RemoveFromGroup]],
["PrintGroupsOfSelected", LIST [$PrintGroupsOfSelected]],
["PrintAllGroups", LIST [$PrintAllGroups]]
];
QueuePopUpMenuAction["Groups", menu, gargoyleData, mouseButton#blue];
};

CurveTypeMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Line (LOOK l)", LIST [$SetStraight]],
["Arc (LOOK a)", LIST [$SetArc]],
["Conic (LOOK c)", LIST [$SetConic]],
["Bezier (LOOK z)", LIST [$SetBezier]],
["B-Spline (LOOK b)", LIST [$SetBSpline]],
["Natural Spline (LOOK n)", LIST [$SetNaturalSpline]],
["FindMatching", LIST [$SelectMatchingCurve]]
];
QueuePopUpMenuAction["Curves", menu, gargoyleData, mouseButton#blue];
};

EditMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Close (^c)", LIST [$Close]],
["Weld (^w)", LIST [$Weld]],
["Add CP (^p)", LIST [$AddControlPoint]],
["Delete CP (^P)", LIST [$DeleteControlPoint]],
["Add Joint (^j)", LIST [$AddJoint]],
["ReplaceSegment", LIST [$SplitSegment]],
["Splice", LIST [$Splice]]
];
QueuePopUpMenuAction["Edit", menu, gargoyleData, mouseButton#blue];
};

OpenSessionLog: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
name: Rope.ROPE _ ViewerTools.GetSelectionContents[];
GGSessionLog.OpenSessionLog[name, gargoyleData];
[] _ SlackProcess.EnableSessionLogging[gargoyleData.slackHandle];
};

CloseSessionLog: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
[] _ SlackProcess.DisableSessionLogging[gargoyleData.slackHandle];
GGSessionLog.CloseSessionLog[gargoyleData];
};

PlaybackLog: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
name: Rope.ROPE _ ViewerTools.GetSelectionContents[];
GGSessionLog.PlaybackFromFile[name, gargoyleData];
};

FastPlaybackLog: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
name: Rope.ROPE _ ViewerTools.GetSelectionContents[];
GGUserInput.MenuNotify[gargoyleData, LIST[$DisableRefresh]];
GGSessionLog.PlaybackFromFile[name, gargoyleData];
GGUserInput.MenuNotify[gargoyleData, LIST[$EnableRefresh]];
GGUserInput.MenuNotify[gargoyleData, LIST[$Refresh, $DoNotClearFeedback]];
};
HotSpotsMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["Make Hot (^s)", LIST[$MakeHot]],
["Make All Hot (^ss)", LIST[$MakeAllHot]],
["Make Cold (^S)" , LIST[$MakeCold]],
["Make All Cold (^SS)" , LIST[$MakeAllCold]],
["Show Hot", LIST [$ShowHot]],
["Hide Hot", LIST [$HideHot]],
["Drop Anchor (^a)" , LIST[$DropAnchor]],
["Lift Anchor (^A)" , LIST[$LiftAnchor]],
["Standard Alignments" , LIST[$StandardAlignments]]
];
QueuePopUpMenuAction["Hot Spots", menu, gargoyleData, mouseButton#blue];
};

UnitsMenu: Menus.ClickProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
menu: LIST OF PopUpMenuEntry;
menu _ LIST [
["FromSegment", LIST[$RadiusUnitFromSegment]],
["FromRadiusValue", LIST[$RadiusUnitFromValue]],
["FromSelection", LIST[$RadiusUnitFromSelection]],
["Inches", LIST[$InchScaleUnit]],
["Centimeters", LIST[$CentimeterScaleUnit]],
["PrintCurrent", LIST[$PrintScaleUnit]]
];
QueuePopUpMenuAction["Units", menu, gargoyleData, mouseButton#blue];
};

Caret2InGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.measure.caret2_ button;
};

SlopeViewInGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.measure.slopeView _ button;
};

AngleViewInGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.measure.angleView _ button;
};

DistanceViewInGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.measure.radiusView _ button;
};

LineDistViewInGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.measure.lineDistView _ button;
};

FeedbackLineInGGData: GGButtons.UpdateProc = {
gargoyleData: GargoyleData _ NARROW[clientData];
gargoyleData.feedback _ button;
};

DistanceOfInterest: Menus.ClickProc = {
};

Init: PROC = {
boldFont _ VFonts.EstablishFont[family: "Helvetica", size: 10, bold: TRUE,
italic: FALSE, defaultOnFailure: TRUE];
};

Init[];

END.
FFile: GGMenusImpl.mesa
Author: Eric Bier on June 5, 1985 11:34:50 pm PDT
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Last edited by Bier on January 19, 1987 8:36:08 pm PST
Contents: Code to create a Gargoyle window.  Calls GGContainer to make the container and adds menus at the top.  The graphics part of the Gargoyle window is a new viewer of class $ActionArea.  The paint proc for a $ActionArea is defined herein.
Stone, July 15, 1985 11:39:29 am PDT
Pier, January 16, 1987 2:15:12 pm PST
Jcbeatty, March 10, 1986 8:17:31 pm PST
Kurlander August 24, 1986 1:02:25 pm PDT
nameSize: CARDINAL = 140;
numberSize: CARDINAL = 80;
bigNumberSize: CARDINAL = 160;
Non-destructive (copies the menu names).

Build All of the Control Panel Menus

Files: Clear, Reset, Get, Store, Save, Split, Interpress
["Split", button, LIST[$Split]],
Master:  Hierarchy  Curve  Transform  Overlap  EditCurve  View  Debug  Abort  Revive
["Abort!", button, AbortButton],
Style:  LineEnds  LineWidth  LineColor  Fill  TextAlign  Font
["Arrows", button, ArrowsMenu, NIL, 0, FALSE, NIL, boldFont],
File Line:
ClickProc: TYPE = PROC [parent: REF ANY, clientData: REF ANY _ NIL, 
mouseButton: MouseButton _ red, shift, control: BOOL _ FALSE];
QueuePopUpMenuAction["Script", menu, gargoyleData, mouseButton#blue];

Master Line:

["Extend Select (^v)", LIST [$ExtendSelect]],
["Undo (SHIFT-ESC)", LIST [$Undo]],
["Redo (ESC)", LIST [$Redo]],
["Cluster", LIST [$Cluster]],
["Un Cluster", LIST [$UnCluster]],
The first parameter is shaft length.  The second is barb length.  Both in inches.

Style Line:

["Drop Shadow From Selection", LIST [$DropShadowFromSelection]],


Alignment Line:


Distance Line:

gargoyleData.hitTest.slopeText _ button;
gargoyleData.hitTest.angleText _ button;
gargoyleData.hitTest.radiusText _ button;
gargoyleData.hitTest.distanceText _ button;
�Ê)˜Icodeš
œ™Kš
œ1™1Kšœ
Ïm
œ1™<Kš
œ6™6š
ϙ
™ô
K™$K™%K™'K™(—K˜š
Ïk	˜	Kšžœï
žœb˜ÕK˜—šÏnœžœ
ž˜Kšžœ
žœ¨
žœK˜ÿ
Kšžœž˜—˜Kšœžœžœ
˜Kšœ
žœ˜+Kšœžœ˜/Kšœ
žœ˜&Kšœ	žœ˜%Kšœžœ˜!Kšœžœžœ
˜Kšœ
žœ˜'Kšœ	žœ˜'Kšœ
žœ˜'Kšœžœ˜Kšœžœžœ˜)Kšœžœ$˜9Kšœžœ˜$K˜Kšœ
žœÏc˜8Kšœ
žœ !˜<Kšœ
žœ +˜FKšœ	žœ 0˜IKšœ	žœ 0˜IKšœ	žœ 0˜IKšœ
žœ™Kšœžœ™Kšœžœ™Kšœžœ˜Kšœžœ˜Kšœ ˜4K˜—šœžœžœ˜Kšœžœ
˜Kšœžœ
žœ
žœ
ž˜K˜K˜—šŸœžœžœ
žœžœžœ
žœžœ˜_Kšœžœ
žœžœ
˜Kšœ	žœ
žœžœ
˜Kš
œ(™(Kšžœžœ
žœ
žœ
˜Kšœ
žœžœ˜%Kš
œ˜šžœžœ
žœ$žœžœ
ž˜BKšœ
žœžœ˜"Kš
œ˜Kš
œ˜—Kšžœ
˜K˜K˜—šŸœžœžœžœ
žœ7žœžœ˜‚
Kšœžœ
˜Kšœ	žœ
žœžœ˜5š
ž˜Kš
œ?˜?Kšžœžœ
žœ
˜Kšžœžœ
žœ
˜šžœ
žœ
žœ%žœžœ
ž˜Ošžœžœ˜K˜:Kšžœ
˜K˜—K˜š
ž˜Kšžœžœ
˜—Kšžœ
˜—Kšžœ
žœ
žœ
˜Kšžœ
˜—K˜K˜—šŸœžœ
žœ9˜WKš
œ,˜,Kš
œ"˜"Kš
œ!˜!Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ ˜ Kš
œ˜Kš
œ ˜ Kš
œ˜K˜K˜—
procšŸœžœ!˜/Lš
œ˜L˜š
œ˜Lš
œ˜Lš
œ˜Lš
œ˜Lš
œ˜Lš
œ˜—Lš
œ2˜2Lš
œB˜BLš
œ˜L˜—Kšœžœ˜K™K™$K™šŸœžœ9˜PKš
œ8™8šœžœpžœ
˜ƒ
Kšœžœ
žœžœ˜=Kšœžœ
žœžœ˜?Kšœžœžœžœ *˜bKšœžœ
žœžœ˜=Kšœžœ
žœžœ˜=Kšœžœ	˜Kš
œ ™ Kšœžœ
žœžœžœžœžœ ˜\K˜—K˜K˜šœižœ
˜nKšœ'žœžœžœ˜EKšœžœžœžœ˜=K˜—K˜Kš
œ8˜8K˜K˜—šŸœžœ!˜:K™Tšœžœ`žœ
˜sKšœ%žœžœžœ˜CKšœ%žœžœžœ˜CKšœ!žœžœžœ˜?Kšœ"žœžœžœ˜@Kšœžœžœžœ˜=Kšœžœžœžœ˜<Kšœ!žœžœžœ˜?Kšœžœžœžœ˜;Kš
œ$˜$Kš
œ ™ Kš
œ"˜"Kš
œ˜K˜K˜—Kš
œ8˜8K˜K˜—šŸœžœ!˜9K™=šœžœ_žœ
˜rKšœ!žœžœžœ˜?Kšœ!žœžœžœ˜?Kšœžœžœžœ™=Kšœ žœžœžœ˜>Kšœ#žœžœžœ˜AKšœžœžœžœ˜9Kšœ#žœžœžœ˜AKšœžœžœžœ˜:K˜K˜—šœï
žœ ˜“K˜—šœœžœ žœžœE˜œK˜—Kš
œF˜FK˜K˜—šŸœžœ!˜7Kšœžœ˜Kš
œ'˜'š
œi˜iKš
œ˜K˜#Kš
œ,˜,Kšœžœ žœ
˜:Kšœ
žœ#˜4Kš
œ˜—Kš
œ/˜/K˜Kš
œ3˜3š
œ"˜"šœdžœ
˜iKšœÏb
œ
˜—K˜—š
œ-˜-Kš
œ˜Kš
œ˜Kš
œ˜Kšœ ,˜3Kš
œ˜K˜Kš
œ˜K˜0Kš
œ˜K˜—Kš
œ*˜*š
œk˜kKš
œ˜K˜#Kšœ¡œ˜Kšœžœ˜Kš
œ
˜
K˜—Kš
œ*˜*š
œi˜iKš
œ˜K˜#Kšœ¡
œ˜Kšœžœ˜ Kš
œ
˜
K˜—Kš
œ.˜.š
œi˜iKš
œ˜K˜#Kšœ¡	œ˜Kšœžœ˜Kš
œ˜K˜—Kš
œ0˜0š
œi˜iKš
œ˜K˜#Kšœ¡
œ˜Kšœžœ˜ Kšœžœ#žœžœ˜=K˜—Kš
œ8˜8K˜K˜—šŸœžœ!˜5Kš
œ+˜+šœžœnžœ
˜}Kšœžœ˜'Kšœžœ
˜"Kšœžœ
˜"Kšœžœ˜'K˜—Kš
œb˜bKš
œ0˜0Kšœžœ!˜<Kš
œ8˜8˜K˜——šŸœžœ!˜5Kš
œ+˜+šœžœnžœ
˜}Kšœžœ˜'Kšœžœ
˜"Kšœžœ
˜"Kšœžœ˜'K˜—Kš
œb˜bKš
œ0˜0Kšœžœ!˜<Kš
œ8˜8K˜K˜—šŸœžœ!˜6Kš
œ+˜+šœžœožœ
˜~Kšœžœ˜)Kšœžœ˜#Kšœžœ˜#Kšœžœ˜(K˜—Kš
œb˜bKš
œ1˜1Kšœžœ ˜:Kš
œ@˜@Kš
œ8˜8K˜K˜—šŸœžœ!˜8Kš
œ+˜+šœžœožœ
˜~Kšœžœ˜1Kšœžœ˜%Kšœžœ˜%Kšœžœ˜*K˜—Kš
œb˜bKš
œ3˜3Kšœžœ$˜BKš
œ8˜8K˜K˜—šŸœžœ!˜7šœžœožœ
˜~Kšœžœ˜0Kšœžœ&˜7Kšœžœ˜0Kšœžœ&˜7Kšœžœ˜2Kšœžœ)˜:Kšœžœ˜:Kšœžœ(˜9K˜—Kš
œ8˜8K˜K˜—šŸœžœ!˜8šœžœožœ
˜~Kšœ™
žœ ˜¼
K˜—Kš
œ8˜8K˜K˜—šÐbnœ˜Kšœžœ
˜0Kš
œf˜fKš
œ%˜%K˜—K˜K™
K˜š¢œ˜#Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜-Kšœžœ˜'Kšœ	žœ
˜Kšœžœ˜#Kšœžœ˜7Kšœžœ˜.Kšœžœ˜/K˜—Kš
œI˜IK˜K˜—š¢
œ˜Kšœžœžœ
žœ
žœžœ
žœžœ3žœžœ™ƒ
Kšœžœ
˜0šœžœ
žœžœ˜%Kšœžœ˜,Kšœžœ˜.Kšœžœ˜4Kšœžœ˜3K˜—Kš
œE™EKšœ	žœ
žœžœ˜5Kšœžœ=˜Gšžœž˜Kšœžœ
˜Kšœžœ
˜
Kšœ¢œ2˜FKšœ¢œ2˜GKšœ¢œ2˜CKšœ¢œ2˜GKšžœžœ
˜—K˜K˜—š¢œžœžœ
žœ˜,Kšœžœ
˜0Kš
œY˜YKš
œ˜K˜—š¢œžœžœ
žœ˜,Kšœžœ
˜0Kš
œX˜XKš
œ˜K˜—š¢
œžœžœ
žœ˜*Kšœžœ
˜0Kšœžœ&˜9Kš
œ€
˜€
Kš
œ˜K˜—š¢œžœžœ
žœ˜,Kšœžœ
˜0Kšœžœ&˜9Kš
œ�
˜�
Kš
œ˜K˜—šŸœžœžœ
žœ˜,Kšœžœ
˜0Kšœžœ
˜Kšœžœ
˜Kš
œ8˜8Kšžœ
žœ	žœ
žœ
˜Kš
œ˜Kšžœžœžœ:˜QKšžœžœ;˜HKš
œ;˜;Kš
œ˜K˜—šŸœžœžœžœžœžœžœ˜tKšœžœ˜Kšœžœ&˜9Kšžœžœžœ
žœ
žœžœ˜Ošœžœ1žœ˜SKš
œU˜UKš
œ%˜%Kšœ
žœ
˜Kšžœ
˜	K˜
Kš
œ˜—Kšžœ	žœžœ0 ˜lK˜K˜—š
Ÿ
œžœžœžœ
žœ˜AKšœ	žœ
˜šœ
 œ œ œ œžœ˜/Kšœžœžœžœžœžœ
˜LKšœžœ
žœ˜—Kš
œ˜—K™K™K™š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜!Kšœ
žœ˜Kšœžœ˜$Kšœžœ˜'Kšœžœ™-Kšœžœ
™#Kšœžœ
™Kšœžœ
™Kšœžœ™"Kšœžœ˜6K˜—Kš
œH˜HK˜K˜—š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜Kšœ
žœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜#Kšœžœ˜#Kšœ
žœ˜(Kšœžœ˜)K˜—Kš
œH˜HK˜K˜—š¢œ˜ Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ	˜Kšœžœ˜Kšœ
žœ˜Kšœžœ˜K˜—Kš
œF˜FK˜K˜—š¢
œ˜Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœ
žœžœ
žœ	˜5Kšœžœžœ
žœ	˜3Kšœ
žœžœ
žœ	˜5Kšœžœžœ
žœ	˜4Kšœžœžœ
žœ	˜4Kšœžœžœ
žœ
˜?Kšœžœžœ
žœ	žœ
žœ	˜HKšœžœžœ
žœ˜*Kšœžœžœ
žœ˜0šœ
žœ
žœ
žœ	žœ
žœ
˜AK™Q—Kšœžœ
žœ
žœžœ
žœ˜KKšœ
žœ
žœ
žœžœ
žœ˜KKšœžœ
žœ
žœžœ
žœ˜^Kšœžœ
žœ
žœžœ
žœ
˜DKšœžœ
žœ
žœžœ
žœ˜EK˜—Kš
œE˜EK˜K˜K˜—š¢	œ˜Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜#Kšœžœ˜-Kšœžœ˜0Kšœžœ˜1Kšœžœ˜1Kšœžœ˜+Kšœžœ˜&Kšœžœ˜-Kšœžœ˜*Kšœžœ˜)Kšœ
žœ˜Kšœžœ˜7Kšœ
žœ
˜Kšœžœ˜+Kšœžœ˜+Kšœžœ˜&K˜—Kš
œD˜DK˜K˜—š¢œ˜Kšœžœ
˜0Kšœžœ˜Kš
œ˜Kšœžœ˜!š	žœžœ9žœ
žœ ˜~Kšžœžœ%˜>K˜
—šžœ˜Kšœ<žœ1žœ˜xKš
œb˜bK˜—Kš
œ@˜@Kšœ'žœ	žœ ˜WKšœ)žœ˜0Kšœ  ˜7K˜K˜—š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœžœ
˜­
K˜K˜—š¢œ˜ Kšœžœ
˜0Kšœžœ
žœ˜!K˜K˜—š¢œ˜!Kšœžœ
˜0Kš
œ/˜/K˜4Kš
œ/˜/Kšœ'žœ
˜-Kšœžœ
žœ˜"Kš
žœžœ€
žœ
žœžœ
˜Æ
K˜—K™K™K™š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ
žœ
žœ
˜5Kšœžœ
žœ
žœ
˜5Kšœžœ
žœ
žœ
˜6Kšœžœ
žœ
žœ
˜5Kšœžœ
žœ
žœ
˜5Kšœžœ˜$Kšœžœ˜%Kšœžœ˜,K˜—Kš
œI˜IK˜K˜—š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœ	žœ˜Kšœžœ˜"Kšœ
žœ˜!Kšœ	žœ˜Kšœžœ˜1Kšœžœ˜5Kšœžœ˜-Kšœžœ˜7Kšœžœ˜5Kšœžœ˜%Kšœžœ˜3Kšœžœ˜1K˜—Kš
œI˜IK˜K˜—š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœ	žœ˜Kšœžœ˜"Kšœ
žœ˜!Kšœ	žœ˜Kšœžœ˜1Kšœžœ˜5Kšœžœ˜-Kšœžœ˜7Kšœžœ˜5Kšœžœ˜%Kšœžœ˜3Kšœžœ˜1K˜—Kš
œC˜CK˜K˜—š¢
œ˜Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœ	žœ
žœ
žœ˜&Kšœžœ
žœ
žœ˜+Kšœžœ
žœ
žœ˜+Kšœ	žœ
žœ
žœ˜%K˜—Kš
œE˜EK˜K˜—š¢œ˜#Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜Kšœžœ˜2Kšœžœ˜%Kšœ
žœ˜$Kšœžœ˜,K˜—Kš
œJ˜JK˜K˜—š¢œ˜ Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ
˜Kšœžœ˜9Kšœžœ˜0Kšœžœ˜4Kšœžœ˜?Kšœžœ˜6Kšœžœžœ
žœ
žœ
žœ˜PKšœžœžœ
žœ
žœ
žœ˜PKšœžœžœ
žœ
žœ
žœ˜PKšœžœ™@Kšœžœ˜)Kšœžœ˜AKšœžœ˜/K˜—Kš
œC˜CK˜K˜—š¢œ˜!Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜#Kšœžœ˜#Kšœžœ˜-Kšœžœ˜9Kšœžœ˜*K˜—Kš
œE˜EK˜K˜—š¢
œ˜"Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜'Kšœžœ˜!Kšœžœ˜%Kšœžœ˜'Kšœžœ˜*Kšœžœ˜6Kšœžœ˜-K˜—Kš
œE˜EK˜K˜—š¢œ˜Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜Kšœžœ
˜Kšœžœ˜)Kšœžœ˜/Kšœžœ˜%Kšœžœ˜)Kšœžœ˜K˜—Kš
œC˜CK˜K˜—š¢œ˜#Kšœžœ
˜0Kšœžœ&˜5Kš
œ0˜0Kš
œA˜AK˜K˜—š¢œ˜$Kšœžœ
˜0Kš
œB˜BKš
œ+˜+K˜K˜—š¢œ˜ Kšœžœ
˜0Kšœžœ&˜5Kš
œ2˜2K˜K˜—š¢œ˜$Kšœžœ
˜0Kšœžœ&˜5Kšœ%žœ˜<Kš
œ2˜2Kšœ%žœ˜;Kšœ%žœ!˜JK˜K™—K™K™K™š¢œ˜!Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜"Kšœžœ˜*Kšœžœ
˜%Kšœžœ˜-Kšœ
žœ
˜Kšœ
žœ
˜Kšœžœ˜)Kšœžœ˜)Kšœžœ˜3K˜—Kš
œH˜HK˜K˜—š¢	œ˜Kšœžœ
˜0Kšœžœ
žœ˜šœžœ˜
Kšœžœ˜.Kšœžœ˜0Kšœžœ˜2Kšœžœ˜!Kšœžœ˜,Kšœžœ˜'K˜—Kš
œD˜DK˜K˜—K™K™K™šŸœ˜(Kšœžœ
˜0Kš
œ$˜$K˜K˜—šŸœ˜+Kšœžœ
˜0Kš
œ(˜(Kš
œ(™(K˜K˜—šŸœ˜+Kšœžœ
˜0Kš
œ(˜(Kš
œ(™(K˜K˜—šŸœ˜.Kšœžœ
˜0Kš
œ)˜)Kš
œ)™)K˜K˜—šŸœ˜.Kšœžœ
˜0Kš
œ+˜+Kš
œ+™+K˜K˜—šŸœ˜.Kšœžœ
˜0Kš
œ˜K˜K˜—šŸœ˜'K˜K˜—šŸœžœ˜KšœEžœ
žœžœ˜rK˜K˜—Kš
œ˜K˜Kšžœ
˜—…—tæ›U