1 -- File: BezierCurve2d.cdl
2 -- Created: Fri May 22 10:45:54 1992
3 -- Author: Jean Claude VAUTHIER
5 ---Copyright: Matra Datavision 1992
15 inherits Curve2d from DrawTrSurf
18 uses BezierCurve from Geom2d,
27 Create (C : BezierCurve from Geom2d)
29 -- creates a drawable Bezier curve from a Bezier curve of
31 returns mutable BezierCurve2d from DrawTrSurf;
34 Create (C : BezierCurve from Geom2d;
35 CurvColor, PolesColor : Color from Draw;
36 ShowPoles : Boolean; Discret : Integer)
37 returns mutable BezierCurve2d from DrawTrSurf;
40 DrawOn (me; dis : in out Display from Draw)
44 ShowPoles (me : mutable)
48 ClearPoles (me : mutable)
52 FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
53 Index : in out Integer)
55 -- Returns in <Index> the index of the first pole of the
56 -- curve projected by the Display <D> at a distance lower
57 -- than <Prec> from <X,Y>. If no pole is found index is
58 -- set to 0, else index is always greater than the input
63 SetPolesColor (me : mutable; aColor : Color from Draw)
67 PolesColor (me) returns Color from Draw
71 Copy(me) returns mutable Drawable3D from Draw
72 ---Purpose: For variable copy.
79 polesLook : Color from Draw;