#REFACTORING
authorClaus Gittinger <cg@exept.de>
Wed, 23 Mar 2016 14:35:20 +0100
changeset 7225 0b34f9bae937
parent 7224 52cef22632db
child 7226 78d9aa881c26
child 7227 3aaeb922a454
#REFACTORING class: Depth32Image changed: #pixelAtX:y: (send #unsignedInt32At:MSB: instead of #doubleWordAt:MSB:) #pixelAtX:y:put: (send #unsignedInt32At:put:MSB: instead of #doubleWordAt:put:MSB:) #rowAt:putAll:startingAt: (send #unsignedInt32At:put:MSB: instead of #doubleWordAt:put:MSB:)
Depth32Image.st
--- a/Depth32Image.st	Wed Mar 23 14:34:53 2016 +0100
+++ b/Depth32Image.st	Wed Mar 23 14:35:20 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -149,7 +151,7 @@
     pixelIndex := 1 + (((width * y) + x) * 4).
 
     "left pixel in high bits"
-    ^ bytes doubleWordAt:pixelIndex MSB:true.
+    ^ bytes unsignedInt32At:pixelIndex MSB:true.
 
     "Created: 24.4.1997 / 19:00:28 / cg"
     "Modified: 24.4.1997 / 23:11:05 / cg"
@@ -166,7 +168,7 @@
     bytes isNil ifTrue:[
         self createPixelStore
     ].
-    bytes doubleWordAt:pixelIndex put:aPixelValue MSB:true
+    bytes unsignedInt32At:pixelIndex put:aPixelValue MSB:true
 
     "Created: / 24-04-1997 / 19:00:28 / cg"
     "Modified: / 06-06-2007 / 12:20:57 / cg"
@@ -186,7 +188,7 @@
 
     0 to:w do:[:col |
         pixel := pixelArray at:(startIndex + col).
-        bytes doubleWordAt:dstIdx put:pixel MSB:true.
+        bytes unsignedInt32At:dstIdx put:pixel MSB:true.
         dstIdx := dstIdx + 4.
     ].
     ^ pixelArray