Superellipse: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: image link defunct, replaced) |
||
| Line 686: | Line 686: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|rakudo| |
{{works with|rakudo|2018-10}} |
||
Generate an svg image to STDOUT. Redirect into a file to capture it. |
Generate an svg image to STDOUT. Redirect into a file to capture it. |
||
<lang perl6>constant a = 200; |
<lang perl6>constant a = 200; |
||
| Line 696: | Line 696: | ||
# find point pairs for one quadrant |
# find point pairs for one quadrant |
||
my @q = flat map -> \x { x, y(x) }, (0, |
my @q = flat map -> \x { x, y(x) }, (0, 1 ... 200); |
||
# Generate an SVG image |
# Generate an SVG image |
||
| Line 718: | Line 718: | ||
END |
END |
||
}</lang> |
}</lang> |
||
[https://github.com/SqrtNegInf/Rosettacode-Perl6-Smoke/blob/master/ref/superellipse.svg Superellipse] (offsite image) |
|||
=={{header|Phix}}== |
=={{header|Phix}}== |
||