summaryrefslogtreecommitdiff
path: root/macros/lamstex/inputs/dblacc.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/lamstex/inputs/dblacc.tex')
-rw-r--r--macros/lamstex/inputs/dblacc.tex55
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