1 -- File: BSplineCurve.cdl<2>
2 -- Created: Fri May 22 09:53:01 1992
3 -- Author: Jean Claude VAUTHIER
5 ---Copyright: Matra Datavision 1992
14 inherits Curve from DrawTrSurf
17 uses BSplineCurve from Geom,
19 MarkerShape from Draw,
27 Create (C : BSplineCurve from Geom)
29 -- creates a drawable BSpline curve from a BSpline curve of
31 returns mutable BSplineCurve from DrawTrSurf;
35 Create (C : BSplineCurve from Geom;
36 CurvColor, PolesColor, KnotsColor : Color from Draw;
37 KnotsShape : MarkerShape from Draw; KnotsSize : Integer;
38 ShowPoles, ShowKnots : Boolean; Discret : Integer; Deflection : Real;
41 -- creates a drawable BSpline curve from a BSpline curve of
43 returns mutable BSplineCurve from DrawTrSurf;
46 DrawOn (me; dis : in out Display from Draw)
50 DrawOn (me; dis : in out Display from Draw;
51 ShowPoles, ShowKnots : Boolean);
55 dis : in out Display from Draw;
58 ShowPoles : Boolean = Standard_True;
59 ShowKnots : Boolean = Standard_True);
62 ShowPoles (me : mutable)
66 ShowKnots (me : mutable)
70 ClearPoles (me : mutable)
74 ClearKnots (me : mutable)
78 FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
79 Index : in out Integer)
81 -- Returns in <Index> the index of the first pole of the
82 -- curve projected by the Display <D> at a distance lower
83 -- than <Prec> from <X,Y>. If no pole is found index is
84 -- set to 0, else index is always greater than the input
89 FindKnot(me; X,Y : Real; D : Display from Draw; Prec : Real;
90 Index : in out Integer)
94 SetPolesColor (me : mutable; aColor : Color from Draw)
99 SetKnotsColor (me : mutable; aColor : Color from Draw)
104 SetKnotsShape (me : mutable; Shape : MarkerShape from Draw)
109 KnotsShape (me) returns MarkerShape from Draw
114 KnotsColor (me) returns Color from Draw
119 PolesColor (me) returns Color from Draw
123 Copy(me) returns mutable Drawable3D from Draw
124 ---Purpose: For variable copy.
132 knotsForm : MarkerShape from Draw;
133 knotsLook : Color from Draw;
135 polesLook : Color from Draw;