DIRECTORY
Ascii, Atom, AtomButtons, BasicTime, --CombinePoly,-- CubicSplines, FS, GGAlign, GGBasicTypes, GGBoundBox, GGCaret, Feedback, GGEvent, GGFont, GGFromImager, GGGravity, GGInterface, GGInterfaceTypes, GGModelTypes, GGMultiGravity, GGScene, GGOutline, GGParseOut, GGRefresh, GGSegment, GGSegmentTypes, GGSelect, GGSequence, GGShapes, GGSlice, CodeTimer, --GGTouch,-- GGTraj, GGUtility, Vectors2d, GGWindow, Imager, ImagerInterpress, ImagerTransformation, Interpress, IO, MessageWindow, --PrincOpsUtils,-- RealFns, Random, Rope, Rosary, ViewerTools;

GGEventImplA: CEDAR PROGRAM
IMPORTS Atom, AtomButtons, BasicTime, --CombinePoly,-- FS, GGAlign, GGBoundBox, GGCaret, Feedback, GGEvent, GGFont, GGFromImager, GGGravity, GGInterface, GGMultiGravity, GGScene, GGOutline, GGParseOut, GGRefresh, GGSegment, GGSelect, GGSequence, GGShapes, GGSlice, CodeTimer, --GGTouch,-- GGTraj, GGUtility, Vectors2d, GGWindow, Imager, ImagerInterpress, ImagerTransformation, Interpress, IO, MessageWindow, --PrincOpsUtils,-- Random, RealFns, Rope, ViewerTools
EXPORTS GGEvent = BEGIN

BoundBox: TYPE = GGBoundBox.BoundBox;
Slice: TYPE = GGModelTypes.Slice;
SliceGenerator: TYPE = GGModelTypes.SliceGenerator;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
SliceDescriptorGenerator: TYPE = GGModelTypes.SliceDescriptorGenerator;
EntityGenerator: TYPE = GGModelTypes.EntityGenerator;
FeatureData: TYPE = GGInterfaceTypes.FeatureData;
GGData: TYPE = GGInterfaceTypes.GGData;
Joint: TYPE = GGModelTypes.Joint;
JointGenerator: TYPE = GGModelTypes.JointGenerator;
AlignBag: TYPE = GGGravity.AlignBag;
OutlineDescriptor: TYPE = GGModelTypes.OutlineDescriptor;
TriggerBag: TYPE = GGGravity.TriggerBag;
Outline: TYPE = GGModelTypes.Outline;
Point: TYPE = GGBasicTypes.Point;
Scene: TYPE = GGModelTypes.Scene;
Segment: TYPE = GGSegmentTypes.Segment;
SegAndIndex: TYPE = GGSequence.SegAndIndex;
Sequence: TYPE = GGModelTypes.Sequence;
SliceParts: TYPE = GGModelTypes.SliceParts;
Traj: TYPE = GGModelTypes.Traj;
TrajGenerator: TYPE = GGModelTypes.TrajGenerator;
SegmentGenerator: TYPE = GGModelTypes.SegmentGenerator;
SequenceGenerator: TYPE = GGModelTypes.SequenceGenerator;
Vector: TYPE = GGBasicTypes.Vector;
FontData: TYPE = GGFont.FontData;

NotYetImplemented: PUBLIC SIGNAL = CODE;

EnterEditingMode: PROC [ggData: GGData, refChar: REF CHAR] = {
IF refChar^=Ascii.BS THEN { -- try to enter editing of a single selected text slice
sliceDescGen: SliceDescriptorGenerator _  GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select a single text slice for editing", oneLiner];
Feedback.Blink[ggData.feedback];
RETURN;
};
GGSelect.DeselectSlice[slice: sliceDesc.slice, parts: sliceDesc.parts, scene: ggData.scene, selectClass: normal];
ggData.refresh.textInProgress _ sliceDesc.slice; -- successfully enter editing mode
GGWindow.RestoreScreenAndInvariants[paintAction: $SelectionChanged, ggData: ggData, remake: none, backgndOK: TRUE, edited: FALSE, okToClearFeedback: TRUE];
}
ELSE {
slice: Slice _ ggData.refresh.textInProgress _ NewTextSlice[text: Rope.FromChar[refChar^], ggData: ggData]; -- start a new text slice
IF slice=NIL THEN RETURN; -- can't start a string with whitespace
ggData.refresh.startBoundBox^ _ slice.boundBox^;
ggData.refresh.addedObject _ slice;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectAdded, ggData: ggData, remake: sceneBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};
}; -- end EnterEditingMode

AddChar: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
slice: Slice;
obBox: BoundBox;
refChar: REF CHAR;
IF NARROW[event.first, ATOM]#$AddChar THEN ERROR;
refChar _ NARROW[event.rest.first];
IF ggData.refresh.textInProgress=NIL THEN {
GGCaret.NoAttractor[ggData.caret]; -- so the feedback goes away.
EnterEditingMode[ggData, refChar];
RETURN;
}
ELSE { -- add to textInProgress
CodeTimer.StartInt[$AddChar, $Gargoyle];
slice _ ggData.refresh.textInProgress;
obBox _ GGBoundBox.CopyBoundBox[slice.boundBox]; -- remember old bound box for now
IF refChar^=Ascii.BS THEN {
GGSlice.BackspaceText[slice: slice];
ggData.refresh.startBoundBox^ _ slice.boundBox^; -- bBox was updated by GGSlice
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: obBox];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: sceneBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
}
ELSE {
GGSlice.AppendText[slice: slice, text: Rope.FromChar[refChar^] ];
ggData.refresh.startBoundBox^ _ slice.boundBox^; -- boundBox was updated by GGSlice
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: obBox];
ggData.refresh.addedObject _ slice;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectAdded, ggData: ggData, remake: none, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};
CodeTimer.StopInt[$AddChar, $Gargoyle];
};
}; -- end AddChar

NewTextSlice: PRIVATE PROC [text: Rope.ROPE, ggData: GGData, selectIt: BOOL _ FALSE] RETURNS [slice: Slice] = {
caretPos: Point _ GGCaret.GetPoint[ggData.caret];
success: BOOL _ FALSE;
fontData: FontData _ GGFont.CopyFontData[ggData.defaults.font];
slice _ GGSlice.MakeTextSlice[text];
fontData.transform _ ImagerTransformation.TranslateTo[fontData.transform, caretPos];
success _ GGSlice.SetTextFontAndTransform[slice, fontData, ggData.feedback];
IF NOT success THEN ERROR;
GGScene.AddSlice[ggData.scene, slice, -1];
ggData.refresh.startBoundBox^ _ slice.boundBox^;
GGSelect.DeselectAll[ggData.scene, normal]; -- speeds up text entry
ggData.refresh.addedObject _ slice;
IF selectIt THEN GGSelect.SelectEntireSlice[slice, ggData.scene, normal];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectAdded, ggData: ggData, remake: sceneBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

AddText: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
text: Rope.ROPE _ IF event.rest = NIL THEN ViewerTools.GetSelectionContents[] ELSE NARROW[event.rest.first];
slice: Slice _ NewTextSlice[text, ggData, TRUE];
};

AmplifySpaceFromSelection: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
amplifySpace: REAL _ NARROW[event.rest.first, REF REAL]^;
slices: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[slices], GGSelect.NextSliceDescriptor[slices] UNTIL sliceD=NIL DO
GGSlice.SetTextAmplifySpace[sliceD.slice, amplifySpace, ggData.feedback];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE]; -- GGSlice.SetTextAmplifySpace can post error messages
}; -- end AmplifySpaceFromSelection

PrintAmplifySpace: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select the single text slice whose amplify space need", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE Feedback.PutF[ggData.feedback, oneLiner, "Amplify space: %g", [real[GGSlice.GetTextAmplifySpace[sliceDesc.slice]]]];

};

DropShadowOn: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
offsetX: REAL _ NARROW[event.rest.first, REF REAL]^;
offsetY: REAL _ NARROW[event.rest.rest.first, REF REAL]^;
slices: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[slices], GGSelect.NextSliceDescriptor[slices] UNTIL sliceD=NIL DO
GGSlice.DropShadowOn[sliceD.slice, [offsetX, offsetY]];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

DropShadowOff: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
slices: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[slices], GGSelect.NextSliceDescriptor[slices] UNTIL sliceD=NIL DO
GGSlice.DropShadowOff[sliceD.slice];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

SetFontAux: PROC [clientData: REF ANY, fontData: FontData, andTransform: BOOL _ FALSE] = {
ggData: GGData _ NARROW[clientData];
lastSliceD: SliceDescriptor _ NIL;
slices: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[slices], GGSelect.NextSliceDescriptor[slices] UNTIL sliceD=NIL DO
[] _ IF andTransform THEN GGSlice.SetTextFontAndTransform[sliceD.slice, fontData, ggData.feedback] ELSE GGSlice.SetTextFont[sliceD.slice, fontData, ggData.feedback];
lastSliceD _ sliceD;
ENDLOOP;
IF lastSliceD#NIL THEN Feedback.PutF[ggData.feedback, oneLiner, "Set to Font: %g", [rope[GGSlice.GetFontDataRope[lastSliceD.slice]]] ];
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
};

