DIRECTORY
CardTab, CedarProcess, Feedback, FeedbackTypes, FunctionCache, GGBasicTypes, GGCircleCache, GGCoreTypes, GGHistoryTypes, GGModelTypes, GGSegmentTypes, Imager, ImagerTransformation, IO, RefTab, Rope, SlackProcessTypes, TIPTypes;

GGInterfaceTypes: CEDAR DEFINITIONS = BEGIN

BezierDragRecord: TYPE = GGModelTypes.BezierDragRecord;
BoundBox: TYPE = GGModelTypes.BoundBox;
Camera: TYPE = GGModelTypes.Camera;
Circle: TYPE = GGBasicTypes.Circle;
DefaultData: TYPE = GGModelTypes.DefaultData;
DefaultDataObj: TYPE = GGModelTypes.DefaultDataObj;
DisplayStyle: TYPE = GGModelTypes.DisplayStyle;
ExtendMode: TYPE = GGModelTypes.ExtendMode;
FeatureData: TYPE = GGModelTypes.FeatureData;
MsgRouter: TYPE = FeedbackTypes.MsgRouter;
HistoryEvent: TYPE = GGModelTypes.HistoryEvent;
ImagerProc: TYPE = PROC [dc: Imager.Context];
Line: TYPE = GGCoreTypes.Line;
Point: TYPE = GGBasicTypes.Point;
QualityMode: TYPE = GGModelTypes.QualityMode;
RopeListt: TYPE = GGCoreTypes.RopeListt;
Scene: TYPE = GGModelTypes.Scene;
Segment: TYPE = GGSegmentTypes.Segment;
SelectMode: TYPE = GGModelTypes.SelectMode;
Sequence: TYPE = GGModelTypes.Sequence;
Slice: TYPE = GGModelTypes.Slice;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
SliceGenerator: TYPE = GGModelTypes.SliceGenerator;
TouchGroup: TYPE = GGSegmentTypes.TouchGroup;
TrajEnd: TYPE = GGModelTypes.TrajEnd;
Vector: TYPE = GGBasicTypes.Vector;

GGData: TYPE = REF GGDataObj;
GGDataObj: TYPE = RECORD [
controls: Controls, -- the control panel
controlState: StateData, -- a place to store values when there is no control panel
embed: EmbedData, -- data about how Gargoyle is embedded in a window or parent editor
router: MsgRouter, -- the textual feedback region (see Feedback.mesa)
height:  CARDINAL ¬ 0,
originalWDir: Rope.ROPE,
currentWDir: Rope.ROPE,
lastEvents: GGCoreTypes.EventListt,
justSawSelect: BOOL ¬ TRUE, 
mouseMode: ATOM, -- mouseMode and state together form a hierarchical name space of states.  (should be moved to DragData)
state: ATOM, -- as in mouseMode/state (should be moved to DragData)
scene:  Scene, -- the collection of objects we are looking at.
rootSlice: Slice, -- for storing inheritable properties
caret: Caret,
anchor: Caret,
camera: Camera,
drag: DragData,
refresh: RefreshData,
hitTest: Filters,
measure: MeasureData,
debug: DebugData,
defaults: DefaultData,
fitData: FitData,
behavior: BehaviorData,
history: HistoryData,
slackHandle: SlackProcessTypes.SlackHandle,
tipTable: TIPTypes.TIPTable,
touching: LIST OF TouchGroup,
aborted: PACKED ARRAY AbortFlags OF BOOL ¬ ALL[FALSE], -- has the Abort button been pushed recently?
multiGravityPool: REF ANY -- temporary storage pool for GGMultiGravity 
];

AbortFlags: TYPE = {refresh, playback, gravitytest, bags, filein, spare2, spare3};

MeasureData: TYPE = RECORD [
caret0: Point,
caret1: Point,
caret2Value: Point,
slopeViewValue: REAL,
angleViewValue: REAL,
radiusViewValue: REAL,
lineDistViewValue: REAL
];

