home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / NextLibrary / TeX / tex / ps / crop.pro < prev    next >
Encoding:
Text File  |  1995-02-07  |  315 b   |  7 lines
  1. %!
  2. TeXDict begin /cX 18 def /CM{gsave TR 0 cX neg moveto 0 cX lineto stroke cX
  3. neg 0 moveto cX 0 lineto stroke grestore}def end /bop-hook{cX dup TR gsave .3
  4. setlinewidth 0 0 CM vsize cX 2 mul sub dup hsize cX 2 mul sub dup isls{4 2
  5. roll}if 0 CM exch CM 0 exch CM grestore 0 cX -2 mul TR isls{cX -2 mul 0 TR}if}
  6. def
  7.