equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
494 |
496 |
495 mapIndex := aColorIndex + 1. |
497 mapIndex := aColorIndex + 1. |
496 "/ color := colorMap at:mapIndex. |
498 "/ color := colorMap at:mapIndex. |
497 color := self colorFromValue:aColorIndex. |
499 color := self colorFromValue:aColorIndex. |
498 color brightness > 0.4 ifTrue:[ |
500 color brightness > 0.4 ifTrue:[ |
499 color := Color white. |
501 color := aDevice whiteColor. |
500 ] ifFalse:[ |
502 ] ifFalse:[ |
501 color := Color black. |
503 color := aDevice blackColor. |
502 ]. |
504 ]. |
503 imgMap at:mapIndex put:(color onDevice:aDevice). |
505 imgMap at:mapIndex put:(color onDevice:aDevice). |
504 ]. |
506 ]. |
505 fit := true. |
507 fit := true. |
506 ] |
508 ] |