The Trunk: ST80-mt.268.mcz

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

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

Name: ST80-mt.268
Author: mt
Time: 15 April 2021, 3:34:51.487875 pm
UUID: d6b9c2fc-1c08-460f-ac5f-52dfe1a2d02d
Ancestors: ST80-mt.267, ST80-ct.240

Merges ST80-ct.240, which is a dependency of some things in MorphicExtras, I am about to merge soon.

(Not sure whether this version is complete. It describes some refactorings and speed-up, which is not present in this inbox version.)

=============== Diff against ST80-mt.267 ===============

Item was added:
+ ----- Method: Arc class>>center:radius:quadrant: (in category 'instance creation') -----
+ center: aPoint radius: anInteger quadrant: section
+
+ ^ self new
+ center: aPoint radius: anInteger quadrant: section;
+ yourself!

Item was added:
+ ----- Method: Arc>>computeVertices: (in category 'displaying') -----
+ computeVertices: size
+
+ | dAngle dSin dCos point |
+ dAngle := (90 / (size - 1)) degreesToRadians.
+ dSin := dAngle sin.
+ dCos := dAngle cos.
+ point := (1 to: quadrant)
+ inject: 0 @ radius
+ into: [:p :i | p leftRotated].
+ ^ (OrderedCollection new: size)
+ add: (center + point) rounded;
+ addAll: ((1 to: size - 1) collect: [:i |
+ point := point * dCos + (point * dSin) leftRotated.
+ (center + point) rounded]);
+ yourself!