Depth32Image.st
changeset 7185 9e6c2cec949b
parent 7167 12b5d9ffc66c
child 7186 e83860fda97a
child 7225 0b34f9bae937
--- a/Depth32Image.st	Sat Mar 05 15:26:59 2016 +0100
+++ b/Depth32Image.st	Sun Mar 06 00:02:27 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -872,7 +870,7 @@
 blueBitsOf:pixel
     "given a pixel-value, return the blue component as byteValue (0..255)"
 
-    photometric == #rgba ifTrue:[
+    ((photometric == #rgba) or:[photometric == #rgb]) ifTrue:[
         "r,g,b,a"
         ^ (pixel bitShift:-8) bitAnd:16rFF.
     ].
@@ -920,7 +918,7 @@
 greenBitsOf:pixel
     "given a pixel-value, return the green component as byteValue (0..255)"
 
-    photometric == #rgba ifTrue:[
+    ((photometric == #rgba) or:[photometric == #rgb]) ifTrue:[
         "r,g,b,a"
         ^ (pixel bitShift:-16) bitAnd:16rFF.
     ].
@@ -964,7 +962,7 @@
 redBitsOf:pixel
     "given a pixel-value, return the red component as byteValue (0..255)"
 
-    photometric == #rgba ifTrue:[
+    ((photometric == #rgba) or:[photometric == #rgb]) ifTrue:[
         "r,g,b,a"
         ^ (pixel bitShift:-24) bitAnd:16rFF.
     ].