home *** CD-ROM | disk | FTP | other *** search
/ OneVision 3.03 / OneVision3.03.iso / Apps / OneVision.app / TMSPrintingPackage.1Vsys / hardbind.ps next >
Encoding:
Text File  |  1996-11-12  |  477 b   |  20 lines
  1. %!
  2.     currentpacking true setpacking
  3.     /isarray {type dup /arraytype eq exch /packedarraytype eq or} bind def
  4.     /hardbind
  5.     {    dup xcheck exch mark exch
  6.         {    dup type /marktype eq
  7.             {pop {mark} aload pop}
  8.             {    dup xcheck
  9.                 {    dup type /nametype eq
  10.                     {dup where {exch get dup xcheck {dup isarray {{exec} aload pop} if} if} if}
  11.                     {dup isarray {hardbind} if}
  12.                     ifelse
  13.                 } if
  14.             }
  15.             ifelse
  16.         } forall
  17.         counttomark packedarray exch pop exch {cvx} if
  18.     } bind def
  19.     setpacking
  20.