src/Prs3d/Prs3d_SectionShapeTool.cdl


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

-- File:	Prs3d_SectionShapeTool.cdl
-- Created:	Wed Oct 20 12:58:38 1993
-- Author:	Jean-Louis FRENKEL
--		<jlf@stylox>
---Copyright:	 Matra Datavision 1993


generic class SectionShapeTool from Prs3d ( anyShape as any; 
                                            anyEdge as any)

uses
    Pln from gp
is

    Create ( TheShape: anyShape ) returns SectionShapeTool from Prs3d;
    Load(me: in out; aPlane: Pln from gp);

    InitEdge (me);
    MoreEdge (me) returns Boolean from Standard;
    NextEdge (me);
    GetEdge(me) returns anyEdge;
    
end SectionShapeTool from Prs3d;