Pentagram: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: style) |
(→{{header|Perl 6}}: anonymous variables are stateful by default) |
||
| Line 253: | Line 253: | ||
qq:to/STOP/; |
qq:to/STOP/; |
||
<polyline points="{ join ' ', @q }" |
<polyline points="{ join ' ', @q }" |
||
style="fill:seashell;stroke:{<black red orange blue purple green>[ |
style="fill:seashell;stroke:{<black red orange blue purple green>[$++ % 6]};stroke-width:2" |
||
transform="translate($dim, $dim) rotate(180)" /> |
transform="translate($dim, $dim) rotate(180)" /> |
||
STOP |
STOP |
||