blob: f19b4f2a50ed622cd527782f4d7b2d4c2531b3b2 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
-- File: AlienImage_GIFAlienData.cdl
-- Created: 20/10/98
-- Author: DCB
---Copyright: Matravision 1998
private class GIFAlienData from AlienImage inherits AlienImageData from AlienImage
uses
File from OSD,
AsciiString from TCollection,
PseudoColorImage from Image,
ColorImage from Image,
Image from Image
raises
OutOfRange from Standard,
TypeMismatch from Standard
is
Create returns mutable GIFAlienData from AlienImage ;
Clear( me : in out mutable );
---Level: Public
---Purpose: Frees memory allocated by GIFAlienData
---C++: alias ~
Read ( me : in out mutable ; afile : in out File from OSD )
returns Boolean from Standard;
---Level: Public
---Purpose: Read content of a GIFAlienData object from a file
-- Returns True if file is a GIF file .
Write( me : in immutable; afile : in out File from OSD )
returns Boolean from Standard;
---Level: Public
---Purpose: Write content of a GIFAlienData object to a file
ToImage( me : in immutable)
returns mutable Image from Image
raises TypeMismatch from Standard ;
---Level: Public
---Purpose : convert a GIFAlienData object to a Image object.
FromImage( me : in out mutable ; anImage : in Image from Image )
raises TypeMismatch from Standard ;
---Level: Public
---Purpose : convert a Image object to a GIFAlienData object.
------------------------------------------------------
--- Private methods
------------------------------------------------------
FromPseudoColorImage (me : in out mutable;
anImage : in PseudoColorImage from Image )
is private;
---Level: Internal
---Purpose : convert a Image object to a GIFAlienData object.
FromColorImage (me : in out mutable;
anImage : in ColorImage from Image)
is private;
---Level: Internal
---Purpose : convert a Image object to a GIFAlienData object.
fields
myRedColors : Address from Standard;
myGreenColors : Address from Standard;
myBlueColors : Address from Standard;
myData : Address from Standard;
myWidth : Integer from Standard;
myHeight : Integer from Standard;
end;
|
