The Trunk: Morphic-mt.1706.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1706.mcz

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

Name: Morphic-mt.1706
Author: mt
Time: 23 October 2020, 11:17:24.216975 am
UUID: bccea572-5cda-db4d-a72a-63f5a8f4e49d
Ancestors: Morphic-eem.1705

Complements Graphics-mt.441

=============== Diff against Morphic-eem.1705 ===============

Item was changed:
  ----- Method: ColorPatchCanvas>>transformBy:clippingTo:during:smoothing: (in category 'drawing-support') -----
  transformBy: aDisplayTransform clippingTo: aClipRect during: aBlock smoothing: cellSize
  "Note: This method has been originally copied from TransformationMorph."
  | innerRect patchRect sourceQuad warp start subCanvas |
+ aDisplayTransform isPureTranslation ifTrue: [
+ ^ self
+ translateBy: (aDisplayTransform localPointToGlobal: 0@0) truncated
+ clippingTo: aClipRect
+ during: aBlock].
- (aDisplayTransform isPureTranslation) ifTrue:[
- subCanvas := self copyOffset: aDisplayTransform offset negated truncated
- clipRect: aClipRect.
- aBlock value: subCanvas.
- foundMorph := subCanvas foundMorph.
- ^self
- ].
  "Prepare an appropriate warp from patch to innerRect"
  innerRect := aClipRect.
  patchRect := aDisplayTransform globalBoundsToLocal:
  (self clipRect intersect: innerRect).
  sourceQuad := (aDisplayTransform sourceQuadFor: innerRect)
  collect: [:p | p - patchRect topLeft].
  warp := self warpFrom: sourceQuad toRect: innerRect.
  warp cellSize: cellSize.
 
  "Render the submorphs visible in the clipping rectangle, as patchForm"
  start := (self depth = 1 and: [self isShadowDrawing not])
  "If this is true B&W, then we need a first pass for erasure."
  ifTrue: [1] ifFalse: [2].
  start to: 2 do:
  [:i | "If i=1 we first make a shadow and erase it for opaque whites in B&W"
  subCanvas := ColorPatchCanvas extent: patchRect extent depth: self depth.
  subCanvas stopMorph: stopMorph.
  subCanvas foundMorph: foundMorph.
  subCanvas doStop: doStop.
  i=1 ifTrue: [subCanvas shadowColor: Color black.
  warp combinationRule: Form erase]
  ifFalse: [self isShadowDrawing ifTrue:
  [subCanvas shadowColor: self shadowColor].
  warp combinationRule: Form paint].
  subCanvas
  translateBy: patchRect topLeft negated
  during: aBlock.
  i = 2 ifTrue:[foundMorph := subCanvas foundMorph].
  warp sourceForm: subCanvas form; warpBits.
  warp sourceForm: nil.  subCanvas := nil "release space for next loop"]
  !