7fd59977 |
1 | -- File: Prs3d_SectionShapeTool.cdl |
2 | -- Created: Wed Oct 20 12:58:38 1993 |
3 | -- Author: Jean-Louis FRENKEL |
4 | -- <jlf@stylox> |
5 | ---Copyright: Matra Datavision 1993 |
6 | |
7 | |
8 | generic class SectionShapeTool from Prs3d ( anyShape as any; |
9 | anyEdge as any) |
10 | |
11 | uses |
12 | Pln from gp |
13 | is |
14 | |
15 | Create ( TheShape: anyShape ) returns SectionShapeTool from Prs3d; |
16 | Load(me: in out; aPlane: Pln from gp); |
17 | |
18 | InitEdge (me); |
19 | MoreEdge (me) returns Boolean from Standard; |
20 | NextEdge (me); |
21 | GetEdge(me) returns anyEdge; |
22 | |
23 | end SectionShapeTool from Prs3d; |