Levente Uzonyi uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-ul.30.mcz
==================== Summary ====================
Name: Balloon-ul.30 Author: ul Time: 24 April 2017, 1:00:18.796732 pm UUID: 15ea6361-1ff2-41af-bde1-171dc7c83dd4 Ancestors: Balloon-ul.29
- rewrote senders of #clone to use #shallowCopy
=============== Diff against Balloon-ul.29 ===============
Item was changed: ----- Method: BalloonBezierSimulation>>computeSplitAt: (in category 'computing') ----- computeSplitAt: t "Split the receiver at the parametric value t" | left right newVia1 newVia2 newPoint | + left := self shallowCopy. + right := self shallowCopy. - left := self clone. - right := self clone. "Compute new intermediate points" newVia1 := (via - start) * t + start. newVia2 := (end - via) * t + via. "Compute new point on curve" newPoint := ((newVia1 - newVia2) * t + newVia2) asIntegerPoint. left via: newVia1 asIntegerPoint. left end: newPoint. right start: newPoint. right via: newVia2 asIntegerPoint. ^Array with: left with: right!
Item was changed: ----- Method: Bezier2Segment>>curveFrom:to: (in category 'vector functions') ----- curveFrom: param1 to: param2 "Return a new curve from param1 to param2" | newStart newEnd newVia tan1 tan2 d1 d2 | tan1 := via - start. tan2 := end - via. param1 <= 0.0 ifTrue:[ newStart := start. ] ifFalse:[ d1 := tan1 * param1 + start. d2 := tan2 * param1 + via. newStart := (d2 - d1) * param1 + d1 ]. param2 >= 1.0 ifTrue:[ newEnd := end. ] ifFalse:[ d1 := tan1 * param2 + start. d2 := tan2 * param2 + via. newEnd := (d2 - d1) * param2 + d1. ]. tan2 := (tan2 - tan1 * param1 + tan1) * (param2 - param1). newVia := newStart + tan2. + ^self shallowCopy from: newStart to: newEnd via: newVia.! - ^self clone from: newStart to: newEnd via: newVia.!
Item was changed: ----- Method: LineSegment>>curveFrom:to: (in category 'vector functions') ----- curveFrom: parameter1 to: parameter2 "Create a new segment like the receiver but starting/ending at the given parametric values" | delta | delta := end - start. + ^self shallowCopy from: delta * parameter1 + start to: delta * parameter2 + start! - ^self clone from: delta * parameter1 + start to: delta * parameter2 + start!
squeak-dev@lists.squeakfoundation.org