equal
deleted
inserted
replaced
224 colorCube at:dstIndex put:clr. |
224 colorCube at:dstIndex put:clr. |
225 dstIndex := dstIndex + 1 |
225 dstIndex := dstIndex + 1 |
226 ] |
226 ] |
227 ] |
227 ] |
228 ]. |
228 ]. |
|
229 ^ colorCube |
229 |
230 |
230 "Created: 11.7.1996 / 17:55:32 / cg" |
231 "Created: 11.7.1996 / 17:55:32 / cg" |
231 "Modified: 10.1.1997 / 15:37:13 / cg" |
232 "Modified: 10.1.1997 / 15:37:13 / cg" |
232 ! |
233 ! |
233 |
234 |
528 gray := d * (sG - 1). |
529 gray := d * (sG - 1). |
529 clr := self red:gray green:gray blue:gray. |
530 clr := self red:gray green:gray blue:gray. |
530 grayColors at:dstIndex put:clr. |
531 grayColors at:dstIndex put:clr. |
531 dstIndex := dstIndex + 1 |
532 dstIndex := dstIndex + 1 |
532 ]. |
533 ]. |
|
534 ^ grayColors |
533 |
535 |
534 " |
536 " |
535 Color getGrayColors:16 on:Display |
537 Color getGrayColors:16 on:Display |
536 " |
538 " |
537 |
539 |
5230 ! ! |
5232 ! ! |
5231 |
5233 |
5232 !Color class methodsFor:'documentation'! |
5234 !Color class methodsFor:'documentation'! |
5233 |
5235 |
5234 version |
5236 version |
5235 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.181 2003-07-01 21:17:35 cg Exp $' |
5237 ^ '$Header: /cvs/stx/stx/libview/Color.st,v 1.182 2003-07-01 21:19:58 cg Exp $' |
5236 ! ! |
5238 ! ! |
5237 |
5239 |
5238 Color initialize! |
5240 Color initialize! |