summaryrefslogtreecommitdiff
path: root/Build/source/texk/dvipsk/crop.lpro
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
committerKarl Berry <karl@freefriends.org>2006-01-17 21:41:51 +0000
commit487ca4806cc046076293cf6cc5fbba0db282bac7 (patch)
tree847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/dvipsk/crop.lpro
parenta3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (diff)
texk 1
git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/crop.lpro')
-rw-r--r--Build/source/texk/dvipsk/crop.lpro26
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