DIRECTORYPiecewiseFit, Seq, Complex, Rope, LSPieceExtras, Cubic2;PiecewiseFitExtras: CEDAR DEFINITIONS = BEGINJointTanRec: TYPE = RECORD[index: NAT, tanIn, tanOut: Complex.VEC _ [0,0]];JointTanSeqRec: TYPE = RECORD[element: SEQUENCE length:NAT OF JointTanRec];JointTanSequence: TYPE = REF JointTanSeqRec;Data: TYPE = REF DataRec;DataRec: TYPE = PiecewiseFit.DataRec;Metrics: TYPE = LSPieceExtras.Metrics;Cubic2Proc: TYPE = PiecewiseFit.Cubic2Proc;TangentProc: TYPE = PiecewiseFit.TangentProc;GrowSpline2: PROC [data: Data, realLength: NAT, metrics: Metrics, outputCubic2: Cubic2Proc, tangent: TangentProc, debug: BOOL _ FALSE, hilight: Cubic2Proc _ NIL];DynSpline2: PUBLIC PROC [data: Data, realLength: NAT, metrics: Metrics, penalty: REAL, trim: BOOL _ TRUE, outputCubic2: Cubic2Proc, tangent: TangentProc, debug: BOOL _ FALSE, hilight: Cubic2Proc _ NIL];AdaptiveFit2: PROC [data: Data, from, thru: NAT, initFree, finalFree: BOOL _ TRUE, metrics: Metrics, outputCubic2: Cubic2Proc, tangent: TangentProc, debug: BOOL _ FALSE, hilight: Cubic2Proc];IterFit: PROC [data: Data, from, thru: NAT, initFree, finalFree: BOOL _ TRUE, metrics: Metrics, outputCubic2: Cubic2Proc, tangent: TangentProc, debug: BOOL _ FALSE, hilight: Cubic2Proc _ NIL, earlyBreak: BOOL _ TRUE, useMaxDev: BOOL _ TRUE, joints: JointTanSequence _ NIL];ChunkGrow: PUBLIC PROC [data: Data, realLength: NAT, metrics: Metrics, outputCubic2: Cubic2Proc, tangent: TangentProc, debug: BOOL _ FALSE, hilight: Cubic2Proc _ NIL];FitPieceInterp2: PROC [z: Seq.ComplexSequence, t: Seq.RealSequence _ NIL, from, thru: NAT, metrics: Metrics, initFree, finalFree: BOOL _ FALSE, initTangent, finalTangent: Complex.VEC _ [0,0], useOldTValues: BOOL _ FALSE] RETURNS [b: Cubic2.Bezier, err: REAL, iterations: NAT, maxDev: REAL, indexOfMaxDev: NAT];END.  „  PiecewiseFitExtras.mesaCopyright c 1988 by Xerox Corporation.  All rights reserved.Bier, February 6, 1989 6:40:12 pm PSTCreated to include routines written by John Eisenman, December 31, 1987 7:57:59 pm PSTContents:  More routines for fitting cubics to samples in the place.Like PiecewiseFit.GrowSpline but with arguments "realLength", "tangent" and "debug".Like PiecewiseFit.DynSpline but with arguments "realLength", "tangent" and "debug".Like PiecewiseFit.AdaptiveFit but with arguments "debug" and "hilight".Combine elements of Adaptive, Grow and Dyn.Modified by Eisenman to be more careful with initial and final tangents.Ê5  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ%™%KšœSÏk™VKšÏnœ<™D—K™ šž	˜	Kšœ8˜8—K˜ KšŸœžœžœž˜-K˜ Kš	œžœžœžœžœ
˜KKšœžœžœ
žœžœžœ˜KKšœžœžœ˜,K˜ Kšœžœžœ	˜Kšœ	žœ˜%Kšœ	žœ˜&Kšœžœ˜+Kšœžœ˜-K˜ šŸœžœžœKžœžœžœ˜¢KšœT™T—šŸ
œžœžœžœžœžœžœ9žœžœžœ˜ÊKšœS™S—šŸœžœžœžœžœKžœžœ˜¿KšœG™G—K˜ KšŸœžœžœžœžœKžœžœžœžœžœžœžœžœ˜‘šŸ	œžœžœžœKžœžœžœ˜§Kšœ+™+—šŸœžœ0žœžœ)žœžœ%žœžœžœžœžœžœ
žœžœ˜¶K™H—Kšžœ˜K˜ — …—    "  Û  