1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
--
-- File : BSplineSurface.cdl
-- Created : Sat 9 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Kiran )
--
---Copyright : MATRA-DATAVISION 1993
--
class BSplineSurface from IGESGeom inherits IGESEntity
---Purpose: defines IGESBSplineSurface, Type <128> Form <0-9>
-- in package IGESGeom
-- A parametric equation obtained by dividing two summations
-- involving weights (which are real numbers), the control
-- points, and B-Spline basis functions
uses
Pnt from gp,
HArray1OfReal from TColStd,
HArray2OfReal from TColStd,
HArray2OfXYZ from TColgp
raises DimensionMismatch, OutOfRange
is
Create returns mutable BSplineSurface;
-- Specific Methods pertaining to the class
Init (me : mutable;
anIndexU, anIndexV : Integer;
aDegU, aDegV : Integer;
aCloseU, aCloseV : Boolean;
aPolynom, aPeriodU, aPeriodV : Boolean;
allKnotsU, allKnotsV : HArray1OfReal;
allWeights : HArray2OfReal;
allPoles : HArray2OfXYZ;
aUmin, aUmax, aVmin, aVmax : Real)
raises DimensionMismatch;
---Purpose : This method is used to set the fields of the class
-- BSplineSurface
-- - anIndexU : Upper index of first sum
-- - anIndexV : Upper index of second sum
-- - aDegU, aDegV : Degrees of first and second sets
-- of basis functions
-- - aCloseU, aCloseV : 1 = Closed in U, V directions
-- 0 = open in U, V directions
-- - aPolynom : 0 = Rational, 1 = polynomial
-- - aPeriodU, aPeriodV : 0 = Non periodic in U or V direction
-- 1 = Periodic in U or V direction
-- - allKnotsU, allKnotsV : Knots in U and V directions
-- - allWeights : Array of weights
-- - allPoles : XYZ coordinates of all control points
-- - aUmin : Starting value of U direction
-- - aUmax : Ending value of U direction
-- - aVmin : Starting value of V direction
-- - aVmax : Ending value of V direction
-- raises exception if allWeights & allPoles are not of same size.
SetFormNumber (me : mutable; form : Integer) raises OutOfRange;
---Purpose : Changes FormNumber (indicates the Shape of the Surface)
-- Error if not in range [0-9]
UpperIndexU(me) returns Integer;
---Purpose : returns the upper index of the first sum (U)
UpperIndexV(me) returns Integer;
---Purpose : returns the upper index of the second sum (V)
DegreeU(me) returns Integer;
---Purpose : returns degree of first set of basis functions
DegreeV(me) returns Integer;
---Purpose : returns degree of second set of basis functions
IsClosedU(me) returns Boolean;
---Purpose : True if closed in U direction else False
IsClosedV(me) returns Boolean;
---Purpose : True if closed in V direction else False
IsPolynomial(me; flag : Boolean = Standard_False) returns Boolean;
---Purpose : True if polynomial, False if rational
-- <flag> False (D) : computed from Weights
-- <flag> True : recorded
IsPeriodicU(me) returns Boolean;
---Purpose : True if periodic in U direction else False
IsPeriodicV(me) returns Boolean;
---Purpose : True if periodic in V direction else False
NbKnotsU(me) returns Integer;
---Purpose : returns number of knots in U direction
-- KnotsU are numbered from -DegreeU
NbKnotsV(me) returns Integer;
---Purpose : returns number of knots in V direction
-- KnotsV are numbered from -DegreeV
KnotU(me; anIndex : Integer) returns Real
raises OutOfRange;
---Purpose : returns the value of knot referred to by anIndex in U direction
-- raises exception if
-- anIndex < -DegreeU() or anIndex > (NbKnotsU() - DegreeU())
KnotV(me; anIndex : Integer) returns Real
raises OutOfRange;
---Purpose : returns the value of knot referred to by anIndex in V direction
-- raises exception if
-- anIndex < -DegreeV() or anIndex > (NbKnotsV() - DegreeV())
NbPolesU(me) returns Integer;
---Purpose : returns number of poles in U direction
NbPolesV(me) returns Integer;
---Purpose : returns number of poles in V direction
Weight(me; anIndex1, anIndex2 : Integer) returns Real
raises OutOfRange;
---Purpose : returns the weight referred to by anIndex1, anIndex2
-- raises exception if anIndex1 <= 0 or anIndex1 > NbPolesU()
-- or if anIndex2 <= 0 or anIndex2 > NbPolesV()
Pole(me; anIndex1, anIndex2 : Integer) returns Pnt
raises OutOfRange;
---Purpose : returns the control point referenced by anIndex1, anIndex2
-- raises exception if anIndex1 <= 0 or anIndex1 > NbPolesU()
-- or if anIndex2 <= 0 or anIndex2 > NbPolesV()
TransformedPole(me; anIndex1, anIndex2 : Integer) returns Pnt
raises OutOfRange;
---Purpose : returns the control point referenced by anIndex1, anIndex2
-- after applying the Transf.Matrix
-- raises exception if anIndex1 <= 0 or anIndex1 > NbPolesU()
-- or if anIndex2 <= 0 or anIndex2 > NbPolesV()
UMin(me) returns Real;
---Purpose : returns starting value in the U direction
UMax(me) returns Real;
---Purpose : returns ending value in the U direction
VMin(me) returns Real;
---Purpose : returns starting value in the V direction
VMax(me) returns Real;
---Purpose : returns ending value in the V direction
fields
--
-- Class : IGESGeom_BSplineSurface
--
-- Purpose : Declaration of variables specific to the definition
-- of the Class BSplineSurface.
--
-- Reminder : A BSplineSurface instance is defined by :
-- A parametric equation obtained by dividing two summations
-- involving weights (which are real numbers), the control
-- points, and B-Spline basis functions
theIndexU : Integer;
theIndexV : Integer;
theDegreeU : Integer;
theDegreeV : Integer;
isClosedU : Boolean;
isClosedV : Boolean;
isPolynomial : Boolean;
isPeriodicU : Boolean;
isPeriodicV : Boolean;
theKnotsU : HArray1OfReal;
theKnotsV : HArray1OfReal;
theWeights : HArray2OfReal;
thePoles : HArray2OfXYZ;
theUmin : Real; -- Starting value for 1st parameter direction
theUmax : Real; -- Ending value for 1st parameter direction
theVmin : Real; -- Starting value for 2nd parameter direction
theVmax : Real; -- Ending value for 2nd parameter direction
end BSplineSurface;
|