SetPressFont: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
errorRope: Rope.ROPE;
BEGIN
inStream: IO.STREAM _ IO.RIS[NARROW[event.rest.first]]; -- "Cream-BI 12"
fontData: FontData _ GGFont.CreateFontData[];
fontData.prefix _ "xerox/pressfonts/"; -- default prefix for SetPressFont
fontData _ GGFont.ParseFontData[data: fontData, inStream: inStream, familyP: TRUE, faceP: TRUE, scaleP: TRUE ! GGFont.ParseError => {errorRope _ explanation; GOTO ParseError;};]; -- family, face, scale
SetFontAux[clientData, fontData];
EXITS
ParseError => {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, errorRope, oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

SetPrintFont: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
errorRope: Rope.ROPE;
BEGIN
inStream: IO.STREAM _ IO.RIS[NARROW[event.rest.first]]; -- "Modern-BI 12"
fontData: FontData _ GGFont.CreateFontData[];
fontData.prefix _ "xerox/xc1-2-2/"; -- default prefix for SetPrintFont
fontData _ GGFont.ParseFontData[data: fontData, inStream: inStream, familyP: TRUE, faceP: TRUE, scaleP: TRUE ! GGFont.ParseError => {errorRope _ explanation; GOTO ParseError;};]; -- family, face, scale
SetFontAux[clientData, fontData];
EXITS
ParseError => {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, errorRope, oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

SetScreenFont: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
errorRope: Rope.ROPE;
BEGIN
inStream: IO.STREAM _ IO.RIS[NARROW[event.rest.first]]; -- "Cream-BI 12"
fontData: FontData _ GGFont.CreateFontData[];
fontData.prefix _ "xerox/tiogafonts/"; -- default prefix for SetScreenFont
fontData _ GGFont.ParseFontData[data: fontData, inStream: inStream, familyP: TRUE, faceP: TRUE, scaleP: TRUE ! GGFont.ParseError => {errorRope _ explanation; GOTO ParseError;};]; -- family, face, scale
SetFontAux[clientData, fontData];
EXITS
ParseError => {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, errorRope, oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

SetFontDetailed: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
errorRope: Rope.ROPE;
BEGIN
inStream: IO.STREAM _ IO.RIS[NARROW[event.rest.first]];
fontData: FontData _ GGFont.CreateFontData[];
fontData _ GGFont.ParseFontData[data: fontData, inStream: inStream, prefixP: TRUE, familyP: TRUE, faceP: TRUE, transformP: TRUE ! GGFont.ParseError => {errorRope _ explanation; GOTO ParseError;};]; -- prefix, family, face, transform
SetFontAux[clientData, fontData];
EXITS
ParseError => {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, errorRope, oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

SetFontLiteral: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
errorRope: Rope.ROPE;
BEGIN
inStream: IO.STREAM _ IO.RIS[NARROW[event.rest.first]];
fontData: FontData _ GGFont.CreateFontData[];
fontData _ GGFont.ParseFontData[data: fontData, inStream: inStream, literalP: TRUE, transformP: TRUE, storedSizeP: TRUE, designSizeP: TRUE ! GGFont.ParseError => {errorRope _ explanation; GOTO ParseError;};]; -- literal name, transform, storedSize, designSize
SetFontAux[clientData, fontData];
EXITS
ParseError => {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, errorRope, oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

ShowFontValues: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
fontRope: Rope.ROPE _ NIL;
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceDesc=NIL DO
IF sliceDesc.slice.class.type#$Text THEN LOOP;
IF fontRope=NIL THEN fontRope _ GGSlice.GetFontDataRope[sliceDesc.slice];
IF Rope.Equal[fontRope, GGSlice.GetFontDataRope[sliceDesc.slice], FALSE] THEN LOOP;
Feedback.AppendHerald[ggData.feedback, "Multiple fonts in selected text slices", oneLiner];
Feedback.Blink[ggData.feedback];
RETURN;
ENDLOOP;
Feedback.PutF[ggData.feedback, oneLiner, "Font Values: %g", [rope[IF fontRope#NIL THEN fontRope ELSE "No text slices selected"]] ];
};

ShowFontValuesLiteral: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
fontRope: Rope.ROPE _ NIL;
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceDesc=NIL DO
IF sliceDesc.slice.class.type#$Text THEN LOOP;
IF fontRope=NIL THEN fontRope _ GGSlice.GetFontLiteralDataRope[sliceDesc.slice];
IF Rope.Equal[fontRope, GGSlice.GetFontLiteralDataRope[sliceDesc.slice], FALSE] THEN LOOP;
Feedback.AppendHerald[ggData.feedback, "Multiple fonts in selected text slices", oneLiner];
Feedback.Blink[ggData.feedback];
RETURN;
ENDLOOP;
Feedback.PutF[ggData.feedback, oneLiner, "Font Values: %g", [rope[IF fontRope#NIL THEN fontRope ELSE "No text slices selected"]] ];
};

CopyFont: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY]  = {
ggData: GGData _ NARROW[clientData];
lastDesc: SliceDescriptor;
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD=NIL DO
lastDesc _ sliceD; -- find the LAST selected slice
ENDLOOP;
BEGIN
IF lastDesc=NIL OR lastDesc.slice.class.type#$Text THEN GOTO BadLastSlice
ELSE {
saveTransform: ImagerTransformation.Transformation;
oldData, copyData: FontData;
alikeRope: Rope.ROPE _ GGSlice.GetFontDataRope[lastDesc.slice];
alikeData: FontData _ GGSlice.GetFontData[lastDesc.slice];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD=NIL DO
IF sliceD.slice.class.type#$Text THEN LOOP;
oldData _ GGSlice.GetFontData[sliceD.slice];
saveTransform _ oldData.transform; -- shouldn't need to copy transformation
copyData _ GGFont.CopyFontData[data: alikeData, oldCopy: oldData]; -- reuse storage existing inside slice. CLOBBERS oldData^ !!
copyData.transform _ saveTransform;
[] _ GGSlice.SetTextFontAndTransform[sliceD.slice, copyData, ggData.feedback];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
Feedback.PutFHerald[ggData.feedback, oneLiner, "Text slices with font %g selected", [rope[alikeRope]] ];
};
EXITS
BadLastSlice => {
Feedback.AppendHerald[ggData.feedback, "Select a final text slice for Copy Font", oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

CopyAll: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY]  = {
ggData: GGData _ NARROW[clientData];
lastDesc: SliceDescriptor;
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD=NIL DO
lastDesc _ sliceD; -- find the LAST selected slice
ENDLOOP;
BEGIN
IF lastDesc=NIL OR lastDesc.slice.class.type#$Text THEN GOTO BadLastSlice
ELSE {
oldTVec: ImagerTransformation.VEC;
oldData, copyData: FontData;
alikeRope: Rope.ROPE _ GGSlice.GetFontDataRope[lastDesc.slice];
alikeData: FontData _ GGSlice.GetFontData[lastDesc.slice];
ggData.refresh.startBoundBox^ _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal]^; -- remember original bound box
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD=NIL DO
IF sliceD.slice.class.type#$Text THEN LOOP;
oldData _ GGSlice.GetFontData[sliceD.slice];
oldTVec _ ImagerTransformation.Factor[oldData.transform].t;
copyData _ GGFont.CopyFontData[data: alikeData, oldCopy: oldData]; -- reuse storage existing inside slice. CLOBBERS oldData^ !!
copyData.transform _ ImagerTransformation.TranslateTo[copyData.transform, oldTVec];
[] _ GGSlice.SetTextFontAndTransform[sliceD.slice, copyData, ggData.feedback];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: ggData.refresh.startBoundBox, by: GGBoundBox.BoundBoxOfSelected[ggData.scene, normal] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
Feedback.PutFHerald[ggData.feedback, oneLiner, "Text slices with font %g selected", [rope[alikeRope]] ];
};
EXITS
BadLastSlice => {
Feedback.AppendHerald[ggData.feedback, "Select a final text slice for Copy Literal", oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
};

MatchAll: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select a single text slice for matching", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE { -- select all the text slices with matching fontData
fontData: FontData _ GGSlice.GetFontData[sliceDesc.slice];
SelectMatchingData[fontData, ggData];
};
};

MatchSelectedName: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
matchRope: Rope.ROPE _ NARROW[event.rest.first];
IF Rope.Equal[matchRope, ""] THEN {
Feedback.AppendHerald[ggData.feedback, "Select substring for font matching", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE SelectMatching[matchRope, ggData, $userFSF];
};

MatchSelectedNameLiteral: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
matchRope: Rope.ROPE _ NARROW[event.rest.first];
IF Rope.Equal[matchRope, ""] THEN {
Feedback.AppendHerald[ggData.feedback, "Select substring for literal matching", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE SelectMatching[matchRope, ggData, $literal];
};

SetDefaultFontValues: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select a single text slice for default font setting", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE {
ggData.defaults.font _ GGFont.CopyFontData[GGSlice.GetFontData[sliceDesc.slice]];
Feedback.PutF[ggData.feedback, oneLiner, "New Default Font: %g", [rope[GGSlice.GetFontDataRope[sliceDesc.slice]]] ];
};
};

ShowDefaultFontValues: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
scratch: IO.STREAM _ IO.ROS[];
defaultFontData: FontData _ ggData.defaults.font;
GGParseOut.WriteFactoredTransformationVEC[scratch, defaultFontData.transform];
Feedback.PutF[ggData.feedback, oneLiner, "Default Font Values: %g %g %g %g", [rope[defaultFontData.literal]], [rope[IO.RopeFromROS[scratch]]], [real[defaultFontData.storedSize]], [real[defaultFontData.designSize]] ];
};

SelectMatching: PROC [matchRope: Rope.ROPE, ggData: GGData, op: ATOM] = {
sliceGen: SliceGenerator _ GGScene.SlicesInScene[ggData.scene];
GGSelect.DeselectAll[ggData.scene, normal];
FOR slice: Slice _ GGScene.NextSlice[sliceGen], GGScene.NextSlice[sliceGen] UNTIL slice=NIL DO
nextData: FontData _ GGSlice.GetFontData[slice];
IF nextData#NIL AND Rope.Find[s1: IF op=$userFSF THEN nextData.userFSF ELSE nextData.literal, s2: matchRope, pos1: 0, case: FALSE]#-1 THEN GGSelect.SelectSlice[sliceD: slice.class.newParts[slice, NIL, topLevel], scene: ggData.scene, selectClass: normal];
ENDLOOP;
Feedback.PutFHerald[ggData.feedback, oneLiner, "Text slices with fonts matching %g selected", [rope[matchRope]] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $SelectionChanged, ggData: ggData, remake: none, backgndOK: TRUE, edited: FALSE, okToClearFeedback: FALSE];
};

SelectMatchingData: PROC [fontData: FontData, ggData: GGData] = {
maxPixels: REAL _ 10000.0;
sliceGen: SliceGenerator _ GGScene.SlicesInScene[ggData.scene];
GGSelect.DeselectAll[ggData.scene, normal];
FOR slice: Slice _ GGScene.NextSlice[sliceGen], GGScene.NextSlice[sliceGen] UNTIL slice=NIL DO
nextData: FontData _ GGSlice.GetFontData[slice];
IF nextData#NIL AND Rope.Equal[fontData.literal, nextData.literal, FALSE] AND  RealFns.AlmostEqual[fontData.storedSize, nextData.storedSize, -9] AND ImagerTransformation.CloseToTranslation[fontData.transform, nextData.transform, maxPixels]  THEN GGSelect.SelectSlice[sliceD: slice.class.newParts[slice, NIL, topLevel], scene: ggData.scene, selectClass: normal];
ENDLOOP;
Feedback.PutFHerald[ggData.feedback, oneLiner, "Text slices with font %g selected", [rope[fontData.literal]] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $SelectionChanged, ggData: ggData, remake: none, backgndOK: TRUE, edited: FALSE, okToClearFeedback: FALSE];
};

ReadIP: PROC [ipName: Rope.ROPE, clientData: REF ANY, opName: Rope.ROPE] RETURNS [scene: Scene _ NIL] = {
ShowWarnings: Interpress.LogProc = {
Feedback.Append[ggData.feedback, explanation, oneLiner];
};
ReadMaster: PROC [context: Imager.Context] = {
Imager.ScaleT[context, 2834.646]; -- pointsPerMeter=2834.646
Interpress.DoPage[master: ipmaster, page: 1, context: context, log: ShowWarnings];
};
ggData: GGData _ NARROW[clientData];
ipmaster: Interpress.Master _ NIL;
fullName: Rope.ROPE;
startTime, endTime: BasicTime.GMT;
totalTime: INT;
success: BOOL _ FALSE;

[fullName, success] _ GGUtility.GetInterpressFileName[ipName, ggData.currentWDir, ggData.feedback];
IF NOT success THEN RETURN;
[ipmaster, success] _ GGUtility.OpenInterpressOrComplain[ggData.feedback, fullName];
IF NOT success THEN RETURN;

Feedback.PutF[ggData.feedback, begin, "%g %g . . . ", [rope[opName]], [rope[fullName]]];
startTime _ BasicTime.Now[];
scene _ GGFromImager.Capture[action: ReadMaster !
GGFromImager.WarningMessage => {
Feedback.Append[ggData.feedback, message, oneLiner];
RESUME;
};
];
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
Feedback.PutF[ggData.feedback, end, " Done in time (%r)", [integer[totalTime]]];
};

MergeIPEditable: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
ipName: Rope.ROPE _ NARROW[event.rest.first];
scene: Scene _ ReadIP[ipName, clientData, "MergeIPEditable"];
IF scene = NIL THEN RETURN;
GGSelect.DeselectAll[ggData.scene, normal];
GGSelect.SelectAll[scene, normal];
ggData.scene _ GGScene.MergeScenes[back: ggData.scene, front: scene];
GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
};

MergeIPSlice: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
slice: Slice;
ggData: GGData _ NARROW[clientData];
shortName, fullName: Rope.ROPE;
startTime, endTime: BasicTime.GMT;
totalTime: INT;
ipMaster: Interpress.Master;
success: BOOL;

shortName _ NARROW[event.rest.first];
[fullName, success] _ GGUtility.GetInterpressFileName[shortName, ggData.currentWDir, ggData.feedback];
IF NOT success THEN RETURN;
[ipMaster, success] _ GGUtility.OpenInterpressOrComplain[ggData.feedback, fullName];
IF NOT success THEN RETURN;
GGSelect.DeselectAll[ggData.scene, normal];

Feedback.PutF[ggData.feedback, begin, "MergeIPSlice %g . . . ", [rope[fullName]]];
startTime _ BasicTime.Now[];

slice _ GGSlice.MakeIPSliceFromMaster[ipMaster, 2834.646, fullName, ggData.feedback, NIL, NIL, FALSE];
IF slice = NIL THEN RETURN;
GGScene.AddSlice[ggData.scene, slice, -1];

endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
Feedback.PutF[ggData.feedback, end, " Done in time (%r)", [integer[totalTime]]];

GGSelect.SelectEntireSlice[slice, ggData.scene, normal];
ggData.refresh.startBoundBox^ _ slice.boundBox^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: sceneBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];

}; -- end MergeIPSlice

IncludeIPByReference: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: GGSelect.SliceDescriptorGenerator;
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: GGSelect.SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD = NIL DO
IF sliceD.slice.class.type = $IP THEN GGSlice.SetIncludeByValue[sliceD.slice, FALSE];
ENDLOOP;
};

IncludeIPByValue: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: GGSelect.SliceDescriptorGenerator;
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: GGSelect.SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD = NIL DO
IF sliceD.slice.class.type = $IP THEN GGSlice.SetIncludeByValue[sliceD.slice, TRUE];
ENDLOOP;
};

ShowIPIncludeMode: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
sliceDescGen: GGSelect.SliceDescriptorGenerator;
includeByValue: BOOL;
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: GGSelect.SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD = NIL DO
IF sliceD.slice.class.type = $IP THEN {
includeByValue _ GGSlice.GetIncludeByValue[sliceD.slice];
IF includeByValue THEN Feedback.Append[ggData.feedback, "include by value", oneLiner]
ELSE Feedback.Append[ggData.feedback, "include by reference", oneLiner];
RETURN;
};
ENDLOOP;
Feedback.Append[ggData.feedback, "ShowIPIncludeMode: No IP Slices selected", oneLiner];
Feedback.Blink[ggData.feedback];
};

ToIPAux: PROC [ggData: GGData, ipName: Rope.ROPE, actionAtom: ATOM, makeInterpress: PROC [dc: Imager.Context]] = {
ipRef: ImagerInterpress.Ref;
fullName: Rope.ROPE;
success: BOOL;
startTime: BasicTime.GMT;
endTime: BasicTime.GMT;
totalTime: INT;
msgRope: Rope.ROPE;

[fullName, success] _ GGUtility.GetInterpressFileName[ipName, ggData.currentWDir, ggData.feedback];
IF NOT success THEN RETURN;
ipRef _ ImagerInterpress.Create[fullName];
[fullName] _ FS.FileInfo[fullName]; -- append the version number
msgRope _ IO.PutFR["%g %g . . . ", [rope[Atom.GetPName[actionAtom]]], [rope[fullName]]];
Feedback.Append[ggData.feedback, msgRope, begin];
startTime _ BasicTime.Now[];
ImagerInterpress.DoPage[ipRef, makeInterpress, 1.0];
ImagerInterpress.Close[ipRef];
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
msgRope _ IO.PutFR[" Done in time (%r)", [integer[totalTime]]];
Feedback.Append[ggData.feedback, msgRope, end];
GGEvent.SawTextFinish[ggData, NIL];
};

ToIP: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
DoMakeInterpress: PROC [dc: Imager.Context] = {
tempQuality: GGInterfaceTypes.QualityMode;
tempStyle: GGInterfaceTypes.DisplayStyle;
pixelsPerMeter: REAL = 0.0254/72.0;
tempQuality _ ggData.camera.quality;
ggData.camera.quality _ quality;
tempStyle _ ggData.camera.displayStyle;
ggData.camera.displayStyle _ print;
Imager.ScaleT[dc, pixelsPerMeter];
GGRefresh.InterpressEntireScene[dc, ggData];
ggData.camera.quality _ tempQuality;
ggData.camera.displayStyle _ tempStyle;
};
ggData: GGData _ NARROW[clientData];
ipName: Rope.ROPE _ NARROW[event.rest.first];
ToIPAux[ggData, ipName, NARROW[event.first], DoMakeInterpress];
};

ToIPTestGravity: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
DoMakeInterpress: PROC [dc: Imager.Context] = {
tempQuality: GGInterfaceTypes.QualityMode;
tempStyle: GGInterfaceTypes.DisplayStyle;
pixelsPerMeter: REAL = 0.0254/72.0;
tempQuality _ ggData.camera.quality;
ggData.camera.quality _ quality;
tempStyle _ ggData.camera.displayStyle;
ggData.camera.displayStyle _ print;
Imager.ScaleT[dc, pixelsPerMeter];
TestGravity2[dc, ggData];
ggData.camera.quality _ tempQuality;
ggData.camera.displayStyle _ tempStyle;
};
ggData: GGData _ NARROW[clientData];
ipName: Rope.ROPE _ NARROW[event.rest.first];
ToIPAux[ggData, ipName, NARROW[event.first], DoMakeInterpress];
};

ToIPScreen: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
DoMakeInterpress: PROC [dc: Imager.Context] = {
tempQuality: GGInterfaceTypes.QualityMode;
tempStyle: GGInterfaceTypes.DisplayStyle;
pixelsPerMeter: REAL = 0.0254/72.0;
tempQuality _ ggData.camera.quality;
ggData.camera.quality _ quality;

tempStyle _ ggData.camera.displayStyle;
ggData.camera.displayStyle _ screen;

Imager.ScaleT[dc, pixelsPerMeter];
GGRefresh.InterpressEntireScene[dc, ggData];

ggData.camera.quality _ tempQuality;
ggData.camera.displayStyle _ tempStyle;
};
ggData: GGData _ NARROW[clientData];
ipName: Rope.ROPE _ NARROW[event.rest.first];
ToIPAux[ggData, ipName, NARROW[event.first], DoMakeInterpress];
};

