"define block which returns svg code string for a circle given x and y position and radius and string value for fill color"
circle := [:cx :cy :r :fill| '<circle '
,'cx="', cx printString, '" cy="', cy printString
, '" r="', r printString,
'" fill="', fill,
'" />'].
Transcript clear.
Transcript show: '<html><svg>';cr.
1 to: 5 do: [:i |
Transcript show: (circle value: (i*50) value: 50 value: 20 value: 'green'); cr].
Transcript show: '</svg></html>';cr.