AthensSceneView new
scene: [ :can |
| path |
path := can
createPath: [ :builder |
builder
absolute;
moveTo: 0 @ 0.5;
ccwArcTo: 0.5 @ 0.0 angle: 90
degreesToRadians;
ccwArcTo: 0.0 @ -0.5 angle: 90
degreesToRadians;
ccwArcTo: -0.5 @ 0.0 angle: 90
degreesToRadians;
ccwArcTo: 0 @ 0.5 angle: 90
degreesToRadians ].
can pathTransform
restoreAfter: [
can pathTransform scaleBy: 200 .
can
setPaint: Color red ;
drawShape: path.
"(athensCanvas setStrokePaint: strokePaint)
width: (self strokeWidth / self scale) asFloat."
can drawShape: path.].
can pathTransform
restoreAfter: [
can pathTransform scaleBy: 190 .
can
setPaint: Color blue ;
drawShape: path.
"(athensCanvas setStrokePaint: strokePaint)
width: (self strokeWidth / self scale) asFloat."
can drawShape: path
]
] ;
openInWindow
Screen Shot 2014-04-12 at 09.01.09.pdf
Description: Adobe PDF document
