--- a/Depth32Image.st	Tue Sep 05 16:45:47 2017 +0200
+++ b/Depth32Image.st	Tue Sep 05 16:45:55 2017 +0200
@@ -1193,6 +1193,24 @@
     ^ super valueFromRedBits:redBits greenBits:greenBits blueBits:blueBits.
 
     "Modified: / 22-08-2017 / 18:34:30 / cg"
+!
+
+valueFromRedBits:redBits greenBits:greenBits blueBits:blueBits alphaBits:alphaBits
+    (photometric == #rgba) ifTrue:[
+        "/ alpha in low byte
+        ^ (((((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:blueBits) bitShift:8) bitOr:alphaBits
+    ].
+    (photometric == #argb) ifTrue:[
+        "/ alpha in high byte
+        ^ (((((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:blueBits)) bitOr:(alphaBits bitShift:24)
+    ].
+    (photometric == #rgb) ifTrue:[
+        "/ no alpha
+        ^ (((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:blueBits
+    ].
+    ^ super valueFromRedBits:redBits greenBits:greenBits blueBits:blueBits.
+
+    "Created: / 05-09-2017 / 14:31:38 / cg"
 ! !
 
 !Depth32Image class methodsFor:'documentation'!