0024002: Overall code and build procedure refactoring -- automatic
[occt.git] / src / BOPTest / BOPTest_DrawableShape.cdl
1 -- Created on: 2000-05-25
2 -- Created by: Peter KURNEV
3 -- Copyright (c) 2000-2014 OPEN CASCADE SAS
4 --
5 -- This file is part of Open CASCADE Technology software library.
6 --
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
12 --
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
15
16 class DrawableShape from BOPTest  
17     inherits DrawableShape from DBRep
18
19     ---Purpose: 
20
21 uses  
22
23     Shape           from TopoDS,
24     Color           from Draw,
25     Display         from Draw,
26     Text3D          from Draw,
27     Marker3D        from Draw,
28     CString         from Standard,
29     Pnt             from gp
30
31 is
32     Create (S         : Shape from TopoDS; 
33         FreeCol   : Color from Draw;    -- color for free edges
34         ConnCol   : Color from Draw;    -- color for shared edges
35         EdgeCol   : Color from Draw;    -- color for other edges
36         IsosCol   : Color from Draw;    -- color for Isos
37         size      : Real;               -- size for infinite isos
38         nbisos    : Integer;            -- # of isos on each face
39         discret   : Integer;            -- # of points on curves
40         Text      : CString from Standard; 
41         TextColor : Color from Draw)
42         returns DrawableShape from BOPTest;
43
44     Create (S         : Shape from TopoDS;
45          Text      : CString from Standard; 
46          TextColor : Color from Draw)
47         returns DrawableShape from BOPTest; 
48  
49     Pnt(me)  
50         returns Pnt from gp   
51         is private;
52   
53     DrawOn(me; dis : in out Display from Draw)
54         is redefined;
55     
56 fields
57     myText : Text3D from Draw;
58     myTextColor : Color from Draw;
59
60 end DrawableShape;