Add colors (still needs some straightening out, another patch to come…

… soon).
colomon · Dec 13, 2009 · ac5d650 · ac5d650
1 parent 3067d00
commit ac5d650
Showing 1 changed file with 222 additions and 1 deletion.
diff --git a/mandelbrot-color.pl b/mandelbrot-color.pl
@@ -7,6 +7,227 @@
 my $upper-right = -2 + (5/4)i;
 my $lower-left = 1/2 - (5/4)i;
 
+my @color_map = (
+    "0 0 0",
+    "0 0 252",
+    "64 0 252",
+    "124 0 252",
+    "188 0 252",
+    "252 0 252",
+    "252 0 188",
+    "252 0 124",
+    "252 0 64",
+    "252 0 0",
+    "252 64 0",
+    "252 124 0",
+    "252 188 0",
+    "252 252 0",
+    "188 252 0",
+    "124 252 0",
+    "64 252 0",
+    "0 252 0",
+    "0 252 64",
+    "0 252 124",
+    "0 252 188",
+    "0 252 252",
+    "0 188 252",
+    "0 124 252",
+    "0 64 252",
+    "124 124 252",
+    "156 124 252",
+    "188 124 252",
+    "220 124 252",
+    "252 124 252",
+    "252 124 220",
+    "252 124 188",
+    "252 124 156",
+    "252 124 124",
+    "252 156 124",
+    "252 188 124",
+    "252 220 124",
+    "252 252 124",
+    "220 252 124",
+    "188 252 124",
+    "156 252 124",
+    "124 252 124",
+    "124 252 156",
+    "124 252 188",
+    "124 252 220",
+    "124 252 252",
+    "124 220 252",
+    "124 188 252",
+    "124 156 252",
+    "180 180 252",
+    "196 180 252",
+    "216 180 252",
+    "232 180 252",
+    "252 180 252",
+    "252 180 232",
+    "252 180 216",
+    "252 180 196",
+    "252 180 180",
+    "252 196 180",
+    "252 216 180",
+    "252 232 180",
+    "252 252 180",
+    "232 252 180",
+    "216 252 180",
+    "196 252 180",
+    "180 252 180",
+    "180 252 196",
+    "180 252 216",
+    "180 252 232",
+    "180 252 252",
+    "180 232 252",
+    "180 216 252",
+    "180 196 252",
+    "0 0 112",
+    "28 0 112",
+    "56 0 112",
+    "84 0 112",
+    "112 0 112",
+    "112 0 84",
+    "112 0 56",
+    "112 0 28",
+    "112 0 0",
+    "112 28 0",
+    "112 56 0",
+    "112 84 0",
+    "112 112 0",
+    "84 112 0",
+    "56 112 0",
+    "28 112 0",
+    "0 112 0",
+    "0 112 28",
+    "0 112 56",
+    "0 112 84",
+    "0 112 112",
+    "0 84 112",
+    "0 56 112",
+    "0 28 112",
+    "56 56 112",
+    "68 56 112",
+    "84 56 112",
+    "96 56 112",
+    "112 56 112",
+    "112 56 96",
+    "112 56 84",
+    "112 56 68",
+    "112 56 56",
+    "112 68 56",
+    "112 84 56",
+    "112 96 56",
+    "112 112 56",
+    "96 112 56",
+    "84 112 56",
+    "68 112 56",
+    "56 112 56",
+    "56 112 68",
+    "56 112 84",
+    "56 112 96",
+    "56 112 112",
+    "56 96 112",
+    "56 84 112",
+    "56 68 112",
+    "80 80 112",
+    "88 80 112",
+    "96 80 112",
+    "104 80 112",
+    "112 80 112",
+    "112 80 104",
+    "112 80 96",
+    "112 80 88",
+    "112 80 80",
+    "112 88 80",
+    "112 96 80",
+    "112 104 80",
+    "112 112 80",
+    "104 112 80",
+    "96 112 80",
+    "88 112 80",
+    "80 112 80",
+    "80 112 88",
+    "80 112 96",
+    "80 112 104",
+    "80 112 112",
+    "80 104 112",
+    "80 96 112",
+    "80 88 112",
+    "0 0 64",
+    "16 0 64",
+    "32 0 64",
+    "48 0 64",
+    "64 0 64",
+    "64 0 48",
+    "64 0 32",
+    "64 0 16",
+    "64 0 0",
+    "64 16 0",
+    "64 32 0",
+    "64 48 0",
+    "64 64 0",
+    "48 64 0",
+    "32 64 0",
+    "16 64 0",
+    "0 64 0",
+    "0 64 16",
+    "0 64 32",
+    "0 64 48",
+    "0 64 64",
+    "0 48 64",
+    "0 32 64",
+    "0 16 64",
+    "32 32 64",
+    "40 32 64",
+    "48 32 64",
+    "56 32 64",
+    "64 32 64",
+    "64 32 56",
+    "64 32 48",
+    "64 32 40",
+    "64 32 32",
+    "64 40 32",
+    "64 48 32",
+    "64 56 32",
+    "64 64 32",
+    "56 64 32",
+    "48 64 32",
+    "40 64 32",
+    "32 64 32",
+    "32 64 40",
+    "32 64 48",
+    "32 64 56",
+    "32 64 64",
+    "32 56 64",
+    "32 48 64",
+    "32 40 64",
+    "44 44 64",
+    "48 44 64",
+    "52 44 64",
+    "60 44 64",
+    "64 44 64",
+    "64 44 60",
+    "64 44 52",
+    "64 44 48",
+    "64 44 44",
+    "64 48 44",
+    "64 52 44",
+    "64 60 44",
+    "64 64 44",
+    "60 64 44",
+    "52 64 44",
+    "48 64 44",
+    "44 64 44",
+    "44 64 48",
+    "44 64 52",
+    "44 64 60",
+    "44 64 64",
+    "44 60 64",
+    "44 52 64",
+    "44 48 64",
+);
+
+
 sub mandel(Complex $c) {
     my $z = 0i;
     for ^$max_iterations {
@@ -27,5 +248,5 @@ ($low, $high, $count)
 for subdivide($upper-right.re, $lower-left.re, $height) -> $re {
     my @line = subdivide($re + ($upper-right.im)i, $re + 0i, ($width + 1) / 2).map({ mandel($_) });
     my $middle = @line.pop;
-    (@line, $middle, @line.reverse).map({ $_ xx 3 }).join(' ').say;
+    (@line, $middle, @line.reverse).map({ @color_map[$_] }).join(' ').say;
 }