drawOn: athensCanvas

athensCanvas pathTransform restoreAfter: [

"Draw the label centered on the position"

athensCanvas pathTransform 

translateBy: self position asIntegerPoint;

rotateByDegrees: angle value;

translateBy: ((self notRotatedWidth value / -2) @ (self notRotatedHeight value / 2)) asIntegerPoint;

translateBy: (0 @ font descent negated) asIntegerPoint.

athensCanvas setFont: font.

athensCanvas setPaint: color.

athensCanvas drawString: text

].

getFontForSize: aNumber

   ^ LogicalFont familyName: StandardFonts defaultFont familyName pointSize: aNumber

-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.