blob: 2d94bc0fd8e320130eb9c6dfeac39fdfc169c1af (
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
--
-- File: AlienImage_SGIRGBAlienData.cdl
-- Created: 23/03/93
-- Author: BBL
--
---Copyright: Matravision 1993
--
class SGIRGBAlienData from AlienImage inherits AlienImageData from AlienImage
---Version: 0.0
---Purpose: This class defines a SGI .rgb Alien image.
---Keywords:
---Warning:
---References:
uses
File from OSD,
AsciiString from TCollection,
ColorImage from Image,
PseudoColorImage from Image,
Image from Image,
X11XColor from AlienImage,
SGIRGBFileHeader from AlienImage
raises
OutOfRange from Standard,
TypeMismatch from Standard
is
Create returns mutable SGIRGBAlienData from AlienImage ;
Clear( me : in out mutable ) ;
---Level: Public
---Purpose: Frees memory allocated by SGIRGBAlienData
---C++: alias ~
Read ( me : in out mutable ; afile : in out File from OSD )
returns Boolean from Standard ;
---Level: Public
---Purpose: Read content of a SGIRGBAlienData object from a file .
-- Returns True if file is a SGI .rgb file .
Write( me : in immutable; afile : in out File from OSD )
returns Boolean from Standard ;
---Level: Public
---Purpose: Write content of a SGIRGBAlienData object to a file .
SetName( me : in out mutable ;
aName : in AsciiString from TCollection)
is redefined;
---Level: Public
---Purpose: Set Image name .
Name( me : in immutable ) returns AsciiString from TCollection
is redefined;
---C++: return const &
---Level: Public
---Purpose: Get Image name .
ToImage( me : in immutable)
returns mutable Image from Image
raises TypeMismatch from Standard ;
---Level: Public
---Purpose : convert a SGIRGBAlienData 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 SGIRGBAlienData object.
--
-- Private Method
--
ToPseudoColorImage( me : in immutable)
returns PseudoColorImage from Image is private ;
---Level: Internal
---Purpose : convert a AlienImage object to a Image object.
ToColorImage( me : in immutable)
returns ColorImage from Image is private ;
---Level: Internal
---Purpose : convert a AlienImage object to a Image object.
fields
myHeader : SGIRGBFileHeader from AlienImage is protected ;
myRedData, myGreenData, myBlueData : Address from Standard is protected;
-- ( unsigned short * )
end ;
|
