7fd59977 |
1 | -- |
2 | -- File: AlienImage_SunRFAlienImage.cdl |
3 | -- Created: 23/03/93 |
4 | -- Author: BBL |
5 | -- Modified: 02-06-98 : FMN ; Suppression appel Clear (deja fait dans ALienData) |
6 | -- |
7 | ---Copyright: Matravision 1993 |
8 | -- |
9 | |
10 | class SunRFAlienImage from AlienImage inherits AlienUserImage from AlienImage |
11 | |
12 | |
13 | ---Purpose: Defines a SunRF Alien image, i.e. an image using the |
14 | -- image format for SUN workstations. |
15 | |
16 | uses |
17 | File from OSD, |
18 | AsciiString from TCollection, |
19 | ColorImage from Image, |
20 | PseudoColorImage from Image, |
21 | Image from Image, |
22 | SunRFAlienData from AlienImage, |
23 | SUNRFFormat from AlienImage |
24 | |
25 | is |
26 | Create returns mutable SunRFAlienImage from AlienImage; |
27 | ---Purpose: Constructs an empty SunRF alien image. |
28 | |
29 | Clear( me : in out mutable) ; |
30 | ---Level: Public |
31 | ---Purpose: Frees memory allocated by SunRFAlienImage |
32 | |
33 | ToImage( me : in immutable ) |
34 | returns mutable Image from Image ; |
35 | ---Level: Public |
36 | ---Purpose : Converts a SunRFAlienImage object to a Image object. |
37 | |
38 | FromImage( me : in out mutable ; anImage : in Image from Image ) ; |
39 | ---Level: Public |
40 | ---Purpose : Converts an Image object to a SunRFAlienImage object. |
41 | |
42 | Read ( me : in out mutable; afile : in out File from OSD ) |
43 | returns Boolean from Standard ; |
44 | ---Level: Public |
45 | ---Purpose: Reads the content of a SunRFAlienImage object from a file |
46 | -- Returns True if file is a XWD file . |
47 | |
48 | Write( me : in immutable; afile : in out File from OSD ) |
49 | returns Boolean from Standard ; |
50 | ---Purpose: Writes content of a SunRFAlienImage object to a file |
51 | |
52 | SetFormat( me : in out mutable ; |
53 | aFormat : SUNRFFormat from AlienImage); |
54 | ---Purpose: Sets the SUN Raster File Format for Write method. |
55 | |
56 | Format( me : in immutable ) |
57 | returns SUNRFFormat from AlienImage ; |
58 | ---Purpose: Returns the SUN Raster File Format . |
59 | |
60 | fields |
61 | myData : SunRFAlienData from AlienImage ; |
62 | |
63 | end ; |
64 | |