home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 768 < prev    next >
Text File  |  1997-05-07  |  358b  |  11 lines

  1. /BuildChar {
  2.     /_bitlobyte exch def
  3.     /_bitfont exch def
  4.     /_bithibyte 0 def
  5.     _bitlobyte 16 4 string cvrs dup length (K) dup length
  6.     dup 4 -1 roll add string /_bitkey exch def
  7.     exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
  8.     _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
  9.     _bitfont /CharStrings get _bitkey cvn get exec
  10. } bind def
  11.