DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T l

⟦8cfa58e2b⟧ TextFile

    Length: 944 (0x3b0)
    Types: TextFile
    Names: »listfonts.ps«

Derivation

└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦c319c2751⟧ »unix3.0/TeX3.0.tar.Z« 
        └─⟦036c765ac⟧ 
            └─⟦this⟧ »TeX3.0/MFcontrib/adobefonts/listfonts.ps« 
└─⟦060c9c824⟧ Bits:30007080 DKUUG TeX 2/12/89
    └─⟦this⟧ »./tex82/MFcontrib/adobefonts/listfonts.ps« 
└─⟦52210d11f⟧ Bits:30007239 EUUGD2: TeX 3 1992-12
    └─⟦63303ae94⟧ »unix3.14/TeX3.14.tar.Z« 
        └─⟦c58930e5c⟧ 
            └─⟦this⟧ »TeX3.14/MFcontrib/adobefonts/listfonts.ps«

TextFile

%!  list all fonts in font dictionary

%   usage:   newpage
%             size  baselineskip  listfonts

/listfonts
  { /t usertime def
    /baselineskip exch def
    /size exch def
    /buff 100 string def
    /Times-Bold findfont 12 scalefont setfont
    (Font samples at ) show
    size 10 string cvs show
    ( pt.) show newline newline
    FontDirectory { pop dup == flush
                    dup findfont size scalefont setfont
                    buff cvs show
                    560 (ABCDWXYZ abcdwxyz 0123456789) flushright
                    newline
                  } forall
    (            seconds) dup
    usertime t sub 1000 div
    exch cvs pop ==
  } def

/newpage
  { /y 720 def
    /x 72 def
    x y moveto
  } def

/newline
  { /y y baselineskip sub def
    x y moveto
  } def

/flushright
  { /str exch def
    /rm exch def
    rm str stringwidth pop sub y moveto
    str show
  } def


newpage
10 15 listfonts
showpage