DIRECTORYCD,Imager;CDCurves: CEDAR DEFINITIONS = BEGINCurvePtr: TYPE = REF CurveRec;CurveRec: TYPE = RECORD [points: LIST OF CD.Position, w: CD.Number_0, path: Imager.Trajectory];splineClass: PRIVATE CD.ObjectClass;lineClass: PRIVATE CD.ObjectClass;polygonClass: PRIVATE CD.ObjectClass;filledCurveClass: PRIVATE CD.ObjectClass;IsLine: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {RETURN [ob.class = lineClass]};IsSpline: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {RETURN [ob.class = splineClass]};IsPolygon: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {RETURN [ob.class = polygonClass]};IsFilledCurve: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE {RETURN [ob.class = filledCurveClass]};CreateLine: PROC [points: LIST OF CD.Position, w: CD.Number, layer: CD.Layer] RETURNS [ob: CD.Object, offset: CD.Position];CreateSpline: PROC [points: LIST OF CD.Position, w: CD.Number, layer: CD.Layer] RETURNS [ob: CD.Object, offset: CD.Position];CreatePolygon: PROC [points: LIST OF CD.Position, layer: CD.Layer] RETURNS [ob: CD.Object, offset: CD.Position];CreateFilledCurve: PROC [points: LIST OF CD.Position, layer: CD.Layer] RETURNS [ob: CD.Object, offset: CD.Position];END.   °  CDCurves.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.by Christian Jacobi, June 18, 1986 3:52:20 pm PDT Last Edited by: Jacobi June 19, 1986 3:35:56 pm PDTCurve objects are lines, splines, polygons or filled curves.  The points in the CurveRec describe the center line of line or spline objects or the border points of polygons or filled curves.  Uses Bezier splines for filled curves and splines.Restrictions:The width w is supposed to be even.The objects must be treated readonly.  The object size must not exceed LAST[NAT].  Usage must not depend on how clipping on edges is performed.    --Creates a line object of width "w" (even) connecting the points "points".  --Creates a spline object of width "w" (even) connecting the points "points".  --Creates a polygon object using the "points" as border line.  --Creates a filled curve object using the "points" as border line.  --All the create procs may return NIL or call CD.Error if restrictions are violated.--offset: If applied as position to the curve object, it would go through its defining "points".--[the coordinates of the points in the CurveRec are the original coordinates minus "offset"] Êã  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ2™2K™3—K™ šÏk	˜	Kšžœ˜Kšœ˜—K˜ KšÐblœžœžœ˜Kšž˜K˜ Kšœ>™>Kšœ‚™‚Kšœ2™2K™ šœ™Kšœ#™#Kšœ'™'Kšœ,™,Kšœ@™@—K˜ K˜ Kšœ
žœžœ
˜Kšœ
žœžœ
žœžœžœžœ$˜_K˜ Kšœžœžœ˜$Kšœžœžœ˜"Kšœžœžœ˜%Kšœžœžœ˜)K˜ šÏnœžœžœ	žœžœžœ˜6Kšžœ˜K˜—K˜ š œžœžœ	žœžœžœ˜8Kšžœ˜K˜—K˜ š 	œžœžœ	žœžœžœ˜9Kšžœ˜ K˜—K˜ š œžœžœ	žœžœžœ˜=Kšžœ˜$K˜—K˜ K˜ š 
œžœ
žœžœžœžœžœžœžœžœ˜{KšœM™M—K˜ š œžœ
žœžœžœžœžœžœžœžœ˜}KšœO™O—K˜ š œžœ
žœžœžœžœžœžœžœ˜pKšœ?™?—K˜ š œžœ
žœžœžœžœžœžœžœ˜tKšœD™D—K˜ KšœT™TKšœ`™`Kšœ]™]K™ Kšžœ˜K˜ K˜ — …—    Â  U  