diff options
Diffstat (limited to 'Build/source/texk/dvipsk/crop.lpro')
-rw-r--r-- | Build/source/texk/dvipsk/crop.lpro | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Build/source/texk/dvipsk/crop.lpro b/Build/source/texk/dvipsk/crop.lpro new file mode 100644 index 00000000000..c3c26bfbe11 --- /dev/null +++ b/Build/source/texk/dvipsk/crop.lpro @@ -0,0 +1,26 @@ +%! +% This file is for crop marks. +% +% 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 |