Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
bag.pgm
pot.pgm
droplet.ppm
+book-*
*.tmp
*.tmp.*
*.md.txt
foreach my $spec (@books) {
my @datas;
foreach my $book (split m{/}, $spec) {
- push @datas, ${*::}{"$book"}();
+ my $data = ${*::}{"$book"}();;
+ my $file = $book;
+ $file =~ s/_book//;
+ $file =~ y/_/-/;
+ open F, ">book-$file.ps" or die $!;
+ print F $ps_framing, $data, "\nshowpage\n" or die $!;
+ close F or die $!;
+ push @datas, $data;
}
push @tiles, @datas == 1 ? @datas : \@datas;
}