diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/halloweenmath')
| -rw-r--r-- | Master/texmf-dist/tex/latex/halloweenmath/halloweenmath.sty | 794 |
1 files changed, 735 insertions, 59 deletions
diff --git a/Master/texmf-dist/tex/latex/halloweenmath/halloweenmath.sty b/Master/texmf-dist/tex/latex/halloweenmath/halloweenmath.sty index b54bf49c475..09633c6c8ca 100644 --- a/Master/texmf-dist/tex/latex/halloweenmath/halloweenmath.sty +++ b/Master/texmf-dist/tex/latex/halloweenmath/halloweenmath.sty @@ -31,7 +31,7 @@ %% only part of the Work" in the sense of the LaTeX Project Public %% License, and should be avoided. %% -%% January 6, 2017 (vers. 0.01) +%% April 16, 2017 (vers. 0.10) %% %% \CharacterTable %% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z @@ -50,7 +50,48 @@ %% Right brace \} Tilde \~} \NeedsTeXFormat{LaTeX2e}[2004/06/01] % LaTeX2e is required! \ProvidesPackage{halloweenmath} - [2017/01/06 v0.01 (development)] + [2017/04/16 v0.10 (development)] +\newcommand*\@HwM@say@BOO{% + \begingroup + \escapechar \m@ne + \def~{\string\\}% + \def\-{\space\space}% + \def\+{\space\space\space\space}% + \def\={\+\+\+\+}% + \def\*{****}% + \typeout{}% + \typeout{\+ _-==-_ \+ /~/~/~}% + \typeout{\+|\-\-\-|\+< BOO! >\+\+\+\today...}% + \typeout{\+|(.)(.)|\+/~/~/~/}% + \typeout{\++--/~--+\- /\=\*\*\*\*\*\*\*}% + \typeout{\+ [::::] __/ \= ... This is HALLOWEENMATH!}% + \typeout{\+\-----\-\+\=\*\*\*\*\*\*\*}% + \typeout{}% + \endgroup +} +\newcommand*\@HwM@opt@say@BOO{} +\DeclareOption{silent}{% + \let \@HwM@opt@say@BOO \@empty +} +\DeclareOption{boo}{% + \let \@HwM@opt@say@BOO \@HwM@say@BOO +} +\DeclareOption{boo-10-31}{% + \ifnum\month=10 + \ifnum\day=31 + \let \@HwM@opt@say@BOO \@HwM@say@BOO + \else + \let \@HwM@opt@say@BOO \@empty + \fi + \else + \let \@HwM@opt@say@BOO \@empty + \fi +} +\ExecuteOptions{boo-10-31} +\ProcessOptions\relax +\@HwM@opt@say@BOO +\let \@HwM@say@BOO = \@undefined +\let \@HwM@opt@say@BOO = \@undefined \RequirePackage{amsmath,pict2e} \@ifdefinable\@HwM@tempa{} \newcommand*\@HwM@thickness@units@for[1]{\fontdimen 8 #1\thr@@} @@ -75,6 +116,9 @@ }{\endpicture} \newcommand*\@HwM@short@circuited@vphant{\v@true\h@false\mathph@nt} \newcommand*\@HwM@oplus@strut[1]{% + \@HwM@short@circuited@vphant #1\oplus +} +\newcommand*\@HwM@bigoplus@strut[1]{% \@HwM@short@circuited@vphant #1\bigoplus@ } \newcommand*\@HwM@d@pict@strut[1]{% @@ -88,14 +132,18 @@ \@HwM@math@picture{3}{-1}{\@HwM@d@pict@strut\@ne}% } \let\end@HwM@small@picture = \end@HwM@math@picture +\newcommand*\@HwM@bigop@picture[1]{% + \@HwM@math@picture{0}{-1}{\@HwM@bigoplus@strut #1}% +} +\let\end@HwM@bigop@picture = \end@HwM@math@picture \newcommand*\@HwM@oplus@picture[1]{% \@HwM@math@picture{0}{-1}{\@HwM@oplus@strut #1}% } \let\end@HwM@oplus@picture = \end@HwM@math@picture \@ifdefinable\if@HwM@cat@{\newif\if@HwM@cat@} +\newcommand*\@HwM@bold@version@name{bold} \newcommand*\@HwM@if@bold@math{% - \def\@tempa{bold}% - \ifx\math@version\@tempa + \ifx\math@version\@HwM@bold@version@name \expandafter\@firstoftwo \else \expandafter\@secondoftwo @@ -140,8 +188,8 @@ (0,-.6)(\+1.4,-.6)(\+1.8,-.4)(\+2,0)(0,0)% (0,1.4)% \polygon*(\-3,2)(\-2.8,3)(\-2,4)(\-1.5,4.1)(\-1,4)(0,3.5)% - (\+1,3.8)(\+2.5,3.5)(\+3,3.3)(\+2,3.4)(0,3)(\-1,2)(\-2,1.6)% - (\-2.7,2)(\-2,2)(\-1,3)(\-2,3.5)(\-2.6,3)% + (\+1,3.8)(\+2.5,3.5)(\+3,3.3)(\+2,3.4)(0,3)(\-1,2)% + (\-2,1.6)(\-2.7,2)(\-2,2)(\-1,3)(\-2,3.5)(\-2.6,3)% \buttcap \Line(\+.2,2.8)(\+.6,3)% \linethickness{#5\p@}% @@ -193,7 +241,8 @@ \put(\+1.8,.5){\circle*{.6}}% \put(\+2.1,.7){\circle*{.5}}% \put(\+2.25,1){\circle*{.4}}% - \polygon*(\+2.05,1)(\+2.05,1.25)(\+2.25,1.1)(\+2.45,1.25)(\+2.45,1)% + \polygon*(\+2.05,1)(\+2.05,1.25)(\+2.25,1.1)(\+2.45,1.25) + (\+2.45,1)% \cbezier(\+1.8,.4)(\+1.2,.1)(\+2,-.1)(\+1.4,-.4)% \fi } @@ -233,13 +282,11 @@ } \newcommand*\@HwM@large@pumpkin@mouth[9]{% \polygon*% - % lower lip: (-#1)(-#2)(-#3)(-#4)(0,#5)(#4)(#3)(#2)(#1)% - % upper lip: (#6)(#7)(#8)(0,#9)(-#8)(-#7)(-#6)% } \newcommand*\@HwM@large@pumpkin[1]{% - \begin{@HwM@oplus@picture}\displaystyle \textfont {7.5}{-3.75}% + \begin{@HwM@bigop@picture}\displaystyle \textfont {7.5}{-3.75}% \roundcap \linethickness{#1\@HwM@thickness@units@for \textfont}% \Line(-.15,2.25)(-.3,3)(.3,3)(.15,2.25)% @@ -251,7 +298,7 @@ {-1.5}% {1.2,-1.1}{.7,-1}{.45,-1.1}% {-1}% - \end{@HwM@oplus@picture}% + \end{@HwM@bigop@picture}% } \newcommand*\@HwM@Large@Pumpkin{% \@HwM@choose@thicknesses \@HwM@large@pumpkin @@ -265,13 +312,11 @@ } \newcommand*\@HwM@small@pumpkin@mouth[7]{% \polygon*% - % lower lip: (-#1)(-#2)(-#3)(0,#4)(#3)(#2)(#1)% - % upper lip: (#5)(#6)(0,#7)(-#6)(-#5)% } \newcommand*\@HwM@small@pumpkin[3]{% - \begin{@HwM@oplus@picture}#1#2{5}{-2.5}% + \begin{@HwM@bigop@picture}#1#2{5}{-2.5}% \roundcap \linethickness{#3\@HwM@thickness@units@for #2}% \Line(-.1,1.5)(-.15,2)(.15,2)(.1,1.5)% @@ -283,37 +328,237 @@ {-1}% {.7,-.6}{.4,-.5}% {-.7}% - \end{@HwM@oplus@picture}% + \end{@HwM@bigop@picture}% } \newcommand*\@HwM@Small@Pumpkin[2]{% \@HwM@choose@thicknesses{\@HwM@small@pumpkin #1#2}% {{}}% {{1.5}}% } -\newcommand*\@HwM@oplus@pumpkin@profile[1]{% +\newcommand*\@HwM@binop@pumpkin@profile[1]{% \cbezier(#1.1,1)(#11.2,1.7)(#11.6,.8)(#11.6,0)% \cbezier(#1.1,-1)(#11,-1.5)(#11.6,-.8)(#11.6,0)% \put(#1.6,.5){\circle*{.4}}% } -\newcommand*\@HwM@oplus@pumpkin[3]{% +\newcommand*\@HwM@binop@pumpkin[3]{% \begin{@HwM@oplus@picture}#1#2{3.6}{-1.8}% \roundcap \linethickness{#3\@HwM@thickness@units@for #2}% \Line(-.1,1)(-.15,1.4)(.15,1.4)(.1,1)% \Line(-.1,-1)(.1,-1)% - \@HwM@oplus@pumpkin@profile-% - \@HwM@oplus@pumpkin@profile+% + \@HwM@binop@pumpkin@profile-% + \@HwM@binop@pumpkin@profile+% \@HwM@small@pumpkin@mouth{1,-.1}{.7,-.5}{.4,-.4}% {-.7}% {.6,-.3}{.3,-.2}% {-.4}% \end{@HwM@oplus@picture}% } -\newcommand*\@HwM@Oplus@Pumpkin[2]{% - \@HwM@choose@thicknesses{\@HwM@oplus@pumpkin #1#2}% +\newcommand*\@HwM@Binop@Pumpkin[2]{% + \@HwM@choose@thicknesses{\@HwM@binop@pumpkin #1#2}% {{.6}}% {{1.2}}% } +\newcommand*\@HwM@large@skull@nose[9]{% + \moveto(0,-#1)% + \curveto(-#2,-#1)(-#3,-#1)(-#4,-#5)% + \curveto(-#6,-#7)(-#8,-#9)(0,-#9)% + \curveto(#8,-#9)(#6,-#7)(#4,-#5)% + \curveto(#3,-#1)(#2,-#1)(0,-#1)% + \fillpath +} +\newcommand*\@HwM@large@skull@profile[1]{% + \moveto(#1.3375,0)% + \curveto(#1.3375,.225)(#1.3375,.4725)(#1.9,.45)% + \curveto(#11.35,.4275)(#11.5525,.225)(#11.575,0)% + \curveto(#11.5975,-.225)(#11.35,-.675)(#11.125,-.675)% + \curveto(#1.9,-.675)(#1.3375,-.45)(#1.3375,0)% + \fillpath + \cbezier(#12,2)(#12.1,1.8)(#12.7,1.125)(#12.25,0)% + \moveto(#12.24,.1)% + \curveto(#12.3,-1)(#12,-1.2)(#11.5,-1.2)% + \curveto(#11.3,-1.2)(#11.125,-1.3)(#11.125,-1.5)% + \strokepath + \moveto(#11.875,-1.35)% + \curveto(#11.86,-1.8)(#11.8,-1.5)(#11.65,-1.95)% + \curveto(#11.5,-2.4)(#11.5,-2.75)(#11.2,-2.9)% + \curveto(#1.9,-3.05)(#11,-3.2)(#1.3,-3.1)% + \strokepath +} +\newcommand*\@HwM@large@skull@innerjaw[1]{% + \moveto(#11.5,-1.35)% + \curveto(#11.35,-1.5)(#11.5,-2.25)(#11.125,-2.25)% + \strokepath +} +\newcommand*\@HwM@large@skull@teeth[2]{% + \moveto(#1.75,-2.25)% + \curveto(#1.65,-2.5)(#1.55,-2.5)(#1.45,-2.3)% + \curveto(#1.35,-2.05)(#1.4,-2)(#1.6,-2)% + \curveto(#1.8,-2)(#1.8,-2.05)(#1.75,-2.25)% + \strokepath + \moveto(#1.35,-2.3)% + \curveto(#1.25,-2.6)(#1.1,-2.65)(#1.05,-2.3)% + \curveto(#1.05,-2.05)(0,-2.05)(#1.2,-2.05)% + \curveto(#1.4,-2.05)(#1.42,-2)(#1.35,-2.3)% + \strokepath + \moveto(#1.7,-1.6)% + \curveto(#1.6,-1.4)(#1.5,-1.4)(#1.45,-1.65)% + \curveto(#1.45,-1.85)(#1.4,-1.95)(#1.55,-1.95)% + \curveto(#1.85,-1.95)(#1.75,-1.75)(#1.7,-1.6)% + \strokepath + \moveto(#11.12,-1.6)% + \curveto(#11,-1.3)(#1.9,-1.3)(#1.75,-1.6)% + \curveto(#11,-3)(#11,-3)(#11.12,-1.5)% + \strokepath + \moveto(#1.4,-1.65)% + \curveto(#1.3,-1.4)(#1.1,-1.4)(#1.05,-1.7)% + \curveto(#1.05,-1.9)(#2.05,-2)(#1.225,-2)% + \curveto(#1.5,-2)(#1.45,-1.9)(#1.4,-1.65) + \strokepath +} +\newcommand*\@HwM@large@skull@brows[1]{% + \moveto(#1.8,.7)% + \curveto(#1.4,.7)(#1.4,.9)(#1.2,.7)% + \curveto(#1.1,.6)(#1.2,.4)(#1.2,.3)% + \strokepath + \cbezier(#11.3,.7)(#11.5,.7)(#11.5,.75)(#11.75,.5)% +} +\newcommand*\@HwM@large@skull[4]{% + \begin{@HwM@bigop@picture}\displaystyle \textfont {6}{-3}% + \roundcap + \linethickness{#3\@HwM@thickness@units@for \textfont}% + \@HwM@large@skull@teeth-+% + \@HwM@large@skull@teeth+-% + \linethickness{#1\@HwM@thickness@units@for \textfont}% + \@HwM@large@skull@nose + {1.125}{.1}{.5}{.3375}{.9}{.147}{.7}{.2}{.4}% + \cbezier(-2,2)(-1.25,3.5)(1.25,3.5)(2,2)% + \@HwM@large@skull@profile-% + \@HwM@large@skull@profile+% + \cbezier(-.3,-3.1)(0,-3)(0,-3)(.3,-3.1)% + \linethickness{#2\@HwM@thickness@units@for \textfont}% + \@HwM@large@skull@innerjaw-% + \@HwM@large@skull@innerjaw+% + \linethickness{#4\p@}% + \@HwM@large@skull@brows-% + \@HwM@large@skull@brows+% + \end{@HwM@bigop@picture}% +} +\newcommand*\@HwM@Large@Skull{% + \@HwM@choose@thicknesses \@HwM@large@skull + {{1.5}{.9}{.3}{.075}}% + {{2}{1.2}{.4}{.1}}% +} +\newcommand*\@HwM@small@skull@nose[8]{% + \moveto(0,-.#1)% + \curveto(-.#2,-.#1)(-.#3,-.#4)(-.#5,-.#6)% + \curveto(-.#7,-.#8)(.#7,-.#8)(.#5,-.#6)% + \curveto(.#3,-.#4)(.#2,-.#1)(0,-.#1)% + \fillpath +} +\newcommand*\@HwM@small@skull@profile[1]{% + \moveto(#1.225,0)% + \curveto(#1.225,.15)(#1.225,.315)(#1.6,.3)% + \curveto(#1.9,.285)(#11.035,.15)(#11.05,0)% + \curveto(#11.065,-.15)(#1.9,-.45)(#1.75,-.45)% + \curveto(#1.6,-.45)(#1.225,-.3)(#1.225,0)% + \fillpath + \cbezier(0,2)(#11.5,2)(#11.8,0.75)(#11.5,0)% + \cbezier(#11.5,0)(#11.575,-1.35)(#1.75,-.45)(#1.75,-1)% + \moveto(#11.25,-.9)% + \curveto(#11.24,-1.2)(#11.2,-1)(#11.1,-1.3)% + \curveto(#11,-1.6)(#11,-1.8)(#1.75,-1.9)% + \curveto(0,-2.1)(#1.3,-2)(0,-2)% + \strokepath +} +\newcommand*\@HwM@small@skull@innerjaw[1]{% + \moveto(#11,-.9)% + \curveto(#1.9,-1)(#11,-1.5)(#1.75,-1.5)% + \strokepath +} +\newcommand*\@HwM@small@skull@teeth[2]{% + \moveto(#1.5,-1.5)% + \curveto(#1.47,-1.65)(#1.35,-1.6)(#1.3,-1.55)% + \curveto(#1.15,-1.25)(#1.65,-1.25)(#1.5,-1.5)% + \strokepath + \moveto(#1.25,-1.55)% + \curveto(#1.2,-1.7)(#1.04,-1.7)(#1.03,-1.55)% + \curveto(#2.1,-1.3)(#1.35,-1.3)(#1.25,-1.55)% + \strokepath + \moveto(#1.45,-1)% + \curveto(#1.4,-.9)(#1.3,-.9)(#1.285,-1.05)% + \curveto(#1.2,-1.35)(#1.6,-1.35)(#1.45,-1)% + \strokepath + \moveto(#1.75,-1)% + \curveto(#1.65,-.9)(#1.6,-.9)(#1.5,-1)% + \curveto(#1.6,-2)(#1.7,-2)(#1.75,-1)% + \strokepath + \moveto(#1.25,-1.05)% + \curveto(#1.2,-.9)(#1.04,-.9)(#1.03,-1.05)% + \curveto(#2.08,-1.4)(#1.35,-1.4)(#1.25,-1.05)% + \strokepath +} +\newcommand*\@HwM@small@skull[5]{% + \begin{@HwM@bigop@picture}#1#2{3.48}{-1.74}% + \roundcap + \linethickness{#5\@HwM@thickness@units@for #2}% + \@HwM@small@skull@teeth-+% + \@HwM@small@skull@teeth+-% + \linethickness{#3\@HwM@thickness@units@for #2}% + \@HwM@small@skull@nose{75}{15}{3}{75}{225}{6}{15}{15}% + \@HwM@small@skull@profile-% + \@HwM@small@skull@profile+% + \linethickness{#4\@HwM@thickness@units@for #2}% + \@HwM@small@skull@innerjaw-% + \@HwM@small@skull@innerjaw+% + \end{@HwM@bigop@picture}% +} +\newcommand*\@HwM@Small@Skull[2]{% + \@HwM@choose@thicknesses{\@HwM@small@skull #1#2}% + {{}{.6}{.25}}% + {{1.333333}{.7}{.3}}% +} +\newcommand*\@HwM@binop@skull@profile[1]{% + \moveto(#1.15,0)% + \curveto(#1.15,.1)(#1.15,.21)(#1.4,.2)% + \curveto(#1.6,.19)(#1.69,.1)(#1.7,0)% + \curveto(#1.71,-.1)(#1.6,-.3)(#1.5,-.3)% + \curveto(#1.4,-.3)(#1.15,-.2)(#1.15,0)% + \fillpath + \cbezier(0,1.333336)(#11,1.333336)(#11.2,0.5)(#11,0)% + \cbezier(#11,0)(#11.05,-.9)(#1.5,-.3)(#1.5,-.65)% +} +\newcommand*\@HwM@binop@skull@teeth[2]{% + \moveto(#1.33,-.7)% + \curveto(#1.3,-.6)(#1.22,-.6)(#1.19,-.75)% + \curveto(#1.15,-.9)(#1.38,-.9)(#1.33,-.7)% + \strokepath + \moveto(#1.5,-.7)% + \curveto(#1.45,-.6)(#1.4,-.6)(#1.35,-.7)% + \curveto(#1.4,-1.2)(#1.5,-1.2)(#1.5,-.7)% + \strokepath + \moveto(#1.17,-.75)% + \curveto(#1.13,-.65)(#1.05,-.62)(#1.02,-.75)% + \curveto(#2.03,-.95)(#1.22,-.95)(#1.17,-.75)% + \strokepath +} +\newcommand*\@HwM@binop@skull[4]{% + \begin{@HwM@oplus@picture}#1#2{2.48}{-1.24}% + \roundcap + \linethickness{#4\@HwM@thickness@units@for #2}% + \@HwM@binop@skull@teeth-+% + \@HwM@binop@skull@teeth+-% + \linethickness{#3\@HwM@thickness@units@for #2}% + \@HwM@small@skull@nose{5}{1}{2}{5}{15}{4}{1}{1}% + \@HwM@binop@skull@profile-% + \@HwM@binop@skull@profile+% + \end{@HwM@oplus@picture}% +} +\newcommand*\@HwM@Binop@Skull[2]{% + \@HwM@choose@thicknesses{\@HwM@binop@skull #1#2}% + {{.6}{.2}}% + {{.9}{.266667}}% +} \newcommand*\@HwM@large@cloud[1]{% \begin{@HwM@large@picture}{12}{-6}% \roundcap @@ -408,34 +653,224 @@ {{.9}{.6}}% {{1.8}{1.2}}% } - +\newcommand*\@HwM@symmetric@bat@wing[1]{% + \moveto(#1.7,0)% + \curveto(#11.5,.1)(#12.2,.5)(#12,1)% + \curveto(#12.5,.5)(#12.9,0)(#12.9,-.5)% + \curveto(#12.8,0)(#12,-.5)(#12.25,-1)% + \curveto(#12,-.5)(#11.7,-.3)(#11.5,-.7)% + \curveto(#11.4,-.5)(#11.2,-.3)(#11,-.5)% + \curveto(#1.9,-.4)(#1.7,-.4)(#1.5,-.5)% + \closepath + \fillpath +} +\newcommand*\@HwM@symmetric@bbat@wing[1]{% + \moveto(#1.7,.1)% + \curveto(#11.5,.2)(#12.25,.6)(#12,1.1)% + \curveto(#12.6,.5)(#13,0)(#13,-.6)% + \curveto(#12.8,0)(#12,-.6)(#12.25,-1.1)% + \curveto(#12,-.6)(#11.7,-.4)(#11.5,-.8)% + \curveto(#11.4,-.6)(#11.2,-.4)(#11,-.6)% + \curveto(#1.9,-.5)(#1.7,-.5)(#1.5,-.5)% + \closepath + \fillpath +} +\newcommand*\@HwM@symmetric@bat[1]{% + \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}% + \moveto(-.5,-.5)% + \curveto(-.4,-.6)(-.2,-.7)(-.2,-1)% + \curveto(-.1,-.7)(.1,-.7)(.2,-1)% + \curveto(.2,-.7)(.4,-.6)(.5,-.5)% + \closepath + \fillpath + \@HwM@symmetric@bat@wing-% + \@HwM@symmetric@bat@wing+% + \moveto(.5,0)% + \circlearc{.35}{0}{.15}{0}{180}% + \lineto(-.2,0)% + \circlearc{-.35}{0}{.15}{0}{180}% + \lineto(-.75,0)% + \curveto(-.75,.45)(-.7,.5)(-.5,1)% + \circlearc{0}{1}{.5}{180}{360}% + \curveto(.7,.5)(.75,.45)(.75,0)% + \closepath + \fillpath + \moveto(-.75,0)% + \circlearc{0}{0}{.75}{180}{360}% + \lineto(.5,0)% + \circlearc{.35}{0}{.15}{360}{180}% + \lineto(-.2,0)% + \circlearc{-.35}{0}{.15}{360}{180}% + \closepath + \fillpath + \end{@HwM@math@picture}% +} +\newcommand*\@HwM@symmetric@bold@bat[1]{% + \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}% + \moveto(-.6,-.5)% + \curveto(-.5,-.6)(-.3,-.7)(-.3,-1.1)% + \curveto(-.1,-.7)(.1,-.7)(.3,-1.1)% + \curveto(.3,-.7)(.5,-.6)(.6,-.5)% + \closepath + \fillpath + \@HwM@symmetric@bbat@wing-% + \@HwM@symmetric@bbat@wing+% + \moveto(.5,0)% + \circlearc{.35}{0}{.15}{0}{180}% + \lineto(-.2,0)% + \circlearc{-.35}{0}{.15}{0}{180}% + \lineto(-.8,0)% + \curveto(-.8,.5)(-.7,.5)(-.55,1.1)% + \circlearc{0}{1.1}{.55}{180}{360}% + \curveto(.7,.5)(.8,.5)(.8,0)% + \closepath + \fillpath + \moveto(-.8,0)% + \circlearc{0}{0}{.8}{180}{360}% + \lineto(.5,0)% + \circlearc{.35}{0}{.15}{360}{180}% + \lineto(-.2,0)% + \circlearc{-.35}{0}{.15}{360}{180}% + \closepath + \fillpath + \end{@HwM@math@picture}% +} +\newcommand*\@HwM@Symmetric@Bat[2]{% + \@HwM@if@bold@math{% + \@HwM@symmetric@bold@bat #2% + }{% + \@HwM@symmetric@bat #2% + }% +} +\newcommand*\@HwM@asymmetric@bat[1]{% + \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}% + \moveto(\-.5,.2)% + \curveto(\-1.5,.3)(\-2.2,.5)(\-1.8,1)% + \curveto(\-2.5,.5)(\-2.9,0)(\-2.9,-.5)% + \curveto(\-2.7,0)(\-2,-.25)(\-2,-.8)% + \curveto(\-2,-.5)(\-1.6,-.25)(\-1.4,-.5)% + \curveto(\-1.4,-.2)(\-1.2,-.1)(\-1,-.3)% + \curveto(\-1,-.1)(\-.7,-.1)(\-.6,-.1)% + \closepath + \fillpath + \moveto(\+.9,0) + \curveto(\+2,-.1)(\+2.2,.5)(\+2,.7) + \curveto(\+2.5,.6)(\+3.2,0)(\+2.9,-.7)% + \curveto(\+2.6,-.2)(\+2,-.5)(\+2,-1)% + \curveto(\+2,-.5)(\+1.7,-.4)(\+1.5,-.7)% + \curveto(\+1.6,-.4)(\+1.3,-.2)(\+1.1,-.5)% + \curveto(\+1.1,-.3)(\+1,-.3)(\+.8,-.3)% + \closepath + \fillpath + \moveto(\+.8,-.1)% + \curveto(\+.85,.08)(\+.65,.13)(\+.6,-.05)% + \lineto(\+.3,0)% + \curveto(\+.35,.2)(\+.05,.3)(0,.1)% + \lineto(\-.8,0)% + \curveto(\-.7,.3)(\-.4,.7)(\+.25,1)% + \curveto(\+.2,.4)(\+.8,.3)(\+1,.9)% + \curveto(\+1.1,.7)(\+1.1,.2)(\+1,0)% + \closepath + \fillpath + \moveto(\+.8,-.1)% + \curveto(\+.75,-.28)(\+.55,-.23)(\+.6,-.05)% + \lineto(\+.3,0)% + \curveto(\+.25,-.18)(\-.05,-.08)(0,.1)% + \lineto(\-.8,0)% + \curveto(\-.9,-.3)(\-.8,-.6)(\-1,-.9)% + \curveto(\-.8,-.6)(\-.4,-.7)(\-.6,-1)% + \curveto(\-.2,-.8)(\+.2,-.82)(\+.3,-.8)% + \curveto(\+.85,-.69)(\+.99,-.02)(\+1,0)% + \closepath + \fillpath + \end{@HwM@math@picture}% +} +\newcommand*\@HwM@asymmetric@bold@bat[1]{% + \begin{@HwM@math@picture}{2}{-1}{}#1{6}{-3}% + \moveto(\-.5,.3)% + \curveto(\-1.5,.4)(\-2.2,.6)(\-1.9,1.1)% + \curveto(\-2.6,.6)(\-3,0)(\-3,-.6)% + \curveto(\-2.6,-.1)(\-2,-.4)(\-2,-.9)% + \curveto(\-2,-.6)(\-1.6,-.35)(\-1.4,-.6)% + \curveto(\-1.4,-.3)(\-1.2,-.2)(\-1,-.4)% + \curveto(\-1,-.2)(\-.7,-.2)(\-.6,-.2)% + \closepath + \fillpath + \moveto(\+.9,.1) + \curveto(\+1.8,0)(\+2.3,.3)(\+2.1,.8)% + \curveto(\+2.6,.7)(\+3.3,-.1)(\+3,-.8)% + \curveto(\+2.7,-.3)(\+2,-.6)(\+2,-1.1)% + \curveto(\+2,-.6)(\+1.7,-.5)(\+1.5,-.8)% + \curveto(\+1.6,-.5)(\+1.3,-.3)(\+1.1,-.6)% + \curveto(\+1.1,-.4)(\+1,-.4)(\+.8,-.4)% + \closepath + \fillpath + \moveto(\+.8,-.1)% + \curveto(\+.85,.08)(\+.65,.13)(\+.6,-.05)% + \lineto(\+.3,0)% + \curveto(\+.35,.2)(\+.05,.3)(0,.1)% + \lineto(\-.85,0)% + \curveto(\-.75,.3)(\-.4,.7)(\+.25,1.1)% + \curveto(\+.2,.55)(\+.8,.45)(\+1,1)% + \curveto(\+1.1,.8)(\+1.2,.2)(\+1.05,0)% + \closepath + \fillpath + \moveto(\+.8,-.1)% + \curveto(\+.75,-.28)(\+.55,-.23)(\+.6,-.05)% + \lineto(\+.3,0)% + \curveto(\+.25,-.18)(\-.05,-.08)(0,.1)% + \lineto(\-.85,0)% + \curveto(\-.95,-.3)(\-.8,-.6)(\-1,-1)% + \curveto(\-.75,-.7)(\-.4,-.8)(\-.5,-1.1)% + \curveto(\-.2,-.8)(\+.2,-.82)(\+.3,-.8)% + \curveto(\+.85,-.69)(\+1.04,-.0133333)(\+1.05,0)% + \closepath + \fillpath + \end{@HwM@math@picture}% +} +\newcommand*\@HwM@Asymmetric@Bat[2]{% + \@HwM@if@bold@math{% + \@HwM@asymmetric@bold@bat #2% + }{% + \@HwM@asymmetric@bat #2% + }% +} +\newcommand*\@HwM@oooalign[2]{% + \leavevmode + \vbox{% + \baselineskip\z@skip + \lineskip\z@skip + \lineskiplimit -\maxdimen + \m@th + \ialign{\hfil$#1##$\hfil\crcr #2\crcr}% + }% +} +\newcommand*\@HwM@overprint@rel[2]{% + \mathrel{\mathpalette \@HwM@oooalign {#1\cr#2}}% +} +\newcommand*\@HwM@rightbroomtail{\@HwM@overprint@rel \std@minus >} +\newcommand*\@HwM@leftbroomtail {\@HwM@overprint@rel \std@minus <} +\newcommand*\@HwM@rightpforktail{\mathrel\ni} +\newcommand*\@HwM@leftpforktail {\mathrel\in} \newlength\@HwM@arrowfill@skip \newcommand*\@HwM@auto@font@selector[2]{% \def\@tempa{#1}% \edef\@tempb{% - \ifx\displaystyle #2% - \textfont - \else \ifx\textstyle #2% - \textfont + \ifx\scriptscriptstyle #2% + \scriptscriptfont \else \ifx\scriptstyle #2% \scriptfont - \else \ifx\scriptscriptstyle #2% - \scriptscriptfont - \fi\fi\fi\fi + \else + \textfont + \fi\fi }% \expandafter \@tempa \expandafter #2\@tempb } \newcommand*\@HwM@extended@arrowfill@[2]{% - % #1 is the "leaders" (pseudo-)macro (must gobble 2 arguments) - % #2 is the minimal width in math units \@HwM@auto@font@selector {\@HwM@stylefont@arrowfill{#1}{#2}}% } \newcommand*\@HwM@stylefont@arrowfill[4]{% - % #1 is the "leaders" (pseudo-)macro (must gobble 2 arguments) - % #2 is the minimal width in math units - % #3 is style selector (e.g., "\displaystyle") - % #4 is font selector (e.g., "\textfont") $\m@th \thickmuskip 0mu% \medmuskip \thickmuskip @@ -447,17 +882,10 @@ $% } \newcommand*\@HwM@enriched@arrowfill@[5]{% - % #1, #2, and #3 are the three characters - % #4 and #5 are the two additional macros (both with 2 arguments) - % its call must be followed by the argument for the minimal width \@HwM@extended@arrowfill@ {\HwM@arrowfill@cleaders{#1}{#2}{#3}{#4}{#5}}% } \newcommand*\HwM@arrowfill@cleaders[7]{% - % #1, #2, and #3 are the three characters - % #4 and #5 are the two additional macros (both with 2 arguments) - % #6 is style selector (e.g., "\displaystyle") - % #7 is font selector (e.g., "\textfont") #4#6#7% \relax #1\mkern-7mu% \cleaders\hbox{$#6\mkern-2mu#2\mkern-2mu$}\hskip\@HwM@arrowfill@skip @@ -466,7 +894,14 @@ } \newcommand*\@HwM@rightbroomfill@Wwac@{% \@HwM@set@right@dir - \@HwM@enriched@arrowfill@ \ni\relbar\relbar + \@HwM@enriched@arrowfill@ \@HwM@rightbroomtail\relbar\relbar + \@gobbletwo + \@HwM@right@add@witch@cat + \@ne +} +\newcommand*\@HwM@rightpitchfill@Wwac@{% + \@HwM@set@right@dir + \@HwM@enriched@arrowfill@ \@HwM@rightpforktail\relbar\relbar \@gobbletwo \@HwM@right@add@witch@cat \@ne @@ -481,10 +916,17 @@ \else \hskip \glueexpr \@HwM@arrowfill@skip/\tw@ \relax \fi -}% +} \newcommand*\@HwM@leftbroomfill@Wwac@{% \@HwM@set@left@dir - \@HwM@enriched@arrowfill@ \relbar\relbar\in + \@HwM@enriched@arrowfill@ \relbar\relbar\@HwM@leftbroomtail + \@HwM@left@add@witch@cat + \@gobbletwo + \@ne +} +\newcommand*\@HwM@leftpitchfill@Wwac@{% + \@HwM@set@left@dir + \@HwM@enriched@arrowfill@ \relbar\relbar\@HwM@leftpforktail \@HwM@left@add@witch@cat \@gobbletwo \@ne @@ -500,9 +942,10 @@ \@HwM@Small@Witch@Wo@Broom #2% \hskip -\glueexpr \@HwM@arrowfill@skip/\tw@ \relax } + \newcommand*\@HwM@init@swish@dimens[1]{% \dimen4 \glueexpr \fontdimen 22 #1\tw@ *\tw@/\thr@@ - \dimen6 .25\@HwM@thickness@units@for #1% + \dimen6 .\@HwM@if@bold@math{333333}{25}\@HwM@thickness@units@for #1% \dimen@ \dimen4 \@HwM@calc@swish@thickness } @@ -513,8 +956,11 @@ \newcommand*\@HwM@swish@leaders{% \leaders \hrule \@height\dimen@ \@depth\dimen@ii \hskip } -\newcommand*\@HwM@right@ghost@swish[2]{% - \@HwM@init@swish@dimens #2% +\newcommand*\@HwM@right@swish[3]{% + % #1 := swishing subform. (e.g., "\mkern 1.5mu\relax \mathrightbat") + % #2 := style selector (e.g., "\displaystyle") + % #3 := font selector (e.g., "\textfont") + \@HwM@init@swish@dimens #3% \hskip \glueexpr \@HwM@arrowfill@skip/4\relax \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip/4\relax \hskip \glueexpr \@HwM@arrowfill@skip/8\relax @@ -532,11 +978,14 @@ \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip/\tw@ +\dimen4 /\tw@ \relax \kern -\dimen4 - \mathrightghost -} -\newcommand*\@HwM@left@ghost@swish[2]{% - \mathleftghost - \@HwM@init@swish@dimens #2% + #1% +} +\newcommand*\@HwM@left@swish[3]{% + % #1 := swishing subformula (e.g., "\mathleftbat \mkern 1.5mu\relax") + % #2 := style selector (e.g., "\displaystyle") + % #3 := font selector (e.g., "\textfont") + #1% + \@HwM@init@swish@dimens #3% \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip*\thr@@/8\relax \hskip \glueexpr \@HwM@arrowfill@skip/8\relax \@HwM@swish@leaders \glueexpr \@HwM@arrowfill@skip/4\relax @@ -555,10 +1004,31 @@ \hskip \glueexpr \@HwM@arrowfill@skip/\tw@ +\dimen4 /\tw@ \relax } \newcommand*\@HwM@rightghostfill@{% - \@HwM@extended@arrowfill@ \@HwM@right@ghost@swish {.5}% + \@HwM@extended@arrowfill@ {\@HwM@right@swish \mathrightghost}{.5}% } \newcommand*\@HwM@leftghostfill@{% - \@HwM@extended@arrowfill@ \@HwM@left@ghost@swish {.5}% + \@HwM@extended@arrowfill@ {\@HwM@left@swish \mathleftghost}{.5}% +} +\newcommand*\@HwM@rightbatfill@{% + \@HwM@extended@arrowfill@ + {\@HwM@right@swish{\mkern 1.5mu\relax \mathrightbat}}{.5}% +} +\newcommand*\@HwM@leftbatfill@{% + \@HwM@extended@arrowfill@ + {\@HwM@left@swish{\mathleftbat \mkern 1.5mu\relax}}{.5}% +} + +\newcommand*\@HwM@rightbroomfill@{% + \arrowfill@ \@HwM@rightbroomtail\relbar\relbar +} +\newcommand*\@HwM@leftbroomfill@{% + \arrowfill@ \relbar\relbar\@HwM@leftbroomtail +} +\newcommand*\@HwM@rightpitchfill@{% + \arrowfill@ \@HwM@rightpforktail\relbar\relbar +} +\newcommand*\@HwM@leftpitchfill@{% + \arrowfill@ \relbar\relbar\@HwM@leftpforktail } \newcommand*\@HwM@dblstyle@mathpalette[2]{% @@ -623,12 +1093,14 @@ \@HwM@ifstar@cat{\@HwM@mathwitch rl}% } \newcommand*\@HwM@mathwitch[2]{% - \@HwM@general@large@operator {\@HwM@Large@Witch #1#2}\@HwM@Small@Witch + \@HwM@general@large@operator + {\@HwM@Large@Witch #1#2}% + \@HwM@Small@Witch } \newcommand*\pumpkin{% \DOTSB - \@HwM@general@binary@operation \@HwM@Oplus@Pumpkin + \@HwM@general@binary@operation \@HwM@Binop@Pumpkin } \newcommand*\bigpumpkin{% \DOTSB @@ -636,6 +1108,15 @@ } \@ifdefinable\greatpumpkin{\let\greatpumpkin=\bigpumpkin} +\newcommand*\skull{% + \DOTSB + \@HwM@general@binary@operation \@HwM@Binop@Skull +} +\newcommand*\bigskull{% + \DOTSB + \@HwM@general@large@operator \@HwM@Large@Skull \@HwM@Small@Skull +} + \newcommand*\mathcloud {\@HwM@set@right@dir \@HwM@mathcloud} \newcommand*\reversemathcloud{\@HwM@set@left@dir \@HwM@mathcloud} \newcommand*\@HwM@mathcloud{% @@ -650,6 +1131,16 @@ \newcommand*\@HwM@mathghost{% \@HwM@general@ordinary@symbol \@HwM@Asymmetric@Ghost } + +\newcommand*\mathbat{% + \@HwM@general@ordinary@symbol \@HwM@Symmetric@Bat +} +\newcommand*\mathrightbat{\@HwM@set@right@dir \@HwM@mathbat} +\newcommand*\mathleftbat {\@HwM@set@left@dir \@HwM@mathbat} +\newcommand*\@HwM@mathbat{% + \@HwM@general@ordinary@symbol \@HwM@Asymmetric@Bat +} + \newcommand*\@HwM@dblstyle@overarrow@[4]{% % #1 := stretchable covering arrow % #2 := base style @@ -683,6 +1174,14 @@ \@HwM@general@ou@w@cat {\@HwM@dblstyle@overarrow@ \@HwM@leftbroomfill@Wwac@}% } +\newcommand*\overrightwitchonpitchfork{% + \@HwM@general@ou@w@cat + {\@HwM@dblstyle@overarrow@ \@HwM@rightpitchfill@Wwac@}% +} +\newcommand*\overleftwitchonpitchfork{% + \@HwM@general@ou@w@cat + {\@HwM@dblstyle@overarrow@ \@HwM@leftpitchfill@Wwac@}% +} \newcommand*\overrightswishingghost{% \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@overarrow@ \@HwM@rightghostfill@}% @@ -691,6 +1190,14 @@ \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@overarrow@ \@HwM@leftghostfill@}% } +\newcommand*\overrightflutteringbat{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@rightbatfill@}% +} +\newcommand*\overleftflutteringbat{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@leftbatfill@}% +} \newcommand*\underrightwitchonbroom{% \@HwM@general@ou@w@cat {\@HwM@dblstyle@underarrow@ \@HwM@rightbroomfill@Wwac@}% @@ -699,6 +1206,14 @@ \@HwM@general@ou@w@cat {\@HwM@dblstyle@underarrow@ \@HwM@leftbroomfill@Wwac@}% } +\newcommand*\underrightwitchonpitchfork{% + \@HwM@general@ou@w@cat + {\@HwM@dblstyle@underarrow@ \@HwM@rightpitchfill@Wwac@}% +} +\newcommand*\underleftwitchonpitchfork{% + \@HwM@general@ou@w@cat + {\@HwM@dblstyle@underarrow@ \@HwM@leftpitchfill@Wwac@}% +} \newcommand*\underrightswishingghost{% \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@underarrow@ \@HwM@rightghostfill@}% @@ -707,6 +1222,70 @@ \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@underarrow@ \@HwM@leftghostfill@}% } +\newcommand*\underrightflutteringbat{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@rightbatfill@}% +} +\newcommand*\underleftflutteringbat{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@leftbatfill@}% +} +\newcommand*\overrightbroom{% + \mathpalette{\overarrow@ \@HwM@rightbroomfill@}% +} +\newcommand*\overleftbroom{% + \mathpalette{\overarrow@ \@HwM@leftbroomfill@}% +} +\newcommand*\overrightpitchfork{% + \mathpalette{\overarrow@ \@HwM@rightpitchfill@}% +} +\newcommand*\overleftpitchfork{% + \mathpalette{\overarrow@ \@HwM@leftpitchfill@}% +} +\newcommand*\underrightbroom{% + \mathpalette{\underarrow@ \@HwM@rightbroomfill@}% +} +\newcommand*\underleftbroom{% + \mathpalette{\underarrow@ \@HwM@leftbroomfill@}% +} +\newcommand*\underrightpitchfork{% + \mathpalette{\underarrow@ \@HwM@rightpitchfill@}% +} +\newcommand*\underleftpitchfork{% + \mathpalette{\underarrow@ \@HwM@leftpitchfill@}% +} +\newcommand*\overscriptrightbroom{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@rightbroomfill@}% +} +\newcommand*\overscriptleftbroom{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@leftbroomfill@}% +} +\newcommand*\overscriptrightpitchfork{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@rightpitchfill@}% +} +\newcommand*\overscriptleftpitchfork{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@overarrow@ \@HwM@leftpitchfill@}% +} +\newcommand*\underscriptrightbroom{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@rightbroomfill@}% +} +\newcommand*\underscriptleftbroom{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@leftbroomfill@}% +} +\newcommand*\underscriptrightpitchfork{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@rightpitchfill@}% +} +\newcommand*\underscriptleftpitchfork{% + \@HwM@dblstyle@mathpalette + {\@HwM@dblstyle@underarrow@ \@HwM@leftpitchfill@}% +} \newcommand*\overscriptrightarrow{% \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@overarrow@ \rightarrowfill@}% @@ -731,6 +1310,41 @@ \@HwM@dblstyle@mathpalette {\@HwM@dblstyle@underarrow@ \leftrightarrowfill@}% } + +\newcommand*\@HwM@make@arrowfill@like[3]{% + % #1 := base symbol, which expects as its own arguments + % - #1, a style selector (e.g., "\scriptstyle") + % - #2, a font selector (e.g., "\scriptfont") + % #2 := centering method, either "\hfil" or "\hidewidth" + % #3 := style selector (e.g., "\scriptstyle") + #2% + \@HwM@auto@font@selector{#1}#3% braces around #1 are for robustness + #2% +} +\newcommand*\@HwM@over@under@bat[2]{% + % #1 := "\@HwM@dblstyle@overarrow@" | "\@HwM@dblstyle@underarrow@" + % #2 := "\hfil" | "\hidewidth" + \@HwM@dblstyle@mathpalette{% + #1{% + \@HwM@make@arrowfill@like \@HwM@Symmetric@Bat #2% + }% + }% +} +\newcommand*\overbat{% + \@ifstar{% + \@HwM@over@under@bat \@HwM@dblstyle@overarrow@ \hfil + }{% + \@HwM@over@under@bat \@HwM@dblstyle@overarrow@ \hidewidth + }% +} +\newcommand*\underbat{% + \@ifstar{% + \@HwM@over@under@bat \@HwM@dblstyle@underarrow@ \hfil + }{% + \@HwM@over@under@bat \@HwM@dblstyle@underarrow@ \hidewidth + }% +} + \newcommand*\@HwM@ext@arrow@w@cat[5]{% \def\@HwM@tempa{\ext@arrow {#1}{#2}{#3}{#4}{#5}}% \@HwM@ifstar@cat{\@HwM@ext@arrow@w@cat@x}% @@ -739,10 +1353,16 @@ \@HwM@tempa {#1}{#2}% } \newcommand*\xrightwitchonbroom{% - \@HwM@ext@arrow@w@cat 9395\@HwM@rightbroomfill@Wwac@% + \@HwM@ext@arrow@w@cat 9395\@HwM@rightbroomfill@Wwac@ } \newcommand*\xleftwitchonbroom{% - \@HwM@ext@arrow@w@cat 3959\@HwM@leftbroomfill@Wwac@% + \@HwM@ext@arrow@w@cat 3959\@HwM@leftbroomfill@Wwac@ +} +\newcommand*\xrightwitchonpitchfork{% + \@HwM@ext@arrow@w@cat 9395\@HwM@rightpitchfill@Wwac@ +} +\newcommand*\xleftwitchonpitchfork{% + \@HwM@ext@arrow@w@cat 3959\@HwM@leftpitchfill@Wwac@ } \newcommand*\xrightswishingghost[2][]{% \ext@arrow 3{12}5{15}\@HwM@rightghostfill@{#1}{#2}% @@ -750,6 +1370,62 @@ \newcommand*\xleftswishingghost[2][]{% \ext@arrow {12}3{15}5\@HwM@leftghostfill@{#1}{#2}% } +\newcommand*\xrightflutteringbat[2][]{% + \ext@arrow 0055\@HwM@rightbatfill@{#1}{#2}% +} +\newcommand*\xleftflutteringbat[2][]{% + \ext@arrow 0055\@HwM@leftbatfill@{#1}{#2}% +} +\newcommand*\xrightbroom{% + \@HwM@ext@arrow@w@cat 9395\@HwM@rightbroomfill@ +} +\newcommand*\xleftbroom{% + \@HwM@ext@arrow@w@cat 3959\@HwM@leftbroomfill@ +} +\newcommand*\xrightpitchfork{% + \@HwM@ext@arrow@w@cat 9395\@HwM@rightpitchfill@ +} +\newcommand*\xleftpitchfork{% + \@HwM@ext@arrow@w@cat 3959\@HwM@leftpitchfill@ +} + +\newcommand*\@HwM@tighter@joinrel{% + \mathrel{\mkern-6.5mu}% +} +\newcommand*\rightbroom{% + \DOTSB + \protect\@HwM@rightbroomtail + \protect\@HwM@tighter@joinrel + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\relbar +} +\newcommand*\leftbroom{% + \DOTSB + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\@HwM@leftbroomtail +} +\newcommand*\hmrightpitchfork{% + \DOTSB + \protect\@HwM@rightpforktail + \protect\@HwM@tighter@joinrel + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\relbar +} +\newcommand*\hmleftpitchfork{% + \DOTSB + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\relbar + \protect\@HwM@tighter@joinrel + \protect\@HwM@leftpforktail +} + +\let \do = \noexpand \endinput %% %% End of file `halloweenmath.sty'. |