X-Git-Url: https://pd.if.org/git/?p=afpopgen;a=blobdiff_plain;f=sim%2Fmkimage;h=43cf14c82c789b6a54afaf9d1324e12a614cd180;hp=354a3a25e2234b5919a9a216e0c9c27b2053c548;hb=f31f8c0df130d2693d5d5bb908c0d4a9f7471993;hpb=dbf3e175274b7027a68dae8adaca9d389d260bd0;ds=sidebyside

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}),