2$ spacialisation

svn path=/trunk/abstractions/nusmuk/; revision=3219

2 files changed, 200 insertions, 0 deletions

diff --git a/spatialisation-help.pd b/spatialisation-help.pd
new file mode 100644
index 0000000..0355d11
--- /dev/null
+++ b/spatialisation-help.pd
@@ -0,0 +1,55 @@
+#N canvas 589 189 682 476 10;
+#X obj 159 428 dac~;
+#X obj 103 104 gcanvas 256 128;
+#X text 226 223 o;
+#X obj 24 315 noise~;
+#X obj 23 344 bp~ 2444 10;
+#X text 90 92 HP;
+#X text 359 92 HP;
+#X obj 24 371 *~ 3;
+#X text 212 326 \$2 : doppler effect;
+#X obj 25 398 spatialisation 1 10 2 1;
+#N canvas 590 401 804 649 carttopol 0;
+#X obj 36 137 cartopol;
+#X obj 36 20 inlet;
+#X obj 87 21 inlet;
+#X obj 36 46 - 128;
+#X obj 36 108 / 64;
+#X obj 87 107 / 64;
+#X msg 36 185 \$1 50;
+#X obj 36 212 line~;
+#X msg 106 186 \$1 50;
+#X obj 106 212 line~;
+#X obj 107 249 outlet~;
+#X obj 37 249 outlet~;
+#X obj 87 47 - 128;
+#X obj 87 68 abs;
+#X connect 0 0 6 0;
+#X connect 0 1 8 0;
+#X connect 1 0 3 0;
+#X connect 2 0 12 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 1;
+#X connect 5 0 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 11 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 12 0 13 0;
+#X connect 13 0 5 0;
+#X restore 103 244 pd carttopol;
+#X text 212 364 \$4 : ampitude pan (0 to 1);
+#X text 212 345 \$3 : pan time shift;
+#X text 212 309 \$1 : distance to amplitude;
+#X text 153 38 with amplidute limitation / doepler effect on movement
+/ delay line from left to right / pan;
+#X text 292 7 Basic spacialisation (2 HP);
+#X connect 1 0 10 0;
+#X connect 1 1 10 1;
+#X connect 3 0 4 0;
+#X connect 4 0 7 0;
+#X connect 7 0 9 0;
+#X connect 9 0 0 0;
+#X connect 9 1 0 1;
+#X connect 10 0 9 1;
+#X connect 10 1 9 2;
diff --git a/spatialisation.pd b/spatialisation.pd
new file mode 100755
index 0000000..607a381
--- /dev/null
+++ b/spatialisation.pd
@@ -0,0 +1,145 @@
+#N canvas 223 520 724 341 10;
+#X obj 30 10 inlet~;
+#X obj 157 9 inlet~;
+#X obj 284 7 inlet~;
+#X text 47 28 audio;
+#N canvas 0 0 722 382 modulo 0;
+#X obj 46 17 inlet~;
+#X obj 281 17 inlet~;
+#X obj 45 245 outlet~;
+#X obj 281 247 outlet~;
+#X obj 45 42 abs~;
+#X connect 0 0 4 0;
+#X connect 1 0 3 0;
+#X connect 4 0 2 0;
+#X restore 156 69 pd modulo _________;
+#X obj 30 278 outlet~;
+#X obj 285 277 outlet~;
+#N canvas 90 498 718 372 pan 0;
+#X obj 30 35 inlet~;
+#X obj 28 266 outlet~;
+#X obj 256 40 inlet~;
+#X obj 257 160 cos~;
+#X obj 299 183 cos~;
+#X obj 97 266 outlet~;
+#X obj 97 36 inlet~;
+#X obj 186 36 inlet~;
+#X obj 98 227 *~;
+#X obj 29 225 *~;
+#X obj 299 159 +~ 0.25;
+#X obj 256 198 abs~;
+#X obj 298 205 abs~;
+#X obj 255 105 +~ 1;
+#X obj 256 129 /~ 12.56;
+#X text 312 43 pan;
+#X obj 256 74 *~ \$4;
+#X connect 0 0 9 0;
+#X connect 2 0 16 0;
+#X connect 3 0 11 0;
+#X connect 4 0 12 0;
+#X connect 6 0 8 0;
+#X connect 8 0 5 0;
+#X connect 9 0 1 0;
+#X connect 10 0 4 0;
+#X connect 11 0 9 1;
+#X connect 12 0 8 1;
+#X connect 13 0 14 0;
+#X connect 14 0 3 0;
+#X connect 14 0 10 0;
+#X connect 16 0 13 0;
+#X restore 30 230 pd pan ______________________________;
+#X text 171 30 r (mettre);
+#X text 309 117 \$1 : attenuation de l'ampitude en fct de la distance
+;
+#X text 307 28 theta (radian);
+#N canvas 866 546 478 334 volume_distance 0;
+#X obj 26 15 inlet~;
+#X obj 193 13 inlet~;
+#X obj 256 13 inlet~;
+#X obj 26 250 outlet~;
+#X obj 194 250 outlet~;
+#X obj 255 249 outlet~;
+#X obj 25 208 /~;
+#X obj 42 165 +~ 1;
+#X obj 43 139 *~ \$1;
+#X connect 0 0 6 0;
+#X connect 1 0 4 0;
+#X connect 1 0 8 0;
+#X connect 2 0 5 0;
+#X connect 6 0 3 0;
+#X connect 7 0 6 1;
+#X connect 8 0 7 0;
+#X restore 29 115 pd volume_distance __________________;
+#N canvas 0 0 853 406 doppler 0;
+#X obj 47 233 vd~ \$0-doepler;
+#X obj 46 41 inlet~;
+#X obj 48 262 outlet~;
+#X obj 46 83 delwrite~ \$0-doepler 1000;
+#X obj 324 45 inlet~;
+#X obj 505 46 inlet~;
+#X obj 324 266 outlet~;
+#X obj 505 262 outlet~;
+#X obj 48 207 *~ 0.34;
+#X text 112 208 convertion mettre -> ms;
+#X obj 49 186 *~ \$2;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 4 0 6 0;
+#X connect 4 0 10 0;
+#X connect 5 0 7 0;
+#X connect 8 0 0 0;
+#X connect 10 0 8 0;
+#X restore 30 152 pd doppler __________________________;
+#N canvas 66 205 779 732 decalage_temporel 0;
+#X obj 29 44 inlet~;
+#X obj 131 357 outlet~;
+#X obj 496 49 inlet~;
+#X obj 32 355 outlet~;
+#X obj 29 85 delwrite~ \$0-delay 100;
+#X obj 131 330 vd~ \$0-delay;
+#X obj 32 330 vd~ \$0-delay;
+#X obj 278 49 inlet~;
+#X obj 278 352 outlet~;
+#X obj 495 353 outlet~;
+#X obj 33 251 cos~;
+#X obj 133 248 cos~;
+#X obj 33 222 -~ 0.25;
+#X obj 30 144 /~ 6.28;
+#X obj 132 222 +~ 0.25;
+#X obj 32 273 *~ \$3;
+#X obj 132 271 *~ \$3;
+#X connect 0 0 4 0;
+#X connect 2 0 9 0;
+#X connect 2 0 13 0;
+#X connect 5 0 1 0;
+#X connect 6 0 3 0;
+#X connect 7 0 8 0;
+#X connect 10 0 15 0;
+#X connect 11 0 16 0;
+#X connect 12 0 10 0;
+#X connect 13 0 12 0;
+#X connect 13 0 14 0;
+#X connect 14 0 11 0;
+#X connect 15 0 6 0;
+#X connect 16 0 5 0;
+#X restore 30 190 pd decalage_temporel ________________;
+#X text 309 152 \$2 : effet de la distance sur l'effet doppler;
+#X text 310 230 \$4 : effet du panoramique;
+#X text 310 190 \$3 : distance entre les 2 ecouteurs;
+#X connect 0 0 11 0;
+#X connect 1 0 4 0;
+#X connect 2 0 4 1;
+#X connect 4 0 11 1;
+#X connect 4 1 11 2;
+#X connect 7 0 5 0;
+#X connect 7 1 6 0;
+#X connect 11 0 12 0;
+#X connect 11 1 12 1;
+#X connect 11 2 12 2;
+#X connect 12 0 13 0;
+#X connect 12 1 13 1;
+#X connect 12 2 13 2;
+#X connect 13 0 7 0;
+#X connect 13 1 7 1;
+#X connect 13 2 7 2;
+#X connect 13 3 7 3;