Color.st
changeset 7758 2e96180d15d8
parent 7650 5781e05a6a1d
child 7762 29af5517f03a
equal deleted inserted replaced
7757:ebc149c4b281 7758:2e96180d15d8
  5542         colorId == 0 ifTrue:[^ 0].
  5542         colorId == 0 ifTrue:[^ 0].
  5543         ^ 100
  5543         ^ 100
  5544     ].
  5544     ].
  5545     ^ ((3 * red) + (6 * green) + (1 * blue)) * 10.0 / MaxValue
  5545     ^ ((3 * red) + (6 * green) + (1 * blue)) * 10.0 / MaxValue
  5546 
  5546 
       
  5547     "
       
  5548      Color red brightness
       
  5549      Color red grayIntensity
       
  5550     "
       
  5551     
  5547     "Created: 2.5.1996 / 11:38:21 / cg"
  5552     "Created: 2.5.1996 / 11:38:21 / cg"
  5548 !
  5553 !
  5549 
  5554 
  5550 greyIntensity
  5555 greyIntensity
  5551     "return the grey intensity in percent [0..100] (English version ;-)"
  5556     "return the grey intensity in percent [0..100] (English version ;-)"