Mercurial > hg > weather-synthesis-prototyping

annotate AeolianHarp/harp_D1.pd @ 115:61d267c71a18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M. angleCalc converted to an object for both control and audio.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 31 Jul 2015 07:15:40 +0100
parents 078bc293e072
children
rev   line source
r@104 1 #N canvas 275 141 964 635 10;
r@104 2 #N canvas 236 158 426 423 windspeed 0;
r@104 3 #X obj 3 -19 +~ 1;
r@104 4 #X obj 3 76 +~;
r@104 5 #X obj 3 3 *~ 0.25;
r@104 6 #X obj 19 53 +~;
r@104 7 #X obj 3 98 clip~ 0 1;
r@104 8 #N canvas 548 156 136 193 squall 0;
r@104 9 #X obj 63 20 noise~;
r@104 10 #X obj 63 83 hip~ 0;
r@104 11 #X obj 63 41 lop~ 3;
r@104 12 #X obj 63 62 lop~ 3;
r@104 13 #X obj 0 86 *~;
r@104 14 #X obj 22 130 *~;
r@104 15 #X obj 0 64 *~ 8;
r@104 16 #X obj 63 104 *~ 20;
r@104 17 #X obj 0 0 inlet~;
r@104 18 #X obj 22 154 outlet~;
r@104 19 #X obj 0 20 max~ 0.42;
r@104 20 #X obj 0 42 -~ 0.42;
r@104 21 #X connect 0 0 2 0;
r@104 22 #X connect 1 0 7 0;
r@104 23 #X connect 2 0 3 0;
r@104 24 #X connect 3 0 1 0;
r@104 25 #X connect 4 0 5 0;
r@104 26 #X connect 5 0 9 0;
r@104 27 #X connect 6 0 4 0;
r@104 28 #X connect 6 0 4 1;
r@104 29 #X connect 7 0 5 1;
r@104 30 #X connect 8 0 10 0;
r@104 31 #X connect 10 0 11 0;
r@104 32 #X connect 11 0 6 0;
r@104 33 #X restore 77 28 pd squall;
r@104 34 #N canvas 398 157 136 192 gust 0;
r@104 35 #X obj 0 0 noise~;
r@104 36 #X obj 0 63 hip~ 0;
r@104 37 #X obj 0 106 *~;
r@104 38 #X obj 67 44 *~;
r@104 39 #X obj 67 21 +~ 0.5;
r@104 40 #X obj 67 67 -~ 0.125;
r@104 41 #X obj 0 42 lop~ 0.5;
r@104 42 #X obj 0 21 lop~ 0.5;
r@104 43 #X obj 0 84 *~ 50;
r@104 44 #X obj 67 0 inlet~;
r@104 45 #X obj 0 131 outlet~;
r@104 46 #X connect 0 0 7 0;
r@104 47 #X connect 1 0 8 0;
r@104 48 #X connect 2 0 10 0;
r@104 49 #X connect 3 0 5 0;
r@104 50 #X connect 4 0 3 0;
r@104 51 #X connect 4 0 3 1;
r@104 52 #X connect 5 0 2 1;
r@104 53 #X connect 6 0 1 0;
r@104 54 #X connect 7 0 6 0;
r@104 55 #X connect 8 0 2 0;
r@104 56 #X connect 9 0 4 0;
r@104 57 #X restore 18 29 pd gust;
r@104 58 #X obj 3 120 outlet~;
r@104 59 #X obj 3 -41 osc~ 0.01;
r@104 60 #X connect 0 0 2 0;
r@104 61 #X connect 1 0 4 0;
r@104 62 #X connect 2 0 5 0;
r@104 63 #X connect 2 0 6 0;
r@104 64 #X connect 2 0 1 0;
r@104 65 #X connect 3 0 1 1;
r@104 66 #X connect 4 0 7 0;
r@104 67 #X connect 5 0 3 1;
r@104 68 #X connect 6 0 3 0;
r@104 69 #X connect 8 0 0 0;
r@104 70 #X restore -366 -123 pd windspeed;
r@104 71 #X obj -366 71 delwrite~ varwind 3000;
r@104 72 #X obj -283 -121 hsl 128 15 0 50 0 0 empty empty empty -2 -8 0 10 -262144
r@104 73 -1 -1 2286 1;
r@104 74 #X obj -323 -18 snapshot~;
r@104 75 #X obj -323 -43 metro 100;
r@104 76 #X obj -323 -65 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@104 77 1 1;
r@104 78 #X floatatom -323 9 10 0 0 0 - - -;
r@104 79 #X obj -366 -89 *~ 1;
r@104 80 #X obj -366 -63 +~ 1;
r@104 81 #X obj -323 -90 loadbang;
r@104 82 #X text -326 27 Wind Speed;
r@104 83 #X obj -244 8 s wSpeed;
r@104 84 #X obj -147 -120 loadbang;
r@104 85 #X obj -59 147 loadbang;
r@104 86 #X floatatom -59 453 8 0 0 0 - - -;
r@104 87 #X obj -59 171 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@104 88 -1 -1;
r@104 89 #X obj -52 0 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@104 90 #X obj 11 0 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@104 91 #X text 8 -91 Gain;
r@104 92 #X obj -53 -117 loadbang;
r@104 93 #N canvas 865 368 284 318 opLevels 0;
r@104 94 #X obj 74 188 dac~;
r@104 95 #X obj 30 70 catch~ l;
r@104 96 #X obj 128 70 catch~ r;
r@104 97 #X obj 129 104 *~ 0.45;
r@104 98 #X obj 30 104 *~ 0.45;
r@104 99 #X obj 30 210 prvu~;
r@104 100 #X obj 129 211 prvu~;
r@104 101 #X obj 93 33 inlet;
r@104 102 #X obj 30 239 outlet;
r@104 103 #X obj 129 239 outlet;
r@104 104 #X obj 74 143 /~ 15;
r@104 105 #X obj 95 165 /~ 15;
r@104 106 #X obj 196 132 inlet;
r@104 107 #X obj 93 68 / 64;
r@104 108 #X connect 1 0 4 0;
r@104 109 #X connect 2 0 3 0;
r@104 110 #X connect 3 0 6 0;
r@104 111 #X connect 3 0 11 0;
r@104 112 #X connect 4 0 5 0;
r@104 113 #X connect 4 0 10 0;
r@104 114 #X connect 5 0 8 0;
r@104 115 #X connect 6 0 9 0;
r@104 116 #X connect 7 0 13 0;
r@104 117 #X connect 10 0 0 0;
r@104 118 #X connect 11 0 0 1;
r@104 119 #X connect 12 0 10 1;
r@104 120 #X connect 12 0 11 1;
r@104 121 #X connect 13 0 3 1;
r@104 122 #X connect 13 0 4 1;
r@104 123 #X restore -53 -43 pd opLevels;
r@104 124 #X obj -50 -72 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@104 125 -1 -1 2798 1;
r@104 126 #X obj 67 -69 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@104 127 -1 -1 390 1;
r@104 128 #X obj 68 -116 loadbang;
r@104 129 #X msg 68 -93 5;
r@104 130 #X text 129 -90 No Of Sources;
r@104 131 #X msg 209 69 0;
r@104 132 #X msg -53 258 0.0093;
r@104 133 #X msg 35 260 0.006129;
r@104 134 #X text -9 241 E4;
r@104 135 #X text 64 241 B4;
r@104 136 #X msg 118 261 0.004585;
r@104 137 #X text 145 245 E5;
r@104 138 #X text 224 248 G#5;
r@104 139 #X text 306 248 B5;
r@104 140 #X text 390 245 E6;
r@104 141 #X msg 198 266 0.003622;
r@104 142 #X msg 359 264 0.002115;
r@104 143 #X msg 280 266 0.003012;
r@104 144 #X obj 123 92 s pan;
r@104 145 #X obj 168 92 s Azi;
r@104 146 #X obj 209 93 s ele;
r@104 147 #X obj 248 93 s dis;
r@104 148 #X obj 289 92 s len;
r@104 149 #X obj 332 94 s dia;
r@104 150 #X obj -19 385 r pan;
r@104 151 #X obj -27 365 r Azi;
r@104 152 #X obj -33 344 r ele;
r@104 153 #X obj -40 324 r dis;
r@104 154 #X obj -46 281 r len;
r@104 155 #X floatatom 29 456 8 0 0 0 - - -;
r@104 156 #X floatatom 112 456 8 0 0 0 - - -;
r@104 157 #X floatatom 192 458 8 0 0 0 - - -;
r@104 158 #X floatatom 274 460 8 0 0 0 - - -;
r@104 159 #X floatatom 353 459 8 0 0 0 - - -;
r@104 160 #X msg 151 408 0.4;
r@104 161 #X msg 231 411 0.5;
r@104 162 #X msg 313 412 0.6;
r@104 163 #X msg 392 411 0.7;
r@104 164 #X msg 68 408 0.3;
r@104 165 #X msg -19 407 0.2;
r@104 166 #X obj 68 386 r pan;
r@104 167 #X obj 61 366 r Azi;
r@104 168 #X obj 55 345 r ele;
r@104 169 #X obj 48 325 r dis;
r@104 170 #X obj 42 282 r len;
r@104 171 #X obj 29 147 loadbang;
r@104 172 #X obj 29 171 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
r@104 173 -1;
r@104 174 #X msg 29 194 12;
r@104 175 #X obj 151 385 r pan;
r@104 176 #X obj 144 365 r Azi;
r@104 177 #X obj 138 344 r ele;
r@104 178 #X obj 131 324 r dis;
r@104 179 #X obj 125 281 r len;
r@104 180 #X obj 112 155 loadbang;
r@104 181 #X obj 112 179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@104 182 -1 -1;
r@104 183 #X obj 231 390 r pan;
r@104 184 #X obj 224 370 r Azi;
r@104 185 #X obj 218 349 r ele;
r@104 186 #X obj 211 329 r dis;
r@104 187 #X obj 205 286 r len;
r@104 188 #X obj 192 158 loadbang;
r@104 189 #X obj 192 182 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@104 190 -1 -1;
r@104 191 #X obj 313 390 r pan;
r@104 192 #X obj 306 370 r Azi;
r@104 193 #X obj 300 349 r ele;
r@104 194 #X obj 293 329 r dis;
r@104 195 #X obj 287 286 r len;
r@104 196 #X obj 274 159 loadbang;
r@104 197 #X obj 274 183 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@104 198 -1 -1;
r@104 199 #X obj 392 389 r pan;
r@104 200 #X obj 385 369 r Azi;
r@104 201 #X obj 379 348 r ele;
r@104 202 #X obj 372 328 r dis;
r@104 203 #X obj 366 285 r len;
r@104 204 #X obj 353 159 loadbang;
r@104 205 #X obj 353 183 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@104 206 -1 -1;
r@104 207 #X obj -53 222 r dia;
r@104 208 #X obj 35 226 r dia;
r@104 209 #X obj 118 229 r dia;
r@104 210 #X obj 198 231 r dia;
r@104 211 #X obj 280 231 r dia;
r@104 212 #X obj 359 229 r dia;
r@104 213 #X obj 222 4 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
r@104 214 -1;
r@104 215 #X msg 249 72 3;
r@104 216 #X msg 168 68 45;
r@104 217 #X obj 222 -56 loadbang;
r@104 218 #X msg -59 194 10;
r@104 219 #X msg 112 202 14;
r@104 220 #X msg 192 205 16;
r@104 221 #X msg 274 206 18;
r@104 222 #X msg 353 206 20;
r@104 223 #X text 253 -110 6 string Aeolian Harp;
r@104 224 #X text 252 -97 Strings tuned to approx E major chord;
r@104 225 #X text 252 -83 IF wind speed = 12 m/s;
r@104 226 #X msg -147 -92 9;
r@104 227 #X text -351 137 Light air = 0.56 m/s - 1.39 m/s;
r@104 228 #X text -351 159 Light Breeze = 1.67 m/s - 3.33 m/s;
r@104 229 #X text -351 179 Gentle Breeze = 3.61 m/s - 5.56 m/s;
r@104 230 #X text -351 199 Moderate Breeze = 5.83 m/s - 8.33 m/s;
r@104 231 #X text -350 220 Fresh Breeze = 8.61 m/s - 11.11 m/s;
r@104 232 #X text -351 241 Strong Breeze = 11.39 m/s - 13.89 m/s;
r@104 233 #X text -350 261 Moderate Gale = 14.17 m/s - 16.94 m/s;
r@104 234 #X text -349 281 Fresh Gale = 17.22 m/s - 20.56 m/s;
r@104 235 #X text -350 301 Strong Gale = 20.83 m/s - 24.72 m/s;
r@104 236 #X text -350 319 Whole Gale = 25 m/s - 28.61 m/s;
r@104 237 #X text -350 339 Storm = 28.89 m/s - 33.06 m/s;
r@104 238 #X text -349 357 Hurricane = 33.33 -;
r@104 239 #X text -313 106 Beaufort Scale Chart;
r@104 240 #X msg 366 307 30;
r@104 241 #X msg 287 309 28;
r@104 242 #X msg 205 308 26;
r@104 243 #X msg 125 303 24;
r@104 244 #X msg 42 304 22;
r@104 245 #X msg -46 303 20;
r@104 246 #X obj 222 -33 t b b;
r@104 247 #X obj 249 -13 delay 9;
r@104 248 #X msg -53 -94 50;
r@104 249 #X obj 274 436 stringE;
r@104 250 #X obj -59 429 stringE;
r@104 251 #X obj 353 435 stringE;
r@104 252 #X obj 29 432 stringE;
r@104 253 #X obj 112 432 stringE;
r@104 254 #X obj 192 434 stringE;
r@104 255 #X connect 0 0 7 0;
r@104 256 #X connect 2 0 7 1;
r@104 257 #X connect 2 0 8 1;
r@104 258 #X connect 3 0 6 0;
r@104 259 #X connect 3 0 11 0;
r@104 260 #X connect 4 0 3 0;
r@104 261 #X connect 5 0 4 0;
r@104 262 #X connect 7 0 8 0;
r@104 263 #X connect 8 0 1 0;
r@104 264 #X connect 8 0 3 0;
r@104 265 #X connect 9 0 5 0;
r@104 266 #X connect 12 0 115 0;
r@104 267 #X connect 13 0 15 0;
r@104 268 #X connect 15 0 107 0;
r@104 269 #X connect 19 0 137 0;
r@104 270 #X connect 20 0 16 0;
r@104 271 #X connect 20 1 17 0;
r@104 272 #X connect 21 0 20 0;
r@104 273 #X connect 22 0 20 1;
r@104 274 #X connect 23 0 24 0;
r@104 275 #X connect 24 0 22 0;
r@104 276 #X connect 26 0 41 0;
r@104 277 #X connect 27 0 139 1;
r@104 278 #X connect 28 0 141 1;
r@104 279 #X connect 31 0 142 1;
r@104 280 #X connect 36 0 143 1;
r@104 281 #X connect 37 0 140 1;
r@104 282 #X connect 38 0 138 1;
r@104 283 #X connect 45 0 60 0;
r@104 284 #X connect 46 0 139 5;
r@104 285 #X connect 47 0 139 4;
r@104 286 #X connect 48 0 139 3;
r@104 287 #X connect 49 0 134 0;
r@104 288 #X connect 55 0 142 6;
r@104 289 #X connect 56 0 143 6;
r@104 290 #X connect 57 0 138 6;
r@104 291 #X connect 58 0 140 6;
r@104 292 #X connect 59 0 141 6;
r@104 293 #X connect 60 0 139 6;
r@104 294 #X connect 61 0 59 0;
r@104 295 #X connect 62 0 141 5;
r@104 296 #X connect 63 0 141 4;
r@104 297 #X connect 64 0 141 3;
r@104 298 #X connect 65 0 133 0;
r@104 299 #X connect 66 0 67 0;
r@104 300 #X connect 67 0 68 0;
r@104 301 #X connect 68 0 141 0;
r@104 302 #X connect 69 0 55 0;
r@104 303 #X connect 70 0 142 5;
r@104 304 #X connect 71 0 142 4;
r@104 305 #X connect 72 0 142 3;
r@104 306 #X connect 73 0 132 0;
r@104 307 #X connect 74 0 75 0;
r@104 308 #X connect 75 0 108 0;
r@104 309 #X connect 76 0 56 0;
r@104 310 #X connect 77 0 143 5;
r@104 311 #X connect 78 0 143 4;
r@104 312 #X connect 79 0 143 3;
r@104 313 #X connect 80 0 131 0;
r@104 314 #X connect 81 0 82 0;
r@104 315 #X connect 82 0 109 0;
r@104 316 #X connect 83 0 57 0;
r@104 317 #X connect 84 0 138 5;
r@104 318 #X connect 85 0 138 4;
r@104 319 #X connect 86 0 138 3;
r@104 320 #X connect 87 0 130 0;
r@104 321 #X connect 88 0 89 0;
r@104 322 #X connect 89 0 110 0;
r@104 323 #X connect 90 0 58 0;
r@104 324 #X connect 91 0 140 5;
r@104 325 #X connect 92 0 140 4;
r@104 326 #X connect 93 0 140 3;
r@104 327 #X connect 94 0 129 0;
r@104 328 #X connect 95 0 96 0;
r@104 329 #X connect 96 0 111 0;
r@104 330 #X connect 97 0 27 0;
r@104 331 #X connect 98 0 28 0;
r@104 332 #X connect 99 0 31 0;
r@104 333 #X connect 100 0 36 0;
r@104 334 #X connect 101 0 38 0;
r@104 335 #X connect 102 0 37 0;
r@104 336 #X connect 103 0 39 0;
r@104 337 #X connect 103 0 105 0;
r@104 338 #X connect 103 0 26 0;
r@104 339 #X connect 103 0 104 0;
r@104 340 #X connect 103 0 44 0;
r@104 341 #X connect 103 0 43 0;
r@104 342 #X connect 104 0 42 0;
r@104 343 #X connect 105 0 40 0;
r@104 344 #X connect 107 0 139 0;
r@104 345 #X connect 108 0 142 0;
r@104 346 #X connect 109 0 143 0;
r@104 347 #X connect 110 0 138 0;
r@104 348 #X connect 111 0 140 0;
r@104 349 #X connect 115 0 2 0;
r@104 350 #X connect 129 0 140 2;
r@104 351 #X connect 130 0 138 2;
r@104 352 #X connect 131 0 143 2;
r@104 353 #X connect 132 0 142 2;
r@104 354 #X connect 133 0 141 2;
r@104 355 #X connect 134 0 139 2;
r@104 356 #X connect 135 0 103 0;
r@104 357 #X connect 135 1 136 0;
r@104 358 #X connect 136 0 103 0;
r@104 359 #X connect 137 0 21 0;
r@104 360 #X connect 138 0 53 0;
r@104 361 #X connect 139 0 14 0;
r@104 362 #X connect 140 0 54 0;
r@104 363 #X connect 141 0 50 0;
r@104 364 #X connect 142 0 51 0;
r@104 365 #X connect 143 0 52 0;