equal
deleted
inserted
replaced
19 |
19 |
20 ColorValue comment:' |
20 ColorValue comment:' |
21 COPYRIGHT (c) 1995 by Claus Gittinger |
21 COPYRIGHT (c) 1995 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $ |
24 $Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.3 1995-05-03 00:01:17 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !ColorValue class methodsFor:'documentation'! |
27 !ColorValue class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.2 1995-03-07 21:54:53 claus Exp $ |
45 $Header: /cvs/stx/stx/libview2/ColorValue.st,v 1.3 1995-05-03 00:01:17 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
75 " |
75 " |
76 ColorValue brightness:0.5 |
76 ColorValue brightness:0.5 |
77 " |
77 " |
78 ! |
78 ! |
79 |
79 |
|
80 hue:hue saturation:sat brightness:light |
|
81 "return a color. |
|
82 The hue, saturation and brightness values are given in 0..1 instead of |
|
83 degrees / percent" |
|
84 |
|
85 ^ Color hue:hue*360 light:light*100 saturation:sat*100 |
|
86 |
|
87 " |
|
88 ColorValue hue:0 saturation:1 brightness:0.5 |
|
89 " |
|
90 ! |
|
91 |
80 scaledRed:r scaledGreen:g scaledBlue:b |
92 scaledRed:r scaledGreen:g scaledBlue:b |
81 "ST-80 compatibility. |
93 "ST-80 compatibility. |
82 Return a color from r, g and b values; |
94 Return a color from r, g and b values; |
83 the arguments, r, g and b are interpreted as 13bit |
95 the arguments, r, g and b are interpreted as 13bit |
84 direct value (0..8191); 0/0/0 is black, 8191/8191/8191 is white." |
96 direct value (0..8191); 0/0/0 is black, 8191/8191/8191 is white." |