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