ColorValue.st
changeset 63 23617db5f7db
parent 47 b8bf773bdf76
child 96 948318b2fbd4
--- a/ColorValue.st	Tue May 02 01:06:45 1995 +0200
+++ b/ColorValue.st	Wed May 03 02:01:17 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $
+$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.3 1995-05-03 00:01:17 claus Exp $
 '!
 
 !ColorValue class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $
+$Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.3 1995-05-03 00:01:17 claus Exp $
 "
 !
 
@@ -77,6 +77,18 @@
     "
 !
 
+hue:hue saturation:sat brightness:light 
+    "return a color.
+     The hue, saturation and brightness values are given in 0..1 instead of 
+     degrees / percent"
+
+    ^ Color hue:hue*360 light:light*100 saturation:sat*100 
+
+    "
+     ColorValue hue:0 saturation:1 brightness:0.5 
+    "
+!
+
 scaledRed:r scaledGreen:g scaledBlue:b
      "ST-80 compatibility.
       Return a color from r, g and b values;