Mercurial > hg > weather-synthesis-prototyping

changeset 9:26525dcfaac8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
INdividual patch for the polar wind and a more random windspeed generator
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Sun, 18 Jan 2015 13:45:14 +0000
parents c8e2503e8da9
children f076d67ad6e0
files polarD1.pd
diffstat 1 files changed, 214 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/polarD1.pd	Sun Jan 18 13:45:14 2015 +0000
@@ -0,0 +1,214 @@
+#N canvas 307 70 630 527 10;
+#X obj 119 -1582 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
+-262144 -1 -1 8100 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 172 -1525 clip~ 0.1 0.99;
+#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 115 -1397 * 10;
+#X obj 94 -1329 *~;
+#X obj 93 -1284 *~;
+#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 328 -1528 dac~;
+#X obj 304 -1587 catch~ l;
+#X obj 368 -1587 catch~ r;
+#X obj 369 -1553 *~ 0.45;
+#X obj 305 -1553 *~ 0.45;
+#X obj 305 -1503 prvu~;
+#X obj 306 -1469 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 369 -1502 prvu~;
+#X obj 370 -1469 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
+#X obj 481 -1570 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 12700 1;
+#X obj 481 -1422 / 64;
+#X obj 94 -1350 bp~ 400 200;
+#X connect 0 0 11 0;
+#X connect 1 0 0 0;
+#X connect 4 0 38 0;
+#X connect 5 0 15 0;
+#X connect 6 0 19 1;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 19 0;
+#X connect 10 0 12 0;
+#X connect 11 0 17 0;
+#X connect 12 0 13 0;
+#X connect 13 0 5 0;
+#X connect 15 0 7 0;
+#X connect 15 0 18 1;
+#X connect 16 0 2 0;
+#X connect 16 1 3 0;
+#X connect 17 0 9 1;
+#X connect 18 0 9 0;
+#X connect 19 0 16 0;
+#X connect 20 0 23 0;
+#X connect 21 0 22 0;
+#X connect 24 0 21 1;
+#X connect 25 0 21 2;
+#X connect 26 0 21 0;
+#X connect 28 0 31 0;
+#X connect 29 0 30 0;
+#X connect 30 0 27 1;
+#X connect 30 0 34 0;
+#X connect 31 0 27 0;
+#X connect 31 0 32 0;
+#X connect 32 0 33 0;
+#X connect 34 0 35 0;
+#X connect 36 0 37 0;
+#X connect 37 0 30 1;
+#X connect 37 0 31 1;
+#X connect 38 0 18 0;