diff options
Diffstat (limited to 'usergrps/uktug/baskervi/4_2/ptmr.tex')
-rw-r--r-- | usergrps/uktug/baskervi/4_2/ptmr.tex | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/4_2/ptmr.tex b/usergrps/uktug/baskervi/4_2/ptmr.tex new file mode 100644 index 0000000000..fc2530c72c --- /dev/null +++ b/usergrps/uktug/baskervi/4_2/ptmr.tex @@ -0,0 +1,67 @@ + +\documentclass{article} +\pagestyle{empty} +\begin{document} +\newcount\slot +\newcount\p + +\def\fonttable#1{{% + \font\foo=#1 at12pt \foo + \global\slot=0 + \global\p=0 + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow + \fontrow +}} + +\def\fontrow{% + \global\p=0 + \setbox0\hbox{} + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \fontcell + \ifnum\p<16 \leavevmode\box0\par \fi +} + +\def\fontcell{% + \setbox0\hbox{% + \unhbox0 + \hbox to 10pt{% + \hss + \penalty1 + \char\slot + \global\advance\p by \lastpenalty + \hss + }% + }% + \global\advance\slot by 1 +} + + \fonttable{ptmr} +\end{document} |