home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / NextLibrary / TeX / tex / ps / texps.pro < prev   
Encoding:
Text File  |  1995-02-07  |  633 b   |  11 lines
  1. %!
  2. TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2 index
  3. /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll exec 0 exch 5
  4. -1 roll VResolution Resolution div mul neg 0 0]/Metrics exch def dict begin
  5. Encoding{exch dup type /integertype ne{pop pop 1 sub dup 0 le{pop}{[}ifelse}{
  6. FontMatrix 0 get div Metrics 0 get div def}ifelse}forall Metrics /Metrics
  7. currentdict end def[2 index currentdict end definefont 3 -1 roll makefont
  8. /setfont load]cvx def}def /ObliqueSlant{dup sin S cos div neg}B /SlantFont{4
  9. index mul add}def /ExtendFont{3 -1 roll mul exch}def /ReEncodeFont{/Encoding
  10. exch def}def end
  11.