BlElement >>drawStrokeOnAthensCanvas: aCanvas
�� �� "Actually render stroke of a receiver on aCanvas in local bounds.
�� �� Override to customize.
�� �� aCanvas is an instance of AthensCanvas
�� �� aCanvas must not be nil"
�� �� | pathTransform strokePath strokeScaling strokeOffset |

�� �� "fast exit if stroke has no width or it is transparent"
�� �� (self shape strokePaint width <= 0 or: [ self shape strokePaint isTransparent ])
�� �� �� �� ifTrue: [ ^ self ].

�� �� pathTransform := aCanvas pathTransform.
�� �� strokePath := self shape path strokePathOn: aCanvas.
�� �� strokeScaling := self shape path strokeScaling.
�� �� strokeOffset := self shape path strokeOffset.

�� �� pathTransform restoreAfter:[
�� �� �� �� pathTransform translateBy: strokeOffset * strokeScaling.
�� �� �� �� pathTransform scaleBy: strokeScaling.
�� �� �� �� aCanvas
�� �� �� �� �� �� setPaint: self shape strokePaint;
�� �� �� �� �� �� drawShape: strokePath ]




BlElement >>drawFillOnAthensCanvas: aCanvas
�� �� "Actually render fill of a receiver on aCanvas in local bounds.
�� �� Override to customize.
�� �� aCanvas is an instance of AthensCanvas
�� �� aCanvas must not be nil"
�� �� | pathTransform fillPath fillScaling fillOffset |
�� �� pathTransform := aCanvas pathTransform.

�� �� "fast exit if fill is transparent"
�� �� (self shape fillPaint isTransparent)
�� �� �� �� ifTrue: [ ^ self ].

�� �� fillPath := self shape path fillPathOn: aCanvas.
�� �� fillScaling := self shape path fillScaling.
�� �� fillOffset := self shape path fillOffset.

�� �� pathTransform restoreAfter: [
�� �� �� �� pathTransform translateBy: fillOffset * fillScaling.
�� �� �� �� pathTransform scaleBy: fillScaling.
�� �� �� �� aCanvas
�� �� �� �� �� �� setPaint: self shape fillPaint;
�� �� �� �� �� �� drawShape: fillPath ]