halloweenmath (16apr17)

git-svn-id: svn://tug.org/texlive/trunk@43851 c570f23f-e606-0410-a88d-b1316a301751

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'.