79a8a5f907aeb9cefe92408a762f640df30a34cd
6 $in = shift or die("bad arg");
7 open IN
, $in or die("open `$in': $!");
9 $np = $1, last if /^%%Pages:\s*(\d+)\s*$/;
11 die("no pages") unless $np;
13 sub sel
($) { sprintf("tmp.sel.%05d.ps", $_[0]); }
14 sub image
($) { sprintf("img%05d.png", $_[0]); }
17 for ($i = 1; $i <= $np; $i++) {
22 print "converting...";
23 for ($p = 1; $p <= $np; $p++) {
25 system qw"psselect -q -p", $p, $in, sel
($p) and die("psselect: $?");
28 -density 300 -antialias -geometry 600x800 -rotate -90
29 -bordercolor black -border 0x17",
30 sel
($p), image
($p) and die("convert: $?");