DIRECTORY Complex USING [VEC], Cubic USING [Bezier]; FitBasic: CEDAR DEFINITIONS = { Handle: PUBLIC TYPE = REF Rec; Rec: PUBLIC TYPE = RECORD [ traj: TrajHandle, slist: SListHandle, closed: BOOLEAN, minDist: REAL, --affects AddSample. Won't add a new sample inside of this distance otherContours: LIST OF Contour, undo: REF ANY --data for the Undo procedure ]; Contour: TYPE = RECORD [ traj: TrajHandle, slist: SListHandle ]; SampleHandle: TYPE = REF Sample; SListHandle: TYPE = REF SList; LinkHandle: TYPE = REF Link; TrajHandle: TYPE = REF Traj; JointType: TYPE = {none, potential, forced}; Sample: TYPE = RECORD [next: SampleHandle _ NIL, prev: SampleHandle _ NIL, xy: Complex.VEC _ [0,0], jointType: JointType _ none, tanIn: Complex.VEC _ [0,0], --set tanIn=tanOut for smooth joint tanOut: Complex.VEC _ [0,0] ]; SList: TYPE = RECORD [header: SampleHandle, --a header for a circular list selectedSample: SampleHandle, first: SampleHandle _ NIL, last: SampleHandle _ NIL ]; Link: TYPE = RECORD [next: LinkHandle _ NIL, prev: LinkHandle _ NIL, cubic: Cubic.Bezier ]; Traj: TYPE = RECORD [links: LinkHandle _ NIL, lastLink: LinkHandle _ NIL ]; }. ΤFitBasic.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Maureen Stone November 26, 1984 5:53:17 pm PST Doug Wyatt, September 5, 1985 1:53:26 pm PDT Basic types for FitState and Friends Κ/˜code™ Kšœ Οmœ1™