Image.st
changeset 8708 b637a45bb4d1
parent 8691 bfa5c82bf5a1
child 8726 b90ede922f20
--- a/Image.st	Wed Jun 26 13:48:48 2019 +0200
+++ b/Image.st	Thu Jun 27 15:32:39 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -7112,7 +7114,7 @@
         if ((_w * _h * 4) > _imgSize) goto error;
 
 #if (__POINTER_SIZE__ == 8) && defined(__LSBFIRST__)
-        // fetch 4 pixels (4*32bit); store in 3 (4*24bit)
+        // fetch 4 pixels (4*32bit in 2 INTs); store in 3 ints (4*24bit)
         while (_myBitsPtr < (_myBitsEndPtr-sizeof(int)*3)) {
             // LSB argbargb; r in LSB
             // a2 b2 g2 r2 a1 b1 g1 r1 
@@ -7165,6 +7167,7 @@
     ].
 
     "Created: / 25-03-2019 / 14:48:52 / Claus Gittinger"
+    "Modified: / 27-06-2019 / 15:31:33 / Claus Gittinger"
 !
 
 copyPixels32AlphaLowTo24From:anImage
@@ -7196,7 +7199,7 @@
         if ((_w * _h * 4) > _imgSize) goto error;
 
 #if (__POINTER_SIZE__ == 8) && defined(__LSBFIRST__)
-        // fetch 4 pixels (4*32bit); store in 3 (4*24bit)
+        // fetch 4 pixels (4*32bit in 2 INTs); store in 3 ints (4*24bit)
         while (_myBitsPtr < (_myBitsEndPtr-sizeof(int)*3)) {
             // LSB argbargb; r in LSB
             // b2 g2 r2 a2 b1 g1 r1 a1
@@ -7248,7 +7251,7 @@
         self pixelAtX:x y:y put:((pixel bitShift:-8) bitAnd:16rFFFFFF)
     ].
 
-    "Modified: / 25-03-2019 / 14:50:50 / Claus Gittinger"
+    "Modified: / 27-06-2019 / 15:32:03 / Claus Gittinger"
 !
 
 rgbImageAsFormOn:aDevice