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
|
-- File: BSplineSurface.cdl
-- Created: Fri May 22 10:29:42 1992
-- Author: Jean Claude VAUTHIER
---Copyright: Matra Datavision 1992
class BSplineSurface from DrawTrSurf
inherits Surface from DrawTrSurf
--- Purpose :
-- This class defines a drawable BSplineSurface.
-- With this class you can draw the control points and the knots
-- of the surface.
-- You can use the general class Surface from DrawTrSurf too,
-- if you just want to sea boundaries and isoparametric curves.
uses BSplineSurface from Geom,
Color from Draw,
MarkerShape from Draw,
Display from Draw,
Drawable3D from Draw
is
Create (S : BSplineSurface from Geom)
returns mutable BSplineSurface from DrawTrSurf;
--- Purpose : default drawing mode.
-- The isoparametric curves corresponding to the knots values are
-- drawn.
-- The control points and the knots points are drawn.
-- The boundaries are yellow, the isoparametric curves are blues.
-- For the discretisation 50 points are computed in each parametric
-- direction.
Create (S : BSplineSurface from Geom;
BoundsColor, IsosColor, PolesColor, KnotsColor : Color from Draw;
KnotsShape : MarkerShape from Draw; KnotsSize : Integer;
ShowPoles, ShowKnots : Boolean; Discret : Integer; Deflection : Real;
DrawMode : Integer)
returns mutable BSplineSurface from DrawTrSurf;
--- Purpose :
-- The isoparametric curves corresponding to the knots values are
-- drawn.
Create (S : BSplineSurface from Geom;
NbUIsos, NbVIsos : Integer;
BoundsColor, IsosColor, PolesColor, KnotsColor : Color from Draw;
KnotsShape : MarkerShape from Draw; KnotsSize : Integer;
ShowPoles, ShowKnots : Boolean; Discret : Integer; Deflection : Real;
DrawMode : Integer)
returns mutable BSplineSurface from DrawTrSurf;
--- Purpose : Parametric equidistant iso curves are drawn.
DrawOn (me; dis : in out Display from Draw)
is redefined static;
ShowPoles (me : mutable)
is static;
ShowKnots (me : mutable)
is static;
ShowIsos (me : mutable; Nu, Nv : Integer)
--- Purpose : change the number of isoparametric curves to be drawn.
is redefined;
ShowKnotsIsos (me : mutable)
--- Purpose : change the number of isoparametric curves to be drawn.
is static;
ClearIsos (me : mutable)
--- Purpose : rub out all the isoparametric curves.
is redefined;
ClearPoles (me : mutable)
is static;
ClearKnots (me : mutable)
is static;
FindPole(me; X,Y : Real; D : Display from Draw; Prec : Real;
UIndex, VIndex : in out Integer)
is static;
FindUKnot(me; X,Y : Real; D : Display from Draw; Prec : Real;
UIndex : in out Integer)
is static;
FindVKnot(me; X,Y : Real; D : Display from Draw; Prec : Real;
VIndex : in out Integer)
is static;
SetPolesColor (me : mutable; aColor : Color from Draw)
---C++: inline
is static;
SetKnotsColor (me : mutable; aColor : Color from Draw)
---C++: inline
is static;
SetKnotsShape (me : mutable; Shape : MarkerShape from Draw)
---C++: inline
is static;
KnotsShape (me) returns MarkerShape from Draw
---C++: inline
is static;
KnotsColor (me) returns Color from Draw
---C++: inline
is static;
PolesColor (me) returns Color from Draw
---C++: inline
is static;
Copy(me) returns mutable Drawable3D from Draw
---Purpose: For variable copy.
is redefined;
fields
drawPoles : Boolean;
drawKnots : Boolean;
knotsIsos : Boolean;
knotsForm : MarkerShape from Draw;
knotsLook : Color from Draw;
knotsDim : Integer;
polesLook : Color from Draw;
end BSplineSurface;
|
