From 18e247310fe31a0ab3696ee0f110cc078df0e132 Mon Sep 17 00:00:00 2001
From: Matthijs Kooijman <matthijs@stdin.nl>
Date: Mon, 5 Oct 2009 14:15:42 +0200
Subject: [PATCH] Vertically center the register output port.

---
 Utils/Metapost.tex | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Utils/Metapost.tex b/Utils/Metapost.tex
index fd21385..63b0620 100644
--- a/Utils/Metapost.tex
+++ b/Utils/Metapost.tex
@@ -50,7 +50,8 @@ vardef newReg@#(expr v) text options=
       "xpart @#out = xpart @#e",
       "xpart @#d = xpart @#ck = xpart @#w",
     fi
-    "ypart @#d = ypart @#out = ypart (@#sw * .25 + @#nw * .75)",
+    "ypart @#out = ypart midpoint(@#n, @#s)",
+    "ypart @#d = ypart (@#sw * .25 + @#nw * .75)",
     "ypart @#ck = ypart (@#sw * .75 + @#nw * .25)";
 
   StandardTies;
-- 
2.30.2