equal
deleted
inserted
replaced
5255 firstChange := true. |
5255 firstChange := true. |
5256 |
5256 |
5257 shiftedColor := [:clr :hShift :lFactor :sFactor | |
5257 shiftedColor := [:clr :hShift :lFactor :sFactor | |
5258 Color |
5258 Color |
5259 hue:((clr hue) ? 0 + hShift) |
5259 hue:((clr hue) ? 0 + hShift) |
5260 light:((clr light * lFactor / 100) "min:100") |
5260 light:((clr light * lFactor / 100) min:100) |
5261 saturation:(((clr saturation max:20) * sFactor / 100) "min:100")]. |
5261 saturation:(((clr saturation max:20) * sFactor / 100) min:100)]. |
5262 |
5262 |
5263 |
5263 |
5264 shiftAction := |
5264 shiftAction := |
5265 [ |
5265 [ |
5266 |hShift lFactor sFactor| |
5266 |hShift lFactor sFactor| |