#!/usr/local/bin/perl -w
# $Id: mkthumbnail,v 1.2 1997/12/16 09:27:29 grog Exp grog $
#
if (@ARGV != 2) { die "Usage: $0 <first page#> <last page#>\n"; }
$firstp = shift @ARGV; $lastp = 1 + shift @ARGV;
if ($firstp < 1 || $firstp > $lastp) { die "Page numbers don't make sense\n"; }
print "%!\nstatusdict begin 1 setpapertray\n";
while (<>) { if (/^\/EP\{/) { last; } print; }
print "0.5 0.5 scale 0 792 translate\n";
print "/Quad 1 def\n";
print "/EP{\n";
print "  level0 restore\n";
print "  Quad 1 eq {   612 0 translate /Quad 2 def } \n";
print "   { Quad 2 eq { -612 -792 translate /Quad 3 def } \n";
print "    { Quad 3 eq {   612 0 translate /Quad 4 def } \n";
print "      { 612  0 translate /Quad 1 def\n";
print "        showpage 0.5 0.5 scale 0 792 translate }\n";
printf"    ifelse } ifelse } ifelse \n";
while (<>) { if (/^showpage/) { last; } }
while (<>) { print; if (/^%%EndProlog/) { last; } }
while (<>) { if (/^%%Page: [0-9]+ $firstp/) { print; last; } }
while (<>) { print; if (/^%%Page: [0-9]+ $lastp/) { last; } }
exit 0;
