[squeak-dev] The Inbox: Graphics-nice.446.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Feb 13 16:04:59 UTC 2021
Nicolas Cellier uploaded a new version of Graphics to project The Inbox:
http://source.squeak.org/inbox/Graphics-nice.446.mcz
==================== Summary ====================
Name: Graphics-nice.446
Author: nice
Time: 13 February 2021, 5:04:52.453325 pm
UUID: d13c1db2-370f-4fa6-b7ae-e6766bf0c8fb
Ancestors: Graphics-dtl.445
Let Rectangle merging:/encompassing: an unordered collection.
=============== Diff against Graphics-dtl.445 ===============
Item was changed:
----- Method: Rectangle class>>encompassing: (in category 'instance creation') -----
encompassing: listOfPoints
"A number of callers of encompass: should use this method."
| topLeft bottomRight |
+ topLeft := bottomRight := listOfPoints anyOne.
+ listOfPoints do:
- topLeft := bottomRight := listOfPoints first.
- listOfPoints allButFirstDo:
[:p |topLeft := topLeft min: p.
+ bottomRight := bottomRight max: p].
- bottomRight := bottomRight max: p].
^self origin: topLeft corner: bottomRight
!
Item was changed:
----- Method: Rectangle class>>merging: (in category 'instance creation') -----
merging: listOfRects
"A number of callers of merge: should use this method."
+ | aRectangle bottomRight topLeft |
+ aRectangle := listOfRects anyOne.
+ topLeft := aRectangle topLeft.
+ bottomRight := aRectangle bottomRight.
- | bottomRight topLeft |
- topLeft := listOfRects first topLeft.
- bottomRight := listOfRects first bottomRight.
listOfRects
+ do: [:r | topLeft := topLeft min: r topLeft.
- allButFirstDo: [:r | topLeft := topLeft min: r topLeft.
bottomRight := bottomRight max: r bottomRight].
^self origin: topLeft corner: bottomRight.
!
More information about the Squeak-dev
mailing list
|