summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/base/crop.pro
blob: be4a16640755d01ff267962fbe2b57f0ba55f471 (plain)
1
2
3
4
5
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