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
9 -- under the terms of the GNU Lesser General Public 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 Curve2d from DrawTrSurf
26 uses BezierCurve from Geom2d,
35 Create (C : BezierCurve from Geom2d)
37 -- creates a drawable Bezier curve from a Bezier curve of
39 returns mutable BezierCurve2d from DrawTrSurf;
42 Create (C : BezierCurve from Geom2d;
43 CurvColor, PolesColor : Color from Draw;
44 ShowPoles : Boolean; Discret : Integer)
45 returns mutable BezierCurve2d from DrawTrSurf;
48 DrawOn (me; dis : in out Display from Draw)
52 ShowPoles (me : mutable)
56 ClearPoles (me : mutable)
60 FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
61 Index : in out Integer)
63 -- Returns in <Index> the index of the first pole of the
64 -- curve projected by the Display <D> at a distance lower
65 -- than <Prec> from <X,Y>. If no pole is found index is
66 -- set to 0, else index is always greater than the input
71 SetPolesColor (me : mutable; aColor : Color from Draw)
75 PolesColor (me) returns Color from Draw
79 Copy(me) returns mutable Drawable3D from Draw
80 ---Purpose: For variable copy.
87 polesLook : Color from Draw;