Revision as of 14:37, 30 July 2022 (view source) SqrtNegInf (talk \| contribs) (→‎{{header\|Raku}}: simplified) ← Older edit		Revision as of 17:59, 30 July 2022 (view source) SqrtNegInf (talk \| contribs) m (→‎{{header\|Raku}}: redundant 'flat's) Newer edit →
Line 1,313: # y in terms of x sub y ($x) { floor b × (1 - ($x / a).abs n ) (1/n) } # find point pairs for one quadrant Line 1,320: my $out = open('superellipse.svg', :w); $out.print: [~] qq\|<svg height="{b×2}" width="{a×2}" xmlns="http://www.w3.org/2000/svg">\n\|, pline( ~~flat~~ @q ), pline( ~~flat~~ @q «×» (< 1, -1)> ), # flip and mirror pline( ~~flat~~ @q «×» (<-1, -1)> ), # for the other pline( ~~flat~~ @q «×» (<-1, 1)> ), # three quadrants '</svg>'; ; sub pline (@q) {

Superellipse: Difference between revisions

Superellipse (view source)