author | Claus Gittinger <cg@exept.de> |
Mon, 22 Jul 2019 14:08:43 +0200 | |
changeset 8747 | e84ae8a44b8d |
parent 8746 | 0338514ca23d |
child 8748 | f30a1397d533 |
Depth32Image.st | file | annotate | diff | comparison | revisions |
--- 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:[