2 % Center pages, based on pageheight and pagewidth, and redefine showpage
3 % to put cropmarks at each corner. Device dependent code to expand the
4 % paper size goes in procedure expandpagesize. Currently only supports
5 % a Linotronic 200P typesetter using 12 inch wide paper. You'll have to
6 % add code to expandpagesize to support different typesetters or even a
7 % 200P that's running differently.
10 /CropmarkDict 40 dict dup begin
19 /marklength .3 def % inches
20 /markstart .125 def % inches
21 /markend .04 def % inches
22 /marklinewidth .25 def % points
25 /min {2 copy gt {exch} if pop} def
26 /max {2 copy lt {exch} if pop} def
29 /markspace markstart marklength add markend add inch marklinewidth add def
30 /totalheight pageheight inch markspace 2 mul add def
31 /totalwidth pagewidth inch markspace 2 mul add def
35 /scaling getscaling def
36 xcenter ycenter translate
38 pagewidth inch 2 div neg pageheight inch 2 div neg translate
43 clippath pathbbox newpath
44 4 -1 roll exch 4 1 roll 4 copy
47 add 2 div /xcenter exch def
48 add 2 div /ycenter exch def
52 height totalheight lt width totalwidth lt or expandpage and {
58 /expandpagesize { % device dependent code
59 /Product statusdict begin /product where {pop product}{()} ifelse end def
61 Product (Linotype) eq { % Linotronic 200P and other models?
62 statusdict /setpageparams known {
63 /maxwidth 12.0 inch def % 12 inch wide paper?
64 totalheight maxwidth le {
67 maxwidth totalheight sub 2 div
70 totalwidth maxwidth min
72 maxwidth totalwidth maxwidth min sub 2 div
75 statusdict /setpageparams get exec
82 {height totalheight div width totalwidth div min 1 min}
90 pagewidth inch 0 rlineto
91 0 pageheight inch rlineto
92 pagewidth neg inch 0 rlineto
101 marklinewidth dup translate
102 0 0 transform round exch round exch itransform translate
103 markstart inch 0 moveto marklength inch 0 rlineto stroke
104 0 markstart inch moveto 0 marklength inch rlineto stroke
108 /@PreviousShowpage /showpage load def
113 % Cropmarks - in the default coordinate system.
120 marklinewidth setlinewidth
121 xcenter ycenter translate
122 scaling scaling scale
123 0 pagewidth inch 2 div pageheight inch 2 div cropmark
124 90 pagewidth inch neg 2 div pageheight inch 2 div cropmark
125 180 pagewidth inch neg 2 div pageheight inch 2 div neg cropmark
126 270 pagewidth inch 2 div pageheight inch 2 div neg cropmark