7fd59977 |
1 | -- File: MeshAlgo_Circ.cdl |
2 | -- Created: Mon Aug 9 16:31:05 1993 |
3 | -- Author: Didier PIFFAULT |
4 | -- <dpf@zerox> |
5 | ---Copyright: Matra Datavision 1993 |
6 | |
7 | |
8 | class Circ from MeshAlgo |
9 | |
10 | ---Purpose: Describes a 2d circle with a size of only 3 |
11 | -- Standard Real numbers instead of gp who needs 7 |
12 | -- Standard Real numbers. |
13 | |
14 | uses Real from Standard, |
15 | XY from gp |
16 | |
17 | |
18 | is Create returns Circ from MeshAlgo; |
19 | |
20 | Create (loc : XY from gp; rad : Real from Standard) |
21 | returns Circ from MeshAlgo; |
22 | |
23 | SetLocation(me : in out; loc : XY from gp) |
24 | is static; |
25 | |
26 | SetRadius (me : in out; rad : Real from Standard) |
27 | is static; |
28 | |
29 | Location (me) |
30 | ---C++: return const & |
31 | ---C++: inline |
32 | returns XY from gp |
33 | is static; |
34 | |
35 | Radius (me) |
36 | ---C++: return const & |
37 | ---C++: inline |
38 | returns Real from Standard |
39 | is static; |
40 | |
41 | |
42 | fields location : XY from gp; |
43 | radius : Real from Standard; |
44 | |
45 | end Circ; |