[etoys-dev] Etoys Inbox: Morphic-kfr.70.mcz

[commits at source.squeak.org]

A new version of Morphic was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Morphic-kfr.70.mcz

==================== Summary ====================

Name: Morphic-kfr.70
Author: kfr
Time: 1 November 2011, 8:55:18 am
UUID: d42046a4-9c34-904d-8bb8-72f852401f32
Ancestors: Morphic-kfr.68

SketchMorph Filters

=============== Diff against Morphic-kfr.68 ===============

Item was removed:
- ----- Method: SketchMorph>>blur: (in category 'filters') -----
- blur: width
- 	
- 	self filters.
- 	filters add: { #filterBlur:form: .  width}
- 	
- 
- 	!

Item was added:
+ ----- Method: SketchMorph>>blur:form: (in category 'filters') -----
+ blur: width form: filteredForm
+ 	
+ 	| f fOut |
+ 	
+ 	f :=  filteredForm asFormOfDepth: 32.
+ 	f width + width = 0 ifTrue:[^ filteredForm].
+ 	fOut := f deepCopy.
+ 	ScratchPlugin primBlur: f bits into: fOut bits width: f width + width.
+      ^ fOut asFormOfDepth: 16.
+ 
+ 	!

Item was removed:
- ----- Method: SketchMorph>>brightnessShift: (in category 'filters') -----
- brightnessShift: shift
- 	
- 	self filters.
- 	filters add: { #filterBrightnessShift:form: .  shift}
- 	
- 
- 	!

Item was added:
+ ----- Method: SketchMorph>>brightnessShift:form: (in category 'filters') -----
+ brightnessShift: shift form: filteredForm
+ 	
+ 	| f fOut |
+ 	f :=  filteredForm asFormOfDepth: 32.
+ 	fOut := f deepCopy.
+ 	ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift.
+      ^ fOut asFormOfDepth: 16.
+ 
+ 	!

Item was removed:
- ----- Method: SketchMorph>>filterBlur:form: (in category 'filters') -----
- filterBlur: width form: filteredForm
- 	
- 	| f fOut |
- 	f _  filteredForm asFormOfDepth: 32.
- 	fOut _ f deepCopy.
- 	ScratchPlugin primBlur: f bits into: fOut bits width: width.
-      ^ fOut asFormOfDepth: 16.
- 
- 	!

Item was removed:
- ----- Method: SketchMorph>>filterBrightnessShift:form: (in category 'filters') -----
- filterBrightnessShift: shift form: filteredForm
- 	
- 	| f fOut |
- 	f _  filteredForm asFormOfDepth: 32.
- 	fOut _ f deepCopy.
- 	ScratchPlugin primShiftBrightness: f bits into: fOut bits by: shift.
-      ^ fOut asFormOfDepth: 16.
- 
- 	!

Item was removed:
- ----- Method: SketchMorph>>filterHueShift:form: (in category 'filters') -----
- filterHueShift: shift form: filteredForm
- 	
- 	| f fOut |
- 	f _  filteredForm asFormOfDepth: 32.
- 	fOut _ f deepCopy.
- 	ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift.
-      ^ fOut asFormOfDepth: 16.
- 
- 	!

Item was removed:
- ----- Method: SketchMorph>>filterSaturationShift:form: (in category 'filters') -----
- filterSaturationShift: shift form: filteredForm
- 	
- 	| f fOut |
- 	f _  filteredForm asFormOfDepth: 32.
- 	fOut _ f deepCopy.
- 	ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift.
-      ^ fOut asFormOfDepth: 16.
- 
- 	!

Item was added:
+ ----- Method: SketchMorph>>filtersAdd: (in category 'filters') -----
+ filtersAdd: aFilterWithValue
+ 	
+ 	
+ self filters.
+ 	filters do: [ : i | (i includes: aFilterWithValue first) ifTrue: [filters remove: i]].
+ 	filters add:  aFilterWithValue.
+ 	self generateRotatedForm.
+ 	self layoutChanged
+ 	
+ 
+ 	!

Item was removed:
- ----- Method: SketchMorph>>hueShift: (in category 'filters') -----
- hueShift: shift
- 	
- 	self filters.
- 	filters add: { #filterHueShift:form: .  shift}
- 	
- 
- 	!

Item was added:
+ ----- Method: SketchMorph>>hueShift:form: (in category 'filters') -----
+ hueShift: shift form: filteredForm
+ 	
+ 	| f fOut |
+ 	f :=  filteredForm asFormOfDepth: 32.
+ 	fOut := f deepCopy.
+ 	ScratchPlugin primShiftHue: f bits into: fOut bits byDegrees: shift.
+      ^ fOut asFormOfDepth: 16.
+ 
+ 	!

Item was added:
+ ----- Method: SketchMorph>>removeFilters (in category 'filters') -----
+ removeFilters
+ 	filters := nil.
+ 	self generateRotatedForm.
+ 	self layoutChanged
+ 	!

Item was removed:
- ----- Method: SketchMorph>>resetAllFilters (in category 'filters') -----
- resetAllFilters
- 	filters := nil.	
- 	!

Item was removed:
- ----- Method: SketchMorph>>saturationShift: (in category 'filters') -----
- saturationShift: shift
- 	
- 	self filters.
- 	filters add: { #filterSaturationShift:form: .  shift}
- 	
- 
- 	!

Item was added:
+ ----- Method: SketchMorph>>saturationShift:form: (in category 'filters') -----
+ saturationShift: shift form: filteredForm
+ 	
+ 	| f fOut |
+ 	f :=  filteredForm asFormOfDepth: 32.
+ 	fOut := f deepCopy.
+ 	ScratchPlugin primShiftSaturation: f bits into: fOut bits by: shift.
+      ^ fOut asFormOfDepth: 16.
+ 
+ 	!