Sunflower fractal: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) m →{{header|Perl 6}}: possessive |
Thundergnat (talk | contribs) m →{{header|Perl 6}}: Argh. Tau not pi |
||
| Line 69: | Line 69: | ||
my @c = map { |
my @c = map { |
||
my ($x, $y) = ($scale * .sqrt) «*« |cis($_ * φ * |
my ($x, $y) = ($scale * .sqrt) «*« |cis($_ * φ * τ).reals »+« @center; |
||
[ $x.round(.01), $y.round(.01), (.sqrt * $scale / 100).round(.1) ] |
[ $x.round(.01), $y.round(.01), (.sqrt * $scale / 100).round(.1) ] |
||
}, 1 .. $seeds; |
}, 1 .. $seeds; |
||