ToIPLit: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
DoMakeInterpress: PROC [dc: Imager.Context] = {
switched: BOOL _ FALSE;
tempQuality _ ggData.camera.quality;
ggData.camera.quality _ showall;
tempStyle _ ggData.camera.displayStyle;
ggData.camera.displayStyle _ print;
IF AtomButtons.GetButtonState[ggData.refresh.showColors] = off THEN { GGEvent.ToggleShowColors[ggData, NIL];
switched _ TRUE;
};
Imager.ScaleT[dc, pixelsPerMeter];
GGRefresh.PaintEntireScene[dc, ggData, TRUE];
ggData.camera.quality _ tempQuality;
ggData.camera.displayStyle _ tempStyle;
IF switched THEN GGEvent.ToggleShowColors[ggData, NIL];
};
ggData: GGData _ NARROW[clientData];
ipRef: ImagerInterpress.Ref;
fullName: Rope.ROPE;
success: BOOL;
pixelsPerMeter: REAL = 0.0254/72.0;
startTime: BasicTime.GMT;
endTime: BasicTime.GMT;
totalTime: INT;
msgRope: Rope.ROPE;
tempQuality: GGInterfaceTypes.QualityMode;
tempStyle: GGInterfaceTypes.DisplayStyle;
ipName: Rope.ROPE _ "litshot.ip";

[fullName, success] _ GGUtility.GetInterpressFileName[ipName, ggData.currentWDir, ggData.feedback];
IF NOT success THEN RETURN;
ipRef _ ImagerInterpress.Create[fullName];
msgRope _ IO.PutFR["Writing to IP file: %g . . . ", [rope[fullName]]];
Feedback.Append[ggData.feedback, msgRope, begin];
startTime _ BasicTime.Now[];
ImagerInterpress.DoPage[ipRef, DoMakeInterpress, 1.0];
ImagerInterpress.Close[ipRef];
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
msgRope _ IO.PutFR[" Done in time (%r)", [integer[totalTime]]];
Feedback.Append[ggData.feedback, msgRope, end];
GGEvent.SawTextFinish[ggData, NIL];
};

TestGravity2: PUBLIC PROC [dc: Imager.Context, ggData: GGData] = {
xRandomStream, yRandomStream: Random.RandomStream;
testPoint: Point;
x, y: INT;
totalCount, multiHitCount, uniHitCount, diffCount: NAT _ 0;
uniPoint, multiPoint: Point;
uniFeature, multiFeature: FeatureData;
currentObjects: AlignBag;
sceneObjects: TriggerBag;
xRandomStream _ Random.Create[ggData.actionArea.cw];
yRandomStream _ Random.Create[ggData.actionArea.ch];
GGAlign.SetStaticBags[ggData];
ggData.aborted[gravitytest] _ FALSE;  -- in case there was one left over from prior abort
UNTIL totalCount > 1000 DO
IF ggData.aborted[gravitytest] THEN {
ggData.aborted[gravitytest] _ FALSE;
EXIT;
};
x _ Random.NextInt[xRandomStream];
y _ Random.NextInt[yRandomStream];
testPoint _ [x, y];
testPoint _ GGWindow.ViewerToWorld[viewerPoint: testPoint, ggData: ggData];
ggData.refresh.spotPoint _ testPoint;
currentObjects _ ggData.hitTest.alignBag;
sceneObjects _ ggData.hitTest.sceneBag;
[uniPoint, uniFeature] _ GGGravity.UniMap[testPoint, ggData.hitTest.tolerance, currentObjects, sceneObjects, ggData, TRUE];
[multiPoint, multiFeature] _ GGMultiGravity.Map[testPoint, ggData.hitTest.tolerance, currentObjects, sceneObjects, ggData, TRUE];
IF uniFeature = NIL AND multiFeature = NIL THEN {
PaintSpot[dc, ggData];
totalCount _ totalCount + 1;
LOOP;
};
IF uniFeature = NIL OR multiFeature = NIL OR uniFeature # multiFeature OR uniFeature.type # multiFeature.type OR uniPoint # multiPoint THEN {
ReportResultsAndPaint2[dc, testPoint, uniPoint, uniFeature, multiPoint, multiFeature, ggData];
totalCount _ totalCount + 1;
diffCount _ diffCount + 1;
IF multiFeature # NIL THEN multiHitCount _ multiHitCount + 1;
IF uniFeature # NIL THEN uniHitCount _ uniHitCount + 1;
}
ELSE {
multiHitCount _ multiHitCount + 1;
uniHitCount _ uniHitCount + 1;
totalCount _ totalCount + 1;
ggData.refresh.hitPoint _ multiPoint;
PaintHitLine[dc, ggData];
};
ENDLOOP;
Feedback.PutF[ggData.feedback, oneLiner, "Tested %g total points.  %g unihits.  %g multihits.  %g differences", [integer[totalCount]], [integer[uniHitCount]], [integer[multiHitCount]], [integer[diffCount]]];
}; -- end TestGravity2

PaintSpot: PROC [screen: Imager.Context, ggData: GGData] = {
Imager.SetColor[screen, Imager.black];
GGShapes.DrawSpot[screen, ggData.refresh.spotPoint];
};

PaintOddHitLine: PROC [screen: Imager.Context, ggData: GGData] = {
Imager.SetColor[screen, Imager.black];
Imager.SetStrokeEnd[screen, round];
Imager.MaskVector[screen, [ggData.refresh.spotPoint.x, ggData.refresh.spotPoint.y], [ggData.refresh.hitPoint.x, ggData.refresh.hitPoint.y]];
GGShapes.DrawCP[screen, ggData.refresh.spotPoint];
};

PaintHitLine: PROC [screen: Imager.Context, ggData: GGData] = {
Imager.SetColor[screen, Imager.black];
Imager.SetStrokeEnd[screen, round];
Imager.MaskVector[screen, [ggData.refresh.spotPoint.x, ggData.refresh.spotPoint.y], [ggData.refresh.hitPoint.x, ggData.refresh.hitPoint.y]];
GGShapes.DrawFilledRect[screen, ggData.refresh.spotPoint, 3.0];
};

ReportResultsAndPaint2: PROC [dc: Imager.Context, testPoint: Point, uniPoint: Point, uniFeature: FeatureData, multiPoint: Point, multiFeature: FeatureData, ggData: GGData] = {
IF uniFeature = NIL THEN {
ggData.refresh.hitPoint _ multiPoint;
}
ELSE IF multiFeature = NIL THEN {
ggData.refresh.hitPoint _ uniPoint;
}
ELSE IF uniFeature # multiFeature THEN {
ggData.refresh.hitPoint _ multiPoint;
}
ELSE IF uniFeature.type # multiFeature.type THEN {
ggData.refresh.hitPoint _ multiPoint;
}
ELSE IF uniPoint # multiPoint THEN {
ggData.refresh.hitPoint _ uniPoint;
PaintOddHitLine[dc, ggData];
ggData.refresh.hitPoint _ multiPoint;
}
ELSE ERROR;
PaintOddHitLine[dc, ggData];
};


UnionCombine: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
Feedback.AppendHerald[ggData.feedback, "UnionCombine not implemented", oneLiner];
Feedback.Blink[ggData.feedback];
}; -- end UnionCombine

AddHoles: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
seqGen: SequenceGenerator _ GGSelect.SelectedSequences[ggData.scene, normal];
fenceSeq, firstHoleSeq: Sequence;
fence, hole: Traj;
outline: Outline;
bBox: BoundBox _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal];
fenceSeq _ GGSequence.NextSequence[seqGen];
IF fenceSeq = NIL OR fenceSeq.traj.role#fence THEN {
Feedback.AppendHerald[ggData.feedback, "Select a closed trajectory to add holes to.", oneLiner];
GOTO Abort;
};
fence _ fenceSeq.traj;
outline _ GGOutline.OutlineOfTraj[fence];
firstHoleSeq _ GGSequence.NextSequence[seqGen];
IF firstHoleSeq = NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Extend your selection to some closed trajectories to make holes.", oneLiner];
GOTO Abort;
};
FOR holeSeq: Sequence _ firstHoleSeq, GGSequence.NextSequence[seqGen] UNTIL holeSeq = NIL DO
hole _ holeSeq.traj;
IF NOT GGTraj.OnlyChild[hole] THEN LOOP;
IF holeSeq.traj.role#fence THEN {
Feedback.AppendHerald[ggData.feedback, "Select only CLOSED trajectories as holes.", oneLiner];
LOOP;
};
outline _ GGInterface.AddHole[outline, hole, ggData.scene];
ENDLOOP;
GGBoundBox.EnlargeByBox[bBox: bBox, by: outline.boundBox]; -- boundBox of old shape and new shape
ggData.refresh.startBoundBox^ _ bBox^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
EXITS
Abort => Feedback.Blink[NARROW[clientData, GGData].feedback];
}; -- end AddHoles


Delete: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
bBoxOfSelected: BoundBox;
CodeTimer.StartInt[$Delete, $Gargoyle];
bBoxOfSelected _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal];
IF bBoxOfSelected=NIL THEN RETURN; -- nothing selected
GGScene.PushScene[ggData.scene]; -- save for Undelete
ggData.refresh.startBoundBox^ _ GGScene.DeleteAllSelected[ggData.scene]^;
GGCaret.NoAttractor[ggData.caret];
GGCaret.SitOn[caret: ggData.caret, chair: NIL];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
CodeTimer.StopInt[$Delete, $Gargoyle];
}; -- end Delete

Undelete: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
IF GGScene.EmptySceneStack[ggData.scene] OR NOT MessageWindow.Confirm["UNDELETE WILL LOSE MOST EDITS performed since last Delete"] THEN RETURN;
GGSelect.DeselectAllAllClasses[ggData.scene];
GGScene.PopScene[ggData.scene];
GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

UndeleteAutoConfirm: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
IF GGScene.EmptySceneStack[ggData.scene] THEN RETURN;
GGSelect.DeselectAllAllClasses[ggData.scene];
GGScene.PopScene[ggData.scene];
GGWindow.RestoreScreenAndInvariants[paintAction: $PaintEntireScene, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

SelectAll: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
CodeTimer.StartInt[$SelectAll, $Gargoyle];
GGSelect.DeselectAll[ggData.scene, normal];
GGSelect.SelectAll[ggData.scene, normal];
GGEvent.SawTextFinish[ggData, NIL];
GGWindow.RestoreScreenAndInvariants[paintAction: $SelectionChanged, ggData: ggData, remake: none, backgndOK: TRUE, edited: FALSE, okToClearFeedback: TRUE];
CodeTimer.StopInt[$SelectAll, $Gargoyle];
};

gScale: REAL _ 0.33;
gAngle: REAL _ 33;
MakeCurveProc: TYPE = PROC [lo, hi: Point, props: LIST OF REF ANY] RETURNS [seg: Segment];

GetPt: PROC[p0, dir: Point] RETURNS [pt: Point] = {
pt _ Vectors2d.Add[Vectors2d.Scale[Vectors2d.VectorPlusAngle[dir,gAngle], gScale*Vectors2d.Magnitude[dir] ], p0];
};

SetStraight: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
MakeStraightAux: MakeCurveProc = {
seg _ GGSegment.MakeLine[lo, hi, props];
};
ggData: GGData _ NARROW[clientData];
SetCurveAux[ggData, MakeStraightAux, $Line];
}; -- end SetStraight

SetArc: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
MakeArcAux: MakeCurveProc = {
p1: Point;
p1 _ Vectors2d.Add[Vectors2d.Scale[Vectors2d.Sub[hi,lo], 0.5], lo];
seg _ GGSegment.MakeArc[lo, p1, hi, props];
};
ggData: GGData _ NARROW[clientData];
SetCurveAux[ggData, MakeArcAux, $Arc];
}; -- end SetArc

SetSnowflake: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
OPEN Vectors2d;
MakeSnowflakeAux: PROC [seg: Segment, traj: Traj] RETURNS [patternTraj: Traj] = {
length: REAL;
p1, p2, p3: Point;
sideVec, dir, x: Vector;
seg1, seg2, seg3, seg4: Segment;
lo: Point _ seg.lo;
hi: Point _ seg.hi;
success: BOOL;
length _ Vectors2d.Distance[lo,hi];
dir _ Sub[hi,lo];
x _ Scale[dir, 1.0/3.0];
p1 _ Add[lo, x];
p3 _ Add[lo, Scale[dir, 2.0/3.0]];
sideVec _ Scale[VectorPlusAngle[dir, 90], length*RealFns.SqRt[3]/6.0];
p2 _ Add[lo, Vectors2d.Add[Scale[dir, 0.5], sideVec]];
patternTraj _ traj;
seg1 _ GGSegment.MakeLine[p0: lo, p1: p1, props: seg.props];
seg2 _ GGSegment.MakeLine[p0: p1, p1: p2, props: seg.props];
seg3 _ GGSegment.MakeLine[p0: p2, p1: p3, props: seg.props];
seg4 _ GGSegment.MakeLine[p0: p3, p1: hi, props: seg.props];
success _ GGTraj.AddSegment[patternTraj, hi, seg1, lo];
success _ GGTraj.AddSegment[patternTraj, hi, seg2, lo];
success _ GGTraj.AddSegment[patternTraj, hi, seg3, lo];
success _ GGTraj.AddSegment[patternTraj, hi, seg4, lo];
};
ggData: GGData _ NARROW[clientData];
SetPatternAux[ggData, MakeSnowflakeAux];
};

SetConic: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
MakeConicAux: MakeCurveProc = {
p1: Point;
p1 _ Vectors2d.Add[Vectors2d.Scale[Vectors2d.Sub[hi,lo], 0.5], lo];
seg _ GGSegment.MakeConic[lo, p1, hi, 0.7, props];
};
ggData: GGData _ NARROW[clientData];
SetCurveAux[ggData, MakeConicAux, $Conic];
}; -- end SetConic

