home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-bin0.lha / lib / texmf / dvips / texps.pro < prev   
Text File  |  1996-10-12  |  633b  |  12 lines
  1. %!
  2. TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
  3. index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
  4. exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
  5. exch def dict begin Encoding{exch dup type /integertype ne{pop pop 1 sub
  6. dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
  7. ifelse}forall Metrics /Metrics currentdict end def[2 index currentdict
  8. end definefont 3 -1 roll makefont /setfont load]cvx def}def
  9. /ObliqueSlant{dup sin S cos div neg}B /SlantFont{4 index mul add}def
  10. /ExtendFont{3 -1 roll mul exch}def /ReEncodeFont{/Encoding exch def}def
  11. end
  12.