home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / texlatex.zip / txmflb75.zip / share / texmf / dvips / base / texps.pro < prev    next >
Text File  |  1998-01-19  |  633b  |  11 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 cvx]cvx def}def /ObliqueSlant
  9. {dup sin S cos div neg}B /SlantFont{4 index mul add}def /ExtendFont{3 -1
  10. roll mul exch}def /ReEncodeFont{/Encoding exch def}def end
  11.