From: Nathan Wagner <nw@hydaspes.if.org>
Date: Tue, 7 Apr 2015 20:18:36 +0000 (+0000)
Subject: annotation improvements for png dumps
X-Git-Url: https://pd.if.org/git/?p=afpopgen;a=commitdiff_plain;h=f31f8c0df130d2693d5d5bb908c0d4a9f7471993;hp=dbf3e175274b7027a68dae8adaca9d389d260bd0;ds=sidebyside

annotation improvements for png dumps
---

diff --git a/sim/mkimage b/sim/mkimage
index 354a3a2..43cf14c 100755
--- a/sim/mkimage
+++ b/sim/mkimage
@@ -106,7 +106,7 @@ foreach my $gen (@{$run->{gendata}}[$f->{start}..$f->{end}]) {
 	# make a band on the top for a label
 	# make sure this is a multiple of four, some
 	# of the movie formats require it
-	$image->Splice(geometry => '0x20', background => 'white', gravity => 'North');
+	$image->Splice(geometry => '0x24', background => 'white', gravity => 'North');
 
         # now annotate the image
         my $x = 5;   # where to put the annotation
@@ -118,7 +118,7 @@ foreach my $gen (@{$run->{gendata}}[$f->{start}..$f->{end}]) {
 	);
 
 	# set up a title caption
-	#
+	$image->Annotate(%params, x => 5, y => 16, text => sprintf('-m %g -s %u', $run->{options}->{capfactor}, $run->{seed}));
 	my @lines = (
 		sprintf('gen: %8d', $gen->{gen}),
 		sprintf(q{pop: %8d}, $gen->{pop}),