Etoys Inbox: Morphic-kfr..77.mcz

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!

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