X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=Utils%2FMetapost.tex;h=63b0620bd7b2556fa4bfec26aa8e378e10bee277;hp=590dfc57480418a997724a146bf45b3f9ba72c41;hb=72a9e027667346a15478adc8109c26a4ffd17f5e;hpb=eca7fe3f235fe5c9b87371f75e17e00664b1e320

diff --git a/Utils/Metapost.tex b/Utils/Metapost.tex
index 590dfc5..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;
@@ -101,7 +102,7 @@ vardef newMux@# text options=
   assignObj(@#,"Mux");
   StandardInterface;
   % Add ports
-  ObjPoint inpa, inpb, out;
+  ObjPoint inpa, inpb, out, sel;
  
   ObjCode MinimumStandardEquations,
     % Make it a parallel trapezium
@@ -115,7 +116,8 @@ vardef newMux@# text options=
     % And space the input ports evenly
     "@#inpa = midpoint(@#nw, @#w)",
     "@#inpb = midpoint(@#w, @#sw)",
-    "@#out = @#e"; 
+    "@#out = @#e", 
+    "@#sel = @#n"; 
 
   StandardTies;
 enddef;