Julia set: Difference between revisions
m
→{{header|Perl 6}}: minor code cleanup
m (→{{header|Perl}}: mor code simplifications) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: minor code cleanup) |
||
Line 136:
for ^$w -> $x {
for ^$h -> $y {
my $zx =
my $zy =
my $i = $maxIter;
while
($zy, $zx) = (2.0 * $zx * $zy + $cY, $zx² - $zy² + $cX);
}
$png.set( $x, $y, |hsv2rgb($i / $maxIter * 360, 1, $i > 1 ?? 1 !! 0) );
| |||