blob: 908b6510673b79180d7db1f435a06275e3e32445 (
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
-- File: V2d_CircularGrid.cdl
-- Created: Fri Mar 17 08:46:09 1995
-- Author: Mister rmi
-- <rmi@pernox>
-- Modification: DCB 14-07-98
-- SetColorIndices() method has been added to avoid exception
-- after V2d_Viewer::SetColorMap() call.
---Copyright: Matra Datavision 1995
private class CircularGrid from V2d inherits CircularGrid from Aspect
uses
ViewerPointer from V2d,
View from V2d,
GraphicObject from Graphic2d,
CircularGraphicGrid from V2d,
NameOfColor from Quantity
is
Create(aViewer: ViewerPointer from V2d;
aColorIndex1: Integer from Standard;
aColorIndex2: Integer from Standard)
returns mutable CircularGrid from V2d;
SetColorIndices (me: mutable;
aColorIndex1: Integer from Standard;
aColorIndex2: Integer from Standard);
Display(me: mutable)
is redefined static;
Erase(me)
is redefined static;
IsDisplayed(me)
returns Boolean from Standard
is redefined static;
UpdateDisplay(me:mutable)
is redefined static protected;
fields
myViewer: ViewerPointer from V2d;
myGraphicObject: GraphicObject from Graphic2d;
myColorIndex1: Integer from Standard;
myColorIndex2: Integer from Standard;
myGrid: CircularGraphicGrid from V2d;
end CircularGrid from V2d;
|
