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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
-- File: Image_Image.cdl
-- Created: Tue Jul 27 18:45:26 1993
-- Author: Jean Louis FRENKEL
-- <jlf@sparc3>
---Copyright: Matra Datavision 1993
deferred class Image from Image inherits TShared from MMgt
---Purpose: This class defined the general behavior of an Image from
-- Package Image .
uses
PlaneAngle from Quantity,
FlipType from Image,
Color from Quantity,
Array1OfColor from Quantity,
HArray1OfColor from Quantity,
Pixel from Aspect,
PixelAddress from Image,
TypeOfImage from Image,
Type from Standard
is
Initialize( aPixelType : Type from Standard );
---Level: Public
---Purpose: Image constructor ,initialise the Image PixelType.
Destroy( me : mutable )
is virtual ;
---C++: alias ~
---Level: Public
---Purpose: Image destructor.
isSamePixel( me : immutable ;
X,Y : in Integer from Standard ;
anotherImage : immutable like me ;
anotherX,anotherY : in Integer from Standard )
returns Boolean from Standard is deferred ;
---Level: Public
---Purpose: Returns True if me->Pixel(X,Y) is equal to
-- anotherImage->Pixel(anotherX,anotherY)
PixelColor( me : immutable ; X,Y : in Integer from Standard )
returns Color from Quantity is deferred ;
---C++: return const &
---Purpose: Returns the Color of an Image Pixel.
RowColor ( me : immutable ; Y : in Integer from Standard )
returns HArray1OfColor from Quantity is virtual ;
---Purpose: Returns the Color of an Image Pixel Row.
RowColor ( me : immutable ;
Y : in Integer from Standard ;
aArray1 : in out Array1OfColor from Quantity )
is virtual ;
---Purpose: Stores the Color of an Image Pixel Row in aArray1.
PixelType( me : immutable ) returns Type from Standard ;
---Level: Public
---Purpose: Returns the Image Pixel Type.
Size ( me : immutable ) returns Integer from Standard ;
---Purpose: Returns the Image size in Pixel unit ( width*height) .
InternalDup( me : mutable ; anImage : immutable like me )
is deferred ;
---Purpose : Duplicates an Image.
-- ******************* Deferred method of Image *******************
SetOrigin( me : mutable ; x,y : in Integer from Standard )
is deferred ;
---Purpose: Sets Image origin, for Rotation, copy between image ...
-- Image origin is on the TOP LEFT . Y axis goes TOP to
-- DOWN , X axis goes LEFT to RIGHT.
LowerX ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the lower X Image coordinate ( X Origin ).
UpperX ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the upper X Image coordinate
-- ( X Origin + Image width - 1 ).
Width ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the Image width.
LowerY ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the lower Y Image coordinate ( Y Origin ).
UpperY ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the upper Y Image coordinate
-- ( Y Origin + Image height - 1 ).
Height ( me : immutable ) returns Integer from Standard is deferred ;
---Level: Public
---Purpose: Returns the Image height.
Resize( me : mutable ;
XOffset,XScale, YOffset,YScale : Real from Standard ) is deferred ;
---Level: Public
---Purpose: Resize an Image. Image Pixel are left unchanged at there
-- absolute positon. Resulting Image can be clipped.
-- newLowerX = LowerX()*XScale + XOffset
-- newLowerY = LowerY()*YScale + YOffset
-- newUpperX = UpperX()*XScale + XOffset
-- newUpperY = UpperY()*YScale + YOffset
-- newWidth = Width() *XScale
-- newHeight = Height()*YScale
Type ( me : immutable ) returns TypeOfImage from Image is deferred ;
---Level: Public
---Purpose: Returns the ImageType TOI_ColorImage or TOI_PseudoColorImage
Pixel ( me : immutable ; X,Y : in Integer from Standard ;
aPixel : in out Pixel from Aspect )
is deferred ;
---Level: Public
---Purpose: Get the Image Pixel Value at X,Y coordinate in aPixel.
-- Warning: aPixel must have the same type than Image Pixel.
SetPixel( me : mutable ; X,Y : in Integer from Standard ;
aPixel : in Pixel from Aspect )
is deferred ;
---Level: Public
---Purpose: Store aPixel in the Image at X,Y coordinate .
-- Warning: aPixel must have the same type than Image Pixel.
Pixel ( me : immutable ; X,Y : in Integer from Standard ;
aPixel : in out PixelAddress from Image )
is deferred ;
---Level: Public
---Purpose: Get the Image Pixel Value at X,Y coordinate in aPixel.
-- Warning: aPixel must have the same type than Image Pixel.
SetPixel( me : mutable ; X,Y : in Integer from Standard ;
aPixel : in PixelAddress from Image )
is deferred ;
---Level: Public
---Purpose: Store aPixel in the Image at X,Y coordinate .
-- Warning: aPixel must have the same type than Image Pixel.
Transpose ( me : mutable ; aType : in FlipType from Image ) is deferred ;
---Level: Public
---Purpose: Transpose an Image( flipping across horizontal axis or
-- vertical axis, or across diagonal... )
-- This geometric transformation preserves all Image Pixels.
-- We don't need to interpolate pixels .
-- Warning : Image size change during Transpose.
Clip ( me : mutable ; X,Y,Width,Height:in Integer from Standard)
is deferred ;
---Level: Public
---Purpose: Extract a SubImage starting at coordinate X,Y
-- to (X+Width-1),(Y+Height-1).
-- Warning : the Image size and origin change, new origin
-- is X,Y ; new size is Width,Height.
Shift ( me : mutable ; XShift,YShift :in Integer from Standard)
is deferred ;
---Level: Public
---Purpose: Translate an Image XShift pixel Right, YShift Down .
-- Shift parameter are Integer value.
Fill ( me : mutable ; SrcImage : immutable like me ) is deferred ;
---Level: Public
---Purpose: Fill me with SrcImage. SrcImage pixel are copied starting
-- at SrcImage->LowerX(),SrcImage->LowerY() in MyPixelField.
-- SrcImage Pixel are clipped outside <me>.
Fill ( me : mutable ; SrcImage : immutable like me ;
SrcX, SrcY, SrcWidth, SrcHeight,
X, Y : in Integer from Standard ) is deferred ;
---Level: Public
---Purpose: Fill me with a SubImage of SrcImage starting from
-- SrcX, SrcY to (SrcX+SrcWidth-1),(SrcY+SrcHeight-1) in
-- Src Image coordinate. SrcImage SubImage pixels are copied
-- starting at X,Y in MyPixelField.
-- SrcImage Pixel are clipped outside <me>.
Clear ( me : mutable ) is deferred ;
---Level: Public
---Purpose: Fill the entire Image with the BackgroundPixel.
Dup ( me : immutable ) returns mutable Image from Image is deferred;
---Level: Public
---Purpose : Duplicate an Image.
Dump( me : immutable ) is deferred ;
---Level: Public
---Purpose: Debug
fields
myPixelType : Type from Standard ;
end Image from Image;
|
