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