--- a/Colormap.st Fri Jul 20 12:48:01 2007 +0200
+++ b/Colormap.st Sun Jul 22 20:48:11 2007 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libview' }"
SequenceableCollection subclass:#Colormap
@@ -244,12 +243,12 @@
b := (aColor blue * 255 / 100) rounded.
idx := index.
- self redByteAt:idx put:r.
- self greenByteAt:idx put:g.
- self blueByteAt:idx put:b.
+ self redByteAt:idx put:(r max:0).
+ self greenByteAt:idx put:(g max:0).
+ self blueByteAt:idx put:(b max:0).
^ aColor
- "Modified: 2.5.1996 / 17:29:29 / cg"
+ "Modified: / 22-07-2007 / 15:28:32 / cg"
!
atPixelValue:pixelValue
@@ -570,5 +569,5 @@
!Colormap class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.38 2004-06-07 09:22:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Colormap.st,v 1.39 2007-07-22 18:48:11 cg Exp $'
! !