--- a/Depth8Image.st Tue Jun 18 17:06:39 1996 +0200
+++ b/Depth8Image.st Tue Jun 18 17:08:13 1996 +0200
@@ -931,13 +931,14 @@
newBytes := ByteArray uninitializedNew:(newWidth * newHeight).
newImage := self species new.
- newImage bits:newBytes.
- newImage width:newWidth.
- newImage height:newHeight.
- newImage photometric:photometric.
- newImage samplesPerPixel:samplesPerPixel.
- newImage bitsPerSample:#(8).
- newImage colorMap:colorMap copy.
+ newImage
+ width:newWidth
+ height:newHeight
+ photometric:photometric
+ samplesPerPixel:samplesPerPixel
+ bitsPerSample:#(8)
+ colorMap:colorMap copy
+ bits:newBytes.
"walk over destination image fetching pixels from source image"
@@ -955,10 +956,10 @@
double _mY = _floatVal(mY);
for (_row = 0; _row <= _h; _row++) {
- _srcRowP = _srcP + (_width * (int)((double)_row / _mY));
- for (_col = 0; _col <= _w; _col++) {
- *_dstP++ = _srcRowP[(int)((double)_col / _mX)];
- }
+ _srcRowP = _srcP + (_width * (int)((double)_row / _mY));
+ for (_col = 0; _col <= _w; _col++) {
+ *_dstP++ = _srcRowP[(int)((double)_col / _mX)];
+ }
}
%}
.
@@ -1295,5 +1296,5 @@
!Depth8Image class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.53 1996-06-17 17:31:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Depth8Image.st,v 1.54 1996-06-18 15:08:13 cg Exp $'
! !