7fd59977 |
1 | -- File: DrawTrSurf_Triangulation2D.cdl |
2 | -- Created: Tue Jul 22 15:09:16 1997 |
3 | -- Author: Laurent PAINNOT |
4 | -- <lpa@penox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1997 |
6 | |
7 | |
8 | class Triangulation2D from DrawTrSurf inherits Drawable2D from Draw |
9 | |
10 | ---Purpose: Used to display a 2d triangulation. |
11 | -- |
12 | -- Display internal edges in blue |
13 | -- Display boundary edges in red |
14 | -- Optional display of triangles and nodes indices. |
15 | |
16 | uses |
17 | HArray1OfInteger from TColStd, |
18 | Triangulation from Poly, |
19 | Drawable3D from Draw, |
20 | Display from Draw, |
21 | Interpretor from Draw, |
22 | OStream |
23 | |
24 | is |
25 | |
26 | Create(T : Triangulation from Poly) |
27 | returns mutable Triangulation2D from DrawTrSurf; |
28 | |
29 | Triangulation(me) |
30 | returns Triangulation from Poly; |
31 | |
32 | DrawOn(me; dis : in out Display); |
33 | |
34 | Copy(me) returns mutable Drawable3D from Draw |
35 | is redefined; |
36 | ---Purpose: For variable copy. |
37 | |
38 | Dump(me; S : in out OStream) |
39 | is redefined; |
40 | ---Purpose: For variable dump. |
41 | |
42 | Whatis(me; I : in out Interpretor from Draw) |
43 | is redefined; |
44 | ---Purpose: For variable whatis command. Set as a result the |
45 | -- type of the variable. |
46 | |
47 | fields |
48 | |
49 | myTriangulation : Triangulation from Poly; |
50 | myInternals : HArray1OfInteger from TColStd; |
51 | myFree : HArray1OfInteger from TColStd; |
52 | |
53 | end Triangulation2D; |