home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 775 < prev    next >
Text File  |  1997-05-07  |  495b  |  20 lines
  1. /BuildChar {
  2.     /_bitlobyte exch def
  3.     /_bitfont exch def
  4.     _bithibyte 0 eq
  5.     {
  6.         /_bithibyte _bitlobyte 1 add def
  7.         0 0 setcharwidth
  8.     }
  9.     {
  10.         _bithibyte 1 sub 256 mul _bitlobyte add
  11.         16 4 string cvrs dup length (K) dup length
  12.         dup 4 -1 roll add string /_bitkey exch def
  13.         exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
  14.         _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
  15.         _bitfont /CharStrings get _bitkey cvn get exec
  16.         /_bithibyte 0 def
  17.     } ifelse
  18. } bind def
  19.  
  20.