DIRECTORY Complex, Cubic, Seq; LSSpline: CEDAR DEFINITIONS = BEGIN Handle: PUBLIC TYPE = REF Rec; Rec: PUBLIC TYPE = RECORD [ z: Seq.ComplexSequence _ NIL, tan: Seq.ComplexSequence _ NIL, t: Seq.RealSequence _ NIL, length: NAT _ 0 ]; Create: PUBLIC PROCEDURE [lengthHint: NAT _ 10] RETURNS [handle: Handle]; Reset: PUBLIC PROCEDURE [handle: Handle]; Sample: PUBLIC PROCEDURE [ handle: Handle, samplePoint: Complex.Vec, tangent: Complex.Vec _ [0,0]]; CubicProc: TYPE = PROCEDURE [Cubic.Bezier]; Subdivide: PUBLIC PROCEDURE [ handle: Handle, cubicProc: CubicProc, tolerance: REAL, from: NAT _ 0, thru: NAT _ LAST[NAT] ]; END. ÌLSSpline.mesa For fitting a cubic spline with specified endpoints and tangents. Michael Plass August 3, 1982 3:47 pm Non-opaque for Warnock's sake. Will expand the data structures if necessary. ʘJšœ ™ JšœB™BJšœ%™%J˜šÏk ˜ J˜J˜J˜J˜—Jšœ œ œ˜Jš˜J˜Jšœœœœ˜šœœœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜J˜Jšœ™J˜—šÏnœœ œœ˜/Jšœ˜J˜—Jšžœœ œ˜)J˜šžœœ œ˜J˜J˜J˜Jšœ-™-J˜—Jšž œœ œ˜+J˜šž œœ œ˜J˜J˜Jšœ œ˜Jšœœ˜Jšœœœœ˜J˜J˜—Jšœ˜—…—zÅ