Etoys Inbox: Morphic-kfr..73.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev