summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/4_2/ptmr.tex
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/4_2/ptmr.tex')
-rw-r--r--usergrps/uktug/baskervi/4_2/ptmr.tex67
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}