diff options
Diffstat (limited to 'macros/lamstex/inputs/dblacc.tex')
-rw-r--r-- | macros/lamstex/inputs/dblacc.tex | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/macros/lamstex/inputs/dblacc.tex b/macros/lamstex/inputs/dblacc.tex new file mode 100644 index 0000000000..82341597ef --- /dev/null +++ b/macros/lamstex/inputs/dblacc.tex @@ -0,0 +1,55 @@ +\catcode`\@=11 +\def\theskewchar@{\global\familycount@\@ne + \global\skewcharcount@\the\skewchar\textfont\@ne + \ifnum\fam>\m@ne\ifnum\fam<16 + \global\familycount@\the\fam\relax + \global\skewcharcount@\the\skewchar\textfont\the\fam\relax\fi\fi + \ifnum\skewcharcount@>\m@ne + \ifnum\skewcharcount@<128 + \global\multiply\familycount@256 + \global\advance\skewcharcount@\familycount@ + \global\advance\skewcharcount@28672 + \mathchar\skewcharcount@\else + \global\skewcharcount@\m@ne\fi\else + \global\skewcharcount@\m@ne\fi} +\def\getpoints@#1.#2\getpoints@{\pointcount@#1 } +\def\dimentomu@{\global\multiply\accentdimen@ 100 + \expandafter\getpoints@\the\accentdimen@\getpoints@ + \multiply\pointcount@18 + \divide\pointcount@\@m + \global\accentmu@\pointcount@} +\def\Makeacc@#1#2{\def#1{\RIfM@\DN@{\mathaccent@ + {"\accentclass@#2 }}\else\DN@{\nonmatherr@{#1}}\fi\next@}} +\def\unbracefonts@{\let\Cal@\Cal@@\let\rom@\rom@@\let\bold@\bold@@ + \let\slanted@\slanted@@} +\def\mathaccent@#1#2{\ifnum\fam=\m@ne\xdef\thefam@{1}\else + \xdef\thefam@{\the\fam}\fi + \global\accentdimen@\z@ + \setboxz@h{\unbracefonts@$\m@th\fam\thefam@\relax#2$}% + \ifdim\accentdimen@=\z@\DN@{\mathaccent#1{#2}}% + \setbox\tw@\hbox{\unbracefonts@$\m@th\fam\thefam@\relax#2\theskewchar@$}% + \setbox4=\hbox{$\m@th\ifnum\skewcharcount@=\m@ne\else + \mathchar\skewcharcount@\fi$}% + \global\accentdimen@\wd\tw@\global\advance\accentdimen@-\wdz@ + \global\advance\accentdimen@-\wd4 + \global\multiply\accentdimen@\tw@ + \dimentomu@\global\advance\accentmu@\@ne + \else\DN@{{\mathaccent#1{#2\mkern\accentmu@ mu}% + \mkern-\accentmu@ mu}{}}\fi + \next@} +\Makeacc@\Hat{05E} +\Makeacc@\Check{014} +\Makeacc@\Tilde{07E} +\Makeacc@\Acute{013} +\Makeacc@\Grave{012} +\Makeacc@\Dot{05F} +\Makeacc@\Ddot{07F} +\Makeacc@\Breve{015} +\Makeacc@\Bar{016} +\def\Vec{\RIfM@\DN@{\mathaccent@{"017E }}\else + \DN@{\nonmatherr@\Vec}\fi\next@} +\def\newbox@{\alloc@@4\box\chardef\insc@unt} +\def\accentedsymbol#1#2{\expandafter\newbox@\csname\exstring@#1@box\endcsname + \setbox\csname\exstring@#1@box\endcsname\hbox{$\m@th#2$}% + \define#1{\copy\csname\exstring@#1@box\endcsname{}}} +\catcode`\@=\active |