summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/crop.lpro
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/dvipsk/crop.lpro')
-rw-r--r--Build/source/texk/dvipsk/crop.lpro26
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