#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:)
--- 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