Pier, May 13, 1987 1:11:26 pm PDT

AtomButtonsTypes, BiScrollers, BufferedRefresh, Buttons, Feedback, FunctionCache, GGBasicTypes, GGCircleCache, GGFont, GGModelTypes, GGSegmentTypes, Imager, ImagerBackdoor, ImagerTransformation, IO, Menus, Rope, SlackProcess, TiogaButtons, ViewerClasses;

BoundBox: TYPE = GGModelTypes.BoundBox;

Circle: TYPE = GGBasicTypes.Circle;

EntityGenerator: TYPE = GGModelTypes.EntityGenerator;

ExtendMode: TYPE = GGModelTypes.ExtendMode;

FeedbackData: TYPE = AtomButtonsTypes.FeedbackData;

FeatureData: TYPE = GGModelTypes.FeatureData;

GargoyleContainer: TYPE = Viewer;

ImagerProc: TYPE = PROC [dc: Imager.Context];

Line: TYPE = GGBasicTypes.Line;

Outline: TYPE = GGModelTypes.Outline;

OutlineDescriptor: TYPE = GGModelTypes.OutlineDescriptor;

Point: TYPE = GGBasicTypes.Point;

Scene: TYPE = GGModelTypes.Scene;

Segment: TYPE = GGSegmentTypes.Segment;

SelectMode: TYPE = GGModelTypes.SelectMode;

Sequence: TYPE = GGModelTypes.Sequence;

Slice: TYPE = GGModelTypes.Slice;

SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;

TouchGroup: TYPE = GGSegmentTypes.TouchGroup;

Traj: TYPE = GGModelTypes.Traj;

Vector: TYPE = GGBasicTypes.Vector;

Viewer: TYPE = ViewerClasses.Viewer;

exists: BOOL ← FALSE,

point: Point ← [0.0, 0.0],

chair: SliceDescriptor,

attractor: SliceDescriptor

];

startPoint: Point ← [0.0, 0.0],

currentPoint: Point ← [0.0, 0.0], -- maintained by MouseEvent Procs

savedCaret: Caret, -- needed to recover from Abort operations

seqInProgress: Sequence,

boxInProgress: SliceDescriptor, -- needed by Start/During/End Box procs to pass along new box

transform: ImagerTransformation.Transformation,

selectState: SelectMode ← joint, -- what are we in the process of selecting?

extendMode: ExtendMode ← joint, -- what are we extending to?

outlineToExtend: OutlineDescriptor,

sliceToExtend: SliceDescriptor

];

suppressRefresh: BOOL ← FALSE,

paintAction: ATOM,

showColors: AtomButtonsTypes.TwoState,

screenStyle: AtomButtonsTypes.EnumTypeRef,

alignments: AtomButtonsTypes.TwoState,

sandwich: BufferedRefresh.Sandwich,

clientToViewer: ImagerTransformation.Transformation, -- remembers BiScroller to allow reuse of sandwich when window opens anew

lineCache: FunctionCache.Cache, -- remembers which lines have been drawn in Foreground

dragInProgress: BOOL ← FALSE,

caretIsMoving: BOOL ← FALSE,

spotPoint: Point ← [0.0, 0.0], -- For Gravity Testing

hitPoint: Point ← [0.0, 0.0], -- For Gravity Testing

overlayList: LIST OF SliceDescriptor,

orderedOverlayList: LIST OF SliceDescriptor, -- maintained by routines in GGRefreshImpl. NIL => must rebuild ordered list

addedObject: Slice, -- used to implement GGRefresh.FinishedAdding

recentFeature: FeatureData, -- maintained by DuringSelect routines. Most recently hit feature. Could be used for refresh optimization of ExtendSelection.

startBoundBox: BoundBox,

textInProgress: Slice, -- text slice to be updated by AddChar if nonNil. Any mouse click makes this NIL, completing typein. A character typed when isNIL starts a new textInProgress

areaFollowColorTool: BOOL ← FALSE,

lineFollowColorTool: BOOL ← FALSE

];

tolerance: REAL ← 25.0, -- the tolerance for hit testing

