ImageEditor.st
changeset 1925 c307194083ec
parent 1924 73271e3c217f
child 1926 b3d2dab90f9b
equal deleted inserted replaced
1924:73271e3c217f 1925:c307194083ec
  3611     firstChange := true.
  3611     firstChange := true.
  3612 
  3612 
  3613     shiftedColor := [:clr :hShift :lFactor :sFactor |
  3613     shiftedColor := [:clr :hShift :lFactor :sFactor |
  3614                         Color 
  3614                         Color 
  3615                                 hue:((clr hue) ? 0 + hShift) 
  3615                                 hue:((clr hue) ? 0 + hShift) 
  3616                                 light:((clr light * lFactor / 100) min:100)
  3616                                 light:((clr light * lFactor / 100) "min:100")
  3617                                 saturation:((clr saturation * sFactor / 100) min:100)].
  3617                                 saturation:((clr saturation * sFactor / 100) "min:100")].
  3618 
  3618 
  3619     shiftAction := 
  3619     shiftAction := 
  3620         [
  3620         [
  3621             |hShift lFactor sFactor|
  3621             |hShift lFactor sFactor|
  3622 
  3622