2 -- Created: Thu May 21 19:22:42 1992
3 -- Author: Jean Claude VAUTHIER
5 ---Copyright: Matra Datavision 1992
8 class Surface from DrawTrSurf
12 ---Purpose: This class defines a drawable surface.
13 -- With this class you can draw a general surface from
16 uses Surface from Geom,
24 Create (S : Surface from Geom)
25 --- Purpose : default drawing mode
26 -- Just the middle isoparametric curves are drawn.
27 -- The boundaries are yellow, the isoparametric curves are blues.
28 -- For the discretisation 50 points are computed in each parametric
30 returns mutable Surface from DrawTrSurf;
34 Create (S : Surface from Geom;
36 BoundsColor, IsosColor : Color from Draw;
40 returns mutable Surface from DrawTrSurf;
43 BoundsColor (me) returns Color from Draw
48 ClearIsos (me : mutable) is virtual;
49 --- Purpose : rub out all the isoparametric curves.
52 DrawOn (me; dis : in out Display from Draw);
55 DrawOn (me; dis : in out Display from Draw;
56 Iso : Boolean from Standard)
57 ---Purpose: Iso = True : Draw the isos, the boundaries, the UVMarker.
58 -- Iso = False: Only Draw the boundary and the UVMarker.
62 GetSurface (me) returns any Surface from Geom
67 IsosColor (me) returns Color from Draw
72 NbIsos (me; Nu, Nb : in out Integer)
77 SetBoundsColor (me : mutable; aColor : Color from Draw)
82 SetIsosColor (me : mutable; aColor : Color from Draw)
87 ShowIsos (me : mutable; Nu, Nv : Integer) is virtual;
88 --- Purpose : change the number of isoparametric curves to be drawn.
90 Copy(me) returns mutable Drawable3D from Draw
91 ---Purpose: For variable copy.
94 Dump(me; S : in out OStream)
95 ---Purpose: For variable dump.
98 Whatis(me; I : in out Interpretor from Draw)
99 ---Purpose: For variable whatis command.
104 surf : Surface from Geom is protected;
105 boundsLook : Color from Draw is protected;
106 isosLook : Color from Draw is protected;
107 nbUIsos : Integer is protected;
108 nbVIsos : Integer is protected;