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

[commits at source.squeak.org]

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]!