Julia set: Difference between revisions

m
→‎{{header|Perl}}: minor code simplification
m (→‎{{header|Perl}}: minor code simplification)
Line 104:
my $i = $maxIter;
for (; $zx**2 + $zy**2 < 4 and $i > 1; --$i) {
my($zy, $tmpzx) = (2.0 * $zx * $zy + $cY, $zx**2 - $zy**2 + $cX);
($zy, $zx) = (2.0 * $zx * $zy + $cY, $tmp);
}
my $color = Imager::Color->new(
2,747

edits