Mercurial > hg > weather-synthesis-prototyping
view polarD1.pd @ 31:c8426f717d81
PDF and other files added
author | Roderick Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Tue, 05 May 2015 02:18:53 +0100 |
parents | 18e9346e6f11 |
children |
line wrap: on
line source
#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 +~; #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 -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 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 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 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 -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 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 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 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 60 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;