7fd59977 |
1 | -- File: BCirc.cdl |
2 | -- Created: Fri Oct 4 16:40:04 1991 |
3 | -- Author: Remi GILET |
4 | -- <reg@phobox> |
5 | ---Copyright: Matra Datavision 1991 |
6 | |
7 | |
8 | class BCirc from GccInt |
9 | |
10 | inherits Bisec from GccInt |
11 | |
12 | ---Purpose: Describes a circle as a bisecting curve between two 2D |
13 | -- geometric objects (such as circles or points). |
14 | |
15 | uses Circ2d from gp, |
16 | IType from GccInt |
17 | |
18 | is |
19 | |
20 | Create(Circ : Circ2d) returns mutable BCirc; |
21 | ---Purpose: Constructs a bisecting curve whose geometry is the 2D circle Circ. |
22 | |
23 | Circle(me) returns Circ2d from gp |
24 | is redefined; |
25 | ---Purpose: Returns a 2D circle which is the geometry of this bisecting curve. |
26 | |
27 | ArcType(me) returns IType from GccInt |
28 | is static; |
29 | ---Purpose: Returns GccInt_Cir, which is the type of any GccInt_BCirc bisecting curve. |
30 | |
31 | fields |
32 | |
33 | cir : Circ2d from gp; |
34 | ---Purpose: The bisecting line. |
35 | |
36 | end BCirc; |
37 | |
38 | |