view polarD1.pd @ 14:b76ee938cb04

BBCSpectrum image

#N canvas 169 74 991 677 10;
#X obj 442 -1591 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 11100 1;
#X obj 439 -1616 inlet;
#X obj 414 -1198 throw~ l;
#X obj 479 -1198 throw~ r;
#X obj 417 -1437 r~ white;
#X obj 495 -1446 cos~;
#X obj 518 -1358 osc~;
#X obj 417 -1315 *~ 2;
#X obj 439 -1565 / 127;
#X text 448 -1161 high Tone;
#X obj 495 -1424 lop~ 0.1;
#X obj 414 -1220 fcpan 0.48;
#X obj 20 -1588 noise~;
#N canvas 64 234 764 550 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 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 0 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;
#X floatatom 127 -52 5 0 0 0 - - -;
#X floatatom 127 7 5 0 0 0 - - -;
#X obj 127 -76 drunk 100 20;
#X obj 127 -126 metro 8000;
#X obj 127 -24 / 400;
#X obj 55 -144 loadbang;
#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 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 21 0;
#X connect 17 0 20 0;
#X connect 18 0 22 0;
#X connect 19 0 8 0;
#X connect 20 0 18 0;
#X connect 21 0 17 0;
#X connect 22 0 19 0;
#X connect 23 0 21 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 -71 -1435 dac~;
#X obj -95 -1494 catch~ l;
#X obj -31 -1494 catch~ r;
#X obj -30 -1460 *~ 0.45;
#X obj -94 -1460 *~ 0.45;
#X obj -94 -1410 prvu~;
#X obj -93 -1376 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj -30 -1409 prvu~;
#X obj -29 -1376 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
#X obj 82 -1477 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
-1 -1 8900 1;
#X obj 82 -1329 / 64;
#X obj 253 -1504 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 5100 1;
#X obj 251 -1410 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 12700 1;
#X obj 250 -1480 / 127;
#X obj 248 -1388 / 127;
#X obj 254 -1449 * 600;
#X obj 247 -1337 + 10;
#X obj 438 -1461 * 40;
#X floatatom 330 -1465 5 0 0 0 - - -;
#X floatatom 297 -1302 5 0 0 0 - - -;
#X obj 626 -1536 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9700 1;
#X obj 623 -1513 / 127;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-array 100 float 0;
#X coords 0 1 99 0 100 100 1 0 0;
#X restore 178 -1619 graph;
#X obj 77 -1552 metro 500;
#X text 79 -1511 graph the output;
#X obj 77 -1577 loadbang;
#X obj 61 -1528 tabwrite~ \$0-array;
#X obj 145 -1575 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 495 -1556 vd~ a 10;
#X obj 495 -1402 *~ 100;
#X obj 622 -1451 + 1;
#X obj 623 -1480 * 200;
#X obj 495 -1534 clip~ 0.26 0.99;
#X obj 332 -1372 * 3;
#X floatatom 343 -1339 5 0 0 0 - - -;
#X obj 415 -1393 lop~ 400;
#X obj 417 -1257 hip~ 40;
#X obj 558 -1328 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
-262144 -1 -1 9300 1;
#X obj 556 -1305 / 127;
#X obj 554 -1280 * 100;
#X obj 553 -1255 + 5;
#X floatatom 575 -1230 5 0 0 0 - - -;
#X obj 416 -1336 *~;
#X obj 417 -1359 bp~ 300 200;
#X obj 416 -1291 *~;
#X obj 495 -1380 +~ 200;
#X obj 248 -1363 * 100;
#X connect 0 0 8 0;
#X connect 1 0 0 0;
#X connect 4 0 54 0;
#X connect 5 0 10 0;
#X connect 6 0 63 1;
#X connect 7 0 63 0;
#X connect 8 0 36 0;
#X connect 10 0 48 0;
#X connect 10 0 61 1;
#X connect 11 0 2 0;
#X connect 11 1 3 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 13 0 45 0;
#X connect 16 0 13 1;
#X connect 17 0 13 2;
#X connect 18 0 13 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 19 1;
#X connect 22 0 26 0;
#X connect 23 0 19 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 26 0 27 0;
#X connect 28 0 29 0;
#X connect 29 0 22 1;
#X connect 29 0 23 1;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 32 0 34 0;
#X connect 33 0 65 0;
#X connect 34 0 37 0;
#X connect 34 0 52 0;
#X connect 35 0 38 0;
#X connect 36 0 7 1;
#X connect 37 0 62 1;
#X connect 38 0 62 2;
#X connect 39 0 40 0;
#X connect 40 0 50 0;
#X connect 42 0 45 0;
#X connect 44 0 42 0;
#X connect 44 0 42 0;
#X connect 46 0 42 0;
#X connect 47 0 51 0;
#X connect 48 0 64 0;
#X connect 49 0 48 1;
#X connect 50 0 49 0;
#X connect 51 0 5 0;
#X connect 52 0 53 0;
#X connect 53 0 54 1;
#X connect 54 0 62 0;
#X connect 55 0 11 0;
#X connect 56 0 57 0;
#X connect 57 0 58 0;
#X connect 58 0 59 0;
#X connect 59 0 55 1;
#X connect 59 0 60 0;
#X connect 61 0 7 0;
#X connect 62 0 61 0;
#X connect 63 0 55 0;
#X connect 64 0 6 0;
#X connect 65 0 35 0;