Depth24Image.st
changeset 1350 3fced8a1576c
parent 1237 15848ece8b95
child 1577 3d8eedcc0ad8
--- a/Depth24Image.st	Fri Feb 14 00:52:22 1997 +0100
+++ b/Depth24Image.st	Fri Feb 14 00:53:21 1997 +0100
@@ -87,11 +87,7 @@
     photometric ~~ #rgb ifTrue:[
         ^ super atX:x y:y
     ].
-    ^ Color red:rVal * 100 / 255
-          green:gVal * 100 / 255
-           blue:bVal * 100 / 255
-
-    "Modified: 8.6.1996 / 10:45:05 / cg"
+    ^ Color redByte:rVal greenByte:gVal blueByte:bVal
 !
 
 atX:x y:y put:aColor
@@ -1456,9 +1452,7 @@
         srcIndex := srcIndex + 3.
 
         (rVal == lastR and:[gVal == lastG and:[bVal == lastB]]) ifFalse:[
-            lastColor := Color red:rVal * 100 / 255
-                             green:gVal * 100 / 255
-                              blue:bVal * 100 / 255.
+            lastColor := Color redByte:rVal greenByte:gVal blueByte:bVal * 100 / 255.
             lastR := rVal.
             lastG := gVal.
             lastB := bVal.
@@ -1711,5 +1705,5 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.41 1997-01-16 22:57:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.42 1997-02-13 23:53:21 ca Exp $'
 ! !