fonttable 1.5 (14may09)

git-svn-id: svn://tug.org/texlive/trunk@13126 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 64 insertions, 3 deletions

diff --git a/Master/texmf-dist/tex/latex/fonttable/fonttable.sty b/Master/texmf-dist/tex/latex/fonttable/fonttable.sty
index c515fec4279..aca8b6df0dd 100644
--- a/Master/texmf-dist/tex/latex/fonttable/fonttable.sty
+++ b/Master/texmf-dist/tex/latex/fonttable/fonttable.sty
@@ -23,7 +23,7 @@
 %%   This work consists of the files listed in the README file.
 %% ------------------------------------------------------------------
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{fonttable}[2009/05/06 v1.4 displays a font]
+\ProvidesPackage{fonttable}[2009/05/14 v1.51 displays a font]
 
 \providecommand*{\sevenrm}{\fontsize{7}{9pt}\rmfamily}
 \newcount\f@tm \newcount\f@tn \newcount\f@tp \newdimen\f@tdim
@@ -239,7 +239,10 @@ official r\^ole in fluffy souffl\'es? }
 \providecommand{\flqq}{\guillemotleft}
 \providecommand{\frqq}{\guillemotright}
 
-\newcommand*{\germantext}{%
+\providecommand*{\germantext}{%
+  \PackageWarning{fonttable}{\protect\germantext\space is deprecated,
+                 \MessageBreak use \protect\germanparatext\space instead}}
+\newcommand*{\germanparatext}{%
 Dies hier ist ein Blindtext zum Testen von Textausgaben. Wer
 diesen Text liest, ist selbst schuld. Der Text gibt lediglich den
 Grauwert der Schrift an. Ist das wirklich so? Ist es
@@ -255,7 +258,11 @@ sein. Fremdsprachige Texte wie \frqq Lorem ipsum\flqq\ dienen
 nicht dem eigentlichen Zweck, da sie eine
 falsche Anmutung vermitteln.\par}
 
-\newcommand*{\latintext}{%
+\providecommand*{\latintext}{%
+  \PackageWarning{fonttable}{\protect\latintext\space may be overriden by the
+   babel package \MessageBreak use
+                 \protect\latinparatext\space instead}}
+\newcommand*{\latinparatext}{%
 Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Etiam
 lobortis facilisis sem. Nullam nec mi et neque pharetra
 sollicitudin. Praesent imperdiet mi nec ante. Donec ullamcorper,
@@ -291,6 +298,60 @@ turpis accumsan semper.\par}
 \newcommand*{\digitstext}{0 1 2 3 4 5 6 7 8 9}
 \newcommand*{\punctext}{` ! @ \$ \& * ( ) \_ - + =  [ ] < > \{ \} : ; ' , . ? /}
 
+%%%%%%%% using \@tempcnta for Knuth's \m and \@tempcntb for his \n
+\newcommand*{\fnthours}{\@tempcntb=\time \divide\@tempcntb 60
+  \@tempcnta=-\@tempcntb \multiply\@tempcnta 60 \advance\@tempcnta \time
+  \f@ttwodigits\@tempcntb:\f@ttwodigits\@tempcnta}
+\newcommand*{\f@ttwodigits}[1]{\ifnum #1<10 0\fi \number#1}
+
+\newcommand*{\f@tgettsechars}[3]{%
+  \chardef\f@ttchar=#1 \chardef\f@tschar=#2 \chardef\f@techar=#3}
+
+\newcommand*{\glyphmixture}[3]{\f@tgettsechars{#1}{#2}{#3}%
+                               \f@tdomix\f@tmixpattern}
+\newcommand*{\f@tmixpattern}{\0\1\0\0\1\1\0\0\0\1\1\1\0\1}
+\newcommand*{\f@tdomix}[1]{\par\chardef\0=\f@ttchar \@tempcntb=\f@tschar
+   \loop \chardef\1=\@tempcntb #1\endgraf
+   \ifnum \@tempcntb<\f@techar \advance\@tempcntb \@ne \repeat}
+
+\newcommand*{\glyphalternation}[3]{\f@tgettsechars{#1}{#2}{#3}%
+                                   \f@tdomix\f@taltpattern}
+\newcommand*{\f@taltpattern}{\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0\1\0}
+
+\newcommand*{\f@tdisc}{\discretionary{\f@ttchar}{\f@ttchar}{\f@ttchar}}
+
+\newcommand*{\glyphseries}[3]{\f@tgettsechars{#1}{#2}{#3}%
+  \f@tdisc\f@tdoseries\f@tschar\f@techar\par}
+\newcommand*{\f@tdoseries}[2]{\@tempcntb=#1\relax
+  \loop\char\@tempcntb\f@tdisc
+    \ifnum\@tempcntb<#2\advance\@tempcntb \@ne \repeat}
+
+\newcommand*{\glyphalphabet}{\f@tcomplower}
+\newcommand*{\GLYPHALPHABET}{\f@tcompupper}
+\newcommand*{\f@tcomplower}[1]{\chardef\f@ttchar=#1
+  \f@tdisc\f@tdoseries{`a}{`z}\f@tdoseries{31}{34}\par}
+\newcommand*{\f@tcompupper}[1]{\chardef\f@ttchar=#1
+  \f@tdisc\f@tdoseries{`A}{`Z}\f@tdoseries{35}{37}\par}
+
+\newcommand*{\glyphlowers}{\f@tdocomprehensive\f@tclc{`a}{`z}{31}{34}}
+\newcommand*{\glyphuppers}{\f@tdocomprehensive\f@tcuc{`A}{`Z}{35}{37}}
+\newcommand*{\glyphdigits}{\f@tdocomprehensive\f@tdgs{`0}{`4}{`5}{`9}}
+\newcommand*{\f@tdocomprehensive}[5]{\par\chardef\f@ttchar=#2
+  \loop{#1} \ifnum\f@ttchar<#3\@tempcnta=\f@ttchar\advance\@tempcnta \@ne
+  \chardef\f@ttchar=\@tempcnta \repeat
+  \chardef\f@ttchar=#4
+  \loop{#1} \ifnum\f@ttchar<#5\@tempcnta=\f@ttchar\advance\@tempcnta \@ne
+  \chardef\f@ttchar=\@tempcnta \repeat}
+\newcommand*{\f@tclc}{\f@tdisc\f@tdoseries{`a}{`z}\f@tdoseries{31}{34}\par}
+\newcommand*{\f@tcuc}{\f@tdisc\f@tdoseries{`A}{`Z}\f@tdoseries{35}{37}\par}
+\newcommand*{\f@tdgs}{\f@tdisc\f@tdoseries{`0}{`9}\par}
+
+\newcommand*{\glyphpunct}{\par\f@tdopunct{min}\f@tdopunct{pig}\f@tdopunct{hid}
+                     \f@tdopunct{HIE}\f@tdopunct{TIP}\f@tdopunct{fluff}
+  \$1,234.56 + 7/8 = 9\% @ \#0\par}
+\newcommand*{\f@tdopunct}[1]{#1,\ #1:\ #1;\ `#1'\
+  ?`#1?\ !`#1!\ (#1)\ [#1]\ #1*\ #1.\par}
+
 \endinput
 %%
 %% End of file `fonttable.sty'.