Mercurial > hg > weather-synthesis-prototyping

changeset 15:18e9346e6f11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More parameterisation and adaptions due to spectrum analysis
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 19 Jan 2015 13:59:59 +0000
parents b76ee938cb04
children d0e8dc9fef47
files polarD1.pd
diffstat 1 files changed, 147 insertions(+), 125 deletions(-) [+]
line wrap: on
line diff
--- a/polarD1.pd	Mon Jan 19 11:57:35 2015 +0000
+++ b/polarD1.pd	Mon Jan 19 13:59:59 2015 +0000
@@ -1,18 +1,17 @@
-#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 232 23 991 677 10;
+#X obj 611 -1305 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 6800 1;
+#X obj 608 -1330 inlet;
+#X obj 416 -1305 throw~ l;
+#X obj 481 -1305 throw~ r;
+#X obj 417 -1517 r~ white;
+#X obj 495 -1507 cos~;
+#X obj 495 -1419 osc~;
+#X obj 417 -1376 *~ 2;
+#X obj 608 -1279 / 127;
+#X obj 495 -1485 lop~ 0.1;
+#X obj 416 -1327 fcpan 0.48;
+#X obj 27 -1672 noise~;
 #N canvas 64 234 764 550 windspeed 0;
 #X obj 127 63 +~ 1;
 #X obj 126 173 +~;
@@ -136,128 +135,151 @@
 #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 restore -94 -1639 pd windspeed;
+#X obj -94 -1617 delwrite~ a 3000;
+#X obj 27 -1650 s~ white;
+#X obj -60 -1685 inlet;
+#X obj -25 -1666 inlet;
+#X obj -94 -1663 inlet;
+#X obj -64 -1519 dac~;
+#X obj -88 -1578 catch~ l;
+#X obj -24 -1578 catch~ r;
+#X obj -23 -1544 *~ 0.45;
+#X obj -87 -1544 *~ 0.45;
+#X obj -87 -1494 prvu~;
+#X obj -86 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj -23 -1493 prvu~;
+#X obj -22 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 89 -1561 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 2200 1;
+#X obj 89 -1413 / 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 8200 1;
+#X obj 251 -1354 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 600 1;
+#X obj 249 -1484 / 127;
+#X obj 248 -1332 / 127;
+#X obj 248 -1460 * 600;
+#X obj 247 -1281 + 10;
+#X floatatom 248 -1439 5 0 0 0 - - -;
+#X floatatom 246 -1258 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 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
+#X restore 185 -1703 graph;
+#X obj 84 -1636 metro 500;
+#X text 86 -1595 graph the output;
+#X obj 84 -1661 loadbang;
+#X obj 68 -1612 tabwrite~ \$0-array;
+#X obj 152 -1659 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 obj 495 -1463 *~ 100;
+#X obj 623 -1466 + 1;
+#X obj 623 -1489 * 200;
+#X obj 417 -1450 lop~ 400;
+#X obj 416 -1397 *~;
+#X obj 417 -1420 bp~ 300 200;
+#X obj 495 -1441 +~ 200;
+#X obj 660 -1437 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 3800 1;
+#X obj 657 -1415 / 127;
+#X obj 657 -1368 + 1;
+#X obj 657 -1391 * 900;
+#X obj 248 -1307 * 300;
+#X obj 622 -1644 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 800 1;
+#X obj 619 -1621 / 127;
+#X obj 619 -1597 + 0.01;
+#X text 681 -1328 Gain;
+#X text 620 -1680 lop cut-off / effects variations in the windspeed
+;
+#X text 654 -1565 Gain into osc Higher value adds more LF;
+#X text 450 -1268 Polar Wind;
+#X text 246 -1387 BP Q value;
+#X text 254 -1535 BP Centre Freq;
+#X obj 416 -1352 *~ 1;
+#X obj 609 -1253 * 80;
+#X text 667 -1470 Input LP Freq cut-off Higher adds more HF;
+#X floatatom 675 -1595 5 0 0 0 - - -;
+#X obj 417 -1474 hip~ 40;
+#X obj 495 -1534 clip~ 0.5 0.9;
+#X obj 451 -1651 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 2600 1;
+#X obj 448 -1625 / 127;
+#X obj 446 -1579 + 1;
+#X floatatom 716 -1354 5 0 0 0 - - -;
+#X floatatom 445 -1550 5 0 0 0 - - -;
+#X obj 448 -1603 * 500;
+#X text 465 -1680 HP Freq Cut-off;
 #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 4 0 71 0;
+#X connect 5 0 9 0;
+#X connect 7 0 67 0;
+#X connect 8 0 68 0;
+#X connect 9 0 46 0;
+#X connect 9 0 50 1;
+#X connect 10 0 2 0;
+#X connect 10 1 3 0;
+#X connect 11 0 14 0;
+#X connect 12 0 13 0;
+#X connect 15 0 12 1;
+#X connect 16 0 12 2;
+#X connect 17 0 12 0;
+#X connect 19 0 22 0;
+#X connect 20 0 21 0;
+#X connect 21 0 18 1;
+#X connect 21 0 25 0;
+#X connect 22 0 18 0;
+#X connect 22 0 23 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 25 0 26 0;
+#X connect 27 0 28 0;
+#X connect 28 0 21 1;
+#X connect 28 0 22 1;
+#X connect 29 0 31 0;
 #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 32 0 57 0;
+#X connect 33 0 35 0;
+#X connect 34 0 36 0;
+#X connect 34 0 51 2;
+#X connect 35 0 51 1;
+#X connect 37 0 38 0;
+#X connect 38 0 48 0;
+#X connect 40 0 43 0;
+#X connect 42 0 40 0;
+#X connect 42 0 40 0;
+#X connect 44 0 40 0;
+#X connect 45 0 72 0;
+#X connect 46 0 52 0;
+#X connect 47 0 46 1;
+#X connect 48 0 47 0;
+#X connect 49 0 51 0;
+#X connect 50 0 7 0;
+#X connect 51 0 50 0;
+#X connect 52 0 6 0;
+#X connect 53 0 54 0;
+#X connect 54 0 56 0;
+#X connect 55 0 49 1;
+#X connect 55 0 76 0;
+#X connect 56 0 55 0;
+#X connect 57 0 34 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;
+#X connect 60 0 9 1;
+#X connect 60 0 70 0;
+#X connect 67 0 10 0;
+#X connect 68 0 7 1;
+#X connect 71 0 49 0;
+#X connect 72 0 5 0;
+#X connect 72 0 43 0;
+#X connect 73 0 74 0;
+#X connect 74 0 78 0;
+#X connect 75 0 77 0;
+#X connect 77 0 71 1;
+#X connect 78 0 75 0;