DIRECTORYCubic USING [Bezier],Complex USING [Vec],Seq USING [ComplexSequence,NatSequence],FitBasic USING [Handle, SampleHandle];FitStateUndo: CEDAR DEFINITIONS =BEGINUndo: PROC[handle: Handle];	--reverses the last operationDataType: TYPE = {samples, links, nodes, cusps, contour}RestoreData: PROC[handle: Handle, type: DataType, all: BOOLEAN]; --copies old data from undo InvertTransform: PROC [handle: Handle];	--xform and all flag off of undoRemoveLast: PROC [handle: Handle, type: DataType]; --narrow, then call corresponding routineRestoreLast: PROC [handle: Handle, type: DataType];	--narrow, then call corresponding routineRestoreCurrentContour: PROC[handle: Handle];	--keeps a ref to the last contour on the undoRestoreClosed: PROC[handle: Handle];RestoreMinDist: PROC[handle: Handle];END.  (  FitStateUndo.mesaMaureen Stone June 22, 1984 9:58:05 am PDTNote special case of 0 or nearly 0, (ImagerTransform.CloseEnough)ResetData: PROC[handle: Handle, type: DataType];StartSamples: PROC[handle: Handle, x,y: REAL];	--RestoreData[handle, samples, FALSE]ScaleData: PROC[handle: Handle, scale: REAL, type: DataType];TranslateData: PROC[handle: Handle, trans: Complex.Vec, type: DataType];above with all flag=TRUEResetAllData: PROC[handle: Handle, type: DataType];ScaleAllData: PROC[handle: Handle, scale: REAL, type: DataType];TranslateAllData: PROC[handle: Handle, trans: Complex.Vec, type: DataType];these need no special procs to provide function, only to narrow the undo dataAddSample: PROC[handle: Handle, x,y: REAL];InsertBefore: PROC[handle: Handle, x,y: REAL, s: FitBasic.SampleHandle];RemoveSample: PROC[handle: Handle, s: FitBasic.SampleHandle];AddLink: PROC[handle: Handle, b: Cubic.Bezier];InsertBefore: PROC[handle: Handle, x,y: REAL, link: FitBasic.LinkHandle];RemoveLink: PROC[handle: Handle, link: FitBasic.LinkHandle];AddNode: PROC[handle: Handle, index: NAT, tan: Complex.Vec _ [0,0]];DeleteNode: PROC[handle: Handle, index: NAT];AddCusp: PROC[handle: Handle, index: NAT, tan: Complex.Vec _ [0,0]];DeleteCusp: PROC[handle: Handle, index: NAT];AddContour: PROC[handle: Handle]; -- Makes a new contour and selects itNextContour: PROC[handle: Handle]; -- Moves to the next contour.Closed: PROC [handle: Handle, closed: BOOLEAN _ TRUE] RETURNS [was: BOOLEAN];MinDist: PROC [handle: Handle, minDist: REAL _ 0] RETURNS [was: REAL];Ê’  ˜ Jšœ™Jšœ*™*šÏk	˜	Jšœœ
˜Jšœœ˜Jšœœ˜(Jšœ	œ˜&J˜ —Jšœœ˜!Jš˜JšÏnœœÏc˜9J˜ Jšœ
œ*˜8Jš	žœœ&œÐciÏiœ˜]JšœA™AšžœœŸ ˜HJšž	œœ!™0JšžœœœŸ%™TJšž	œœœ™=Jšžœœ5™HJšœ™Jšžœœ!™3Jšžœœœ™@Jšžœœ5™K—J˜ JšœM™MJšž
œœ#Ÿ)˜\šžœœ#Ÿ)˜]Jšž	œœœ™+Jšžœœœ™HJšžœœ+™=Jšžœœ"™/Jšžœœœ™IJšž
œœ,™<—˜ Jšžœœœ™DJšž
œœœ™-Jšžœœœ™DJšž
œœœ™-J˜ —šžœœŸ-˜ZJšž
œœŸ%™GJšžœœŸ™@—Jšžœœ˜$šžœœ˜%Jšžœœœœœœ™MJš
žœœœœœ™F—J˜ J˜ J˜ Jšœ˜— …—    6  ð  