diff options
Diffstat (limited to 'Master/texmf-dist/doc/ptex/ptex-manual/fam256p.tex')
-rw-r--r-- | Master/texmf-dist/doc/ptex/ptex-manual/fam256p.tex | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/ptex/ptex-manual/fam256p.tex b/Master/texmf-dist/doc/ptex/ptex-manual/fam256p.tex index 56808f63d4c..d05847ab6d9 100644 --- a/Master/texmf-dist/doc/ptex/ptex-manual/fam256p.tex +++ b/Master/texmf-dist/doc/ptex/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 |