SetBezier: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
MakeBezierAux: MakeCurveProc = {
length: REAL;
dir: Point;
p1, p2: Point;
length _ Vectors2d.Distance[lo, hi];
dir _ Vectors2d.Sub[hi,lo];
p1 _ GetPt[lo, dir];
p2 _ GetPt[hi, [-dir.x, -dir.y] ];
seg _ GGSegment.MakeBezier[lo, p1, p2, hi, props];
};
ggData: GGData _ NARROW[clientData];
SetCurveAux[ggData, MakeBezierAux, $Bezier];
}; -- end SetBezier

SegToSegMatchCp: PROC [seg: Segment, traj: Traj, makeCurve: MakeCurveProc, type: ATOM] = {
tSeg: Segment;
success: BOOL;
IF seg.class.type = type THEN -- if seg is already the right type, then we don't change it
success _ GGTraj.AddSegment[traj, hi, GGSegment.CopySegment[seg], lo]
ELSE IF type = $Arc AND seg.class.controlPointCount[seg] = 1 THEN { -- if old and new segment types have single control points, keep the control points the same
tSeg _ GGSegment.MakeArc[seg.lo, seg.class.controlPointGet[seg, 0], seg.hi, seg.props];
GGSegment.CopyLooks[seg, tSeg]; -- KAP. March 6, 1987 7:29:37 pm PST
success _ GGTraj.AddSegment[traj, hi, tSeg , lo]
}
ELSE IF type = $Conic AND seg.class.controlPointCount[seg] = 1 THEN { -- if old and new segment types have single control points, keep the control points the same
tSeg _ GGSegment.MakeConic[seg.lo, seg.class.controlPointGet[seg, 0], seg.hi, .7, seg.props];
GGSegment.CopyLooks[seg, tSeg]; -- KAP. March 6, 1987 7:29:37 pm PST
success _ GGTraj.AddSegment[traj, hi, tSeg, lo]
}
ELSE { -- make segment of new type with old endpoint info
tSeg _ makeCurve[seg.lo, seg.hi, seg.props];
GGSegment.CopyLooks[seg, tSeg]; -- KAP. March 6, 1987 7:29:37 pm PST
success _ GGTraj.AddSegment[traj, hi, tSeg, lo];
};
IF NOT success THEN ERROR;
};

SegAndCpsToSegs: PROC [seg: Segment, traj: Traj, makeCurve: MakeCurveProc, type: ATOM] = {
success: BOOL;
IF seg.class.type = type THEN -- if seg is already the right type, then we don't change it
success _ GGTraj.AddSegment[traj, hi, GGSegment.CopySegment[seg], lo]
ELSE { -- seg isn't the right type, so we convert all of its point/controlpoint spans
tSeg: Segment;
last, next: Point _ seg.lo;
FOR i:INT IN [0..seg.class.controlPointCount[seg]) DO
next _ seg.class.controlPointGet[seg, i];
tSeg _ makeCurve[last, next, seg.props];
GGSegment.CopyLooks[seg, tSeg]; -- KAP. March 6, 1987 7:29:37 pm PST
success _ GGTraj.AddSegment[traj, hi, tSeg, lo];
IF NOT success THEN ERROR;
last _ next;
ENDLOOP;
tSeg _ makeCurve[last, seg.hi, seg.props];
GGSegment.CopyLooks[seg, tSeg]; -- KAP. March 6, 1987 7:29:37 pm PST
success _ GGTraj.AddSegment[traj, hi, tSeg, lo];
IF NOT success THEN ERROR;
};
};

SetCurveAux: PROC [ggData: GGData, makeCurve: MakeCurveProc, type: ATOM] = {
RunOfSegs: GGSelect.RunProc = {
segGen: GGSequence.SegmentGenerator _ GGSequence.SegmentsInSequence[run];
initialSeg: Segment _ GGSequence.NextSegment[segGen];
IF initialSeg = NIL THEN RETURN[NIL]; -- the run is a single vertex
traj _ GGTraj.CreateTraj[initialSeg.lo];
FOR seg: Segment _ initialSeg, GGSequence.NextSegment[segGen] UNTIL seg = NIL DO
SELECT seg.class.type FROM -- choose from old segment type
$Line, $Arc, $Conic, $Bezier => SegToSegMatchCp[seg, traj, makeCurve, type]; -- modify traj
$CubicSpline => {
IF type=$Line OR (run.traj.segCount=1 AND run.traj.role#open) THEN SegAndCpsToSegs[seg, traj, makeCurve, type] -- Splines are changed to multiple lines...(or multiple segs if spline was cyclic)
ELSE SegToSegMatchCp[seg, traj, makeCurve, type];  -- ...but single everything else
};
ENDCASE => ERROR;
ENDLOOP;
traj.strokeJoint _ run.traj.strokeJoint;
};
bBox: BoundBox;
bBox _ GGSelect.ForEachOutlineRun[ggData.scene, normal, RunOfSegs, TRUE, TRUE];
GGCaret.NoAttractor[ggData.caret];
GGCaret.SitOn[ggData.caret, NIL];
ggData.refresh.startBoundBox^ _ bBox^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

PatternProc: TYPE = PROC [seg: Segment, traj: Traj] RETURNS [patternTraj: Traj];
SetPatternAux: PROC [ggData: GGData, pattern: PatternProc] = {
RunOfSegs: GGSelect.RunProc = {
segGen: GGSequence.SegmentGenerator _ GGSequence.SegmentsInSequence[run];
initialSeg: Segment _ GGSequence.NextSegment[segGen];
IF initialSeg = NIL THEN RETURN[NIL]; -- the run is a single vertex
traj _ GGTraj.CreateTraj[initialSeg.lo];
FOR seg: Segment _ initialSeg, GGSequence.NextSegment[segGen] UNTIL seg = NIL DO
SELECT seg.class.type FROM -- choose from old segment type
$Line => traj _ pattern[seg, traj];
ENDCASE => NULL;
ENDLOOP;
traj.strokeJoint _ run.traj.strokeJoint;
};
bBox: BoundBox;
bBox _ GGSelect.ForEachOutlineRun[ggData.scene, normal, RunOfSegs, TRUE, TRUE];
ggData.refresh.startBoundBox^ _ bBox^;
GGCaret.NoAttractor[ggData.caret];
GGCaret.SitOn[ggData.caret, NIL];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE];
};

SetNaturalSpline: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
SetSpline[splineType: naturalAL, ggData: ggData];
};

SetBSpline: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
SetSpline[splineType: bspline, ggData: ggData];
};

SetSpline: PROC [splineType: CubicSplines.SplineType, ggData: GGData] = {
RunToSpline: GGSelect.RunProc = {
X: NAT = CubicSplines.X;
Y: NAT = CubicSplines.Y;
tSeg: Segment;
controlPoint: Point;
cyclic: BOOL _ run.traj.role#open AND GGSequence.IsComplete[run]; 
cps: CubicSplines.KnotSequence _ NEW[CubicSplines.KnotSequenceRec[IF cyclic THEN run.jointCount+run.controlPointCount+1 ELSE run.jointCount+run.controlPointCount]];
segGen: GGSequence.SegmentGenerator _ GGSequence.OrderedSegmentsInSequence[run];
initialSeg: Segment _ GGSequence.NextSegment[segGen];
success: BOOL;
cpCount: NAT _ 0;
IF initialSeg = NIL THEN RETURN[NIL];
IF cyclic AND splineType = naturalAL THEN splineType _ cyclicAL;
traj _ GGTraj.CreateTraj[initialSeg.lo];
cps[cpCount] _ [initialSeg.lo.x, initialSeg.lo.y];
cpCount _ cpCount + 1;
FOR seg: Segment _ initialSeg, GGSequence.NextSegment[segGen] UNTIL seg = NIL DO
FOR i:INT IN [0..seg.class.controlPointCount[seg]) DO
controlPoint _ seg.class.controlPointGet[seg, i];
cps[cpCount] _ [controlPoint.x, controlPoint.y];
cpCount _ cpCount + 1;
ENDLOOP;
cps[cpCount] _ [seg.hi.x, seg.hi.y];
cpCount _ cpCount + 1;
ENDLOOP;
IF cyclic THEN cps[cps.length-1] _ cps[0]; -- cumulative error sometimes causes small differences.  DJK.
tSeg _ GGSegment.MakeCubicSpline[cps, splineType, NIL];
GGSegment.CopyLooks[initialSeg, tSeg];
success _ GGTraj.AddSegment[traj, hi, tSeg, lo];
IF NOT success THEN ERROR;
traj.strokeJoint _ run.traj.strokeJoint;
};
ggData.refresh.startBoundBox^ _ GGSelect.ForEachOutlineRun[ggData.scene, normal, RunToSpline, TRUE, TRUE]^;
GGCaret.NoAttractor[ggData.caret];
GGCaret.SitOn[ggData.caret, NIL];
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: TRUE]
};
SelectMatchingCurve: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
name: Rope.ROPE _ NARROW[event.rest.first];
trajGen: TrajGenerator _ GGScene.TrajsInScene[ggData.scene];
GGSelect.DeselectAll[ggData.scene, normal];
FOR traj: Traj _ GGScene.NextTraj[trajGen], GGScene.NextTraj[trajGen] UNTIL traj = NIL DO
segGen: SegmentGenerator _ GGSequence.SegmentsInTraj[traj];
FOR segAndIndex: SegAndIndex _ GGSequence.NextSegmentAndIndex[segGen], GGSequence.NextSegmentAndIndex[segGen] UNTIL segAndIndex.seg = NIL DO
IF Rope.Equal[segAndIndex.seg.class.describe[segAndIndex.seg, TRUE, TRUE, TRUE, NIL], name, FALSE] THEN {
seq: Sequence _ GGSequence.CreateFromSegment[traj, segAndIndex.index];
GGSelect.SelectSequence[seq, ggData.scene, normal];
};
ENDLOOP;
ENDLOOP;
Feedback.PutFHerald[ggData.feedback, oneLiner, "Curves of type %g selected", [rope[name]] ];
GGWindow.RestoreScreenAndInvariants[paintAction: $SelectionChanged, ggData: ggData, remake: none, backgndOK: TRUE, edited: FALSE, okToClearFeedback: FALSE];
};

Close: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
outlineSlice: Slice;
traj: Traj;
seg: Segment;
firstPoint, lastPoint: Point;
success: BOOL _ FALSE;
chair: SliceDescriptor _ GGCaret.GetChair[ggData.caret];
BEGIN
IF chair = NIL OR chair.slice.class.type#$Outline THEN GOTO NoCaretTraj;
[success, ----, traj] _ GGOutline.UnpackSimpleDescriptor[chair];
IF NOT success THEN GOTO NoCaretTraj;
IF traj.role = fence OR traj.role = hole THEN GOTO AlreadyClosed;
Feedback.AppendHerald[ggData.feedback, "The caret trajectory will be closed.", oneLiner];
outlineSlice _ GGOutline.OutlineOfTraj[traj];
firstPoint _ GGTraj.FetchJointPos[traj, 0];
lastPoint _ GGTraj.LastJointPos[traj];
IF firstPoint # lastPoint THEN {
lastSeg: Segment _ GGTraj.FetchSegment[traj, GGTraj.HiSegment[traj]];
seg _ GGSegment.MakeLine[lastPoint, firstPoint, NIL];
GGSegment.CopyLooks[lastSeg, seg];
GGTraj.CloseWithSegment[traj, seg, lo];
[] _ GGSelect.ReselectTraj[traj, hi, ggData.scene, TRUE];
}
ELSE {
GGOutline.SaveSelectionsInOutline[outlineSlice, ggData.scene];
GGSelect.DeselectEntityAllClasses[outlineSlice, ggData.scene];
GGTraj.CloseByDistorting[traj, hi];
GGOutline.RemakeSelectionsFromOutline[outlineSlice, ggData.scene];
};
GGSelect.SelectTraj[traj, ggData.scene, normal];
GGCaret.SitOn[ggData.caret, NIL]; -- FIX THIS TO SIT CARET ON NEWLY CLOSED TRAJ
GGCaret.NoAttractor[caret: ggData.caret];
outlineSlice.class.setFillColor[outlineSlice, ggData.defaults.fillColor];
ggData.refresh.startBoundBox^ _ traj.boundBox^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
EXITS
NoCaretTraj => {
Feedback.AppendHerald[ggData.feedback, "There is no caret trajectory to close.", oneLiner];
Feedback.Blink[ggData.feedback];
};
AlreadyClosed => {
Feedback.AppendHerald[ggData.feedback, "That trajectory is already closed.", oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
}; -- end Close

DisableRefresh: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
ggData.refresh.suppressRefresh _ TRUE;
};

EnableRefresh: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
ggData.refresh.suppressRefresh _ FALSE;
};

Init: PROC [] = {
CodeTimer.AddInt[CodeTimer.CreateInterval[$SelectAll, NIL], $Gargoyle];
CodeTimer.AddInt[CodeTimer.CreateInterval[$Delete, NIL], $Gargoyle];
};

Init[];

END.

PæGGEventImplA.mesa
Contents:  Once an event reaches the front of the slack-process queue, it is dispatched to one of the procedures in this module.
Bier, May 1, 1987 0:02:36 am PDT
Ken Pier, May 11, 1987 7:05:21 pm PDT

If we ever allow text slices to have hot joints, we will have to be more careful here.
If we ever allow text slices to have hot joints, we will have to be more careful here.
FONTS
Each text string should have a single font associated with it.  That font may be either a print font or a screen font.  For our purposes here, a font is a collection of shapes, defined in some font coordinate system, together with a transformation to apply to a string of those shapes when the string is rendered.
File Format
Ignoring user interface for the moment, here is what we will store in .gargoyle files:  If the font is a resolution-independent font (e.g. press font), we store:

FontPrefix			FontFamily	Face			Transformation		Preferred Size
Xerox/PressFonts/	Helvetica			-BI	M = [a, b, c, d, e, f]		1.0
Xerox/xc1-2-2/		Modern			-BI	M = [a, b, c, d, e, f]		1.0

The shapes of the font are assumed to be 1 unit large in font master coordinates.  If the named FontPrefix/FontFamily does not obey this property, the font will be scaled to be a unit font before the Transformation is applied.  Hence, if M = Scale[12], the font will appear as 12 screen dots high.  Our units are 1/72.0 of an inch.  Tioga uses 1/72.27 inches.  Life is hard.
If the font is a resolution-dependent font (e.g. screen font, like Tioga10), we store:

FontPrefix			FontFamily	Face			Transformation		Preferred Size
Xerox/TiogaFonts/	Tioga				-BI	M = [a, b, c, d, e, f]		10.0