DebugData: TYPE = REF DebugDataObj;
DebugDataObj: TYPE = RECORD [
lastMessage: Rope.ROPE,
writeScriptName: Rope.ROPE,
writeScriptStream: IO.STREAM,
autoScriptName: Rope.ROPE,
autoScriptStream: IO.STREAM,
autoScriptActionCount: CARD ¬ 0,
lastAutoScriptActionCount: CARD ¬ 0,
autoScriptNames: RopeListt, -- in order, the scripts that built this file
playScriptName: Rope.ROPE,
playScriptStream: IO.STREAM
];

FitData: TYPE = RECORD [
threshold: REAL ¬ 0.5,
minDistance: REAL ¬ 0.75,
polyPenalty: REAL ¬ 0.75,
angle: REAL ¬ 45.0,
tolerance: REAL ¬ 2.0,
maxIterations: NAT ¬ 5
];

BehaviorData: TYPE = RECORD [
activeDoc: REF,
rawInputMode: ATOM, -- e.g. $None, $Gargoyle, or $Button
rawInputState: ATOM, -- in case we need sub-states of rawInputMode
savedSelections: LIST OF SliceDescriptor
];

HistoryTool: TYPE = REF HistoryToolObj;
HistoryToolObj: TYPE = GGHistoryTypes.HistoryToolObj;

HistoryData: TYPE = RECORD [
list: LIST OF HistoryEvent,
maxSize: INT ¬ 20, -- desired size of history list
currentIndex: INT ¬ 0, -- number for the event in progress
currentEvent: HistoryEvent, -- the event in progress
tool: HistoryTool, -- history tool
advanceProcess: CedarProcess.Process, -- background process for advance capture
advanceEvent: HistoryEvent -- event for advance capture
];

DragData: TYPE = REF DragDataObj;
DragDataObj: TYPE; -- concrete type in GGDragTypes.DragDataObj;

Controls: TYPE = REF ControlsObj;
ControlsObj: TYPE; -- concrete type in GGControlPanelTypes.ControlsObj

StateData: TYPE = REF StateDataObj;
StateDataObj: TYPE; -- concrete type in GGStateTypes.StateDataObj

EmbedData: TYPE = REF EmbedDataObj;
EmbedDataObj: TYPE; -- concrete type in GGEmbedTypes.EmbedDataObj


Caret: TYPE = REF CaretObj;
CaretObj: TYPE = RECORD [
exists: BOOL ¬ FALSE,
point: Point ¬ [0.0, 0.0],
normal: Vector ¬ [0.0, -1.0],
chair: SliceDescriptor,
attractor: REF -- may be SliceDescriptor, or an AlignmentObject
];

GravityExtentData: TYPE = REF GravityExtentDataObj;
GravityExtentDataObj: TYPE = RECORD [
extent: REAL
];

GravityType: TYPE = {linesPreferred, pointsPreferred, facesPreferred};
Filters: TYPE = REF FiltersObj;
FiltersObj: TYPE = RECORD [
t: REAL ¬ 25.0,
triggerBag: TriggerBag,
oldTriggerBag: TriggerBag,
oldTriggerBagOK: BOOL ¬ FALSE,
alignBag: AlignBag,
alignBagIsOldAlignBag: BOOL ¬ FALSE,
oldAlignBag: AlignBag,
oldAlignBagOK: BOOL ¬ FALSE,
sceneBag: TriggerBag,
oldSceneBag: TriggerBag,
oldSceneBagOK: BOOL ¬ FALSE,
gravityType: GravityType ¬ pointsPreferred,
hitCount: NAT ¬ 0,
scaleUnit: REAL ¬ 72.0, -- value of one scale unit, in screen dots.  Initially set to 72.0 (1 inch)
horizontalDegrees: REAL -- slope considered horizontal.  Initialized to 0 degrees (screen horizontal)
];

RefreshData: TYPE = REF RefreshDataObj;
RefreshDataObj: TYPE;

