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