1 -- Created on: 1992-05-21
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 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.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class Surface from DrawTrSurf
21 ---Purpose: This class defines a drawable surface.
22 -- With this class you can draw a general surface from
25 uses Surface from Geom,
33 Create (S : Surface from Geom)
34 --- Purpose : default drawing mode
35 -- Just the middle isoparametric curves are drawn.
36 -- The boundaries are yellow, the isoparametric curves are blues.
37 -- For the discretisation 50 points are computed in each parametric
39 returns mutable Surface from DrawTrSurf;
43 Create (S : Surface from Geom;
45 BoundsColor, IsosColor : Color from Draw;
49 returns mutable Surface from DrawTrSurf;
52 BoundsColor (me) returns Color from Draw
57 ClearIsos (me : mutable) is virtual;
58 --- Purpose : rub out all the isoparametric curves.
61 DrawOn (me; dis : in out Display from Draw);
64 DrawOn (me; dis : in out Display from Draw;
65 Iso : Boolean from Standard)
66 ---Purpose: Iso = True : Draw the isos, the boundaries, the UVMarker.
67 -- Iso = False: Only Draw the boundary and the UVMarker.
71 GetSurface (me) returns any Surface from Geom
76 IsosColor (me) returns Color from Draw
81 NbIsos (me; Nu, Nb : in out Integer)
86 SetBoundsColor (me : mutable; aColor : Color from Draw)
91 SetIsosColor (me : mutable; aColor : Color from Draw)
96 ShowIsos (me : mutable; Nu, Nv : Integer) is virtual;
97 --- Purpose : change the number of isoparametric curves to be drawn.
99 Copy(me) returns mutable Drawable3D from Draw
100 ---Purpose: For variable copy.
103 Dump(me; S : in out OStream)
104 ---Purpose: For variable dump.
107 Whatis(me; I : in out Interpretor from Draw)
108 ---Purpose: For variable whatis command.
113 surf : Surface from Geom is protected;
114 boundsLook : Color from Draw is protected;
115 isosLook : Color from Draw is protected;
116 nbUIsos : Integer is protected;
117 nbVIsos : Integer is protected;