--- 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'!