7fd59977 |
1 | -- File: VrmlConverter_ShadedShape.cdl |
2 | -- Created: Fri Feb 21 13:42:51 1997 |
3 | -- Author: Alexander BRIVIN |
4 | -- <brivin@minox.nizhny.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1997 |
6 | |
7 | |
8 | class ShadedShape from VrmlConverter |
9 | |
10 | ---Purpose: ShadedShape - computes the shading presentation of shapes |
11 | -- by triangulation algorithms, converts this one into VRML objects |
12 | -- and writes (adds) into anOStream. |
13 | -- All requested properties of the representation including |
14 | -- the maximal chordial deviation are specify in aDrawer. |
15 | -- This kind of the presentation is converted into |
16 | -- IndexedFaceSet ( VRML ). |
17 | |
18 | uses |
19 | |
20 | Drawer from VrmlConverter, |
21 | Shape from TopoDS, |
22 | Face from TopoDS, |
23 | Connect from Poly, |
24 | Array1OfDir from TColgp |
25 | |
26 | is |
27 | |
28 | Add(myclass; anOStream : in out OStream from Standard; |
29 | aShape : Shape from TopoDS; |
30 | aDrawer : Drawer from VrmlConverter); |
31 | |
32 | |
33 | ComputeNormal(myclass; aFace : Face from TopoDS; |
34 | pc : in out Connect from Poly; |
35 | Nor : out Array1OfDir from TColgp); |
36 | |
37 | |
38 | end ShadedShape from VrmlConverter; |