TriggerBag: TYPE = REF TriggerBagObj;
TriggerBagObj: TYPE = RECORD [
slices: RefTab.Ref,
anchor: FeatureData
];

AlignBag: TYPE = REF AlignBagObj;
AlignBagObj: TYPE = RECORD [
slopeLineTable: CardTab.Ref,
angleLines: LIST OF FeatureData,
radiiCircles: LIST OF FeatureData,
distanceLines: LIST OF FeatureData,
anchor: FeatureData
];

AlignmentLine: TYPE = REF AlignmentLineObj;
AlignmentLineObj: TYPE = RECORD [
line: Line,
degrees: REAL,
triggerPoints: LIST OF Point ¬ NIL
];

AlignmentCircle: TYPE = REF AlignmentCircleObj;
AlignmentCircleObj: TYPE = RECORD [
circle: Circle,
triggerPoints: LIST OF Point ¬ NIL
];

AlignmentPoint: TYPE = REF AlignmentPointObj;
AlignmentPointObj: TYPE = RECORD [
point: Point,
tangent: BOOL, -- is this a point of tangency?  (for Describe purposes)
curve1: FeatureData,
curve2: FeatureData
];

SequencePart: TYPE = REF SequencePartObj;
SequencePartObj: TYPE = RECORD [
segNum, jointNum, controlPointNum: INT
];

GoodPoint: TYPE = REF GoodPointObj;
GoodPointObj: TYPE = RECORD [
dist: REAL,
point: Point,
normal: Vector,
featureData: FeatureData, -- this point
hitData: REF ANY, -- a description of this point
dimension: [0..2], -- is this from a vertex, edge, or face?
priority: INT ¬ 0 -- scene order priority. 0 => in back
];

NearVertexEdgeAndFaces: TYPE = REF NearVertexEdgeAndFacesObj;
NearVertexEdgeAndFacesObj: TYPE = RECORD [
things: SEQUENCE len: NAT OF GoodPoint];

FeatureCycler: TYPE = REF FeatureCyclerObj;
FeatureCyclerObj: TYPE = RECORD [
nearVEF: NearVertexEdgeAndFaces,
count: NAT,
index: INTEGER,
testPoint: Point
];

END.
  @  
GGInterfaceTypes.mesa
Contents: Types used by the Gargoyle interface level.
Copyright س 1985, 1986, 1987, 1988, 1992 by Xerox Corporation.  All rights reserved.
Pier, July 21, 1989 4:15:58 pm PDT
Maureen Stone, October 2, 1987 11:56:31 am PDT
Bier, February 5, 1993 1:36 pm PST
Doug Wyatt, April 16, 1992 5:23 pm PDT

This is the data which is passed to Gargoyle whenever a user event occurs.  This REF is stored in the "data" field of both the GargoyleContainer and the ActionArea.
Caret Object

Hit Testing
Refresh (data structures to help update the screen)

Bags

 ‌ت
