Julia set: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: rearrange) |
m (→{{header|Perl}}: minor code simplification) |
||
Line 104: | Line 104: | ||
my $i = $maxIter; |
my $i = $maxIter; |
||
for (; $zx**2 + $zy**2 < 4 and $i > 1; --$i) { |
for (; $zx**2 + $zy**2 < 4 and $i > 1; --$i) { |
||
($zy, $zx) = (2.0 * $zx * $zy + $cY, $zx**2 - $zy**2 + $cX); |
|||
($zy, $zx) = (2.0 * $zx * $zy + $cY, $tmp); |
|||
} |
} |
||
my $color = Imager::Color->new( |
my $color = Imager::Color->new( |