checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 18 Jun 1996 17:08:13 +0200
changeset 887 a455ac21b8ca
parent 886 04b88b61c640
child 888 69447418e2b1
checkin from browser
Depth8Image.st
--- 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 $'
 ! !