A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-kfr..73.mcz
==================== Summary ====================
Name: Morphic-kfr..73 Author: kfr. Time: 7 November 2011, 11:30:04 am UUID: 66dd5a53-bf60-6841-a7c4-3179092368b2 Ancestors: Morphic-kfr..72
Fix a bug
=============== Diff against Morphic-kfr..72 ===============
Item was changed: ----- Method: SketchMorph>>generateRotatedForm (in category 'drawing') ----- generateRotatedForm | scalePt smoothPix pair filteredForm | scalePoint ifNil: [scalePoint := 1 @ 1]. scalePt := scalePoint x abs @ scalePoint y abs. rotationStyle == #none ifTrue: [scalePt := 1 @ 1]. smoothPix := 1. rotationStyle = #leftRight ifTrue: [self heading asSmallAngleDegrees < 0.0 ifTrue: [scalePt := scalePt x negated @ scalePt y]]. rotationStyle = #upDown ifTrue: [self heading asSmallAngleDegrees abs > 90.0 ifTrue: [scalePt := scalePt x @ scalePt y negated]]. + filteredForm := originalForm copy. filters ifNotNil: [filteredForm := originalForm copy. filters do: [:filter | filteredForm := self perform: filter first withArguments: (filter allButFirst copyWith: filteredForm)]]. rotatedForm := (scalePt = (1 @ 1) and: [filters isNil]) ifTrue: [originalForm] ifFalse: [((rotationStyle == #normal and: [self useInterpolation]) and: [filters isNil]) ifTrue: [^ self generateInterpolatedForm]. pair := WarpBlt current rotate: filteredForm degrees: 0 center: originalForm boundingBox center scaleBy: scalePt smoothing: smoothPix. pair first]!
etoys-dev@lists.squeakfoundation.org