Jump to content

Superellipse: Difference between revisions

m
→‎{{header|Perl 6}}: image link defunct, replaced
(Added Perl example)
m (→‎{{header|Perl 6}}: image link defunct, replaced)
Line 686:
 
=={{header|Perl 6}}==
{{works with|rakudo|20162018-0110}}
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, 21 ... 200);
 
# Generate an SVG image
Line 718:
END
}</lang>
See [https://gist.github.com/thundergnatSqrtNegInf/cc41a5fae7021803496c#fileRosettacode-superellipsePerl6-Smoke/blob/master/ref/superellipse.svg Superellipse] (offsite image])
 
=={{header|Phix}}==
2,392

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.