home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 769 < prev    next >
Text File  |  1997-05-07  |  840b  |  31 lines
  1. /BuildChar {
  2.     /_bitlobyte exch def
  3.     /_bitfont exch def
  4.     _bitfont /FontScript get 1 eq
  5.     _bithibyte 0 eq
  6.     _bitlobyte 129 ge _bitlobyte 159 le and
  7.     _bitlobyte 224 ge _bitlobyte 252 le and
  8.     or and and
  9.     {
  10.         /_bithibyte _bitlobyte def
  11.         0 0 setcharwidth
  12.     }
  13.     {
  14.         _bithibyte 256 mul _bitlobyte add
  15.         16 4 string cvrs dup length (K) dup length
  16.         dup 4 -1 roll add string /_bitkey exch def
  17.         exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
  18. %  This is for Windows support
  19.         _lineorientation 1 eq _bithibyte 0 ne and {
  20.             0 _bitfont /FontAscent get neg translate
  21.         } if
  22.         _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
  23.         _bitfont /CharStrings get _bitkey cvn get exec
  24.         _lineorientation 1 eq _bithibyte 0 ne and {
  25.             0 _bitfont /FontAscent get translate
  26.         } if
  27.         /_bithibyte 0 def
  28.     } ifelse
  29. } bind def
  30.  
  31.