criticalR: REAL ← 25.0, -- see GGGravity.Map

innerR: REAL ← 12.0, -- see GGGravity.InnerCircle

triggerBag: TriggerBag,

oldTriggerBag: TriggerBag,

alignBag: AlignBag,

oldAlignBag: AlignBag,

sceneBag: TriggerBag,

oldSceneBag: TriggerBag,

hitCount: NAT ← 0,

gravityType: GravityType,

gravityTypeMenu: AtomButtonsTypes.EnumTypeRef, -- initialized in GGWindowImpl

gravityExtentButton: AtomButtonsTypes.GraphicsState,

gravButton: AtomButtonsTypes.TwoState,

midpointButton: AtomButtonsTypes.TwoState,

heuristicsButton: AtomButtonsTypes.TwoState,

slopeHeader: AtomButtonsTypes.ScalarButtonHandle,

slopeCount: NAT ← 0,

slopeText: Viewer,

angleHeader: AtomButtonsTypes.ScalarButtonHandle,

angleCount: NAT ← 0,

angleText: Viewer,

radiusHeader: AtomButtonsTypes.ScalarButtonHandle,

radiusCount: NAT ← 0,

radiusText: Viewer,

radiusCircleCache: GGCircleCache.Cache,

distanceHeader: AtomButtonsTypes.ScalarButtonHandle,

distanceCount: NAT ← 0,

distanceText: Viewer,

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)

];

extent: REAL

];

caret0: Point,

caret1: Point,

caret2Value: Point,

caret2: Viewer,

slopeViewValue: REAL,

slopeView: Viewer,

angleViewValue: REAL,

angleView: Viewer,

radiusViewValue: REAL,

radiusView: Viewer,

lineDistViewValue: REAL,

lineDistView: Viewer

];

typescript: Viewer,

lastMessage: Rope.ROPE,

logFileName: Rope.ROPE,

logStream: IO.STREAM

];

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.

outer: GargoyleContainer,

biScroller: BiScrollers.BiScroller,

actionArea: Viewer, -- the inner viewer of a BiScroller

feedback: FeedbackData, -- the textual feedback region (see Feedback.mesa)

height: CARDINAL ← 0,

yBounded: LIST OF Viewer ← NIL, -- used in GGContainerImpl for viewer resizing.

xBounded: LIST OF Viewer ← NIL,

originalWDir: Rope.ROPE,

currentWDir: Rope.ROPE,

mouseMode: ATOM, -- mouseMode and state together form a hierarchical name space of states.

state: ATOM, -- as in mouseMode/state

scene: Scene, -- the collection of objects we are looking at.

caret: Caret,

anchor: Caret,

camera: CameraData,

drag: DragData,

refresh: RefreshData,

hitTest: Filters,

measure: MeasureData,

debug: DebugData,

defaults: DefaultData,

slackHandle: SlackProcess.SlackHandle,

touching: LIST OF TouchGroup,

aborted: PACKED ARRAY AbortFlags OF BOOL ← ALL[FALSE], -- has the Abort button been pushed recently?

gravityPool: REF ANY, -- temporary storage pool for GGGravity

multiGravityPool: REF ANY -- temporary storage pool for GGMultiGravity

];

outlines: LIST OF FeatureData,

slices: LIST OF FeatureData,

intersectionPoints: LIST OF FeatureData,

anchor: FeatureData

];

slopeLines: LIST OF FeatureData,

angleLines: LIST OF FeatureData,

radiiCircles: LIST OF FeatureData,

distanceLines: LIST OF FeatureData,

midpoints: LIST OF FeatureData,

intersectionPoints: LIST OF FeatureData,

anchor: FeatureData

];

line: Line,

degrees: REAL,

triggerPoints: LIST OF Point ← NIL

];

circle: Circle,

triggerPoints: LIST OF Point ← NIL

];

point: Point,

tangent: BOOL, -- is this a point of tangency? (for Describe purposes)

curve1: FeatureData,

curve2: FeatureData

];

segNum, jointNum, controlPointNum: INT

];