#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Mon, 22 Jul 2019 14:08:43 +0200
changeset 8747 e84ae8a44b8d
parent 8746 0338514ca23d
child 8748 f30a1397d533
#BUGFIX by cg class: Depth32Image changed: #valueFromColor:
Depth32Image.st
--- a/Depth32Image.st	Mon Jul 22 14:03:36 2019 +0200
+++ b/Depth32Image.st	Mon Jul 22 14:08:43 2019 +0200
@@ -338,7 +338,7 @@
     ((photometric == #rgb) or:[photometric == #rgbx]) ifTrue:[
         "/ byteorder is: r,g,b,ignored-alpha
         "/ but the pixelvalue is assumed to be MSB (i.e. red at high byte)
-        ^ (((r bitShift:8) bitOr:g) bitShift:8) bitOr:b.
+        ^ ((((r bitShift:8) bitOr:g) bitShift:8) bitOr:b) bitShift:8.
     ].
     a := aColor alphaByte.
     (photometric == #rgba) ifTrue:[