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

[commits at source.squeak.org]

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

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

Name: Morphic-kfr..77
Author: kfr.
Time: 7 November 2011, 7:45:57 pm
UUID: bafa31a8-a53d-a044-8412-4cefa8a595ce
Ancestors: Morphic-kfr..76

Add fish eye and whirl effects

=============== Diff against Morphic-kfr..76 ===============

Item was added:
+ ----- Method: SketchMorph>>fishEye:form: (in category 'filters') -----
+ fishEye: aPower form: aForm
+ | f fOut power |
+ 	aPower = 0 ifTrue:[^aForm].
+ 	power := (100 + (aPower * 10)) max:0.
+ 	f := aForm asFormOfDepth: 32.
+ 	fOut := f deepCopy.
+ 	ScratchPlugin primFisheye: f bits into: fOut bits width: f width power: power.
+ 	^fOut  asFormOfDepth: 16!

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