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; Sample: TYPE = RECORD [next: SampleHandle _ NIL, prev: SampleHandle _ NIL, xy: Complex.Vec _ [0,0], isNode: BOOLEAN _ TRUE, isCusp: BOOLEAN _ FALSE, tangent: Complex.Vec _ [0,0], --If node is cusp then this is the incoming tangent tanOut: Complex.Vec _ [0,0] --only used if node is a cusp ]; 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 ]; }. dFitBasic.mesa Basic types for FitState and Friends Maureen Stone June 25, 1984 7:23:44 pm PDT Ê ˜J™ J™$J™*J˜šÏk ˜ Jšœœ˜Jšœœ ˜—J˜Jšœ œ œ˜Jšœœœœ˜šœœœœ˜J˜Jšœ˜Jšœœ˜Jšœ œÏcD˜SJšœœœ ˜Jšœœœž˜+J˜J˜—šœ œœ˜J˜J˜J˜J˜—Jšœœœ˜ Jšœ œœ˜Jšœ œœ˜Jšœ œœ˜J˜šœœ˜Jšœœ˜Jšœœ˜J˜Jšœœœ˜Jšœœœ˜Jšœž3˜RJšœž˜9J˜J˜—šœœ˜Jšœž˜5J˜Jšœœ˜Jšœ˜J˜J˜—šœœ˜Jšœœ˜Jšœœ˜J˜J˜J˜—šœœ˜Jšœœ˜Jšœ˜J˜J˜—J˜—…—