diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-17 21:41:51 +0000 |
commit | 487ca4806cc046076293cf6cc5fbba0db282bac7 (patch) | |
tree | 847b412ab5158dd7bdd7ed7e5a4cc3fbca94be32 /Build/source/texk/dvipsk/crop.lpro | |
parent | a3d3111bfe26b8e5f5bc6049dfb2a4ca2edc7881 (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.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 |