7fd59977 |
1 | -- File: Circle3D.cdl |
2 | -- Created: Thu Apr 30 11:17:40 1992 |
3 | -- Author: Remi LEQUETTE |
4 | -- <rle@sdsun1> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | |
9 | class Circle3D from Draw inherits Drawable3D from Draw |
10 | |
11 | ---Purpose: |
12 | |
13 | uses |
14 | Circ from gp, |
15 | Color from Draw, |
16 | Display from Draw |
17 | |
18 | is |
19 | |
20 | Create(C : Circ from gp; A1,A2 : Real; col : Color) |
21 | returns mutable Circle3D; |
22 | |
23 | DrawOn(me; dis : in out Display); |
24 | |
25 | fields |
26 | |
27 | myCirc : Circ from gp; |
28 | myA1 : Real; |
29 | myA2 : Real; |
30 | myColor : Color; |
31 | |
32 | end Circle3D; |
33 | |