Write out the set's meta data to the graphics file.

colomon · Dec 5, 2011 · f80fa19 · f80fa19
1 parent e2113d1
commit f80fa19
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/bin/gtk-mandelbrot.pl b/bin/gtk-mandelbrot.pl
@@ -10,6 +10,7 @@
 say "Mouse left button: click and drag to define a zoom area";
 say "Mouse right button: click to create a Julia set for that point";
 say "Press 'm' to increase the number of iterations for a window";
+say "Press 's' to save the current window to a file";
 say "";
 
 my @color_map = (
@@ -302,6 +303,8 @@
 
         my $file = open $filename, :w;
         $file.say: "P3";
+        $file.say: "# $filename";
+        $file.say: "# $.upper-right $.delta $.max_iterations";
         $file.say: "$.width $.height";
         $file.say: "255";
         for @.rows -> $row {