Mercurial > hg > weather-synthesis-prototyping

annotate polarD1.pd @ 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 03b38137bc08
children
rev   line source
r@15 1 #N canvas 232 23 991 677 10;
r@15 2 #X obj 611 -1305 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 3 -262144 -1 -1 6800 1;
r@15 4 #X obj 608 -1330 inlet;
r@15 5 #X obj 416 -1305 throw~ l;
r@15 6 #X obj 481 -1305 throw~ r;
r@15 7 #X obj 417 -1517 r~ white;
r@15 8 #X obj 495 -1507 cos~;
r@15 9 #X obj 495 -1419 osc~;
r@15 10 #X obj 417 -1376 *~ 2;
r@15 11 #X obj 608 -1279 / 127;
r@15 12 #X obj 495 -1485 lop~ 0.1;
r@15 13 #X obj 416 -1327 fcpan 0.48;
r@15 14 #X obj 27 -1672 noise~;
r@13 15 #N canvas 64 234 764 550 windspeed 0;
r@9 16 #X obj 127 63 +~ 1;
r@9 17 #X obj 126 173 +~;
r@9 18 #X obj 127 86 *~ 0.25;
r@9 19 #X obj 142 151 +~;
r@9 20 #N canvas 190 268 362 239 squall 0;
r@9 21 #X obj 78 41 noise~;
r@9 22 #X obj 77 108 hip~ 0;
r@9 23 #X obj 78 64 lop~ 3;
r@9 24 #X obj 78 85 lop~ 3;
r@9 25 #X obj 17 112 *~;
r@9 26 #X obj 38 160 *~;
r@9 27 #X obj 16 42 max~ 0.4;
r@9 28 #X obj 16 64 -~ 0.4;
r@9 29 #X obj 16 87 *~ 8;
r@9 30 #X obj 78 129 *~ 20;
r@9 31 #X obj 16 14 inlet~;
r@9 32 #X obj 40 184 outlet~;
r@9 33 #X obj 159 37 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@9 34 -1 -1 0 1;
r@9 35 #X obj 156 61 / 127;
r@9 36 #X obj 156 115 + 3;
r@9 37 #X obj 156 88 * 4;
r@9 38 #X obj 156 9 inlet;
r@9 39 #X connect 0 0 2 0;
r@9 40 #X connect 1 0 9 0;
r@9 41 #X connect 2 0 3 0;
r@9 42 #X connect 3 0 1 0;
r@9 43 #X connect 4 0 5 0;
r@9 44 #X connect 5 0 11 0;
r@9 45 #X connect 6 0 7 0;
r@9 46 #X connect 7 0 8 0;
r@9 47 #X connect 8 0 4 0;
r@9 48 #X connect 8 0 4 1;
r@9 49 #X connect 9 0 5 1;
r@9 50 #X connect 10 0 6 0;
r@9 51 #X connect 12 0 13 0;
r@9 52 #X connect 13 0 15 0;
r@9 53 #X connect 14 0 2 1;
r@9 54 #X connect 14 0 3 1;
r@9 55 #X connect 15 0 14 0;
r@9 56 #X connect 16 0 12 0;
r@9 57 #X restore 197 120 pd squall;
r@9 58 #N canvas 230 295 243 313 gust 0;
r@9 59 #X obj 9 15 noise~;
r@9 60 #X obj 8 157 *~;
r@9 61 #X obj 70 9 *~;
r@9 62 #X obj 69 -14 +~ 0.5;
r@9 63 #X obj 70 33 -~ 0.125;
r@9 64 #X obj 9 103 *~ 50;
r@9 65 #X obj 69 -54 inlet~;
r@9 66 #X obj 8 182 outlet~;
r@9 67 #X obj 9 59 lop~ 4;
r@9 68 #X obj 8 82 hip~ 0;
r@9 69 #X obj 9 38 lop~ 4;
r@9 70 #X obj 143 -74 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@9 71 -1 -1 0 1;
r@9 72 #X obj 140 -51 / 127;
r@9 73 #X obj 140 -26 * 4;
r@9 74 #X obj 140 -101 inlet;
r@9 75 #X connect 0 0 10 0;
r@9 76 #X connect 1 0 7 0;
r@9 77 #X connect 2 0 4 0;
r@9 78 #X connect 3 0 2 0;
r@9 79 #X connect 3 0 2 1;
r@9 80 #X connect 4 0 1 1;
r@9 81 #X connect 5 0 1 0;
r@9 82 #X connect 6 0 3 0;
r@9 83 #X connect 8 0 9 0;
r@9 84 #X connect 9 0 5 0;
r@9 85 #X connect 10 0 8 0;
r@9 86 #X connect 11 0 12 0;
r@9 87 #X connect 12 0 13 0;
r@9 88 #X connect 13 0 10 1;
r@9 89 #X connect 13 0 8 1;
r@9 90 #X connect 14 0 11 0;
r@9 91 #X restore 141 120 pd gust;
r@9 92 #X obj 127 259 outlet~;
r@9 93 #X msg 184 10 0.1;
r@9 94 #X obj 127 41 osc~ 0.1;
r@9 95 #X obj 38 103 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@12 96 -1 -1 0 1;
r@9 97 #X obj 127 200 *~ 1;
r@9 98 #X obj 40 256 / 64;
r@9 99 #X obj 127 233 clip~ 0 2;
r@9 100 #X obj 180 65 inlet;
r@9 101 #X obj 248 93 inlet;
r@9 102 #X obj 38 68 inlet;
r@9 103 #X obj 127 -151 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@13 104 1 1;
r@9 105 #X obj 127 -100 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@9 106 -1 -1;
r@9 107 #X floatatom 127 -52 5 0 0 0 - - -;
r@9 108 #X floatatom 127 7 5 0 0 0 - - -;
r@11 109 #X obj 127 -76 drunk 100 20;
r@13 110 #X obj 127 -126 metro 8000;
r@13 111 #X obj 127 -24 / 400;
r@13 112 #X obj 55 -144 loadbang;
r@9 113 #X connect 0 0 2 0;
r@9 114 #X connect 1 0 10 0;
r@9 115 #X connect 2 0 1 0;
r@9 116 #X connect 2 0 5 0;
r@9 117 #X connect 2 0 4 0;
r@9 118 #X connect 3 0 1 1;
r@9 119 #X connect 4 0 3 1;
r@9 120 #X connect 5 0 3 0;
r@9 121 #X connect 7 0 8 1;
r@9 122 #X connect 8 0 0 0;
r@9 123 #X connect 9 0 11 0;
r@9 124 #X connect 10 0 12 0;
r@9 125 #X connect 11 0 10 1;
r@9 126 #X connect 12 0 6 0;
r@9 127 #X connect 13 0 5 1;
r@9 128 #X connect 14 0 4 1;
r@9 129 #X connect 15 0 9 0;
r@11 130 #X connect 16 0 21 0;
r@11 131 #X connect 17 0 20 0;
r@11 132 #X connect 18 0 22 0;
r@11 133 #X connect 19 0 8 0;
r@11 134 #X connect 20 0 18 0;
r@11 135 #X connect 21 0 17 0;
r@11 136 #X connect 22 0 19 0;
r@13 137 #X connect 23 0 21 0;
r@15 138 #X restore -94 -1639 pd windspeed;
r@15 139 #X obj -94 -1617 delwrite~ a 3000;
r@15 140 #X obj 27 -1650 s~ white;
r@15 141 #X obj -60 -1685 inlet;
r@15 142 #X obj -25 -1666 inlet;
r@15 143 #X obj -94 -1663 inlet;
r@15 144 #X obj -64 -1519 dac~;
r@15 145 #X obj -88 -1578 catch~ l;
r@15 146 #X obj -24 -1578 catch~ r;
r@15 147 #X obj -23 -1544 *~ 0.45;
r@15 148 #X obj -87 -1544 *~ 0.45;
r@15 149 #X obj -87 -1494 prvu~;
r@15 150 #X obj -86 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@15 151 #X obj -23 -1493 prvu~;
r@15 152 #X obj -22 -1460 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@15 153 #X obj 89 -1561 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
r@15 154 -1 -1 2200 1;
r@15 155 #X obj 89 -1413 / 64;
r@11 156 #X obj 253 -1504 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 157 -262144 -1 -1 8200 1;
r@15 158 #X obj 251 -1354 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 159 -262144 -1 -1 600 1;
r@15 160 #X obj 249 -1484 / 127;
r@15 161 #X obj 248 -1332 / 127;
r@15 162 #X obj 248 -1460 * 600;
r@15 163 #X obj 247 -1281 + 10;
r@15 164 #X floatatom 248 -1439 5 0 0 0 - - -;
r@15 165 #X floatatom 246 -1258 5 0 0 0 - - -;
r@15 166 #X obj 626 -1536 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@13 167 -262144 -1 -1 12700 1;
r@11 168 #X obj 623 -1513 / 127;
r@11 169 #N canvas 0 22 450 300 (subpatch) 0;
r@11 170 #X array \$0-array 100 float 0;
r@11 171 #X coords 0 1 99 0 100 100 1 0 0;
r@15 172 #X restore 185 -1703 graph;
r@15 173 #X obj 84 -1636 metro 500;
r@15 174 #X text 86 -1595 graph the output;
r@15 175 #X obj 84 -1661 loadbang;
r@15 176 #X obj 68 -1612 tabwrite~ \$0-array;
r@15 177 #X obj 152 -1659 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@12 178 0 1;
r@11 179 #X obj 495 -1556 vd~ a 10;
r@15 180 #X obj 495 -1463 *~ 100;
r@15 181 #X obj 623 -1466 + 1;
r@15 182 #X obj 623 -1489 * 200;
r@15 183 #X obj 417 -1450 lop~ 400;
r@15 184 #X obj 416 -1397 *~;
r@15 185 #X obj 417 -1420 bp~ 300 200;
r@15 186 #X obj 495 -1441 +~ 200;
r@15 187 #X obj 660 -1437 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 188 -262144 -1 -1 3800 1;
r@15 189 #X obj 657 -1415 / 127;
r@15 190 #X obj 657 -1368 + 1;
r@15 191 #X obj 657 -1391 * 900;
r@15 192 #X obj 248 -1307 * 300;
r@15 193 #X obj 622 -1644 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 194 -262144 -1 -1 800 1;
r@15 195 #X obj 619 -1621 / 127;
r@15 196 #X obj 619 -1597 + 0.01;
r@15 197 #X text 681 -1328 Gain;
r@15 198 #X text 620 -1680 lop cut-off / effects variations in the windspeed
r@15 199 ;
r@15 200 #X text 654 -1565 Gain into osc Higher value adds more LF;
r@15 201 #X text 450 -1268 Polar Wind;
r@15 202 #X text 246 -1387 BP Q value;
r@15 203 #X text 254 -1535 BP Centre Freq;
r@15 204 #X obj 416 -1352 *~ 1;
r@15 205 #X obj 609 -1253 * 80;
r@15 206 #X text 667 -1470 Input LP Freq cut-off Higher adds more HF;
r@15 207 #X floatatom 675 -1595 5 0 0 0 - - -;
r@15 208 #X obj 417 -1474 hip~ 40;
r@15 209 #X obj 495 -1534 clip~ 0.5 0.9;
r@15 210 #X obj 451 -1651 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10
r@15 211 -262144 -1 -1 2600 1;
r@15 212 #X obj 448 -1625 / 127;
r@15 213 #X obj 446 -1579 + 1;
r@15 214 #X floatatom 716 -1354 5 0 0 0 - - -;
r@15 215 #X floatatom 445 -1550 5 0 0 0 - - -;
r@15 216 #X obj 448 -1603 * 500;
r@15 217 #X text 465 -1680 HP Freq Cut-off;
r@11 218 #X connect 0 0 8 0;
r@9 219 #X connect 1 0 0 0;
r@15 220 #X connect 4 0 71 0;
r@15 221 #X connect 5 0 9 0;
r@15 222 #X connect 7 0 67 0;
r@15 223 #X connect 8 0 68 0;
r@15 224 #X connect 9 0 46 0;
r@15 225 #X connect 9 0 50 1;
r@15 226 #X connect 10 0 2 0;
r@15 227 #X connect 10 1 3 0;
r@15 228 #X connect 11 0 14 0;
r@15 229 #X connect 12 0 13 0;
r@15 230 #X connect 15 0 12 1;
r@15 231 #X connect 16 0 12 2;
r@15 232 #X connect 17 0 12 0;
r@15 233 #X connect 19 0 22 0;
r@15 234 #X connect 20 0 21 0;
r@15 235 #X connect 21 0 18 1;
r@15 236 #X connect 21 0 25 0;
r@15 237 #X connect 22 0 18 0;
r@15 238 #X connect 22 0 23 0;
r@11 239 #X connect 23 0 24 0;
r@15 240 #X connect 25 0 26 0;
r@15 241 #X connect 27 0 28 0;
r@15 242 #X connect 28 0 21 1;
r@15 243 #X connect 28 0 22 1;
r@15 244 #X connect 29 0 31 0;
r@12 245 #X connect 30 0 32 0;
r@11 246 #X connect 31 0 33 0;
r@15 247 #X connect 32 0 57 0;
r@15 248 #X connect 33 0 35 0;
r@15 249 #X connect 34 0 36 0;
r@15 250 #X connect 34 0 51 2;
r@15 251 #X connect 35 0 51 1;
r@15 252 #X connect 37 0 38 0;
r@15 253 #X connect 38 0 48 0;
r@15 254 #X connect 40 0 43 0;
r@15 255 #X connect 42 0 40 0;
r@15 256 #X connect 42 0 40 0;
r@15 257 #X connect 44 0 40 0;
r@15 258 #X connect 45 0 72 0;
r@15 259 #X connect 46 0 52 0;
r@15 260 #X connect 47 0 46 1;
r@15 261 #X connect 48 0 47 0;
r@15 262 #X connect 49 0 51 0;
r@15 263 #X connect 50 0 7 0;
r@15 264 #X connect 51 0 50 0;
r@15 265 #X connect 52 0 6 0;
r@15 266 #X connect 53 0 54 0;
r@15 267 #X connect 54 0 56 0;
r@15 268 #X connect 55 0 49 1;
r@15 269 #X connect 55 0 76 0;
r@15 270 #X connect 56 0 55 0;
r@15 271 #X connect 57 0 34 0;
r@13 272 #X connect 58 0 59 0;
r@13 273 #X connect 59 0 60 0;
r@15 274 #X connect 60 0 9 1;
r@15 275 #X connect 60 0 70 0;
r@15 276 #X connect 67 0 10 0;
r@15 277 #X connect 68 0 7 1;
r@15 278 #X connect 71 0 49 0;
r@15 279 #X connect 72 0 5 0;
r@15 280 #X connect 72 0 43 0;
r@15 281 #X connect 73 0 74 0;
r@15 282 #X connect 74 0 78 0;
r@15 283 #X connect 75 0 77 0;
r@15 284 #X connect 77 0 71 1;
r@15 285 #X connect 78 0 75 0;