head	1.2;
access;
symbols
	fourth_edition:1.2;
locks
	grog:1.2; strict;
comment	@# @;


1.2
date	97.12.16.09.27.29;	author grog;	state Exp;
branches;
next	1.1;

1.1
date	97.12.15.23.27.50;	author grog;	state Exp;
branches;
next	;


desc
@Make thumbnail printouts (four to the page)
@


1.2
log
@Minor mods
@
text
@#!/usr/local/bin/perl -w
# $Id$
#
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;
@


1.1
log
@Initial revision
@
text
@d2 3
a4 1
if (@@ARGV != 2) { die "Usage: book4pp.pl <first page#> <last page#>\n"; }
@
