--- a/Color.st Thu Feb 02 21:15:21 2017 +0100
+++ b/Color.st Fri Feb 03 11:32:11 2017 +0100
@@ -4313,6 +4313,30 @@
"Modified: / 26.7.1998 / 12:31:22 / cg"
!
+rgbBytes
+ "return the rgb byteValues as a 3-byte byteArray #[red green blue]"
+
+ |r "{ Class: SmallInteger }"
+ g "{ Class: SmallInteger }"
+ b "{ Class: SmallInteger }"|
+
+ r := red * 255 // MaxValue.
+ g := green * 255 // MaxValue.
+ b := blue * 255 // MaxValue.
+ ^ ByteArray with:r with:g with:b
+
+ "
+ Color red rgbBytes
+ Color blue rgbBytes
+ Color green rgbBytes
+ Color black rgbBytes
+ Color grey rgbBytes
+ Color white rgbBytes
+ "
+
+ "Created: / 03-02-2017 / 11:31:24 / cg"
+!
+
rgbValue
"return the rgb byteValues packed into a 24bit integer;
The returned value is composed of r<<16 + g<<8 + b."