CreepCompensation

You can easily do this by manipulating the PostScript? file. The Perl script below suffices.

Usage:

   cat doc.ps | psbook | creep 0.5 | psnup -2 > doclet.ps

The argument to creep is the number of points to shift the text on the page.

 #!/usr/bin/perl
 #
 # Enjoy: Bob Diertens, 11/04/2005
 
 if ($#ARGV != 0) {
     die "usage: $0 <creep>\n";
 }
 $creep_incr = shift;
 
 $pagecount = 0;
 $creep = 0;
 
 while (<>) {
     print;
     if (/^%%Page:/) {
 	if ($pagecount % 2) {
 	    print "-$creep 0 translate\n";
 	} else {
 	    print "$creep 0 translate\n";
 	}
 	$pagecount ++;
 	if ($pagecount %4 == 0) {
 	    $creep += $creep_incr;
 	}
     }
 }

Back to: GroffExtras