view polarD1.pd @ 10:f076d67ad6e0

Work on Polar Sound

#N canvas 286 76 991 677 10;
#X obj 119 -1582 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj 116 -1607 inlet;
#X obj 94 -1240 throw~ l;
#X obj 159 -1240 throw~ r;
#X obj 94 -1372 r~ white;
#X obj 172 -1437 cos~;
#X obj 172 -1349 osc~;
#X obj 172 -1393 *~ 200;
#X obj 172 -1371 +~ 30;
#X obj 94 -1306 *~ 2;
#X obj 172 -1547 vd~ a 100;
#X obj 116 -1556 / 127;
#X obj 171 -1493 *~ 0.4;
#X text 128 -1203 high Tone;
#X obj 172 -1415 lop~ 0.1;
#X obj 94 -1262 fcpan 0.48;
#X obj 94 -1329 *~;
#X obj 20 -1588 noise~;
#N canvas 312 129 764 550 windspeed 1;
#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 obj 159 37 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 156 61 / 127;
#X obj 156 115 + 3;
#X obj 156 88 * 4;
#X obj 156 9 inlet;
#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 connect 12 0 13 0;
#X connect 13 0 15 0;
#X connect 14 0 2 1;
#X connect 14 0 3 1;
#X connect 15 0 14 0;
#X connect 16 0 12 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 obj 143 -74 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 140 -51 / 127;
#X obj 140 -26 * 4;
#X obj 140 -101 inlet;
#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 connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 10 1;
#X connect 13 0 8 1;
#X connect 14 0 11 0;
#X restore 141 120 pd gust;
#X obj 127 259 outlet~;
#X msg 184 10 0.1;
#X obj 127 41 osc~ 0.1;
#X obj 38 103 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 6600 1;
#X obj 127 200 *~ 1;
#X obj 40 256 / 64;
#X obj 127 233 clip~ 0 2;
#X obj 180 65 inlet;
#X obj 248 93 inlet;
#X obj 38 68 inlet;
#X obj 127 -151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 127 -100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-array 100 float 0;
#X coords 0 1 100 -1 200 100 1 0 0;
#X restore 472 -35 graph;
#X obj 350 43 metro 500;
#X text 352 84 graph the output;
#X obj 350 18 loadbang;
#X obj 334 67 tabwrite~ \$0-array;
#X obj 320 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 127 -52 5 0 0 0 - - -;
#X floatatom 127 7 5 0 0 0 - - -;
#X obj 127 -24 / 500;
#X obj 127 -76 drunk 100 20;
#X obj 127 -126 metro 1000;
#X connect 0 0 2 0;
#X connect 1 0 10 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 8 1;
#X connect 8 0 0 0;
#X connect 8 0 22 0;
#X connect 9 0 11 0;
#X connect 10 0 12 0;
#X connect 11 0 10 1;
#X connect 12 0 6 0;
#X connect 13 0 5 1;
#X connect 14 0 4 1;
#X connect 15 0 9 0;
#X connect 16 0 28 0;
#X connect 17 0 27 0;
#X connect 19 0 22 0;
#X connect 21 0 19 0;
#X connect 21 0 19 0;
#X connect 23 0 19 0;
#X connect 24 0 26 0;
#X connect 25 0 8 0;
#X connect 26 0 25 0;
#X connect 27 0 24 0;
#X connect 28 0 17 0;
#X restore -101 -1555 pd windspeed;
#X obj -101 -1533 delwrite~ a 3000;
#X obj 20 -1566 s~ white;
#X obj -67 -1601 inlet;
#X obj -32 -1582 inlet;
#X obj -101 -1579 inlet;
#X obj 516 -1590 dac~;
#X obj 492 -1649 catch~ l;
#X obj 556 -1649 catch~ r;
#X obj 557 -1615 *~ 0.45;
#X obj 493 -1615 *~ 0.45;
#X obj 493 -1565 prvu~;
#X obj 494 -1531 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 557 -1564 prvu~;
#X obj 558 -1531 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 669 -1632 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 11100 1;
#X obj 669 -1484 / 64;
#X obj 94 -1350 bp~ 300 200;
#X obj -65 -1457 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 6400 1;
#X obj -67 -1363 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj -68 -1433 / 127;
#X obj -70 -1341 / 127;
#X obj -64 -1402 * 600;
#X obj -70 -1316 * 300;
#X obj -71 -1290 + 10;
#X obj 115 -1396 * 40;
#X floatatom 12 -1418 5 0 0 0 - - -;
#X floatatom -21 -1255 5 0 0 0 - - -;
#X obj 172 -1525 clip~ 0.5 0.8;
#X obj 302 -1528 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 2600 1;
#X obj 300 -1504 / 127;
#X obj 305 -1338 osc~;
#X obj 93 -1284 *~ 1;
#X obj 383 -1248 *~ 2;
#X obj 383 -1200 throw~ l;
#X obj 447 -1200 throw~ r;
#X obj 383 -1225 fcpan 0.64;
#X obj 384 -1405 r~ white;
#X obj 419 -1382 vd~ a 90;
#X obj 418 -1356 *~ 30;
#X obj 418 -1336 +~ 200;
#X obj 384 -1293 vcf~ 200 6;
#X obj 560 -1272 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 10900 1;
#X obj 557 -1246 / 127;
#X obj 561 -1381 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj 558 -1355 / 127;
#X obj 558 -1305 + 3;
#X floatatom 615 -1308 5 0 0 0 - - -;
#X obj 558 -1330 * 1000;
#X obj 557 -1218 * 100;
#X obj 350 -1366 lop~ 600 1;
#X connect 0 0 11 0;
#X connect 1 0 0 0;
#X connect 4 0 35 0;
#X connect 5 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 6 0;
#X connect 9 0 50 0;
#X connect 10 0 46 0;
#X connect 11 0 43 0;
#X connect 12 0 5 0;
#X connect 14 0 7 0;
#X connect 14 0 16 1;
#X connect 15 0 2 0;
#X connect 15 1 3 0;
#X connect 16 0 9 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 18 1;
#X connect 22 0 18 2;
#X connect 23 0 18 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 24 1;
#X connect 27 0 31 0;
#X connect 28 0 24 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 31 0 32 0;
#X connect 33 0 34 0;
#X connect 34 0 27 1;
#X connect 34 0 28 1;
#X connect 35 0 16 0;
#X connect 36 0 38 0;
#X connect 37 0 39 0;
#X connect 38 0 40 0;
#X connect 39 0 41 0;
#X connect 40 0 35 1;
#X connect 40 0 44 0;
#X connect 40 0 49 0;
#X connect 41 0 42 0;
#X connect 42 0 35 2;
#X connect 42 0 45 0;
#X connect 43 0 9 1;
#X connect 46 0 12 0;
#X connect 47 0 48 0;
#X connect 48 0 12 1;
#X connect 51 0 54 0;
#X connect 54 0 52 0;
#X connect 54 1 53 0;
#X connect 55 0 68 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 1;
#X connect 59 0 51 0;
#X connect 60 0 61 0;
#X connect 61 0 67 0;
#X connect 62 0 63 0;
#X connect 63 0 66 0;
#X connect 64 0 59 2;
#X connect 64 0 65 0;
#X connect 66 0 64 0;
#X connect 67 0 51 1;
#X connect 68 0 59 0;