1*14414594SDavid du Colombier#!/bin/rc 2*14414594SDavid du Colombier# Center pages and put cropmarks at each corner. Physical page size 3*14414594SDavid du Colombier# is set with -w and -h. The default is 8.5 by 11.0 inches. Device 4*14414594SDavid du Colombier# dependent code to change paper size (e.g. with setpageparams) goes 5*14414594SDavid du Colombier# in the prologue. You may need to customize the device dependent 6*14414594SDavid du Colombier# code that we distribute. By default it only supports variable page 7*14414594SDavid du Colombier# sizes on Linotronic typesetters, and assumes those typesetters are 8*14414594SDavid du Colombier# using 12 inch wide paper. Use -d to disable execution of device 9*14414594SDavid du Colombier# dependent PostScript code. 10*14414594SDavid du Colombier# 11*14414594SDavid du Colombier# What's here was written quickly and will likely be very different 12*14414594SDavid du Colombier# in our next release. It should be part of a more general program!! 13*14414594SDavid du Colombier# 14*14414594SDavid du Colombier 15*14414594SDavid du ColombierPOSTLIB=/sys/lib/postscript/prologues 16*14414594SDavid du ColombierPROLOGUE=$POSTLIB/cropmarks.ps 17*14414594SDavid du Colombier 18*14414594SDavid du ColombierEXPANDPAGE=true 19*14414594SDavid du ColombierPAGEWIDTH=8.5 20*14414594SDavid du ColombierPAGEHEIGHT=11.0 21*14414594SDavid du ColombierSCALETOFIT=false 22*14414594SDavid du ColombierXOFFSET=0.0 23*14414594SDavid du ColombierYOFFSET=0.0 24*14414594SDavid du Colombier 25*14414594SDavid du ColombierNONCONFORMING=%!PS 26*14414594SDavid du ColombierENDPROLOG=%%EndProlog 27*14414594SDavid du ColombierBEGINSETUP=%%BeginSetup 28*14414594SDavid du ColombierENDSETUP=%%EndSetup 29*14414594SDavid du Colombier 30*14414594SDavid du Colombierwhile (! ~ $#* 0 && ~ $1 -*) { 31*14414594SDavid du Colombier switch ($1) { 32*14414594SDavid du Colombier case -d; EXPANDPAGE=false 33*14414594SDavid du Colombier 34*14414594SDavid du Colombier case -h; shift; PAGEHEIGHT=$1 35*14414594SDavid du Colombier case -h*; PAGEHEIGHT=`{echo $1 | sed s/-h//} 36*14414594SDavid du Colombier 37*14414594SDavid du Colombier case -s; SCALETOFIT=true 38*14414594SDavid du Colombier 39*14414594SDavid du Colombier case -w; shift; PAGEWIDTH=$1 40*14414594SDavid du Colombier case -w*; PAGEWIDTH=`{echo $1 | sed s/-w//} 41*14414594SDavid du Colombier 42*14414594SDavid du Colombier case -x; shift; XOFFSET=$1 43*14414594SDavid du Colombier case -x*; XOFFSET=`{echo $1 | sed s/-x//} 44*14414594SDavid du Colombier 45*14414594SDavid du Colombier case -y; shift; YOFFSET=$1 46*14414594SDavid du Colombier case -y*; YOFFSET=`{echo $1 | sed s/-y//} 47*14414594SDavid du Colombier 48*14414594SDavid du Colombier case -L; shift; PROLOGUE=$1 49*14414594SDavid du Colombier case -L*; PROLOGUE=`{echo $1 | sed s/-L//} 50*14414594SDavid du Colombier 51*14414594SDavid du Colombier case --; 52*14414594SDavid du Colombier 53*14414594SDavid du Colombier case -*; echo '$0: illegal option $1' >[1=2]; exit 1 54*14414594SDavid du Colombier 55*14414594SDavid du Colombier } 56*14414594SDavid du Colombier shift 57*14414594SDavid du Colombier} 58*14414594SDavid du Colombier 59*14414594SDavid du Colombierecho $NONCONFORMING 60*14414594SDavid du Colombiercat $PROLOGUE 61*14414594SDavid du Colombierecho $ENDPROLOG 62*14414594SDavid du Colombierecho $BEGINSETUP 63*14414594SDavid du Colombierecho 'CropmarkDict begin' 64*14414594SDavid du Colombierecho '/pageheight '$PAGEHEIGHT' def' 65*14414594SDavid du Colombierecho '/pagewidth '$PAGEWIDTH' def' 66*14414594SDavid du Colombierecho '/expandpage '$EXPANDPAGE' def' 67*14414594SDavid du Colombierecho '/scaletofit '$SCALETOFIT' def' 68*14414594SDavid du Colombierecho '/xoffset '$XOFFSET' def' 69*14414594SDavid du Colombierecho '/yoffset '$YOFFSET' def' 70*14414594SDavid du Colombierecho 'setup' 71*14414594SDavid du Colombierecho 'end' 72*14414594SDavid du Colombierecho $ENDSETUP 73*14414594SDavid du Colombier 74*14414594SDavid du Colombiercat $* 75