0024624: Lost word in license statement in source files
[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 inherits DrawableShape from DBRep
17
18     ---Purpose: 
19
20 uses  
21
22     Shape           from TopoDS,
23     Color           from Draw,
24     Display         from Draw,
25     Text3D          from Draw,
26     Marker3D        from Draw,
27     CString         from Standard,
28     Pnt             from gp
29
30 is
31
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             )
43         returns mutable DrawableShape from BOPTest;
44
45     Create (S         : Shape from TopoDS;
46             Text      : CString from Standard; 
47             TextColor : Color from Draw
48             )
49         returns mutable DrawableShape from BOPTest; 
50         
51     Pnt(me) returns Pnt from gp  is private;
52   
53     DrawOn(me; dis : in out Display from Draw)
54     is redefined;
55     
56 fields
57
58     myText : Text3D from Draw;
59     myTextColor : Color from Draw;
60
61 end DrawableShape;