Integration of OCCT 6.5.0 from SVN
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableSHA.cdl
1 -- File:        TestTopOpeDraw_DrawableSHA.cdl
2 -- Created:     Mon Oct 24 16:18:55 1994
3 -- Author:      Jean Yves LEBEY
4 --              <jyl@bravox>
5 ---Copyright:    Matra Datavision 1994
6
7 class DrawableSHA from TestTopOpeDraw inherits DrawableShape from DBRep
8
9     ---Purpose: 
10
11 uses  
12
13     Shape           from TopoDS,
14     Color           from Draw,
15     Display         from Draw,
16     Text3D          from Draw,
17     Marker3D        from Draw,
18     CString         from Standard,
19     Pnt             from gp
20
21 is
22
23     Create (S         : Shape from TopoDS;
24             FreeCol   : Color from Draw;    -- color for free edges
25             ConnCol   : Color from Draw;    -- color for shared edges
26             EdgeCol   : Color from Draw;    -- color for other edges
27             IsosCol   : Color from Draw;    -- color for Isos
28             size      : Real;               -- size for infinite isos
29             nbisos    : Integer;            -- # of isos on each face
30             discret   : Integer;            -- # of points on curves
31             Text      : CString from Standard; 
32             TextColor : Color from Draw;
33             DisplayGeometry : Boolean from Standard = Standard_False)
34     returns mutable DrawableSHA from TestTopOpeDraw;
35
36     SetDisplayGeometry(me : mutable; b : Boolean from Standard) is static;
37
38     SetTol(me : mutable; t : Real) is static;
39
40     SetPar(me : mutable; p : Real) is static;
41
42     Pnt(me) returns Pnt from gp
43     is static private;
44
45     DisplayGeometry(me; dis : in out Display from Draw) 
46     is static;
47     
48     DrawOn(me; dis : in out Display from Draw)
49     is redefined;
50     
51 fields
52
53     myText : Text3D from Draw;
54     myTextColor : Color from Draw;
55     myDisplayGeometry : Boolean from Standard;
56     myDM3d : Marker3D from Draw;
57     myTol : Real;
58     myPar : Real;
59     
60 end DrawableSHA;