Julia set: Difference between revisions
m
→{{header|Perl 6}}: use complex numbers: performance improvement of ~4x
m (→{{header|Sidef}}: minor fix) |
m (→{{header|Perl 6}}: use complex numbers: performance improvement of ~4x) |
||
Line 122:
my ($w, $h) = 800, 600;
my $out = Image::PNG::Portable.new: :width($w), :height($h);
my $maxIter = 255;
▲my ($cX, $cY) = -0.7, 0.27015;
julia($out);
Line 136 ⟶ 134:
for ^$w -> $x {
for ^$h -> $y {
my $
my $i = $maxIter;
while (abs($
}
$png.set: $x, $y, |hsv2rgb($i / $maxIter * 360, 1, ?$i).reverse;
| |||