From f9492a599e63891cd3580f20bf25ff7dc1f19c83 Mon Sep 17 00:00:00 2001
From: Ruixi Zhang <39968857+RuixiZhang42@users.noreply.github.com>
Date: Sat, 14 Nov 2020 16:00:30 -0500
Subject: [PATCH] Add \redistributestrutht

---
 mtpro2-patch.tex | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/mtpro2-patch.tex b/mtpro2-patch.tex
index f95c62b..c912d0e 100644
--- a/mtpro2-patch.tex
+++ b/mtpro2-patch.tex
@@ -509,7 +509,7 @@
     {\typeout{Couldn't patch \string\set@fontsize}}%
   \patchcmd\set@fontsize
     {.3\baselineskip}
-    {\dimexpr\baselineskip*#2\relax}
+    {\dimexpr\baselineskip-\baselineskip*#1\relax}
     {\typeout{Redistribute strut depth}}
     {\typeout{Couldn't patch \string\set@fontsize}}%
   \renewcommand*\redistributestruthtdp[2]{%
@@ -517,6 +517,36 @@
       used. So ##1 and ##2 will be gobbled and have no effect.}%
   }%
 }
+\newcommand*\redistributestrutht[1]{%
+  \new@ifnextchar\bgroup
+    {\redistributestrutht@t@s{#1}}%
+    {\redistributestrutht@t@s{#1}{#1}}%
+}
+\newcommand*\redistributestrutht@t@s[2]{%
+  \new@ifnextchar\bgroup
+    {\redistributestrutht@t@s@ss{#1}{#2}}%
+    {\redistributestrutht@t@s@ss{#1}{#2}{#1}}%
+}
+\newcommand*\redistributestrutht@t@s@ss[3]{%
+  \patchcmd\set@fontsize
+    {.7\baselineskip}
+    {\dimexpr\baselineskip
+      *\ifdim\f@size\p@<7\p@ #3\else
+        \ifdim\f@size\p@<9\p@ #2\else #1\fi\fi\relax}
+    {\typeout{Redistribute strut height}}
+    {\typeout{Couldn't patch \string\set@fontsize}}%
+  \patchcmd\set@fontsize
+    {.3\baselineskip}
+    {\dimexpr\baselineskip-\baselineskip
+      *\ifdim\f@size\p@<7\p@ #3\else
+        \ifdim\f@size\p@<9\p@ #2\else #1\fi\fi\relax}
+    {\typeout{Redistribute strut depth}}
+    {\typeout{Couldn't patch \string\set@fontsize}}%
+  \renewcommand*\redistributestrutht@t@s@ss[3]{%
+    \typeout{\string\redistributestrutht\space has already been
+      used. So ##1 and so on will be gobbled and have no effect.}%
+  }%
+}
 % amsmath unfortunately codes \AtBeginDocument{\reset@strutbox@},
 % therefore any fix for \strutbox@ using \fontdimen22 must occur
 % after this. One must load amsmath prior and we make sure of it.