%% Center pages, based on pageheight and pagewidth, and redefine showpage% to put cropmarks at each corner. Device dependent code to expand the% paper size goes in procedure expandpagesize. Currently only supports% a Linotronic 200P typesetter using 12 inch wide paper. You'll have to% add code to expandpagesize to support different typesetters or even a% 200P that's running differently.% /CropmarkDict 40 dict dup begin /expandpage true def/magnification 1 def/pageheight 11.0 def/pagewidth 8.5 def/scaletofit false def/scaling 1 def /marklength .3 def	% inches/markstart .125 def	% inches/markend .04 def	% inches/marklinewidth .25 def	% points /inch {72 mul} def/min {2 copy gt {exch} if pop} def/max {2 copy lt {exch} if pop} def /setup {	/markspace markstart marklength add markend add inch marklinewidth add def	/totalheight pageheight inch markspace 2 mul add def	/totalwidth pagewidth inch markspace 2 mul add def 	pagedimensions	checkpagesize	/scaling getscaling def	xcenter ycenter translate	scaling scaling scale	pagewidth inch 2 div neg pageheight inch 2 div neg translate	clippage} def /pagedimensions {	clippath pathbbox newpath	4 -1 roll exch 4 1 roll 4 copy	sub /width exch def	sub /height exch def	add 2 div /xcenter exch def	add 2 div /ycenter exch def} def /checkpagesize {	height totalheight lt width totalwidth lt or expandpage and {		expandpagesize		pagedimensions	} if} def /expandpagesize {	% device dependent code	/Product statusdict begin /product where {pop product}{()} ifelse end def 	Product (Linotype) eq {		% Linotronic 200P and other models?		statusdict /setpageparams known {			/maxwidth 12.0 inch def		% 12 inch wide paper?			totalheight maxwidth le {				totalheight				totalwidth				maxwidth totalheight sub 2 div				0			}{				totalwidth maxwidth min				totalheight				maxwidth totalwidth maxwidth min sub 2 div				1			} ifelse			statusdict /setpageparams get exec		} if	} if} def /getscaling {	scaletofit		{height totalheight div width totalwidth div min 1 min}		{1}	ifelse} def /clippage {	newpath	0 0 moveto	pagewidth inch 0 rlineto	0 pageheight inch rlineto	pagewidth neg inch 0 rlineto	closepath clip	newpath} def /cropmark {	gsave	translate	rotate	marklinewidth dup translate	0 0 transform round exch round exch itransform translate	markstart inch 0 moveto marklength inch 0 rlineto stroke	0 markstart inch moveto 0 marklength inch rlineto stroke	grestore} bind def /@PreviousShowpage /showpage load def end def %% Cropmarks - in the default coordinate system.% /showpage {	gsave	CropmarkDict begin		initgraphics		marklinewidth setlinewidth		xcenter ycenter translate		scaling scaling scale		0 pagewidth inch 2 div pageheight inch 2 div cropmark		90 pagewidth inch neg 2 div pageheight inch 2 div cropmark		180 pagewidth inch neg 2 div pageheight inch 2 div neg cropmark		270 pagewidth inch 2 div pageheight inch 2 div neg cropmark		@PreviousShowpage	end	grestore} bind def