Etoys: Etoys-kfr.147.mcz

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' )
  ))
 
 
  !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev