Pier, November 21, 1986 10:47:09 am PST

BiScrollers, Buttons, GGBasicTypes, AtomButtons, GGCircleCache, GGModelTypes, GGSegmentTypes, Imager, ImagerBackdoor, ImagerPixelMap, ImagerTransformation, IO, Menus, Rope, SlackProcess, TiogaButtons, ViewerClasses;

BoundBox: TYPE = GGModelTypes.BoundBox;

Circle: TYPE = GGBasicTypes.Circle;

EntityGenerator: TYPE = GGModelTypes.EntityGenerator;

ExtendMode: TYPE = GGModelTypes.ExtendMode;

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: REF ANY ← NIL, -- an OutlineDescriptor or SliceDescriptor

attractor: REF ANY ← NIL, -- an OutlineDescriptor or SliceDescriptor

onOverlay: BOOL ← FALSE

];

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 ← NIL,

sliceToExtend: SliceDescriptor ← NIL

];

suppressRefresh: BOOL ← FALSE,

paintAction: ATOM,

showColors: AtomButtons.TwoState,

screenStyle: AtomButtons.EnumTypeRef,

alignments: AtomButtons.TwoState,

foregroundBitmap: ImagerBackdoor.Bitmap ← NIL,

foregroundPixelMap: ImagerPixelMap.PixelMap,

foregroundContext: Imager.Context ← NIL, -- derived from foregroundBitmap

foregndBitmapOK: BOOL ← FALSE,

backgroundBitmap: ImagerBackdoor.Bitmap ← NIL,

backgroundPixelMap: ImagerPixelMap.PixelMap,

backgroundContext: Imager.Context ← NIL, -- derived from background map

backgndBitmapOK: BOOL ← FALSE,

chunkingBitmap: ImagerBackdoor.Bitmap ← NIL,

chunkingPixelMap: ImagerPixelMap.PixelMap,

chunkingContext: Imager.Context ← NIL, -- derived from chunking map

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

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

overlayList: LIST OF REF ANY,

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

addedObject: REF ANY ← NIL, -- used to implement GGRefresh.FinishedAdding

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

startBoundBox: BoundBox ← NIL,

textInProgress: Slice ← NIL -- 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

];

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

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

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

currentTriggerBag: TriggerBag,

currentObjectBag: ObjectBag,

sceneTriggerBag: TriggerBag,

hitCount: NAT ← 0,

gravityType: GravityType,

gravityTypeMenu: AtomButtons.EnumTypeRef, -- initialized in GGWindowImpl

gravityExtentButton: GraphicsState,

gravButton: AtomButtons.TwoState,

midpointButton: AtomButtons.TwoState,

heuristicsButton: AtomButtons.TwoState,

slopeHeader: AtomButtons.ScalarButtonHandle,

slopeCount: NAT ← 0,

slopeText: Viewer,

angleHeader: AtomButtons.ScalarButtonHandle,

angleCount: NAT ← 0,

angleText: Viewer,

radiusHeader: AtomButtons.ScalarButtonHandle,

radiusCount: NAT ← 0,

radiusText: Viewer,

radiusCircleCache: GGCircleCache.Cache,

distanceHeader: AtomButtons.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)

];

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,

typescriptIn: IO.STREAM,

typescriptOut: IO.STREAM,

lastMessage: Rope.ROPE ← NIL,

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 ← NIL,

biScroller: BiScrollers.BiScroller,

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

feedback: Viewer ← NIL, -- the textual feedback region (a label)

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,

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

];

button: ViewerClasses.Viewer ← NIL,

value: REAL,

clientData: REF ANY,

atom: ATOM

];

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

];

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

];