Vertically center the register output port.
authorMatthijs Kooijman <matthijs@stdin.nl>
Mon, 5 Oct 2009 12:15:42 +0000 (14:15 +0200)
committerMatthijs Kooijman <matthijs@stdin.nl>
Mon, 5 Oct 2009 12:15:42 +0000 (14:15 +0200)
Utils/Metapost.tex

index fd21385..63b0620 100644 (file)
@@ -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;