4 # Print the Mandlebrot set
\r
6 # Translated from C code by Glenn Rhoads
\r
7 # to perl6 by Leopold Toetsch <lt@toetsch.at>
\r
14 # char *b = " .:,;!/>)|&IH%*#";
\r
15 # float r, i, z, Z, t, c, C;
\r
16 # for (y=30; puts(""), C = y*0.1 - 1.5, y--;){
\r
17 # for (x=0; c = x*0.04 - 2, z=0, Z=0, x++ < 75;){
\r
18 # for (r=c, i=C, k=0; t = z*z - Z*Z + r, Z = 2*z*Z + i, z=t, k<112; k++)
\r
19 # if (z*z + Z*Z > 10) break;
\r
27 my $b = ' .:,;!/>)|&IH%*#';
\r
29 my ($P, $Q, $X, $L);
\r
30 my ($r, $i, $z, $Z, $t, $c, $C);
\r
31 for ($L = 0;; $L++) {
\r
34 $P = $y * 0.1, $C = $P - 1.5, 1;
\r
39 $P = $x * 0.04, $c = $P - 2,
\r
40 $z=0.0, $Z=0.0, 1;) {
\r
43 for ($r=$c, $i=$C, $k=0;
\r
44 $P = $z*$z, $Q = $Z*$Z, $P = $P-$Q, $t = $P+$r,
\r
45 $P = $z*2.0,$P = $P*$Z, $Z = $P + $i,
\r
51 last() if $P > 10.0;
\r
54 $X = substr($b, $P, 1);
\r