[etoys-dev] Etoys: Etoys-kfr.147.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Dec 5 08:47:13 EST 2012
Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.147.mcz
==================== Summary ====================
Name: Etoys-kfr.147
Author: kfr
Time: 5 December 2012, 2:45:49 pm
UUID: a733212a-b976-5e42-a926-bc41140efc6d
Ancestors: Etoys-kfr.146
Set min and max to filter values
=============== Diff against Etoys-kfr.146 ===============
Item was changed:
----- Method: Player>>setBlur: (in category 'sketch filters') -----
setBlur: aNumber
+ | number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
+ number := aNumber asInteger min:100 max:0.
+ self sendMessageToCostume: #filtersAdd: with: { #blur:form: . number}!
- self sendMessageToCostume: #filtersAdd: with: { #blur:form: . aNumber}!
Item was changed:
----- Method: Player>>setBrightnessShift: (in category 'sketch filters') -----
setBrightnessShift: aNumber
+ | number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
+ number := aNumber asInteger min:100 max:-100.
+ self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . number}!
- self sendMessageToCostume: #filtersAdd: with: { #brightnessShift:form: . aNumber}!
Item was changed:
----- Method: Player>>setFishEye: (in category 'sketch filters') -----
setFishEye: aNumber
+ | number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
+ number := aNumber asInteger max:-10.
+ self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . number}!
- self sendMessageToCostume: #filtersAdd: with: { #fishEye:form: . aNumber}!
Item was changed:
----- Method: Player>>setHueShift: (in category 'sketch filters') -----
setHueShift: aNumber
+ | number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
+ number := aNumber asInteger min:360 max:-360.
+ self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. number}!
- self sendMessageToCostume: #filtersAdd: with: {#hueShift:form:. aNumber}!
Item was changed:
----- Method: Player>>setSaturationShift: (in category 'sketch filters') -----
setSaturationShift: aNumber
+ | number |
self costume renderedMorph isSketchMorph ifFalse:[^nil].
+ number := aNumber asInteger min:100 max:-100.
+ self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . number}!
- self sendMessageToCostume: #filtersAdd: with: { #saturationShift:form: . aNumber}!
Item was changed:
----- Method: SketchMorph class>>additionsToViewerCategoryGraphicsFilters (in category '*eToys-scripting') -----
additionsToViewerCategoryGraphicsFilters
"Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."
^ #(
#'graphics filters'
(
+ (slot hueShift 'Shift the hue of the pictures colors. -360 to 360' Number readWrite Player getHueShift Player setHueShift:)
+ (slot brightnessShift 'Shift the brightness of the picture. -100 to 100' Number readWrite Player getBrightnessShift Player setBrightnessShift:)
+ (slot saturationShift 'Shift the saturation of the pictures colors. -100 to 100' Number readWrite Player getSaturationShift Player setSaturationShift:)
- (slot hueShift 'Shift the hue of the pictures colors. -180 to 180' Number readWrite Player getHueShift Player setHueShift:)
- (slot brightnessShift 'Shift the brightness of the picture -100 to 100' Number readWrite Player getBrightnessShift Player setBrightnessShift:)
- (slot saturationShift 'Shift the saturation of the pictures colors -100 to 100' Number readWrite Player getSaturationShift Player setSaturationShift:)
(slot blur 'Blur the picture. 1 to 10' Number readWrite Player getBlur Player setBlur:)
(slot fishEye 'Make a fish eye effect on the picture. -10 and up' Number readWrite Player getFishEye Player setFishEye:)
(slot whirl 'Make a whirl effect on the picture.' Number readWrite Player getWhirl Player setWhirl:)
(command removeFilters 'Remove the picture filters' )
))
!
More information about the etoys-dev
mailing list