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 ]; }. hFitBasic.mesa Basic types for FitState and Friends Maureen Stone November 26, 1984 5:53:17 pm PST Êü˜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šœž#˜@Jšœ˜J˜J˜—šœœ˜Jšœž˜5J˜Jšœœ˜Jšœ˜J˜J˜—šœœ˜Jšœœ˜Jšœœ˜J˜J˜J˜—šœœ˜Jšœœ˜Jšœ˜J˜J˜—J˜—…—Šî