DynFit.mesa
Copyright © 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
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.