Permalink
Browse files

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

  • Loading branch information...
1 parent e2113d1 commit f80fa19e4d7ca583a9c9a1ebc05e725b8dbd883e @colomon committed Dec 5, 2011
Showing with 3 additions and 0 deletions.
  1. +3 −0 bin/gtk-mandelbrot.pl
View
@@ -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 {

0 comments on commit f80fa19

Please sign in to comment.