Revision as of 19:14, 5 September 2018 view source SqrtNegInf (talk \| contribs) 2,392 edits m →‎{{header\|Perl}}: clarity on PI, better shows the 'packing ← Older edit		Revision as of 19:41, 5 September 2018 view source SqrtNegInf (talk \| contribs) 2,392 edits m →‎{{header\|Perl}}: clarity on π/φ, tuned to better show 'packing', parameter for scaling image size Newer edit →
Line 57: =={{header\|Perl}}== {{trans\|Sidef}} <lang perl>use ~~constant PI => 3.14159265~~utf8; use constant π => 3.14159265; use constant φ => (1 + sqrt(5)) / 2; my $~~seeds~~scale = ~~3000~~600; my $cseeds = ~~1.25~~5*0.50 + 0.50$scale; print F qq{<svg xmlns="http://www.w3.org/2000/svg" width="~~600~~$scale" height="~~600~~$scale" style="stroke:gold"> <rect width="100%" height="100%" fill="black" />\n}; for $i (1..$seeds) { $r = 2 ($i*$cφ) / $seeds; $t = 2 PIπ * $cφ * $i; $x = $r * sin($t) + ~~300~~$scale/2; $y = $r * cos($t) + ~~300~~$scale/2; printf F qq{<circle cx="%.2f" cy="%.2f" r="%.1f" />\n}, $x, $y, sqrt($i)/13~~; # 2*$i/($seeds)~~; } print F "</svg>\n";</lang> =={{header\|Perl 6}}==

Sunflower fractal: Difference between revisions