blob: 5c2057200f0e52384ff6765d2a88e7e5cacefa2b (
plain)
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
26
|
%!
% This file is for crop marks. This file is public domain.
%
% First, we translate and draw the marks. You can change the way the
% marks are drawn, but the quarter inch border around the page is fixed.
%
% This file uses bop-hook; sorry.
%
TeXDict begin
%
/cX 18 def % the crop offset
/CM { % draw a crop mark; just a cross.
gsave TR 0 cX neg moveto 0 cX lineto stroke
cX neg 0 moveto cX 0 lineto stroke grestore
} def
%
end
%
/bop-hook {
cX dup TR % move the origin a bit
gsave .3 setlinewidth 0 0 CM % now draw four crop marks
vsize cX 2 mul sub dup hsize cX 2 mul sub dup
isls { 4 2 roll } if 0 CM exch CM 0 exch CM grestore
0 cX -2 mul TR % now move to where we start drawing
isls { cX -2 mul 0 TR } if
} def
|
