diff options
| author | Karl Berry <karl@freefriends.org> | 2013-04-07 18:29:49 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2013-04-07 18:29:49 +0000 |
| commit | 80b364fa37a748aef4fac9903b0892b1d4961087 (patch) | |
| tree | b93e677c5392e1a2805044ccece2f73e5f1a71c0 /Master/texmf-dist/dvips/base/crop.pro | |
| parent | b04c2e1a42573e9735547702356c7b9a769a6855 (diff) | |
texmf -> texmf-dist: dvips
git-svn-id: svn://tug.org/texlive/trunk@29715 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/base/crop.pro')
| -rw-r--r-- | Master/texmf-dist/dvips/base/crop.pro | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/base/crop.pro b/Master/texmf-dist/dvips/base/crop.pro new file mode 100644 index 00000000000..be4a1664075 --- /dev/null +++ b/Master/texmf-dist/dvips/base/crop.pro @@ -0,0 +1,6 @@ +%! +TeXDict begin/cX 18 def/CM{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 +gsave .3 setlinewidth 0 0 CM 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 isls +{cX -2 mul 0 TR}if}def |