blob: 792f2ee8b8f9208c09db38890f71c78268950a4b (
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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
-- File: AlienImage.cdl
-- Created: Tue Jul 27 18:51:28 1993
-- Author: Jean Louis FRENKEL
-- <jlf@sparc3>
---Copyright: Matra Datavision 1993
package AlienImage
---Purpose: This package allows importation of images
-- from some other format into CAS.CADE format.
uses
Image,
TColStd,
TCollection,
Aspect,
OSD,
MMgt
is
------------------------
---Category: The classes
------------------------
deferred class AlienImage;
---Purpose: Define the general methods on AlienImage
deferred class AlienImageData ;
---Purpose: Internal Definition of AlienImage.
deferred class AlienUserImage ;
---Purpose: Public Definition of AlienImage.
-- class PSAlienImage;
---Purpose: Definition of PostScript AlienImage.
class SunRFAlienData;
---Purpose: Private definition of Sun Raster File .rs AlienImage.
class SunRFAlienImage;
---Purpose: Public definition of Sun Raster File .rs AlienImage.
class EuclidAlienData;
---Purpose: Private definition of Euclid .pix AlienImage.
class EuclidAlienImage;
---Purpose: Public definition of Euclid .pix AlienImage.
class SGIRGBAlienData;
---Purpose: Private definition of SGI .rgb AlienImage.
class SGIRGBAlienImage;
---Purpose: Public definition of SGI .rgb AlienImage.
class X11XWDAlienData;
---Purpose: Private definition X11 .xwd AlienImage .
class XAlienImage;
---Purpose: Public definition X11 .xwd AlienImage.
class AidaAlienData;
---Purpose: Private definition of Aida .i AlienImage .
class AidaAlienImage;
---Purpose: Public definition of Aida .i AlienImage.
class MemoryOperations;
---Purpose: A set of function to swap byte in memory, used for
-- comaptibility between LSBFirst and MSBFirst .
private class BMPAlienData;
---Purpose: Private definition of windows .bmp AlienImage.
private class GIFAlienData;
---Purpose: Private definition of windows .gif AlienImage.
class BMPAlienImage;
---Purpose: Public definition of windows .bmp AlienImage.
class GIFAlienImage;
---Purpose: Public definition of windows .gif AlienImage.
---Category: Imported types:
imported GIFLZWDict;
imported BMPHeader;
imported X11XColor ;
imported X11XWDFileHeader ;
imported SGIRGBFileHeader ;
imported SUNRFFileHeader ;
enumeration SUNRFFormat is SUNRF_Old,
SUNRF_Standard,
SUNRF_ByteEncoded,
SUNRF_RGB,
SUNRF_Unknown
end SUNRFFormat ;
---Purpose: Type of code for a SUNRF image.
----------------------------
---Category: Package methods
----------------------------
CreateImage (theFileName : AsciiString from TCollection;
theImage : out Image from Image)
returns Boolean from Standard;
---Purpose:
CreateImage (theFileName : CString from Standard;
theImage : out Image from Image)
returns Boolean from Standard;
---Purpose:
CreateImage (theFile : in out File from OSD;
theImage : out Image from Image)
returns Boolean from Standard;
---Purpose:
LoadImageFile (anImageFile : CString from Standard;
anImage : out Image from Image;
aWidth : out Integer from Standard;
aHeight : out Integer from Standard
) returns Boolean from Standard;
---Purpose: Used by plotter drivers
end AlienImage;
|
