home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / Fontographer® 4.0.2 / Disk 2 / PC Font Access / PC Font Access.rsrc / STR#_7032.txt < prev    next >
Encoding:
Text File  |  1993-06-17  |  512 b   |  19 lines
  1. /BuildChar{TestDict begin exch begin BC2 end end}B
  2.  
  3. {233 sub UVec exch get exec}ifelse}ifelse}B
  4.  
  5. /UCS{dup 200 lt{100 sub}{dup 233 lt{216 sub 100 mul add}
  6.  
  7. {100 mul add}{100 mul}{100 div}{closepath}{pop}{pop}]def
  8.  
  9. {ShowInt}{pop}{pop}{gsave}{[}{stroke}{stroke}{stroke}{SetWid}
  10.  
  11. /UVec[{msp}{rlsp}{rcsp}{pop pop grestore}{]concatsp}{Cache}{pop}
  12.  
  13. /Cache{NL 0 eq{setcachedevice}{6{pop}repeat}ifelse}B
  14.  
  15. /SetWid{NL 0 eq{0 setcharwidth pop}{pop pop}ifelse}B
  16.  
  17. /ShowInt{/NL NL 1 add store BC2 grestore/NL NL 1 sub store}B
  18.  
  19.