1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
% Copyright (C) 1989, 1992, 1993, 1994 Aladdin Enterprises. All rights reserved.
%
% This file is part of GNU Ghostscript.
%
% GNU Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY. No author or distributor accepts responsibility to
% anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing. Refer
% to the GNU Ghostscript General Public License for full details.
%
% Print two alignment lines. The lines should be exactly 1" in from
% the edge of the paper and run all the way to the edges.
currentpagedevice /PageSize .knownget not
{ currentdevice /PageSize gsgetdeviceprop }
if
aload pop
/H exch def
/W exch def
1 setlinewidth
0 H 72 sub moveto W 0 rlineto stroke
72 0 moveto 0 H rlineto stroke
showpage
|
