1 files changed, 87 insertions, 0 deletions
diff --git a/ambiDistance7~.pd b/ambiDistance7~.pd
new file mode 100644
index 0000000..647774b
--- /dev/null
+++ b/ambiDistance7~.pd
@@ -0,0 +1,87 @@
+#N canvas 391 294 985 546 10;
+#X obj 554 66 inlet;
+#X obj 603 56 loadbang;
+#X obj 603 77 t b b;
+#X obj 13 52 inlet~ w;
+#X obj 78 51 inlet~ x;
+#X obj 147 51 inlet~ y;
+#X obj 212 50 inlet~ u;
+#X obj 277 48 inlet~ v;
+#X obj 346 48 inlet~ p;
+#X obj 411 47 inlet~ q;
+#X obj 472 188 f;
+#X obj 89 388 *~;
+#X obj 116 388 *~;
+#X obj 145 388 *~;
+#X obj 174 389 *~;
+#X obj 204 389 *~;
+#X obj 234 388 *~;
+#X obj 21 387 *~;
+#X obj 21 455 outlet~ w;
+#X obj 92 458 outlet~ x;
+#X obj 169 457 outlet~ y;
+#X obj 234 456 outlet~ u;
+#X obj 301 455 outlet~ v;
+#X obj 369 455 outlet~ p;
+#X obj 453 456 outlet~ q;
+#X obj 537 339 line~;
+#X msg 736 123 distance 1;
+#X obj 444 315 line~;
+#X obj 444 291 pack f 15;
+#X obj 537 318 pack f 15;
+#X obj 554 152 route distance duration;
+#X obj 620 278 f;
+#X obj 540 252 expr if ($f1<1 \, (1-$f1)*-100 \, (1-$f1)*6);
+#X obj 449 215 expr (1-$f1)*6;
+#X text 558 217 <-- W amplitude equation;
+#X text 793 247 <-- xyuvpq equation;
+#X obj 447 236 + 100;
+#X obj 540 273 + 100;
+#X obj 537 296 dbtorms;
+#X obj 443 261 dbtorms;
+#X text 61 482 See http://www.york.ac.uk/inst/mustech/3d_audio/ambis2.htm
+;
+#X obj 474 166 clip 0 20;
+#X obj 603 123 tof/arguments comma;
+#X connect 0 0 30 0;
+#X connect 1 0 2 0;
+#X connect 2 0 42 0;
+#X connect 2 1 26 0;
+#X connect 3 0 17 0;
+#X connect 4 0 11 0;
+#X connect 5 0 12 0;
+#X connect 6 0 13 0;
+#X connect 7 0 14 0;
+#X connect 8 0 15 0;
+#X connect 9 0 16 0;
+#X connect 10 0 33 0;
+#X connect 10 0 32 0;
+#X connect 11 0 19 0;
+#X connect 12 0 20 0;
+#X connect 13 0 21 0;
+#X connect 14 0 22 0;
+#X connect 15 0 23 0;
+#X connect 16 0 24 0;
+#X connect 17 0 18 0;
+#X connect 25 0 11 1;
+#X connect 25 0 12 1;
+#X connect 25 0 13 1;
+#X connect 25 0 14 1;
+#X connect 25 0 15 1;
+#X connect 25 0 16 1;
+#X connect 26 0 30 0;
+#X connect 27 0 17 1;
+#X connect 28 0 27 0;
+#X connect 29 0 25 0;
+#X connect 30 0 41 0;
+#X connect 30 1 31 0;
+#X connect 31 0 29 1;
+#X connect 31 0 28 1;
+#X connect 32 0 37 0;
+#X connect 33 0 36 0;
+#X connect 36 0 39 0;
+#X connect 37 0 38 0;
+#X connect 38 0 29 0;
+#X connect 39 0 28 0;
+#X connect 41 0 10 0;
+#X connect 42 0 30 0;