src/Prs3d/Prs3d_ShadedShape.cdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

-- File:	ShadedShape.cdl
-- Created:	Thu Sep 23 18:12:33 1993
-- Author:	Jean Louis FRENKEL
--		<jlf@mastox>
---Copyright:	 Matra Datavision 1993


generic class ShadedShape from Prs3d(anyShape           as any;
    	    	    	    	     anyTopFace         as any;
				     anyMeshTriangle    as any;
				     anyMeshEdge        as any;
    	    	    	    	     anyShadedShapeTool as any
    	    	    	    	    )         
inherits Root from Prs3d

uses

    Presentation from Prs3d,
    Drawer from Prs3d
    
is
    Add(myclass; aPresentation: Presentation from Prs3d;
    	    	 aShape       : anyShape;
                 aDrawer      : Drawer from Prs3d);
		 
    	---Purpose: Shades <aShape>.

end ShadedShape from Prs3d;