DIRECTORY Complex USING [VEC], Seq USING [ComplexSequence]; DynFit: CEDAR DEFINITIONS = BEGIN OPEN Seq; PointNumber: TYPE = NAT; Patch: TYPE = RECORD[c0,c1,c2,c3: REAL _ 0]; PatchSequence: TYPE = REF PatchSequenceRec; PatchSequenceRec: TYPE = RECORD[element: SEQUENCE length:NAT OF Patch]; NearestZ: PUBLIC PROCEDURE [z: ComplexSequence, v:Complex.VEC] RETURNS [PointNumber]; Line: TYPE = RECORD [centerOfMass, direction: Complex.VEC]; BestLine: PROCEDURE [z: ComplexSequence, firstPoint, lastPoint: PointNumber] RETURNS [r: Line]; Segments: TYPE = REF SegmentSequenceRec; SegmentSequenceRec: TYPE = RECORD[endpoint: SEQUENCE length:NAT OF PointNumber]; FitSegments: PROCEDURE [z: ComplexSequence, closed: BOOLEAN, tolerance: REAL] RETURNS [segments: DynFit.Segments, totalBadness: REAL]; SampleSegments: PROCEDURE [segments: DynFit.Segments, z: ComplexSequence] RETURNS [newSamples: ComplexSequence, len: NAT]; END. DynFit.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass 30-Sep-81 Last edited by Michael Plass 28-Jan-82 12:07:36 Last edited by Maureen Stone August 31, 1984 12:38:48 pm PDT Doug Wyatt, September 5, 1985 2:25:58 pm PDT Κ²˜codešœ ™ Kšœ Οmœ1™