diff windD5.pd @ 2:4e7fb45ab588

8 interactive wind models, inc gust/squail controls
author Roderick Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 08 Dec 2014 22:01:47 +0000
parents 8713f1a56fc1
children fc7ca601b444
line wrap: on
line diff
--- a/windD5.pd	Mon Dec 08 19:51:43 2014 +0000
+++ b/windD5.pd	Mon Dec 08 22:01:47 2014 +0000
@@ -1,6 +1,6 @@
-#N canvas 3 38 1220 672 10;
+#N canvas -36 30 1280 668 10;
 #X obj 115 -159 noise~;
-#N canvas 685 89 458 326 windspeed 1;
+#N canvas 685 89 458 326 windspeed 0;
 #X obj 127 63 +~ 1;
 #X obj 126 173 +~;
 #X obj 127 86 *~ 0.25;
@@ -18,6 +18,12 @@
 #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 7300 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;
@@ -30,8 +36,14 @@
 #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 1;
+#N canvas 230 295 243 313 gust 0;
 #X obj 9 15 noise~;
 #X obj 8 157 *~;
 #X obj 70 9 *~;
@@ -44,7 +56,7 @@
 #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;
+-1 -1 7200 1;
 #X obj 140 -51 / 127;
 #X obj 140 -26 * 4;
 #X obj 140 -101 inlet;
@@ -66,22 +78,25 @@
 #X connect 14 0 11 0;
 #X restore 141 120 pd gust;
 #X obj 127 259 outlet~;
-#X obj 273 54 drunk;
-#X obj 281 91 / 640;
-#X floatatom 286 141 5 0 0 0 - - -;
-#X msg 334 20 127;
-#X msg 366 28 5;
-#X obj 208 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 315 52 drunk;
+#X obj 323 89 / 640;
+#X floatatom 328 139 5 0 0 0 - - -;
+#X msg 376 18 127;
+#X msg 408 26 5;
+#X obj 208 11 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
-#X msg 354 81 64;
-#X obj 257 21 metro 2000;
+#X msg 396 79 64;
+#X obj 299 19 metro 2000;
 #X msg 166 9 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 12700 1;
+-1 -1 3500 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 connect 0 0 2 0;
 #X connect 1 0 18 0;
 #X connect 2 0 1 0;
@@ -103,26 +118,29 @@
 #X connect 18 0 20 0;
 #X connect 19 0 18 1;
 #X connect 20 0 6 0;
-#X restore -9 -160 pd windspeed;
-#X obj -9 -138 delwrite~ a 3000;
+#X connect 21 0 5 1;
+#X connect 22 0 4 1;
+#X connect 23 0 17 0;
+#X restore -6 -126 pd windspeed;
+#X obj -6 -104 delwrite~ a 3000;
 #X obj 115 -137 s~ white;
 #X obj 65 -80 inlet;
 #X obj 68 -54 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 12700 1;
+-1 -1 0 1;
 #X obj 768 -53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
 -1 -1 0 1;
 #X obj 765 -24 / 127;
 #X obj 343 -55 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 3000 1;
 #X obj 340 -30 / 127;
 #X obj 486 -53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 11900 1;
 #X obj 483 -25 / 127;
 #X obj 624 -24 / 127;
-#X obj 627 -53 hsl 128 15 0 100 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+#X obj 627 -53 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 500 1;
 #X obj 204 -54 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 12700 1;
 #X obj 201 -79 inlet;
 #X obj 340 -80 inlet;
 #X obj 483 -78 inlet;
@@ -227,6 +245,47 @@
 #X obj 705 153 * 2;
 #X obj 883 330 * 0.5;
 #X obj 95 237 * 0.2;
+#X obj 28 -172 inlet;
+#X obj 63 -153 inlet;
+#X obj -6 -150 inlet;
+#X obj 1050 -28 / 127;
+#X obj 1053 -57 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 2500 1;
+#X obj 1050 -91 inlet;
+#X obj 1029 352 *~ 2;
+#X obj 1029 400 throw~ l;
+#X obj 1093 400 throw~ r;
+#X obj 1029 375 fcpan 0.64;
+#X obj 1030 195 r~ white;
+#X obj 1050 150 * 2;
+#X obj 1058 222 vd~ a 0;
+#X obj 1030 307 vcf~ 8;
+#X obj 1202 -59 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 12700 1;
+#X obj 1199 -84 inlet;
+#X obj 1166 311 *~;
+#X obj 1166 399 throw~ l;
+#X obj 1231 399 throw~ r;
+#X obj 1166 267 r~ white;
+#X obj 1244 202 cos~;
+#X obj 1244 290 osc~;
+#X obj 1244 246 *~ 200;
+#X obj 1244 268 +~ 30;
+#X obj 1166 333 *~ 2;
+#X obj 1244 92 vd~ a 100;
+#X obj 1166 377 fcpan 0.91;
+#X obj 1199 -33 / 127;
+#X obj 1244 114 clip~ 0.1 0.99;
+#X obj 1244 224 lop~ 0.5;
+#X obj 1166 289 bp~ 400 80;
+#X obj 1166 355 *~;
+#X obj 1243 146 *~ 0.4;
+#X obj 1187 242 * 4;
+#X text 1059 433 Low Rumble;
+#X text 1200 436 high Tone;
+#X obj 1058 264 +~ 100;
+#X obj 1058 244 *~ 25;
+#X msg 1099 306 15;
 #X connect 0 0 3 0;
 #X connect 1 0 2 0;
 #X connect 4 0 5 0;
@@ -342,3 +401,39 @@
 #X connect 116 0 91 1;
 #X connect 117 0 115 1;
 #X connect 118 0 32 1;
+#X connect 119 0 1 1;
+#X connect 120 0 1 2;
+#X connect 121 0 1 0;
+#X connect 122 0 130 0;
+#X connect 123 0 122 0;
+#X connect 124 0 123 0;
+#X connect 125 0 128 0;
+#X connect 128 0 126 0;
+#X connect 128 1 127 0;
+#X connect 129 0 132 0;
+#X connect 130 0 125 1;
+#X connect 131 0 156 0;
+#X connect 132 0 125 0;
+#X connect 133 0 146 0;
+#X connect 134 0 133 0;
+#X connect 135 0 143 0;
+#X connect 138 0 149 0;
+#X connect 139 0 148 0;
+#X connect 140 0 150 1;
+#X connect 141 0 142 0;
+#X connect 142 0 140 0;
+#X connect 143 0 150 0;
+#X connect 144 0 147 0;
+#X connect 145 0 136 0;
+#X connect 145 1 137 0;
+#X connect 146 0 152 0;
+#X connect 147 0 151 0;
+#X connect 148 0 135 1;
+#X connect 148 0 141 0;
+#X connect 149 0 135 0;
+#X connect 150 0 145 0;
+#X connect 151 0 139 0;
+#X connect 152 0 143 1;
+#X connect 155 0 132 1;
+#X connect 156 0 155 0;
+#X connect 157 0 132 2;