7fd59977 |
1 | -- |
2 | -- File: AlienImage_EuclidAlienData.cdl |
3 | -- Created: 23/03/93 |
4 | -- Author: BBL |
5 | -- |
6 | ---Copyright: Matravision 1993 |
7 | -- |
8 | |
9 | class EuclidAlienData from AlienImage inherits AlienImageData from AlienImage |
10 | |
11 | ---Version: 0.0 |
12 | |
13 | ---Level: Public |
14 | ---Purpose: This class defines an Euclid .PIX Alien image. |
15 | ---Keywords: |
16 | ---Warning: |
17 | ---References: |
18 | |
19 | uses |
20 | File from OSD, |
21 | AsciiString from TCollection, |
22 | ColorImage from Image, |
23 | PseudoColorImage from Image, |
24 | Image from Image, |
25 | HArray2OfInteger from TColStd |
26 | |
27 | raises |
28 | OutOfRange from Standard, |
29 | TypeMismatch from Standard |
30 | |
31 | is |
32 | Create returns mutable EuclidAlienData from AlienImage ; |
33 | |
34 | Clear( me : in out mutable ) ; |
35 | ---Level: Public |
36 | ---Purpose: Frees memory allocated by EuclidAlienData |
37 | ---C++: alias ~ |
38 | |
39 | Read ( me : in out mutable ; afile : in out File from OSD ) |
40 | returns Boolean from Standard ; |
41 | ---Level: Public |
42 | ---Purpose: Read content of a EuclidAlienData object from a file . |
43 | -- Returns True if file is a XWD file . |
44 | |
45 | Write( me : in immutable; afile : in out File from OSD ) |
46 | returns Boolean from Standard ; |
47 | ---Level: Public |
48 | ---Purpose: Write content of a EuclidAlienData object to a file . |
49 | |
50 | ToImage( me : in immutable) |
51 | returns mutable Image from Image |
52 | raises TypeMismatch from Standard ; |
53 | ---Level: Public |
54 | ---Purpose : convert a EuclidAlienData object to a Image object. |
55 | |
56 | FromImage( me : in out mutable ; anImage : in Image from Image ) |
57 | raises TypeMismatch from Standard ; |
58 | ---Level: Public |
59 | ---Purpose : convert a Image object to a EuclidAlienData object. |
60 | |
61 | -- |
62 | -- Private Method |
63 | -- |
64 | |
65 | |
66 | FromPseudoColorImage( me : in out mutable ; |
67 | anImage : in PseudoColorImage from Image ); |
68 | ---Level: Internal |
69 | ---Purpose : convert a Image object to a EuclidAlienData object. |
70 | |
71 | FromColorImage( me : in out mutable ; |
72 | anImage : in ColorImage from Image ); |
73 | ---Level: Internal |
74 | ---Purpose : convert a Image object to a EuclidAlienData object. |
75 | |
76 | fields |
77 | |
78 | myX1, myY1, myX2, myY2 : Integer from Standard ; |
79 | myNumberOfColor : Integer from Standard ; |
80 | myColors : Address from Standard ; |
81 | myPixels : HArray2OfInteger from TColStd ; |
82 | myPixelsIsDef : Boolean from Standard ; |
83 | end ; |
84 | |