The Trunk: Balloon-ul.30.mcz

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!