changeset 16:d0e8dc9fef47

start of dipole sim

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dipole_D1.pd	Tue Mar 24 11:57:41 2015 +0000
@@ -0,0 +1,112 @@
+#N canvas 112 276 724 361 10;
+#N canvas 685 89 458 326 windspeed 0;
+#X obj 127 63 +~ 1;
+#X obj 126 173 +~;
+#X obj 127 86 *~ 0.25;
+#X obj 142 151 +~;
+#N canvas 190 268 362 239 squall 0;
+#X obj 78 41 noise~;
+#X obj 77 108 hip~ 0;
+#X obj 78 64 lop~ 3;
+#X obj 78 85 lop~ 3;
+#X obj 17 112 *~;
+#X obj 38 160 *~;
+#X obj 16 42 max~ 0.4;
+#X obj 16 64 -~ 0.4;
+#X obj 16 87 *~ 8;
+#X obj 78 129 *~ 20;
+#X obj 16 14 inlet~;
+#X obj 40 184 outlet~;
+#X connect 0 0 2 0;
+#X connect 1 0 9 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 11 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 4 0;
+#X connect 8 0 4 1;
+#X connect 9 0 5 1;
+#X connect 10 0 6 0;
+#X restore 197 120 pd squall;
+#N canvas 230 295 243 313 gust 0;
+#X obj 9 15 noise~;
+#X obj 8 157 *~;
+#X obj 70 9 *~;
+#X obj 69 -14 +~ 0.5;
+#X obj 70 33 -~ 0.125;
+#X obj 9 103 *~ 50;
+#X obj 69 -54 inlet~;
+#X obj 8 182 outlet~;
+#X obj 9 59 lop~ 4;
+#X obj 8 82 hip~ 0;
+#X obj 9 38 lop~ 4;
+#X connect 0 0 10 0;
+#X connect 1 0 7 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 3 0 2 1;
+#X connect 4 0 1 1;
+#X connect 5 0 1 0;
+#X connect 6 0 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 5 0;
+#X connect 10 0 8 0;
+#X restore 141 120 pd gust;
+#X obj 127 259 outlet~;
+#X obj 127 41 osc~ 0.1;
+#X obj 127 200 *~ 1;
+#X obj 127 233 clip~ 0 2;
+#X connect 0 0 2 0;
+#X connect 1 0 8 0;
+#X connect 2 0 1 0;
+#X connect 2 0 5 0;
+#X connect 2 0 4 0;
+#X connect 3 0 1 1;
+#X connect 4 0 3 1;
+#X connect 5 0 3 0;
+#X connect 7 0 0 0;
+#X connect 8 0 9 0;
+#X connect 9 0 6 0;
+#X restore 218 -166 pd windspeed;
+#X obj 218 -143 delwrite~ a 3000;
+#X obj 22 -167 catch~ l;
+#X obj 86 -167 catch~ r;
+#X obj 86 -133 *~ 0.45;
+#X obj 22 -133 *~ 0.45;
+#X obj 22 -83 prvu~;
+#X obj 23 -49 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 86 -82 prvu~;
+#X obj 87 -49 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 152 -167 vsl 45 64 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 3900 1;
+#X obj 152 -88 / 127;
+#X obj 334 -99 osc~;
+#X obj 51 -107 dac~;
+#X obj 334 -141 *~ 200;
+#X obj 334 -120 +~ 200;
+#X obj 334 -162 vd~ a 0;
+#X obj 334 -78 *~ 0.1;
+#X obj 334 -28 throw~ l;
+#X obj 398 -28 throw~ r;
+#X obj 334 -53 fcpan 0.64;
+#X connect 0 0 1 0;
+#X connect 2 0 5 0;
+#X connect 3 0 4 0;
+#X connect 4 0 8 0;
+#X connect 4 0 13 1;
+#X connect 5 0 6 0;
+#X connect 5 0 13 0;
+#X connect 6 0 7 0;
+#X connect 8 0 9 0;
+#X connect 10 0 11 0;
+#X connect 11 0 4 1;
+#X connect 11 0 5 1;
+#X connect 12 0 17 0;
+#X connect 14 0 15 0;
+#X connect 15 0 12 0;
+#X connect 16 0 14 0;
+#X connect 17 0 20 0;
+#X connect 20 0 18 0;
+#X connect 20 1 19 0;