view multiD1.pd @ 16:d0e8dc9fef47

start of dipole sim

#N canvas 839 23 450 300 10;
#X obj 299 249 dac~;
#X obj 275 190 catch~ l;
#X obj 339 190 catch~ r;
#X obj 340 224 *~ 0.45;
#X obj 276 224 *~ 0.45;
#N canvas 82 59 1009 649 myRain 0;
#X obj 61 238 phasor~;
#X obj 61 301 *~;
#X obj 61 259 -~ 0.25;
#X obj 61 280 cos~;
#X obj 77 135 *~;
#X obj 61 106 lop~ 500;
#X obj 61 196 *~ 80;
#X obj 77 156 *~ 10;
#X obj 61 87 bp~ 50 0.4;
#X obj 61 372 -~ 0.35;
#X obj 61 351 max~ 0.35;
#X obj 61 435 hip~ 500;
#X obj 61 457 hip~ 500;
#X obj 61 64 gaussianoise 0.4;
#X obj 61 484 throw~ l;
#X obj 60 217 +~ 40;
#X obj 121 483 throw~ r;
#N canvas 0 22 450 300 grapha 0;
#X obj 100 100 cnv 15 100 100 empty empty empty 20 12 0 14 -262144
-66577 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array A 2048 float 0;
#X coords 0 1 2047 -1 100 100 1;
#X restore 100 100 graph;
#X obj 210 209 tabwrite~ A;
#X obj 289 155 inlet~;
#X obj 210 130 loadbang;
#X obj 278 131 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 217 178 s b;
#X obj 210 155 metro 200;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 7 0 2 0;
#X connect 7 0 6 0;
#X coords 0 -1 1 1 100 100 1 100 100;
#X restore 198 78 pd grapha;
#N canvas 0 22 450 300 grapha 0;
#X obj 100 100 cnv 15 100 100 empty empty empty 20 12 0 14 -262144
-66577 0;
#N canvas 0 22 450 300 (subpatch) 0;
#X array B 2048 float 0;
#X coords 0 1 2047 -1 100 100 1;
#X restore 100 100 graph;
#X obj 289 155 inlet~;
#X obj 210 182 tabwrite~ B;
#X obj 210 156 r b;
#X connect 2 0 3 0;
#X connect 4 0 3 0;
#X coords 0 -1 1 1 100 100 1 100 100;
#X restore 171 375 pd grapha;
#X obj 379 588 catch~ rain;
#X obj 379 483 throw~ rain;
#X obj 379 526 throw~ rain;
#X obj 379 568 throw~ rain;
#X obj 379 503 cpraingen 60 12 0.2;
#X obj 379 630 hip~ 900;
#X obj 379 545 cpraingen 70 12 0.4;
#X obj 379 666 throw~ l;
#X obj 443 666 throw~ r;
#X obj 474 171 cos~;
#X obj 474 105 -~ 0.25;
#X obj 474 83 clip~ 0.25 0.5;
#X obj 474 149 -~ 0.25;
#X obj 474 127 *~ 2;
#X obj 474 259 osc~;
#X obj 474 215 *~ 100;
#X obj 474 237 +~ 20;
#X obj 474 193 lop~ 0.1;
#X obj 474 288 fiddle~ 1024 1 20 3;
#X floatatom 343 444 5 0 0 0 - - -;
#X obj 429 386 - 86;
#X obj 430 418 * -2.5;
#X obj 285 516 + 70;
#X obj 541 439 / 100;
#X floatatom 540 498 5 0 0 0 - - -;
#X obj 379 461 cpraingen 50 12 0.15;
#X obj 303 550 + 80;
#X obj 332 585 + 90;
#X obj 539 526 + 0.05;
#X obj 538 560 + 0.25;
#X obj 540 469 + 0.3;
#X floatatom 200 191 5 0 0 0 - - -;
#X obj 161 254 * -1;
#X obj 193 222 / 60;
#X obj 616 176 hip~ 9000;
#X obj 616 129 noise~;
#X obj 667 76 delread~ a;
#X obj 668 102 *~ 24;
#X obj 668 125 +~ 6;
#X obj 615 198 *~ 20;
#X obj 610 298 throw~ l;
#X obj 674 298 throw~ r;
#X obj 615 223 glasswindow 2007 1994 1986 1969 254 669 443 551 3.7
4.2 0.61 2.3;
#X obj 616 152 dropsig 7.7 0.002 0.1 1;
#X obj 379 609 *~ 0.5;
#X obj 756 575 + 0.004;
#X obj 755 552 / 20;
#X obj 757 521 hsl 128 15 0 1 0 0 empty empty rain-rain-go-away 12
7 1 8 -262144 -1 -1 0 1;
#X obj 715 648 hip~ 2000;
#X obj 703 677 throw~ l;
#X obj 767 677 throw~ r;
#X obj 715 598 drops 7.7 0.013 0.16 3;
#X floatatom 845 559 5 0 0 0 - - -;
#X obj 474 61 vd~ a 500;
#X obj 117 280 + 1.89;
#X obj 302 231 / 127;
#X msg 227 252 1;
#X floatatom 305 331 5 0 0 0 - - -;
#X obj 303 262 * -0.4;
#X obj 326 7 inlet;
#X obj 753 338 *;
#X obj 754 369 *;
#X obj 557 317 send f;
#X obj 429 355 receive f;
#X obj 239 183 receive f;
#X obj 754 280 receive f;
#X floatatom 754 394 5 0 0 0 - - -;
#X floatatom 511 317 5 0 0 0 - - -;
#X obj 715 620 *~ 2;
#X obj 326 34 send rf;
#X obj 829 317 receive rf;
#X obj 753 309 / 100;
#X obj 754 445 + 1.4;
#X obj 754 490 +;
#X obj 753 418 * -1;
#X floatatom 697 479 5 0 0 0 - - -;
#X obj 831 345 / 127;
#X floatatom 860 379 5 0 0 0 - - -;
#X floatatom 882 469 5 0 0 0 - - -;
#X floatatom 876 410 5 0 0 0 - - -;
#X obj 830 376 log;
#X obj 834 447 * -1;
#X obj 813 477 / 5;
#X obj 780 93 / 127;
#X obj 778 117 log;
#X obj 805 152 * -0.1;
#X obj 773 65 receive rf;
#X obj 335 189 receive rf;
#X obj 61 413 *~ 1;
#X obj 304 295 + 0.4;
#X obj 543 376 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 875 605 * 2;
#X obj 864 580 + 0.05;
#X obj 614 261 *~ 0.1;
#X connect 0 0 2 0;
#X connect 1 0 10 0;
#X connect 1 0 17 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 5 0 4 0;
#X connect 5 0 4 1;
#X connect 6 0 15 0;
#X connect 7 0 1 1;
#X connect 8 0 5 0;
#X connect 9 0 18 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 0 16 0;
#X connect 13 0 8 0;
#X connect 15 0 0 0;
#X connect 23 0 21 0;
#X connect 24 0 26 0;
#X connect 24 0 27 0;
#X connect 25 0 22 0;
#X connect 28 0 36 0;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 28 0;
#X connect 32 0 31 0;
#X connect 33 0 37 0;
#X connect 34 0 35 0;
#X connect 35 0 33 0;
#X connect 36 0 34 0;
#X connect 37 3 81 0;
#X connect 37 3 86 0;
#X connect 38 0 41 0;
#X connect 38 0 45 0;
#X connect 38 0 46 0;
#X connect 39 0 40 0;
#X connect 40 0 38 0;
#X connect 40 0 42 0;
#X connect 41 0 44 0;
#X connect 42 0 49 0;
#X connect 43 0 47 0;
#X connect 44 0 20 0;
#X connect 45 0 23 0;
#X connect 46 0 25 0;
#X connect 47 0 48 0;
#X connect 49 0 43 0;
#X connect 50 0 52 0;
#X connect 51 0 73 0;
#X connect 52 0 51 0;
#X connect 53 0 58 0;
#X connect 54 0 62 0;
#X connect 55 0 56 0;
#X connect 56 0 57 0;
#X connect 57 0 62 1;
#X connect 58 0 61 0;
#X connect 62 0 53 0;
#X connect 63 0 24 0;
#X connect 64 0 70 1;
#X connect 65 0 64 0;
#X connect 66 0 71 0;
#X connect 66 0 65 0;
#X connect 67 0 68 0;
#X connect 67 0 69 0;
#X connect 70 0 87 0;
#X connect 71 0 111 0;
#X connect 72 0 30 0;
#X connect 74 0 77 0;
#X connect 77 0 108 0;
#X connect 78 0 88 0;
#X connect 79 0 80 0;
#X connect 79 0 80 1;
#X connect 80 0 85 0;
#X connect 82 0 39 0;
#X connect 83 0 50 0;
#X connect 84 0 90 0;
#X connect 85 0 93 0;
#X connect 89 0 95 0;
#X connect 90 0 79 0;
#X connect 90 0 79 1;
#X connect 91 0 92 0;
#X connect 91 0 94 0;
#X connect 92 0 66 0;
#X connect 95 0 96 0;
#X connect 95 0 99 0;
#X connect 99 0 98 0;
#X connect 99 0 100 0;
#X connect 100 0 97 0;
#X connect 100 0 101 0;
#X connect 101 0 66 0;
#X connect 102 0 103 0;
#X connect 103 0 104 0;
#X connect 104 0 62 2;
#X connect 105 0 102 0;
#X connect 106 0 74 0;
#X connect 107 0 11 0;
#X connect 108 0 76 0;
#X connect 108 0 10 1;
#X connect 109 0 39 0;
#X connect 110 0 87 1;
#X connect 111 0 110 0;
#X connect 112 0 59 0;
#X connect 112 0 60 0;
#X restore 210 110 pd myRain;
#X obj 208 69 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -65600
-257985 -1 0 1;
#X obj 167 196 windD3;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 0 0;
#X connect 6 0 5 0;
#X coords 0 -1 1 1 85 60 2 100 100;