DIRECTORYVector USING [VEC],Seq USING [ComplexSequence, RealSequence];SampledCurves: CEDAR DEFINITIONS = {SampledCurve: TYPE = REF SampledCurveRec;PointRec: TYPE = RECORD [p, t: Vector.VEC, k,ds: REAL];SampledCurveRec: TYPE = RECORD[closed: BOOLEAN, element: SEQUENCE length:NAT OF PointRec];SampledCurveFromSamples: PROC [samples: Seq.ComplexSequence, closed: BOOLEAN] RETURNS[SampledCurve];DeltaK: PROC[sc: SampledCurve] RETURNS [deltas: Seq.RealSequence];Wrap: PROC[sc: SampledCurve, index: INT] RETURNS [newIndex: NAT];OpenCurve: SIGNAL;	--raised when you try an illegal operation on an open curveArcLength: PROC[sc: SampledCurve, from, to: NAT] RETURNS[d: REAL];ConditionProc: TYPE = PROC[point: PointRec] RETURNS[BOOLEAN];None: SIGNAL;FindSequence: PROC[sc: SampledCurve, start: NAT, condition: ConditionProc] RETURNS[ft, lt: NAT];CurvatureProc: TYPE = PROC[dIn,dOut: Vector.VEC] RETURNS [REAL];SetKProc: PROC[CurvatureProc];DThetaDegrees: CurvatureProc;DThetaRadians: CurvatureProc;CircleCenter: CurvatureProc;FindCircleCenter: PROC[p0,p1,p2: Vector.VEC] RETURNS [center: Vector.VEC, valid: BOOLEAN];FindAngleDegrees: PROC[dIn,dOut: Vector.VEC] RETURNS [REAL];}.   ╞  SampledCurves.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Maureen Stone May 25, 1985 3:50:13 pm PDTDoug Wyatt, September 5, 1985 2:39:06 pm PDTWrap takes an index and returns the newIndex MOD curve length if the curve is closed, does the end test and raises OpenCurve if the curve is open.This finds a sequence of TRUE values as defined by the ConditionProc.ft is the index of the first TRUE value, lt is the index of the last TRUE valueUses unwrapped values ie. start, ft, lt can be outside the range [0..bool.length)Some procedures for computing curvature.There are two methods:(the change in angle)/(change in arc length)approximated by ArcTan[Cross[dIn, dOut],Dot[dIn, dOut]]Find the radius of the center of the circle that contains the three points (0,0) dIn, dOut Finds the center of the circle defined by the three points.  Not valid if the points are colinear or nearly so.The change in direction from dIn to dOut.  Э╩  Ш codeЩKЪЬ
╧mЬ1Щ<KЪЬ╧tЩ)KЩ,ЧKШ Ъ╧k	Ш	KЪЬЯЬЯЬШKЪЬЯЬ!Ш*ЧKШ KЪ╨blЬЯЬЯЬШ$KШ KЪЬЯЬЯЬШ)KЪ	Ь
ЯЬЯЬЯЬЯЬШ7KЪЬЯЬЯЬ	ЯЬЯЬЯЬЯЬШZKЪ╧nЬЯЬ(ЯЬЯЬШdKЪбЬЯЬЯЬШBKШ KЪЬ-ЯЬbЩТKЪ
бЬЯЬЯЬЯЬЯЬШAKЪЬЯЬ╧c;ШNKЪ
б	ЬЯЬЯЬЯЬЯЬШBKЩ KЩEKЩOKЪвЬ<ЩQKЪ	ЬЯЬЯЬЯЬЯЬШ=KЪЬЯЬШKЪ
бЬЯЬЯЬЯЬ	ЯЬШ`KШ KЩ(ЩKЩ└ЧKЪбЬЯЬЯЬЯЬЯЬЯЬШ@KЪбЬЯЬШKЪ╧bЬШKЪгЬШKЪгЬШKШ Ъ╨bnЬЯЬЯЬЯЬЯЬ	ЯЬШZKЩoЧЪ
бЬЯЬЯЬЯЬЯЬШ<KЩ*ЧKШЧ ЕЧ    ░  
Т  