summaryrefslogtreecommitdiff
path: root/info/ptex-manual/fam256p.tex
diff options
context:
space:
mode:
Diffstat (limited to 'info/ptex-manual/fam256p.tex')
-rw-r--r--info/ptex-manual/fam256p.tex11
1 files changed, 11 insertions, 0 deletions
diff --git a/info/ptex-manual/fam256p.tex b/info/ptex-manual/fam256p.tex
index 56808f63d4..d05847ab6d 100644
--- a/info/ptex-manual/fam256p.tex
+++ b/info/ptex-manual/fam256p.tex
@@ -1,5 +1,16 @@
\makeatletter
\mathchardef\e@mathgroup@top=256
+\def\cnttohex#1{%
+{\count@=#1\@tempcnta=#1\@tempcntb=\@tempcnta\relax
+\divide\@tempcntb by 16%
+\ifnum\count@=0\else
+ \multiply\@tempcntb by16%
+ \advance\@tempcnta-\@tempcntb
+ \divide\@tempcntb by16%
+ \cnttohex{\the\@tempcntb}%
+ \ifcase\@tempcnta\relax 0\or1\or2\or3\or4\or5\or6\or
+ 7\or8\or9\or A\or B\or C\or D\or E\or F\fi
+\fi}}
\makeatother