|
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273 |
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <<
- /PageOffset [0 0]
- /Margins [0 0]
- /.HWMargins [0 0 0 0]
- >>
- setpagedevice
- <<
- /ImagingBBox null
- >>
- setpagedevice
-
-
-
- clippath pathbbox newpath
- /y1 exch def /x1 exch def pop pop
-
-
-
-
- 1 setlinewidth
- 0 setgray
- 72 0 moveto 0 y1 rlineto stroke
- 0 72 moveto x1 0 rlineto stroke
-
-
-
- /S 80 string def
- 108 480 moveto
- /Helvetica 12 selectfont
- { currentfile S readline pop dup (
- gsave show grestore 0 -15 rmoveto
- } loop
- Let the distance in inches from the left edge of the page to
- the vertical line be H, and from the bottom edge to the
- horizontal line be V; let the lengths of the gaps at the top
- and bottom of the vertical line be T and B respectively, and
- the gaps at the left and right of the horizontal line be L
- and R. For correct alignment of pages, put the following line
- in a file named (for example) margins.ps, and then mention
- margins.ps on the gs command line when printing any of your
- own files:
-
- << /.HWMargins [ml mb mr mt] /Margins [x y] >> setpagedevice
-
- where
- ml = L * 72, mb = B * 72, mr = R * 72, mt = T * 72,
-
- /res currentpagedevice /.MarginsHWResolution get def
- ( x = (1 - H) * ) show res 0 get =string cvs show
- (, y = (V - 1) * ) show res 1 get =string cvs show
-
- showpage
|