<  •NewlineDelimiter
–(cedarcode) style™ code™Kڑدnœ-™5Kڑœ
دeœI™TKڑœ"™"K™.K™"K™&K™ —ڑدk	ک	Jڑœµںœ,کمKک —Kڑ‌œںœںœںک+ک Kڑœںœ!ک7Kڑœ
ںœک'Kڑœںœک#Kڑœںœک#Kڑœںœک-Kڑœںœک3Kڑœںœک/Kڑœںœک+Kڑœںœک-Kڑœںœک*Kڑœںœک/Kڑœںœںœک-KڑœںœکKڑœںœک!Kڑœںœک-Kڑœںœک(Kڑœںœک!Kڑœ	ںœک'Kڑœںœک+Kڑœ
ںœک'Kڑœںœک!Kڑœںœ ک5Kڑœںœک3Kڑœںœک-Kڑœ	ںœک%Kڑœںœک#Kک —ڑدbœںœںœکKڑœQںœP™¤—ڑœںœںœکKڑœ
 œدcک(Kڑœ 	œ،9کRKڑœ 	œ،CکUKڑœ،2کEKڑœ	ںœکKڑœںœکKڑœںœکKڑœ#ک#KڑœںœںœکKڑœںœ،hکyKڑœںœ،6کCKڑœ،/ک>Kڑœ،%ک7Kڑœ œکKڑœ œکKڑœ œکKڑœ œکKڑœ	 œکKڑœ	 œکKڑœ	 œکKڑœ 	œکKڑœ
 œکKڑœ	 œکKڑœ
 œکKڑœ	 œکKک+KکKڑœ
ںœںœکKڑœ	ںœںœںœںœںœںœ،-کdKڑœںœںœ،-کGKڑœک—Kک ڑ 
œںœBکRKک —ڑ œںœںœکKڑœکKڑœکKڑœکKڑœںœکKڑœںœکKڑœںœکKڑœںکKکKک —Kڑ 	œںœںœک#ڑ œںœںœکKڑœںœکKڑœںœکKڑœںœںœکKڑœںœکKڑœںœںœکKڑœںœک Kڑœںœک$Kڑœ،-کIKڑœںœکKڑœںœںکKکKک —ڑ œںœںœکKڑœںœکKڑœںœکKڑœںœکKڑœںœکKڑœںœکKڑœںœکKکKک —ڑ œںœںœکKڑœںœکKڑœںœ&ک8Kڑœںœ،-کBKڑœںœںœک(KکKک —Kڑœںœںœک'ڑœںœ!ک5Kک —ڑ œںœںœکKڑœںœںœکKڑœ	ںœ،ک2Kڑœںœ،#ک:Kڑœ،ک4Kڑœ،ک"Kڑœ&،)کOKڑœ،ک7Kک—Kک Kڑœ
ںœںœک!Kڑœںœ،,ک?Kک Kڑœ
ںœںœک!Kڑœںœ،3کFKک Kڑœںœںœک#Kڑœںœ،-کAKک Kڑœںœںœک#Kڑœںœ،-کAKک ڑ ™Kک —Kڑ œںœںœ
کڑ œںœںœکKڑœںœںœکKکKکKڑœکKڑœںœ،0ک?Kک—K™ ڑ ™Kک —Kڑ œںœںœک3ڑœںœںœک%KڑœںکKکKک —Kڑ œںœ5کFKڑ œںœںœکڑ 
œںœںœکKڑœںœکKڑœکKڑœکKڑœںœںœکKڑœکKڑœںœںœک$KڑœکKڑœںœںœکKڑœکKڑœکKڑœںœںœکKک+Kڑœ
ںœکKڑœںœ	،KکcKڑœںœ،MکeKک—Kک ڑ œ,™3K™ —Kڑœںœںœک'KڑœںœکKک ڑ ™K™ —Kڑ 
œںœںœک%ڑ œںœںœکKڑœکKڑœکKڑœکKک —Kڑ œںœںœک!ڑ œںœںœکKڑœکKڑœںœںœک Kڑœںœںœک"Kڑœںœںœک#KڑœکKک—Kک Kڑ œںœںœک+ڑ œںœںœک!KکKڑœ	ںœکKڑœںœںœ	ںک"KکKک —Kڑ œںœںœک/ڑ œںœںœک#KکKڑœںœںœ	ںک"KکKک —Kڑ œںœںœک-ڑ œںœںœک"KکKڑœ	ںœ،8کGKڑœکKڑœکKڑœک—Kک Kڑ œںœںœک)ڑ œںœںœک Kڑœ#ںک&KکKک —Kڑ 	œںœںœک#ڑ œںœںœکKڑœںœکKکKکKڑœ،ک'Kڑœ	ںœںœ،ک0Kڑœ،(ک;Kڑœ
ںœ،%ک7KکKک —Kڑ œںœںœک=ڑ œںœںœک*Kڑœںœںœںœک(Kک —Kڑ œںœںœک+ڑ œںœںœک!Kڑœ ک KڑœںœکKڑœںœکKکKک—Kک Kڑںœک— …—    |  (ّ  