The shapes of the font are assumed to be 1 unit large in font master coordinates.  This is often not true.  However, the font will be scaled to be a unit font before the Transformation is applied.  Gargoyle will have to know about fonts, but can hide this knowledge from the user.  For instance:  CMR10 is a 1 unit font, which must be scaled by 10 to look good.  Tioga10, however, is stored at 10 units high in font master coordinates.  Gargoyle will scale it by 0.1 to get a unit font, but M will usually be Scale[10] so all will be well.
We store both kinds of fonts in .gargoyle files using the same format with Preferred Size = 1.0 for press fonts.  This is a unique value which signals the fileIn code that it is a resolution independent font.  It's size is one unit, and the appearance scaling is in the transformation.
User Interface for Output
There will be a "look readable" mode which calculates a more readable font from the font in each text string.  As we do now, we will probably cache this font in each string along with the "real font".  However, the readable font will not necessarily be a Screen Font.  For large strings, it may be the same as the real font, for instance.
Setting Fonts
Here's where we have to be flexible.  We'll probably want to have several kinds of SetFont commands, some which are convenient for everyday use and some which let you be very specific.  These four may make a good starting set:
SetPressFont.  The user selects a <FontFamily-FontFace> <scalar> pair such as "Helvetica-BI 12".  The <-FontFace> may be left off, denoting regular font. Gargoyle assumes FontPrefix = Xerox/PressFonts/ and lets transformation M = Scale[<scalar>].  The font is made with ImagerFont.Scale[font,  1] (in all cases I know about).
SetPrintFont.  The user selects a <FontFamily-FontFace> <scalar> pair such as "Helvetica-BI 12".  The <-FontFace> may be left off, denoting regular font. Gargoyle assumes FontPrefix = Xerox/XC1-2-2/ and lets transformation M = Scale[<scalar>].  The font is made with ImagerFont.Scale[font,  1] (in all cases I know about).
SetScreenFont.  The user selects a <FontFamily-FontFace> <preferred size> pair such as "CMR 10".  Gargoyle assumes FontPrefix = Xerox/TiogaFonts/ and lets transformation M = Scale[<preferred size>].  The font is made with ImagerFont.Scale[font,  1] if the font is CMR, with ImagerFont.Scale[font, 1.0/<preferred size>], if the font is Helvetica, TimesRoman, Tioga.  If the font is one of the traditional TiogaFonts (e.g. Helvetica, TimesRoman, Tioga, ...)  Gargoyle will attempt to find the corresponding strike font.  For example, SetScreenFont TimesRoman-BI 9 will find the font in file ///fonts/xerox/tiogafonts/TimesRoman9BI.ks.  If the user requests a TiogaFont not in the Tioga font set (usually an odd size), Gargoyle will fail to change the font.  I don't know which camp Terminal is in.  At any rate, Gargoyle will have to keep track of which fonts are in which camp.
SetPrintFontDetailed.  The user selects a <FontPrefix> <FontFamily-FontFace> <Transformation> triple.  Gargoyle makes no assumptions.  The user must provide a factored transformation.  For example:
xerox/pressfonts/ gacha-bi  [r1: REAL, s: VEC, r2: REAL, t: VEC]
xerox/xc1-2-2/ classic-b  [r1: REAL, s: VEC, r2: REAL, t: VEC]
WHITESPACE IS CRITICAL !!
SetScreenFontDetailed.  The user selects a <FontPrefix> <FontFamily-FontFace> <Transformation> <Preferred Size> quadruple.  Again, Gargoyle uses its information about font camps to successfully make a unit sized font.  Otherwise, Gargoyle makes no assumptions.
Note:  For screen fonts, we may run into trouble when <scalar>*(1.0/<scalar>) isn't quite 1.0.  We can either round within epsilon for screen fonts, or we can keep around an unscaled font when we know we should be hitting the fast case.
Asking About Fonts
A single function PrintFontOfSelected should say exactly what font is being used.  The format of this output should be suitable for selecting and feeding to SetPrintFontDetailed or SetScreenFontDetailed.  Unfortunately, the Gargoyle feedback region isn't selectable.  Of course, the user could open a Typescript first.  Suggestions?

Fonts Menu
In GGEventImplA.SetPrintFont
SetPressFont expects input of the form <FontFamily-FontFace> <scalar>. e.g. "Cream-BI 12"
SetPressFont expects input of the form <FontFamily-FontFace> <scalar>. e.g. "Modern-BI 12"
SetScreenFont expects input of the form <FontFamily-FontFace> <scalar>. e.g. "Cream12-BI 20"
SetFontDetailed expects input of the form <FontPrefix> <FontFamily-FontFace> <Transformation>  e.g. "xerox/myfonts/fontOne-BI [1.0 2.0 3.0 4.0 5.0 6.0].  Gargoyle assumes the designSize and the storedSize can be derived from the <FontPrefix> and <FontFamily-FontFace>; if not, then designSize and storedSize are defaulted to 1.0
SetFontLiteral expects input of the form <FontPrefix> <FontFamily-FontFace> <Transformation> <storedSize> <design size>. Gargoyle accepts this as literal information and makes no attempt at understanding the semantics of the data.
ShowFontValues: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
Outputs string in the form <FontPrefix> <FontFamily> <FontFace> transformation preferredSize
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select a single text slice for font printing", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE Feedback.PutF[ggData.feedback, oneLiner, "Font Values: %g", [rope[GGSlice.GetFontDataRope[sliceDesc.slice]]] ];
};

Outputs string in the form <FontPrefix> <FontFamily> <FontFace> transformation preferredSize
ShowFontValuesLiteral: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
Outputs string in the form <FontFullName> <transformation> <storedSize> <designSize>
ggData: GGData _ NARROW[clientData];
sliceDescGen: SliceDescriptorGenerator _ GGSelect.SelectedSlices[ggData.scene, normal];
sliceDesc: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen];
IF sliceDesc=NIL OR sliceDesc.slice.class.type#$Text OR GGSelect.NextSliceDescriptor[sliceDescGen]#NIL THEN {
Feedback.AppendHerald[ggData.feedback, "Select a single text slice for font printing", oneLiner];
Feedback.Blink[ggData.feedback];
}
ELSE Feedback.PutF[ggData.feedback, oneLiner, "Font Values: %g", [rope[GGSlice.GetFontLiteralDataRope[sliceDesc.slice]]] ];
};

Outputs string in the form <FontFullName> <transformation> <storedSize> <designSize>
Copies the fontData from the LAST selected text slice to all the other selected text slices, but preserves the other slice transformation.  Effect is to change font but not transform.
Replicates the font data from the LAST selected text slice to all the other selected text slices
Checks for a single selected GG text slice, then selects all the text slices with fontData matching that slice, excluding translation.
selects all the text slices whose fontData.userFSF contain the Tioga selection as a SUBSTRING.
selects all the text slices whose fontData.literal contain the Tioga selection as a SUBSTRING.
SetDefaultFontValues checks that there is a single GG text slice selected, then copies its font information to the default font
Interpress Utilities
All selected IP Slices are now store-by-reference.
All selected IP Slices are now store-by-value.
Show whether the selected IP Slices is store-by-reference or store-by-value
TIMING VARIABLES
START TIMING
TIMING VARIABLES
START TIMING

Gravity Utilities
Within the bounds of the viewer, randomly choose mouse positions.  See if that mouse position is in range of any object.  If so, draw a dot at that point.  Repeat until 100 points have been drawn.
Hierarchy Menu
PolyType: TYPE = {positive, negative};
PolyData: TYPE = REF PolyDataObj;
PolyDataObj: TYPE = RECORD [
type: PolyType
];
HandleOverlap: PROC [currentClientdata, inputClientdata: REF] RETURNS [resultClientData: REF] = {
resultClientData _ NEW[PolyDataObj _ [positive]];
};
HandleGlue: PROC [clientData1, clientData2: REF ANY] RETURNS [BOOL] = {
RETURN[FALSE];
};

IsPositive: PROC [clientData: REF ANY] RETURNS [BOOL] = {
polyData: PolyData _ NARROW[clientData];
IF polyData = NIL THEN RETURN[FALSE];
RETURN[polyData.type = positive];
};

bBoxOfSelected: BoundBox _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal];
IF bBoxOfSelected=NIL THEN RETURN; -- nothing selected
IF PrincOpsUtils.IsBound[LOOPHOLE[CombinePoly.CreateDatabase]] THEN {
startTime, endTime: BasicTime.GMT;
totalTime: INT;
Feedback.PutF[ggData.feedback, begin, "Combining selected convex polygons . . . "];
startTime _ BasicTime.Now[];
UnionCombineAux[ggData];
endTime _ BasicTime.Now[];
totalTime _ BasicTime.Period[startTime, endTime];
Feedback.PutF[ggData.feedback, end, " Done in time (%r)", [integer[totalTime]]];
ggData.refresh.startBoundBox^ _ bBoxOfSelected^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
}
ELSE {
Feedback.Append[ggData.feedback, "Please run BasicCombiner.bcd and retry this operation", oneLiner];
Feedback.Blink[ggData.feedback];
};
UnionCombineAux: PROC [clientData: REF ANY] = {
ggData: GGData _ NARROW[clientData];
Use Arnon's Combiner to find the union of all selected trajectories.  The result of such a union may be a set of outlines with holes.  For now, we assume that the result will be a set of outlines without holes (since holes are not implemented in Gargoyle yet.
dbid: CombinePoly.DBID;
polyID: CombinePoly.PolyID;
seqGen: SequenceGenerator;
regionGen: CombinePoly.RegionGenerator;
jointGen: JointGenerator;
pointGen: CombinePoly.PointGenerator;
point, firstPoint, secondPoint: Point;
polyData: REF ANY;
firstPointAndDone, previousPointAndDone: CombinePoly.PointAndDone;
success: BOOL;
traj: Traj;
seg: Segment;
outline: Outline;
jointNum: INT;
dbid _ CombinePoly.CreateDatabase[];
seqGen _ GGSelect.SelectedSequences[ggData.scene, normal];
FOR seq: Sequence _ GGSequence.NextSequence[seqGen], GGSequence.NextSequence[seqGen] UNTIL seq = NIL DO
IF NOT GGSequence.IsComplete[seq] THEN LOOP;
IF NOT seq.traj.role = fence THEN LOOP;
polyData _ NEW[PolyDataObj _ [positive]];
jointGen _ GGSequence.JointsInSequence[seq];
Create the Polygon
jointNum _ GGSequence.NextJoint[jointGen];
firstPoint _ GGTraj.FetchJointPos[seq.traj, jointNum];
jointNum _ GGSequence.NextJoint[jointGen];
secondPoint _ GGTraj.FetchJointPos[seq.traj, jointNum];
polyID _ CombinePoly.CreatePolygon[firstPoint, secondPoint, polyData];
Add the other points.
FOR jointNum: INT _ GGSequence.NextJoint[jointGen], GGSequence.NextJoint[jointGen] UNTIL jointNum = -1 DO
point _ GGTraj.FetchJointPos[seq.traj, jointNum];
CombinePoly.AddPointToPolygon[point, polyID];
ENDLOOP;
dbid _ CombinePoly.PolygonIntoDatabase[polyID, dbid, HandleOverlap, HandleGlue];
ENDLOOP;
[] _ DeleteAllSelected[ggData];
regionGen _ CombinePoly.MaximalRegions[dbid, IsPositive];
FOR region: CombinePoly.OutlineHolesDataAndDone _ CombinePoly.NextRegion[regionGen], CombinePoly.NextRegion[regionGen] UNTIL region.done DO
pointGen _ region.outline;
previousPointAndDone _ firstPointAndDone _ CombinePoly.NextPoint[pointGen];
IF previousPointAndDone.done THEN LOOP;
traj _ GGTraj.CreateTraj[previousPointAndDone.point];
FOR pointAndDone: CombinePoly.PointAndDone _ CombinePoly.NextPoint[pointGen], CombinePoly.NextPoint[pointGen] UNTIL pointAndDone.done DO
seg _ GGSegment.MakeLine[previousPointAndDone.point, pointAndDone.point, NIL];
success _ GGTraj.AddSegment[traj, hi, seg, lo];
IF NOT success THEN ERROR;
previousPointAndDone _ pointAndDone;
REPEAT
FINISHED => {
seg _ GGSegment.MakeLine[previousPointAndDone.point, firstPointAndDone.point, NIL];
GGTraj.CloseWithSegment[traj, seg, lo];
};
ENDLOOP;
outline _ GGOutline.CreateOutline[traj, round, GGScene.fillColor];
GGScene.AddOutline[ggData.scene, outline, -1];
ENDLOOP;
};

OldDeleteAllSelected: PROC [ggData: GGData] RETURNS [bBox: BoundBox]  = {
sliceDescGen: SliceDescriptorGenerator;
outSeqGen: GGSelect.OutlineSequenceGenerator;
oldOutline: Outline;
fenceSeq: Sequence;
thisBox: BoundBox;
bBox _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal];
Implemented enough for non-gargoyle slices only.
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD = NIL DO
GGSelect.DeselectEntityAllClasses[sliceD.slice, ggData.scene];
GGSlice.DeleteSlice[ggData.scene, sliceD.slice];
ENDLOOP;
Now delete selected sequences.
outSeqGen _ GGSelect.SelectedOutlineSequences[ggData.scene, normal];
WHILE outSeqGen.list # NIL DO
FOR outSeq: GGSelect.OutlineSequence _ GGSelect.NextOutlineSequences[outSeqGen], GGSelect.NextOutlineSequences[outSeqGen] UNTIL outSeq = NIL DO
fenceSeq _ outSeq.fenceSeq;
FOR holeSeq: Sequence _ GGSequence.NextSequence[outSeq.holeSeqs], GGSequence.NextSequence[outSeq.holeSeqs] UNTIL holeSeq = NIL DO
[oldOutline,----] _ GGInterface.DeleteSequence[holeSeq, ggData.scene];
thisBox _ GGTraj.GetBoundBox[holeSeq.traj];
GGBoundBox.EnlargeByBox[bBox: bBox, by: thisBox];
GOTO SelectionsHaveChanged;
ENDLOOP;
IF fenceSeq # NIL THEN {
[oldOutline,----] _ GGInterface.DeleteSequence[fenceSeq, ggData.scene];
IF fenceSeq.traj.role = open THEN {
GGSequence.UpdateBoundBox[fenceSeq];
GGBoundBox.EnlargeByBox[bBox: bBox, by: fenceSeq.boundBox];
}
ELSE {
thisBox _ GGTraj.GetBoundBox[fenceSeq.traj];
GGBoundBox.EnlargeByBox[bBox: bBox, by: thisBox];
};
GOTO SelectionsHaveChanged;
};
REPEAT
SelectionsHaveChanged => {
outSeqGen _ GGSelect.SelectedOutlineSequences[ggData.scene, normal];
};
ENDLOOP;

