1 -- Created on: 1992-05-22
2 -- Created by: Jean Claude VAUTHIER
3 -- Copyright (c) 1992-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
23 inherits Curve from DrawTrSurf
26 uses BSplineCurve from Geom,
28 MarkerShape from Draw,
36 Create (C : BSplineCurve from Geom)
38 -- creates a drawable BSpline curve from a BSpline curve of
40 returns BSplineCurve from DrawTrSurf;
44 Create (C : BSplineCurve from Geom;
45 CurvColor, PolesColor, KnotsColor : Color from Draw;
46 KnotsShape : MarkerShape from Draw; KnotsSize : Integer;
47 ShowPoles, ShowKnots : Boolean; Discret : Integer; Deflection : Real;
50 -- creates a drawable BSpline curve from a BSpline curve of
52 returns BSplineCurve from DrawTrSurf;
55 DrawOn (me; dis : in out Display from Draw)
59 DrawOn (me; dis : in out Display from Draw;
60 ShowPoles, ShowKnots : Boolean);
64 dis : in out Display from Draw;
67 ShowPoles : Boolean = Standard_True;
68 ShowKnots : Boolean = Standard_True);
71 ShowPoles (me : mutable)
75 ShowKnots (me : mutable)
79 ClearPoles (me : mutable)
83 ClearKnots (me : mutable)
87 FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
88 Index : in out Integer)
90 -- Returns in <Index> the index of the first pole of the
91 -- curve projected by the Display <D> at a distance lower
92 -- than <Prec> from <X,Y>. If no pole is found index is
93 -- set to 0, else index is always greater than the input
98 FindKnot(me; X,Y : Real; D : Display from Draw; Prec : Real;
99 Index : in out Integer)
103 SetPolesColor (me : mutable; aColor : Color from Draw)
108 SetKnotsColor (me : mutable; aColor : Color from Draw)
113 SetKnotsShape (me : mutable; Shape : MarkerShape from Draw)
118 KnotsShape (me) returns MarkerShape from Draw
123 KnotsColor (me) returns Color from Draw
128 PolesColor (me) returns Color from Draw
132 Copy(me) returns Drawable3D from Draw
133 ---Purpose: For variable copy.
141 knotsForm : MarkerShape from Draw;
142 knotsLook : Color from Draw;
144 polesLook : Color from Draw;