home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PRINTING / DVIPS54.ZIP / EMTEX / PS / TEXPS.PRO < prev   
Text File  |  1990-11-25  |  761b  |  12 lines
  1. %!
  2. TeXDict begin /rf{655360 div mul Resolution mul 7227 div /PixPerEm X findfont
  3. dup length 1 add dict /nn X{1 index /FID ne{nn 3 1 roll put}{pop pop}ifelse}
  4. forall 256 dict begin nn /Encoding get 0 1 255{2 copy get 3 index 2 index get
  5. 1000 mul PixPerEm div N pop}for pop pop nn /Metrics currentdict put end
  6. /fontname X /nn dup nn definefont[PixPerEm 0 0 PixPerEm neg 0 0]makefont N
  7. fontname{/foo setfont}2 array copy cvx N fontname load 0 nn put}B
  8. /ObliqueSlant{dup sin S cos div neg}B /SlantFont{/foo X[1 0 foo 1 0 0]
  9. TransFont}B /ExtendFont{/foo X 3 2 roll[S{foo div}forall]3 1 roll[foo 0 0 1 0
  10. 0]TransFont}B /TransFont{S findfont S makefont dup length dict /nn X{1 index
  11. /FID ne{nn 3 1 roll put}{pop pop}ifelse}forall dup nn definefont pop}B end
  12.