ENDLOOP;
};

DeleteAllSelected: PROC [ggData: GGData] RETURNS [bBox: BoundBox]  = {
DeleteRun: GGSelect.RunProc = {
traj _ NIL;
};
sliceDescGen: SliceDescriptorGenerator;
thisBox: BoundBox;
bBox _ GGBoundBox.BoundBoxOfSelected[ggData.scene, normal];
Implemented enough for non-gargoyle slices only.
sliceDescGen _ GGSelect.SelectedSlices[ggData.scene, normal];
FOR sliceD: SliceDescriptor _ GGSelect.NextSliceDescriptor[sliceDescGen], GGSelect.NextSliceDescriptor[sliceDescGen] UNTIL sliceD = NIL DO
GGSelect.DeselectEntityAllClasses[sliceD.slice, ggData.scene];
GGSlice.DeleteSlice[ggData.scene, sliceD.slice];
ENDLOOP;
GGCaret.NoAttractor[ggData.caret];
Overly conservative.  Just in case the caret was attracted to something that was just deleted.
thisBox _ GGSelect.ForEachOutlineRun[ggData.scene, ggData.caret, normal, DeleteRun, FALSE];
GGBoundBox.EnlargeByBox[bBox: bBox, by: thisBox];
};

Curve Menu
Replace segs of the old type with segs of the new type, maintaining control point data if possible
Replace old segments with segments of the new type, but if the old segment had control points, use these also as joints of new segments. 
Use GGSelect.ForEachOutlineRun to replace all selected runs with runs of a new type.
Strategy:  Replace each selected run with a new trajectory which has a segment (of the proper type) for each joints/control point span.  Note that we we copy verbatim all segs which were already of the specified type.  The new segments inherit color and stroke properties from the old ones.
[run: GGModelTypes.Sequence] RETURNS [traj: GGModelTypes.Traj]
Use GGSelect.ForEachOutlineRun to replace all selected runs with runs of a new type.
Strategy:  Replace each selected run with a new trajectory which has a segment (of the proper type) for each joints/control point span.
[run: GGModelTypes.Sequence] RETURNS [traj: GGModelTypes.Traj]
[run: GGModelTypes.Sequence] RETURNS [traj: GGModelTypes.Traj]

Edit Curve Menu
CloseOLDD: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
chair: REF ANY;
traj: Traj;
outline: Outline;
firstPoint, lastPoint: Point;
seg: Segment;
success: BOOL;
chair _ GGCaret.GetChair[ggData.caret];
BEGIN
IF chair = NIL THEN GOTO NoCaretTraj;
WITH chair SELECT FROM
outlineD: OutlineDescriptor => {
[success, ----, traj] _ GGOutline.UnpackSimpleDescriptorOld[outlineD];
IF NOT success THEN ERROR;
};
sliceD: SliceDescriptor => {
IF sliceD.slice.class.type # $Outline THEN GOTO NoCaretTraj;
[success, ----, traj] _ GGOutline.UnpackSimpleDescriptor[sliceD];
IF NOT success THEN GOTO NoCaretTraj;
};
ENDCASE => ERROR;
IF traj.role = fence OR traj.role = hole THEN GOTO AlreadyClosed;
Feedback.AppendHerald[ggData.feedback, "The caret trajectory will be closed.", oneLiner];
outline _ GGOutline.OutlineOfTraj[traj];
firstPoint _ GGTraj.FetchJointPos[traj, 0];
lastPoint _ GGTraj.LastJointPos[traj];
IF firstPoint # lastPoint THEN {
lastSeg: Segment _ GGTraj.FetchSegment[traj, GGTraj.HiSegment[traj]];
seg _ GGSegment.MakeLine[lastPoint, firstPoint, NIL];
GGSegment.CopyLooks[lastSeg, seg];
GGTraj.CloseWithSegment[traj, seg, lo];
[] _ GGSelect.ReselectTraj[traj, hi, ggData.scene, TRUE];
}
ELSE {
GGOutline.SaveSelectionsInOutline[outline, ggData.scene];
GGSelect.DeselectEntityAllClasses[outline, ggData.scene];
GGTraj.CloseByDistorting[traj, hi];
GGOutline.RemakeSelectionsFromOutline[outline, ggData.scene];
};
GGSelect.SelectTraj[traj, ggData.scene, normal];
GGCaret.SitOn[ggData.caret, NIL];
GGCaret.NoAttractor[caret: ggData.caret];
outline.class.setFillColor[outline, ggData.defaults.fillColor];
ggData.refresh.startBoundBox^ _ traj.boundBox^;
GGWindow.RestoreScreenAndInvariants[paintAction: $ObjectChangedBoundBoxProvided, ggData: ggData, remake: triggerBag, backgndOK: FALSE, edited: TRUE, okToClearFeedback: FALSE];
N.B.  It's a shame we have to remake the triggerBag here.  This is because the closed trajectory might have been hot.  Its hot sequence is obsolete.
EXITS
NoCaretTraj => {
Feedback.AppendHerald[ggData.feedback, "There is no caret trajectory to close.", oneLiner];
Feedback.Blink[ggData.feedback];
};
AlreadyClosed => {
Feedback.AppendHerald[ggData.feedback, "That trajectory is already closed.", oneLiner];
Feedback.Blink[ggData.feedback];
};
END;
}; -- end Close

N.B.  It's a shame we have to remake the triggerBag here.  This is because the closed trajectory might have been hot.  Its hot sequence is obsolete.
ShowPoints: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
seqGen: SequenceGenerator _ GGSelect.SelectedSequences[ggData.scene, normal];
FOR seq: Sequence _ GGSequence.NextSequence[seqGen], GGSequence.NextSequence[seqGen] UNTIL seq = NIL DO
seq.traj.visibleJoints _ TRUE;
ENDLOOP;
};

HidePoints: PUBLIC PROC [clientData: REF ANY, event: LIST OF REF ANY] = {
ggData: GGData _ NARROW[clientData];
seqGen: SequenceGenerator _ GGSelect.SelectedSequences[ggData.scene, normal];
FOR seq: Sequence _ GGSequence.NextSequence[seqGen], GGSequence.NextSequence[seqGen] UNTIL seq = NIL DO
seq.traj.visibleJoints _ FALSE;
ENDLOOP;
};

View Menu
Debug menu ops moved to GGEventImplD

�ÊP‡˜Icode™šÏnœx™€
KšœÏk™ Kš
œ%™%—K™š
ž	˜	Jšœ%Ïcœžœ™ŸœežœŸœ,˜¡K˜—š�œžœ
ž˜JšžœŸœ
žœÛ
ŸœežœŸœ#˜ÍKšžœž˜—˜Kšœ
žœ˜%Kšœžœ˜!Kšœžœ˜3Kšœžœ ˜5Kšœžœ)˜GKšœžœ ˜5Kšœ
žœ ˜1Kšœžœ˜'Kšœžœ˜!Kšœžœ˜3Kšœ
žœ˜$Kšœžœ"˜9Kšœžœ˜(Kšœ	žœ˜%Kšœžœ˜!Kšœžœ˜!Kšœ	žœ˜'Kšœ
žœ˜+Kšœ
žœ˜'Kšœžœ˜+Kšœžœ˜Kšœžœ˜1Kšœžœ!˜7Kšœžœ"˜9Kšœžœ˜#Kšœ
žœ˜!—K˜Kš�œžœ
žœžœ
˜(K˜š�œžœžœ
žœ˜>šžœžœ
žœŸ7˜SK•StartOfExpansion_[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass]š
œX˜XKš
œH˜Hšžœžœ
žœ"žœ,žœ
žœ˜mKš
œ[˜[Kš
œ ˜ Kšžœ
˜K˜—K–|[slice: 
GGModelTypes.Slice, gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass]š
œq˜qKšœ1Ÿ"˜SKš	œ1Ïbœ+žœ
žœžœ˜›
Kš
œ
˜
—šžœ˜KšœlŸ˜…
Kš	žœžœ
žœ
žœŸ'˜AKš
œ0˜0Kš
œ#˜#Kš	œ1 œ/žœ
žœžœ˜š
Kš
œ˜—KšœŸ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜FKšœžœ
˜$Kš
œ
˜
Kš
œ˜Kšœ	žœ
žœ
˜Kš
žœ
žœžœžœ
žœ
˜1Kšœ
žœ˜#šžœžœ
žœ˜+K–ß
[caret: 
GGInterfaceTypes.Caret, point: 
GGBasicTypes.Point, attractor: 
REF ANY _ NIL, on: 
GGInterfaceTypes.CaretOn _ nothing, attractorJointNum: 
NAT _ 999, attractorCPNum: 
NAT _ 999, attractorSegNum: 
NAT _ 999]šœ#Ÿ˜@Kš
œ"˜"Kšžœ
˜Kš
œ
˜
—šžœŸ˜Kš
œ(˜(Kš
œ&˜&Kšœ1Ÿ!˜Ršžœžœ
žœ˜Kš
œ$˜$Kšœ1Ÿ˜OKš
œG˜Gš	œ1 œ/žœ
žœžœ˜¬
Kš
œV™V—Kš
œ
˜
—šžœ˜Kš
œA˜AKšœ1Ÿ"˜SKš
œG˜GKš
œ#˜#š	œ1 œ+žœ
žœžœ˜–
Kš
œV™V—Kš
œ˜—Kš
œ'˜'Kš
œ˜—KšœŸ˜K˜—š�œžœ
žœ
žœžœžœžœ˜oKš
œ1˜1Kšœ	žœžœ
˜Kš
œ?˜?Kš
œ$˜$Kš
œT˜TKšœ "œ#˜LKšžœ
žœ	žœ
žœ
˜Kš
œ*˜*Kš
œ0˜0Kšœ,Ÿ˜CKš
œ#˜#Kšžœ
žœ9˜IKšœlžœ
žœžœ˜š
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜FKšœžœ
˜$Kš
œžœžœžœ
žœ$žœ
žœ˜lKšœ*žœ˜0K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜XKšœžœ
˜$Kš	œžœžœžœ
žœ˜9Kš
œQ˜QK–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tšžœfžœžœ
ž˜|Kš
œI˜IKšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]š
œv˜vKšœ€
žœ
žœžœŸ6˜æ
KšœŸ ˜#K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜PKšœžœ
˜$Kš
œW˜WKš
œH˜Hšžœžœ
žœ"žœ,žœ
žœ˜mKš
œj˜jKš
œ ˜ K˜
—Kšžœu˜yK˜K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKšœžœ
˜$Kš	œ	žœžœžœ
žœ˜4Kš	œ	žœžœžœ
žœ˜9Kš
œQ˜QK–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tšžœfžœžœ
ž˜|Kš
œ7˜7Kšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]š
œv˜vKšœ€
žœ
žœžœ˜®
K˜K˜—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜LKšœžœ
˜$Kš
œQ˜QK–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tšžœfžœžœ
ž˜|Kš
œ$˜$Kšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]š
œv˜vKšœ€
žœ
žœžœ˜®
K˜—K˜
headš
ž™Ibodyš
œ¹™¹—š
œ™Mš
œ¡
™¡
J™Jš
œ=™=Jšœžœ™=Jšœžœ™8J™Icontinuationš
œö™öMš
œV™VJ™Jš
œ=™=Jšœžœ™;N™Nšœ©žœí
™›Mš
œ�™�—š
œ™Mš
œÒ™Ò—š
œ
™
Mš
ω
™â
Iitemš
œÅ™ÅOšœ¾
žœ�
™ÂOšœˆžœ¢žœ½™ìš
ρ
™Å
Oš	œ!žœžœžœžœ
™@Oš	œžœžœžœžœ
™>Ošž
œ
žœ
žœ™—Oš
œ„™„Mš�œè
™ì
—š
œ™Mš
œÌ™Ì—M™š
œ
™
Kš
œ™—š�
œžœžœ
žœ$žœžœ˜ZKšœžœ
˜$Kšœžœ
˜"Kš
œQ˜QK–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tšžœfžœžœ
ž˜|KšœžœžœJžœ>˜¥
Kš
œ˜Kšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]šžœžœ
žœq˜‡
Kš
œv˜vKšœ€
žœ
žœžœ˜¯
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKš
œY™YK–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]šœžœ
˜š
ž˜Kšœ
žœ
žœžœ
žœ
žœŸ˜HKš
œ-˜-Kšœ'Ÿ"˜IKš
œMžœ	žœ
žœ2žœŸ˜É
Kš
œ!˜!š
ž˜˜Kšœžœ
˜$Kš
œ<˜<Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKš
œZ™ZK–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]šœžœ
˜–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]š
ž˜Kšœ
žœ
žœžœ
žœ
žœŸ˜IKš
œ-˜-Kšœ$Ÿ"˜FKš
œMžœ	žœ
žœ2žœŸ˜É
Kš
œ!˜!š
ž˜˜Kšœžœ
˜$Kš
œ<˜<Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜LKš
œ\™\K–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]šœžœ
˜–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]š
ž˜Kšœ
žœ
žœžœ
žœ
žœŸ˜HKš
œ-˜-Kšœ'Ÿ#˜JKš
œMžœ	žœ
žœ2žœŸ˜É
Kš
œ!˜!š
ž˜˜Kšœžœ
˜$Kš
œ<˜<Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜NKš
œÈ™ÈK–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]šœžœ
˜š
ž˜Kšœ
žœ
žœžœ
žœ
žœ˜7Kš
œ-˜-KšœMžœžœ	žœžœ2žœŸ"˜è
Kš
œ!˜!š
ž˜˜Kšœžœ
˜$Kš
œ<˜<Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜MKš
Ͼ
™æ
K–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]šœžœ
˜–)[rope: 
ROPE, oldStream: 
STREAM _ NIL]š
ž˜Kšœ
žœ
žœžœ
žœ
žœ˜7Kš
œ-˜-KšœNžœžœžœžœ2žœŸ2˜ƒKš
œ!˜!š
ž˜˜Kšœžœ
˜$Kš
œ<˜<Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ™MKš
œ\™\Kšœžœ
™$Kš
œW™WKš
œH™Hšžœžœ
žœ"žœ,žœ
žœ™mKš
œa™aKš
œ ™ Kš
œ
™
—Kšžœp™tKš
œ™K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜MKš
œ\™\Kšœžœžœ
˜Kšœžœ
˜$Kš
œW˜Wšžœužœžœ
ž˜Ž
Kšžœ"žœ
žœ
˜.Kšžœ
žœ
žœ5˜IKšžœ@žœžœ
žœ
˜SKš
œ[˜[Kš
œ ˜ Kšžœ
˜Kšžœ
˜—Kš	œBžœ
žœ
žœ
žœ˜ƒ
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ™TKš
œT™TKšœžœ
™$Kš
œW™WKš
œH™Hšžœžœ
žœ"žœ,žœ
žœ™mKš
œa™aKš
œ ™ Kš
œ
™
—Kšžœw™{Kš
œ™K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜TKš
œT™TKšœžœžœ
˜Kšœžœ
˜$Kš
œW˜Wšžœužœžœ
ž˜Ž
Kšžœ"žœ
žœ
˜.Kšžœ
žœ
žœ<˜PKšžœGžœžœ
žœ
˜ZKš
œ[˜[Kš
œ ˜ Kšžœ
˜Kšžœ
˜—Kš	œBžœ
žœ
žœ
žœ˜ƒ
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜HKšœžœ–
™·
Kšœžœ
˜$Kš
œ˜Kš
œW˜Wšžœržœžœ
ž˜ˆ
KšœŸ˜2Kšžœ
˜—š
ž˜Kš
žœ
žœ
žœ!žœ
žœ
˜Išžœ˜Kš
œ3˜3Kš
œ˜Kšœžœ+˜?Kš
œ:˜:K–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tKš
œ=˜=šžœržœžœ
ž˜ˆ
Kšžœžœ
žœ
˜+Kš
œ,˜,Kšœ#Ÿ(˜KKšœCŸ(Ðbc˜Kš
œ#˜#Kš
œN˜NKšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]š
œv˜vKšœ€
žœ
žœžœ˜®
K–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]š
œh˜hKš
œ˜—š
ž˜˜Kš
œ\˜\Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜GKšœ"žœ:™`Kšœžœ
˜$Kš
œ˜Kš
œW˜Wšžœržœžœ
ž˜ˆ
KšœŸ˜2Kšžœ
˜—š
ž˜Kš
žœ
žœ
žœ!žœ
žœ
˜Išžœ˜Kšœžœ
˜"Kš
œ˜Kšœžœ+˜?Kš
œ:˜:K–h[gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGInterfaceTypes.SelectionClass _ normal]šœVŸ˜tKš
œ=˜=šžœržœžœ
ž˜ˆ
Kšžœžœ
žœ
˜+Kš
œ,˜,Kš
œ;˜;KšœCŸ(¡˜Kš
œS˜SKš
œN˜NKšžœ
˜—K–<[bBox: 
GGModelTypes.BoundBox, by: 
GGModelTypes.BoundBox]š
œv˜vKšœ€
žœ
žœžœ˜®
K–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]š
œh˜hKš
œ˜—š
ž˜˜Kš
œ_˜_Kš
œ ˜ K˜——Kšžœ
˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜GKšœžœg™†
Kšœžœ
˜$Kš
œW˜WKš
œH˜Hšžœžœ
žœ"žœ,žœ
žœ˜mKš
œ\˜\Kš
œ ˜ Kš
œ
˜
—šžœŸ4˜;Kš
œ:˜:Kš
œ%˜%Kš
œ˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜PKšœTž	œ
™^Kšœžœ
˜$Kšœžœžœ˜0šžœžœ˜#Kš
œW˜WKš
œ ˜ Kš
œ
˜
—Kšžœ-˜1Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜WKšœTž	œ
™^Kšœžœ
˜$Kšœžœžœ˜0šžœžœ˜#Kš
œZ˜ZKš
œ ˜ Kš
œ
˜
—Kšžœ-˜1Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜SKšœ3žœJ™Kšœžœ
˜$Kš
œW˜WKš
œH˜Hšžœžœ
žœ"žœ,žœ
žœ˜mKš
œh˜hKš
œ ˜ Kš
œ
˜
—šžœ˜Kš
œQ˜QKš
œt˜tKš
œ˜—Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜TKšœžœ
˜$K–ldStream: 
STREAM _ NIL]š	œ	žœ
žœžœ
žœ˜Kš
œ1˜1Kš
œN˜NK–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]šœtžœb˜Ø
Kš
œ˜K˜—š�œžœžœžœ˜IKš
œ?˜?Kš
œ+˜+šžœIžœžœ
ž˜^Kš
œ0˜0K–-[y: 
REAL, x: 
REAL, distance: 
[-126..0]]šžœ
žœ
žœžœ
žœžœ1žœžœ:žœ7˜þ
Kšžœ
˜—K–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]š
œr˜rKšœmžœ
žœžœ˜œ
Kš
œ˜K˜—š�œžœ)˜AKšœžœ˜Kš
œ?˜?Kš
œ+˜+šžœIžœžœ
ž˜^Kš
œ0˜0K–-[y: 
REAL, x: 
REAL, distance: 
[-126..0]]šžœ
žœ
žœ0žœžœDžœ]žœ:žœ7˜éKšžœ
˜—K–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]š
œo˜oKšœmžœ
žœžœ˜œ
Kš
œ˜—K˜K™š�œžœžœžœ
žœžœžœžœ˜iš�œ˜$Kš
œ8˜8Kš
œ˜—š�
œžœ˜.Jš "¡˜<Kš
œR˜RK˜—Kšœžœ
˜$Kšœžœ
˜"Kšœžœ
˜Kšœžœ
˜"Kšœžœ
˜Kšœ	žœžœ
˜K˜Kš
œc˜cKšžœ
žœ	žœ
žœ
˜Kš
œT˜TKšžœ
žœ	žœ
žœ
˜K˜Kš
œX˜XKš
œ˜šœ œ˜1š
œ ˜ Kš
œ4˜4Kšžœ
˜Kš
œ˜—Kš
œ˜—Kš
œ˜Kš
œ1˜1Kš
œP˜PKš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜NKšœžœ
˜$Kšœ
žœžœ˜-Kš
œ=˜=Kšžœ	žœ
žœ
žœ
˜Kš
œ+˜+Kš
œ"˜"Kš
œE˜EKšœsžœ
žœžœ˜¢
K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKš
œ
˜
Kšœžœ
˜$Kšœžœ
˜Kšœžœ
˜"Kšœžœ
˜Kš
œ˜Kšœ	žœ
˜K˜Kšœžœ˜%Kš
œf˜fKšžœ
žœ	žœ
žœ
˜Kš
œT˜TKšžœ
žœ	žœ
žœ
˜Kš
œ+˜+K˜Kš
œR˜RKš
œ˜K˜KšœUžœžœžœ˜fKšžœ	žœ
žœ
žœ
˜Kš
œ*˜*K˜Kš
œ˜Kš
œ1˜1Kš
œP˜PK˜Kš
œ8˜8Kš
œ0˜0Kšœ~žœ
žœžœ˜­
K˜KšœŸ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜SKšœ
žœ#™2Kšœžœ
˜$Jš
œ0˜0Jš
œ=˜=šžœ{žœ
žœ
ž˜“
Jšžœžœ)žœ˜UJšžœ
˜—K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜OKšœ
žœ™.Kšœžœ
˜$Jš
œ0˜0Jš
œ=˜=šžœ{žœ
žœ
ž˜“
Jšžœžœ)žœ˜TJšžœ
˜—K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜PKšœžœ/™KKšœžœ
˜$Jš
œ0˜0Jšœžœ
˜Jš
œ=˜=šžœ{žœ
žœ
ž˜“
šžœžœ˜'Jš
œ9˜9Jšžœžœ?˜UJšžœD˜HJšžœ
˜J˜—Jšžœ
˜—Jš
œW˜WJš
œ ˜ K˜K˜—š
�œžœžœžœžœ˜rKš
œ˜Kšœžœ
˜Kšœ	žœ
˜Kšžœ
ž	™Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜K˜Kš
œc˜cKšžœ
žœ	žœ
žœ
˜Kš
œ*˜*Kšœ
žœŸ˜@Kšœ
žœL˜XKš
œ1˜1Kšžœ
ž™Kš
 ˜Kš
œ4˜4Kš
œ˜Kš
 ˜Kš
œ1˜1Kšœ
žœ3˜?Kš
œ/˜/Kšœžœ˜#K˜K˜—šÐbnœžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Cš�œžœ˜/Kš
œ*˜*Kš
œ)˜)Kšœžœ˜#Kš
œ$˜$Kš
œ ˜ Kš
œ'˜'Kš
œ#˜#K˜"Kš
œ,˜,Kš
œ$˜$Kš
œ'˜'K˜—Kšœžœ
˜$Kšœ
žœžœ˜-Kšœžœ!˜?K˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Nš�œžœ˜/Kš
œ*˜*Kš
œ)˜)Kšœžœ˜#Kš
œ$˜$Kš
œ ˜ Kš
œ'˜'Kš
œ#˜#K˜"Kš
œ˜Kš
œ$˜$Kš
œ'˜'K˜—Kšœžœ
˜$Kšœ
žœžœ˜-Kšœžœ!˜?K˜K˜—š¢
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Iš�œžœ˜/Kš
œ*˜*Kš
œ)˜)Kšœžœ˜#Kš
œ$˜$Kš
œ ˜ K˜Kš
œ'˜'Kš
œ$˜$K˜K˜"Kšœ
 œ
˜,K˜Kš
œ$˜$Kš
œ'˜'K˜—Kšœžœ
˜$Kšœ
žœžœ˜-Kšœžœ!˜?K˜K˜—š¢œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Fš�œžœ˜/Kšœ
žœžœ
˜Kš
œ$˜$Kš
œ ˜ Kš
œ'˜'Kš
œ#˜#šžœ=žœ$žœ˜lKšœžœ
˜K˜—K˜"Kšœ'žœ˜-Kš
œ$˜$Kš
œ'˜'Kšžœ
žœ"žœ˜7K˜—Kšœžœ
˜$Kš
œ˜Kšœžœ
˜Kšœ	žœ
˜Kšœžœ˜#Kšžœ
ž	™Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜Kšœžœ
˜Kš
œ*˜*Kš
œ)˜)Kšœ
žœ˜!K˜Kš
œc˜cKšžœ
žœ	žœ
žœ
˜Kš
œ*˜*Kšœ
žœ:˜FKš
œ1˜1Kšžœ
ž™Kš
 ˜Kš
œ6˜6Kš
œ˜Kš
 ˜Kš
œ1˜1Kšœ
žœ3˜?Kš
œ/˜/Kšœžœ˜#K˜K˜—K™K™š�œžœ
žœ)˜BK™Ä
Kš
œ2˜2Kš
œ˜Kšœžœ
˜
Kšœ3žœ˜;Kš
œ˜Kš
œ&˜&K˜K˜Kš
œ4˜4Kš
œ4˜4Kš
œ˜KšœžœŸ3˜Yšžœž˜šžœžœ˜%Kšœžœ
˜$Kšžœ
˜K˜—Kš
œ"˜"Kš
œ"˜"K˜Kš
œK˜KKš
 %˜%Kš
