Superellipse: Difference between revisions
m
→{{header|Perl 6}}: image link defunct, replaced
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: image link defunct, replaced) |
||
Line 686:
=={{header|Perl 6}}==
{{works with|rakudo|
Generate an svg image to STDOUT. Redirect into a file to capture it.
<lang perl6>constant a = 200;
Line 696:
# find point pairs for one quadrant
my @q = flat map -> \x { x, y(x) }, (0,
# Generate an SVG image
Line 718:
END
}</lang>
=={{header|Phix}}==
| |||