Etoys Inbox: Morphic-kfr..75.mcz

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

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

Name: Morphic-kfr..75
Author: kfr.
Time: 7 November 2011, 11:36:31 am
UUID: 7c2a787a-cb87-3048-9201-ce77fa1d0b82
Ancestors: Morphic-kfr..74

filteredForm was defined 2 times

=============== Diff against Morphic-kfr..74 ===============

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: [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