Minor fix to keyb, added hash function to banal.h, added aux input ports with settabl...

[dttsp.git] / jDttSP / update.c

diff --git a/jDttSP/update.c b/jDttSP/update.c
index aeed07b089b9575ddc567875e59a7a30a2a68aa6..5962cb1fe77bf81f0bdafa47aada76dca0bc88bc 100644 (file)
--- a/jDttSP/update.c
+++ b/jDttSP/update.c
@@ -743,6 +743,25 @@ setRXPan(int n, char **p) {
   }
 }
 
+PRIVATE int
+setAuxMix(int n, char **p) {
+  if (n < 1) {
+    uni.mix.rx = uni.mix.tx = 1.0;
+    return 0;
+  } else {
+    REAL gain = dB2lin(atof(p[0]));
+    if (n > 1) {
+      switch (atoi(p[1])) {
+      case TX: uni.mix.tx = gain; break;
+      case RX:
+      default: uni.mix.rx = gain; break;
+      }
+    } else
+      uni.mix.rx = uni.mix.tx = gain;
+    return 0;
+  }
+}
+
 //========================================================================
 
 #include <thunk.h>
@@ -800,6 +819,7 @@ CTE update_cmds[] = {
   {"setRXOn", setRXOn},
   {"setRXOff", setRXOff},
   {"setRXPan", setRXPan},
+  {"setAuxMix", setAuxMix},
   { 0, 0 }
 };