œ)˜)Kš
œ'˜'Kšœ# œLžœ˜{K–Ò
[testPoint: 
GGBasicTypes.Point, criticalR: 
REAL, currentObjects: 
GGMultiGravity.ObjectBag, activeObjects: 
GGMultiGravity.TriggerBag, gargoyleData: 
GGInterfaceTypes.GargoyleData, intersections: 
BOOL]šœ œLžœ˜�
š
žœžœ
žœžœ
žœ˜1Kš
œ˜K˜Kšžœ
˜K˜—šžœžœ
žœžœ
žœžœ%žœžœ˜�
Kš
œ^˜^K˜K˜Kšžœžœ
žœ#˜=Kšžœžœ
žœ˜7K˜
—šžœ˜Kš
œ"˜"Kš
œ˜K˜Kš
œ%˜%Kš
œ˜K˜—Kšžœ
˜—Kš
œÏ
˜Ï
KšœŸ˜K˜—š�	œžœ-˜<Kš
œ&˜&Kš
œ4˜4K˜K˜—š�œžœ-˜BKš
œ&˜&Kš
œ#˜#Kš
œŒ
˜Œ
Kš
œ2˜2K˜K˜—š�œžœ-˜?Kš
œ&˜&Kš
œ#˜#Kš
œŒ
˜Œ
Kš
œ?˜?K˜K˜—š�œžœ“
˜¯
šžœžœ
žœ˜Kš
œ%˜%K˜
—šžœ
žœžœ
žœ˜!Kš
œ#˜#K˜
—šžœ
žœžœ˜(Kš
œ%˜%K˜
—šžœ
žœ%žœ˜2Kš
œ%˜%K˜
—šžœ
žœžœ˜$Kš
œ#˜#Kš
œ˜Kš
œ%˜%K˜
—Kšžœ
žœ
˜Kš
œ˜K˜K˜—K˜K™Kšœ
žœ™&Kšœ
žœžœ
™!šœ
žœžœ™K™Kš
œ™—š
�
œžœ&žœžœžœ™aKšœžœ™1K™—š�
œžœžœ
žœžœžœ™GKšžœ
žœ™K™K™—š�
œžœžœ
žœžœžœ™9Kšœžœ
™(Kš
žœžœ
žœ
žœ
žœ™%Kšžœ™!K™K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKšœžœ
˜$Kš
œO™OKš	žœžœ
žœ
žœŸ™6šžœžœžœ™EKšœžœ
™"Kšœžœ
™Kš
œS™SKš
 ™Kš
œ™Kš
 ™Kš
œ1™1Kš
œP™PKš
œ0™0Kšœ€
žœ
žœžœ™¯
K™
—šžœ™Kš
œd™dKš
œ ™ K™—Kš
œQ˜QKš
œ ˜ KšœŸ˜K˜—š�œžœžœ
žœ™/Kšœžœ
™$K™ƒKšœžœ
™Kš
œ™K™Kš
œ'™'K™Kš
œ%™%K™&Kšœ
žœ
žœ
™Kš
œB™BKšœ	žœ
™K™K™
Kš
œ™Kšœ
žœ
™Kš
œ$™$Kš
œ:™:šžœRžœžœ
ž™gKšžœ
žœžœ
žœ
™,Kšžœ
žœžœ
žœ
™'Kšœžœ™)š
œ,™,Kš
 ™—Kš
œ*™*Kš
œ6™6Kš
œ*™*Kš
œ7™7š
œF™FKš
 ™—šžœžœBžœž™iKš
œ1™1Kš
œ-™-Kšžœ
™—Kš
œP™PKšžœ
™—Kš
œ™Kš
œ9™9šžœtžœ
ž™‹
Kš
œ™Kš
œK™KKšžœžœ
žœ
™'Kš
œ5™5šžœkžœž™ˆ
KšœIžœ™NKš
œ/™/Kšžœ
žœ	žœ
žœ
™Kš
œ$™$š
ž™šžœ™
KšœNžœ™SKš
œ'™'K™——Kšžœ
™—Kš
œB™BKš
œ.™.Kšžœ
™—™K™——š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜GKšœžœ
˜$Kš
œM˜MKš
œ!˜!Kš
œ˜K˜Kš
œE˜EKš
œ+˜+šžœžœ
žœžœ˜4Kš
œ`˜`Kšžœ˜K˜—Kš
œ˜Kš
œ)˜)Kš
œ/˜/šžœžœ
žœ˜Kš
œu˜uKšžœ˜Kš
œ˜—šžœCžœžœ
ž˜\Kš
œ˜Kšžœ
žœžœ
žœ
˜(šžœžœ˜!Kš
œ^˜^Kšžœ
˜K˜—Kš
 ;˜;Kšžœ
˜—Kšœ;Ÿ&˜aKš
œ&˜&Kšœ€
žœ
žœžœ˜¯
š
ž˜Kšœžœ˜=—KšœŸ˜—K˜š�œžœžœ™IK™'Kš
œ-™-Kš
œ™Kš
œ™K™š
œ;™;Kš
 0™0—Kš
œ=™=šžœržœ
žœ
ž™Š
Kš
œ>™>Kš
œ0™0Jšžœ
™Jš
 ™—Jš
œD™Dšžœžœ
ž™šžœwžœ
žœ
ž™�
Jš
œ™šžœhžœžœ
ž™�
KšœŸœ6™FKš
œ+™+Kš
œ1™1Kšžœ™Jšžœ
™—šžœžœ
žœ™KšœŸœ7™Gšžœžœ™#Kš
œ$™$Kš
œ;™;K™
—šžœ™Kš
œ,™,Kš
œ1™1K™—Kšžœ™K™—š
ž™™Jš
œD™DJ™——šžœ
™J™——Jšžœ
™—K™K™—K˜š�œžœžœ™Fš�	œ™Jšœžœ
™J™—K™'K™š
œ;™;Kš
 0™0—Kš
œ=™=šžœržœ
žœ
ž™Š
Kš
œ>™>Kš
œ0™0Jšžœ
™—š
œ"™"J™^—JšœTžœ™[Kš
œ1™1K™K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜EKšœžœ
˜$Kš
œ˜Kš
œ'˜'Kš
œE˜EKš	žœžœ
žœ
žœŸ˜6Kšœ!Ÿ˜5Kšœ  œ˜IKš
œ"˜"K–3[caret: 
GGInterfaceTypes.Caret, chair: 
REF ANY]šœ*žœ˜/Kšœ€
žœ
žœžœ˜®
Kš
œ&˜&KšœŸ
˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜GKšœžœ
˜$Kš
žœ'žœ
žœTžœ
žœ
˜�
Kš
œ-˜-Kš
œ˜Kšœsžœ
žœžœ˜¡
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜RKšœžœ
˜$Kšžœ'žœ
žœ
˜5Kš
œ-˜-Kš
œ˜Kšœsžœ
žœžœ˜¡
K˜K˜—š�	œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜HKšœžœ
˜$Kš
œ*˜*Kš
œ+˜+Kš
œ)˜)Kšœžœ˜#Kšœmžœ
žœžœ˜›
Kš
œ)˜)K˜—K˜Kš
Ïz
™
Kšœžœ˜Kšœžœ˜Kšœžœžœžœ
žœ
žœ
žœžœ˜ZK˜š�œžœžœ˜3Kš
œq˜qKš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Jš�œ˜"Kš
œ(˜(Kš
œ˜—Kšœžœ
˜$Kš
œ,˜,KšœŸ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Eš�
œ˜K˜
Kš
œC˜CKš
œ+˜+Kš
œ˜—Kšœžœ
˜$Kš
œ&˜&KšœŸ
˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜KKšžœ˜š�œžœžœ˜QKšœžœ
˜
Kš
œ˜Kš
œ˜Kš
œ ˜ Kš
œ˜Kš
œ˜Kšœ	žœ
˜Kš
œ#˜#Kš
œ˜Kš
œ˜Kš
œ˜Kš
œ"˜"Kš
œF˜FKš
œ6˜6Kš
œ˜K–N[p0: 
GGBasicTypes.Point, p1: 
GGBasicTypes.Point, props: 
LIST OF REF ANY]š
œ<˜<K–N[p0: 
GGBasicTypes.Point, p1: 
GGBasicTypes.Point, props: 
LIST OF REF ANY]š
œ<˜<K–N[p0: 
GGBasicTypes.Point, p1: 
GGBasicTypes.Point, props: 
LIST OF REF ANY]š
œ<˜<K–N[p0: 
GGBasicTypes.Point, p1: 
GGBasicTypes.Point, props: 
LIST OF REF ANY]š
œ<˜<Kš
œ7˜7Kš
œ7˜7Kš
œ7˜7Kš
œ7˜7Kš
œ˜—Kšœžœ
˜$Kš
œ(˜(Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Gš�œ˜K˜
Kš
œC˜CKš
œ2˜2Kš
œ˜—Kšœžœ
˜$Kš
œ*˜*KšœŸ˜K˜—š�	œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜Hš�
œ˜ Kšœžœ
˜
Kš
œ˜K˜Kš
œ$˜$Kš
œ˜Kš
œ˜Kš
œ"˜"Kš
œ2˜2Kš
œ˜—Kšœžœ
˜$Kš
œ,˜,KšœŸ˜K˜—š�œžœ<žœ˜ZK™bK˜Kšœ	žœ
˜šžœžœ
Ÿ<˜ZK˜E—š	žœ
žœ
žœ&žœŸ\˜ 
Kš
œW˜WKšœ Ÿ$˜DKš
œ0˜0K˜
—š	žœ
žœžœ&žœŸ\˜¢
Kš
œ]˜]Kšœ Ÿ$˜DKš
œ/˜/K˜
—šžœŸ2˜9Kš
œ,˜,Kšœ Ÿ$˜DKš
œ0˜0K˜—Kšžœ
žœ	žœ
žœ
˜K˜K˜—š�œžœ<žœ˜ZK™‰
Kšœ	žœ
˜šžœžœ
Ÿ<˜ZK˜E—šžœŸN˜UK˜K˜šžœžœ
žœ'ž˜5K˜)Kš
œ(˜(Kšœ Ÿ$˜DKš
œ0˜0Kšžœ
žœ	žœ
žœ
˜K˜Kšžœ
˜—Kš
œ*˜*Kšœ Ÿ$˜DKš
œ0˜0Kšžœ
žœ	žœ
žœ
˜K˜—K˜K˜—š�œžœ2žœ˜LKš
œT™TKš�œš™¢–B -- [run: GGModelTypes.Sequence] RETURNS [traj: GGModelTypes.Traj]š�	œ˜Kšœžœ™>Kš
œI˜IK˜5Kšžœžœ
žœ
žœ
žœŸ˜CK˜(šžœ;žœžœ
ž˜Pšžœžœ
Ÿ˜:KšœMŸ˜[š
œ˜Kš	žœžœžœžœ-ŸR˜Á
Kšžœ/Ÿ ˜SK˜—Kšžœžœ
˜—Kšžœ
˜—K˜(K˜—Kš
œ˜KšœCžœžœ˜OK˜"Kšœžœ˜!Kš
œ&˜&Kšœ€
žœ
žœžœ˜®
K˜K˜—Kšœ
žœžœžœ˜Pš�
œžœ+˜>Kš
œT™TKš�œ™‡
–B -- [run: GGModelTypes.Sequence] RETURNS [traj: GGModelTypes.Traj]š�	œ˜Kšœžœ™>Kš
œI˜IKš
œ5˜5Kšžœžœ
žœ
žœ
žœŸ˜CKš
œ(˜(šžœ;žœžœ
ž˜Pšžœžœ
Ÿ˜:Kš
œ#˜#Kšžœžœ
˜—Kšžœ
˜—K˜(Kš
œ˜—Kš
œ˜KšœCžœžœ˜OKš
œ&˜&K˜"Kšœžœ˜!Kšœ€
žœ
žœžœ˜®
Kš
œ˜K˜—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜OKšœžœ
˜$K˜1K˜K˜—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜IKšœžœ
˜$K˜/K˜K˜—š�	œžœ:˜Iš�œ˜!Kšœžœ™>Kš�
œžœ˜Kš�
œžœ˜K˜K˜Kšœžœžœ˜BKš	œ!žœžœžœ(žœ(˜¤
Kš
œP˜PKš
œ5˜5Kšœ	žœ
˜Kšœ	žœ˜Kš
žœžœ
žœ
žœ
žœ˜%Kšžœžœžœ˜@Kš
œ(˜(Kš
œ2˜2K˜šžœ;žœžœ
ž˜Pšžœžœ
žœ'ž˜5Kš
œ1˜1K˜0K˜Kšžœ
˜—Jš
œ$˜$J˜Kšžœ
˜—KšžœžœŸ=˜hKšœ2žœ˜7Jš
œ&˜&Jš
œ0˜0Jšžœ
žœ	žœ
žœ
˜Jš
œ(˜(Kš
œ˜—Kšœ^žœžœ˜kK˜"Kšœžœ˜!Kšœ€
žœ
žœžœ
˜­
K˜K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜RKšœžœ
˜$Kšœžœžœ˜+Kš
œ<˜<Kš
œ+˜+šžœCžœžœ
ž˜YKš
œ;˜;šžœkžœžœ
ž˜Œ
–[atom: 
ATOM]šžœ<žœžœžœžœ	žœžœ˜iKš
œF˜FKš
œ3˜3Kš
œ˜—Kšžœ
˜—Kšžœ
˜—K–Û
[feedback: 
ViewerClasses.Viewer, msgType: 
GGError.MsgType, format: 
ROPE _ NIL, v1: 
IO.Value _ [null[]], v2: 
IO.Value _ [null[]], v3: 
IO.Value _ [null[]], v4: 
IO.Value _ [null[]], v5: 
IO.Value _ [null[]]]š
œ\˜\Kšœmžœ
žœžœ˜œ
K˜—K˜K™š�	œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ™HKšœžœ
™$Kšœžœ
žœ
™Kš
œ™K™Kš
œ™K™
Kšœ	žœ
™Kš
œ'™'š
ž™Kšžœ	žœ
žœ
žœ
™%šžœžœ
ž™™ Kšœ
Ÿœ8™FKšžœ
žœ	žœ
žœ
™K™—š
œ™Kšžœ$žœ
žœ
™<Kšœ
Ÿœ3™AKšžœ
žœ	žœ
žœ
™%K™—Kšžœžœ
™—Kšžœžœžœ
žœ™AKš
œY™YKš
œ(™(Kš
œ+™+Kš
œ&™&šžœžœ™ Kš
œE™EKšœ0žœ™5Kš
 "™"Kš
œ'™'Kšœ3žœ™9K™
—šžœ™Kš
œ9™9Kš
œ9™9Kš
œ#™#Kš
œ=™=K™—K–x[traj: 
GGModelTypes.Traj, gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGSegmentTypes.SelectionClass]š
œ0™0K–£
[caret: 
GGInterfaceTypes.Caret, on: 
GGInterfaceTypes.CaretOn _ nothing, chair: 
REF ANY _ NIL, jointNum: 
NAT _ 999, cpNum: 
NAT _ 999, segNum: 
NAT _ 999]šœžœ™!K–![caret: 
GGInterfaceTypes.Caret]š
œ)™)Kš
œ?™?Kš
œ/™/šœ€
žœ
žœžœ™¯
Kš
œ”
™”
—š
ž™™Kš
œ[™[Kš
œ ™ K™—š
œ™Kš
œW™WKš
œ ™ K™——Kšžœ
™—KšœŸ™K™—š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜DKšœžœ
˜$Kš
œ˜Kš
œ˜K˜
Kš
œ˜Kšœ	žœžœ
˜Kš
œ8˜8š
Ðbk˜Kš
žœ	žœ
žœ!žœ
žœ
˜HKšœ
Ÿœ2˜@Kšžœ
žœ	žœ
žœ
˜%Kšžœžœžœ
žœ˜AKš
œY˜YKš
œ-˜-Kš
œ+˜+Kš
œ&˜&šžœžœ˜ Kš
œE˜EKšœ0žœ˜5Kš
œ"˜"Kš
œ'˜'Kšœ3žœ˜9K˜
—šžœ˜Kš
 >˜>Kš
œ>˜>Kš
œ#˜#Kš
 B˜BK˜—K–x[traj: 
GGModelTypes.Traj, gargoyleData: 
GGInterfaceTypes.GargoyleData, selectClass: 
GGSegmentTypes.SelectionClass]š
œ0˜0K–£
[caret: 
GGInterfaceTypes.Caret, on: 
GGInterfaceTypes.CaretOn _ nothing, chair: 
REF ANY _ NIL, jointNum: 
NAT _ 999, cpNum: 
NAT _ 999, segNum: 
NAT _ 999]š ¤ 0˜OK–![caret: 
GGInterfaceTypes.Caret]š
œ)˜)Kš œ œ˜IKš
œ/˜/šœ€
žœ
žœžœ˜¯
Kš
œ”
™”
—š
ž˜˜Kš
œ[˜[Kš
œ ˜ K˜—š
œ˜Kš
œW˜WKš
œ ˜ K˜——Kš¤œ
˜—KšœŸ˜K˜—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ™IKšœžœ
™$Kš
œM™MšžœRžœžœ
ž™gKšœžœ
™Kšžœ
™—K™K™—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ™IKšœžœ
™$Kš
œM™MšžœRžœžœ
ž™gKšœžœ
™Kšžœ
™—K™—K™K™	š�œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜MKšœžœ
˜$Kšœ!žœ
˜&K˜K˜—š�
œžœ
žœžœ
žœ	žœ
žœ
žœ
žœ˜LKšœžœ
˜$Kšœ!žœ
˜'K˜—K˜Kš
 $™$K™š�œžœ˜Kšœ6žœ˜GKšœ3žœ˜DK˜—K˜K˜K˜Kšžœ
˜J˜—…—ÕêwW