Julia set: Difference between revisions
m
→{{header|Perl 6}}: more simplification, DRY
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: minor code cleanup) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: more simplification, DRY) |
||
Line 140:
my $i = $maxIter;
while $zx² + $zy² < 4 and --$i {
($zy, $zx) = (2
}
$png.set( $x, $y, |hsv2rgb($i / $maxIter * 360, 1, ?$i
}
}
Line 151:
my $x = $c * (1 - abs( (($h/60) % 2) - 1 ) );
my $m = $v - $c;
my ($r, $g, $b)
when
when
when
when
when
▲ when 300..^360 { ($r, $g, $b) = ($c, 0, $x) }
}
( $r, $g, $b ) = map { (($_+$m) * 255).Int }, $r, $g, $b;
}</lang>
| |||