Depth24Image.st
changeset 8440 44692625c8ab
parent 8325 4b86cb61f568
child 8743 140d90ad0ec1
--- a/Depth24Image.st	Sat Aug 04 14:35:42 2018 +0200
+++ b/Depth24Image.st	Mon Aug 06 01:16:42 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -3500,9 +3502,14 @@
 !
 
 valueFromRedBits:redBits greenBits:greenBits blueBits:blueBits
-    ^ (((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:redBits
+    (photometric == #rgb) ifTrue:[
+        ^ (((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:blueBits
+    ].
+    self halt:'photometric?'.
+    ^ (((redBits bitShift:8) bitOr:greenBits) bitShift:8) bitOr:blueBits
 
     "Modified: / 22-08-2017 / 18:34:07 / cg"
+    "Modified: / 06-08-2018 / 01:05:23 / Claus Gittinger"
 ! !
 
 !Depth24Image class methodsFor:'documentation'!