0024830: Remove redundant keyword 'mutable' in CDL declarations
[occt.git] / src / DrawTrSurf / DrawTrSurf_BSplineCurve.cdl
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
5 --
6 -- This file is part of Open CASCADE Technology software library.
7 --
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.
13 --
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
16
17 class BSplineCurve
18
19
20 from DrawTrSurf
21
22
23 inherits Curve from DrawTrSurf
24
25
26 uses BSplineCurve from Geom,
27      Color from Draw,
28      MarkerShape from Draw,
29      Display from Draw,
30      Drawable3D from Draw
31
32
33 is
34
35
36   Create (C : BSplineCurve from Geom)
37         --- Purpose :
38         --  creates a drawable BSpline curve from a BSpline curve of 
39         --  package Geom.
40      returns BSplineCurve from DrawTrSurf;
41
42
43
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;
48           DrawMode : Integer)
49         --- Purpose :
50         --  creates a drawable BSpline curve from a BSpline curve of 
51         --  package Geom.
52      returns BSplineCurve from DrawTrSurf;
53
54
55   DrawOn (me; dis : in out Display from Draw)
56      is redefined static;
57
58
59   DrawOn (me; dis : in out Display from Draw;
60           ShowPoles, ShowKnots : Boolean);
61
62
63   DrawOn (me; 
64           dis : in out Display from Draw; 
65           U1, U2 : Real; 
66           Pindex : Integer;
67           ShowPoles : Boolean = Standard_True;
68           ShowKnots : Boolean = Standard_True);
69
70
71   ShowPoles (me : mutable)
72      is static;
73
74
75   ShowKnots (me : mutable)
76      is static;
77      
78
79   ClearPoles (me : mutable)
80      is static;
81      
82   
83   ClearKnots (me : mutable)
84      is static;
85      
86
87   FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real; 
88            Index : in out Integer)
89         --- Purpose :
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
94         --  value of index.
95   is static;
96   
97
98   FindKnot(me; X,Y : Real; D : Display from Draw; Prec : Real; 
99            Index : in out Integer)
100   is static;
101   
102
103   SetPolesColor (me : mutable; aColor : Color from Draw)
104         ---C++: inline
105      is static;
106      
107
108   SetKnotsColor (me : mutable; aColor : Color from Draw)
109         ---C++: inline
110      is static;
111      
112
113   SetKnotsShape (me : mutable; Shape : MarkerShape from Draw)
114         ---C++: inline
115      is static;
116      
117
118   KnotsShape (me)  returns MarkerShape from Draw
119         ---C++: inline
120      is static;
121      
122   
123   KnotsColor (me)  returns Color from Draw
124         ---C++: inline
125      is static;
126      
127   
128   PolesColor (me)  returns Color from Draw
129         ---C++: inline
130      is static;
131     
132   Copy(me) returns Drawable3D from Draw
133         ---Purpose: For variable copy.
134   is redefined; 
135     
136     
137 fields
138
139   drawPoles  : Boolean;
140   drawKnots  : Boolean;
141   knotsForm  : MarkerShape from Draw;
142   knotsLook  : Color from Draw;
143   knotsDim   : Integer;
144   polesLook  : Color from Draw;
145  
146 end BSplineCurve;
147