annotation improvements for png dumps
authorNathan Wagner <nw@hydaspes.if.org>
Tue, 7 Apr 2015 20:18:36 +0000 (20:18 +0000)
committerNathan Wagner <nw@hydaspes.if.org>
Tue, 7 Apr 2015 20:18:36 +0000 (20:18 +0000)
sim/mkimage

index 354a3a25e2234b5919a9a216e0c9c27b2053c548..43cf14c82c789b6a54afaf9d1324e12a614cd180 100755 (executable)
@@ -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}),