forked from patricksebastien/mtl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
ambiDistance7~.pd
87 lines (87 loc) · 2.04 KB
/
ambiDistance7~.pd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
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;