diff options
Diffstat (limited to 'info/ptex-manual/fam256p.tex')
-rw-r--r-- | info/ptex-manual/fam256p.tex | 11 |
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 |