Mercurial > hg > weather-synthesis-prototyping

annotate EdgeTonePatches/EdgeToneD1.pd @ 291:9b4152202ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
EdgeTone Started
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 29 May 2017 20:12:36 +0100
parents
children f145954b62f1
rev   line source
r@291 1 #N canvas 415 171 940 594 10;
r@291 2 #N canvas 322 154 491 423 Dipoles 0;
r@291 3 #X obj 210 217 *~;
r@291 4 #X obj 210 308 throw~ l;
r@291 5 #X obj 237 285 throw~ r;
r@291 6 #X obj 210 264 fcpan;
r@291 7 #X text 101 35 Generates the sound associated with the lift dipole.
r@291 8 ;
r@291 9 #X obj 210 108 vcf~ 10;
r@291 10 #X obj 210 131 vcf~ 10;
r@291 11 #X obj 284 95 r \$0-Qval;
r@291 12 #X floatatom 255 263 5 0 0 0 - - -;
r@291 13 #X obj 362 158 r myMet;
r@291 14 #X obj 362 178 snapshot~;
r@291 15 #X floatatom 362 199 0 0 0 0 - - -;
r@291 16 #X obj 210 67 inlet~;
r@291 17 #X obj 225 196 inlet~;
r@291 18 #X obj 131 67 inlet~;
r@291 19 #X obj 237 242 r centrePan;
r@291 20 #X connect 0 0 3 0;
r@291 21 #X connect 3 0 1 0;
r@291 22 #X connect 3 1 2 0;
r@291 23 #X connect 5 0 6 0;
r@291 24 #X connect 6 0 0 0;
r@291 25 #X connect 7 0 5 2;
r@291 26 #X connect 7 0 6 2;
r@291 27 #X connect 9 0 10 0;
r@291 28 #X connect 10 0 11 0;
r@291 29 #X connect 12 0 5 0;
r@291 30 #X connect 13 0 0 1;
r@291 31 #X connect 14 0 5 1;
r@291 32 #X connect 14 0 6 1;
r@291 33 #X connect 15 0 3 1;
r@291 34 #X connect 15 0 8 0;
r@291 35 #X restore 230 343 pd Dipoles;
r@291 36 #X obj 258 315 noise~;
r@291 37 #X obj 437 62 s centrePan;
r@291 38 #X msg 437 41 0.5;
r@291 39 #X obj 437 19 loadbang;
r@291 40 #X obj 88 46 hsl 80 25 0.0001 1 1 0 empty empty Distance 2 12 0 10
r@291 41 -4034 -1 -1 3164 1;
r@291 42 #X obj 180 45 hsl 80 25 0.0001 1 1 0 empty empty Height 2 12 0 10 -257985
r@291 43 -1 -1 1537 1;
r@291 44 #X obj 270 44 hsl 80 25 0.0001 10000 1 0 empty empty Breadth 2 12 0
r@291 45 10 -260097 -1 -1 5200 1;
r@291 46 #X floatatom 105 78 0 0 0 0 - - -;
r@291 47 #X floatatom 190 75 0 0 0 0 - - -;
r@291 48 #X floatatom 280 74 0 0 0 0 - - -;
r@291 49 #X msg 85 98 \$1 30;
r@291 50 #X obj 85 120 line~;
r@291 51 #X msg 177 97 \$1 30;
r@291 52 #X obj 177 119 line~;
r@291 53 #X msg 267 95 \$1 30;
r@291 54 #X obj 267 117 line~;
r@291 55 #X obj 85 143 s~ L;
r@291 56 #X obj 177 141 s~ d;
r@291 57 #X obj 267 139 s~ b;
r@291 58 #X obj 547 32 vsl 25 80 1 4 0 0 empty empty Mode 0 -9 0 10 -258113
r@291 59 -1 -1 4800 1;
r@291 60 #X obj 547 121 + 0.5;
r@291 61 #X obj 547 141 i;
r@291 62 #X floatatom 581 160 0 0 0 0 - - -;
r@291 63 #N canvas 665 374 472 358 alphaCalc 1;
r@291 64 #X obj 174 82 r~ b;
r@291 65 #X obj 189 104 r~ L;
r@291 66 #X obj 174 126 /~;
r@291 67 #X obj 174 168 log~;
r@291 68 #X obj 195 146 sig~ 10;
r@291 69 #X obj 174 190 *~ -0.1812;
r@291 70 #X obj 174 212 +~ 2.1952;
r@291 71 #X obj 174 236 s~ alpha;
r@291 72 #X text 78 47 Plotfit from MatLab used to get equation of line;
r@291 73 #X text 77 29 From Howe 1997 Table 1;
r@291 74 #X obj 314 154 r myMet;
r@291 75 #X obj 314 174 snapshot~;
r@291 76 #X floatatom 314 195 0 0 0 0 - - -;
r@291 77 #X connect 0 0 2 0;
r@291 78 #X connect 0 0 11 0;
r@291 79 #X connect 1 0 2 1;
r@291 80 #X connect 2 0 3 0;
r@291 81 #X connect 3 0 5 0;
r@291 82 #X connect 4 0 3 1;
r@291 83 #X connect 5 0 6 0;
r@291 84 #X connect 6 0 7 0;
r@291 85 #X connect 10 0 11 0;
r@291 86 #X connect 11 0 12 0;
r@291 87 #X restore 175 214 pd alphaCalc;
r@291 88 #N canvas 230 325 623 469 thetaCalc 0;
r@291 89 #X obj 130 65 r~ alpha;
r@291 90 #X obj 130 90 /~ 0.92;
r@291 91 #X obj 130 174 pow~;
r@291 92 #X obj 151 110 sig~ 2;
r@291 93 #X obj 166 129 sig~ 3;
r@291 94 #X obj 151 152 /~;
r@291 95 #X obj 145 237 /~;
r@291 96 #X obj 145 195 sig~ 9;
r@291 97 #X obj 160 214 sig~ 8;
r@291 98 #X obj 130 260 -~;
r@291 99 #X obj 130 286 s~ theta;
r@291 100 #X text 118 31 From Howe 1997 \, page 16;
r@291 101 #X obj 393 244 r myMet;
r@291 102 #X obj 393 264 snapshot~;
r@291 103 #X floatatom 393 285 0 0 0 0 - - -;
r@291 104 #X connect 0 0 1 0;
r@291 105 #X connect 1 0 2 0;
r@291 106 #X connect 2 0 9 0;
r@291 107 #X connect 3 0 5 0;
r@291 108 #X connect 4 0 5 1;
r@291 109 #X connect 5 0 2 1;
r@291 110 #X connect 6 0 9 1;
r@291 111 #X connect 7 0 6 0;
r@291 112 #X connect 8 0 6 1;
r@291 113 #X connect 9 0 10 0;
r@291 114 #X connect 9 0 13 0;
r@291 115 #X connect 12 0 13 0;
r@291 116 #X connect 13 0 14 0;
r@291 117 #X restore 302 237 pd thetaCalc;
r@291 118 #X obj 547 165 s n;
r@291 119 #X obj 481 304 r~ freq;
r@291 120 #X obj 419 300 r~ St;
r@291 121 #X obj 422 334 r myMet;
r@291 122 #X obj 422 354 snapshot~;
r@291 123 #X floatatom 422 375 0 0 0 0 - - -;
r@291 124 #X obj 495 333 r myMet;
r@291 125 #X obj 495 353 snapshot~;
r@291 126 #X floatatom 495 374 0 0 0 0 - - -;
r@291 127 #X msg 76 19 0.004;
r@291 128 #X msg 177 17 0.0006;
r@291 129 #X obj 56 281 r myMet;
r@291 130 #X obj 56 301 snapshot~;
r@291 131 #X floatatom 56 322 0 0 0 0 - - -;
r@291 132 #X obj 121 279 r myMet;
r@291 133 #X obj 121 299 snapshot~;
r@291 134 #X floatatom 121 320 0 0 0 0 - - -;
r@291 135 #X obj 43 249 r~ alpha;
r@291 136 #X obj 108 256 r~ theta;
r@291 137 #X obj 691 342 hsl 128 15 0.001 1e+09 1 0 empty empty empty -2 -8 0
r@291 138 10 -262144 -1 -1 0 1;
r@291 139 #X floatatom 697 360 0 0 0 0 - - -;
r@291 140 #X obj 669 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@291 141 #X obj 732 430 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@291 142 #N canvas 555 179 313 396 opLevels 0;
r@291 143 #X obj 83 210 dac~;
r@291 144 #X obj 30 70 catch~ l;
r@291 145 #X obj 128 70 catch~ r;
r@291 146 #X obj 129 104 *~ 0.45;
r@291 147 #X obj 30 104 *~ 0.45;
r@291 148 #X obj 30 210 prvu~;
r@291 149 #X obj 129 211 prvu~;
r@291 150 #X obj 93 33 inlet;
r@291 151 #X obj 30 239 outlet;
r@291 152 #X obj 129 239 outlet;
r@291 153 #X connect 1 0 4 0;
r@291 154 #X connect 2 0 3 0;
r@291 155 #X connect 3 0 6 0;
r@291 156 #X connect 3 0 0 1;
r@291 157 #X connect 4 0 5 0;
r@291 158 #X connect 4 0 0 0;
r@291 159 #X connect 5 0 8 0;
r@291 160 #X connect 6 0 9 0;
r@291 161 #X connect 7 0 4 1;
r@291 162 #X connect 7 0 3 1;
r@291 163 #X restore 668 387 pd opLevels;
r@291 164 #X obj 641 120 s~ windspeed;
r@291 165 #X msg 641 75 \$1 30;
r@291 166 #X obj 641 97 line~;
r@291 167 #X obj 644 40 hsl 80 25 1 10 0 0 empty empty Windspeed 2 12 0 10 -4032
r@291 168 -1 -1 3511 1;
r@291 169 #X floatatom 695 72 0 0 0 0 - - -;
r@291 170 #X msg 639 15 5;
r@291 171 #X obj 834 80 s myMet;
r@291 172 #X obj 832 11 loadbang;
r@291 173 #X obj 833 55 metro 20;
r@291 174 #X obj 832 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@291 175 1;
r@291 176 #N canvas 284 378 431 543 freqCalcHowe 0;
r@291 177 #X obj 139 17 r~ theta;
r@291 178 #X obj 139 62 +~ 1;
r@291 179 #X obj 160 39 r n;
r@291 180 #X obj 139 85 +~ 0.125;
r@291 181 #X obj 139 172 pow~;
r@291 182 #X obj 160 150 /~;
r@291 183 #X obj 160 108 sig~ 3;
r@291 184 #X obj 175 127 sig~ 2;
r@291 185 #X obj 154 194 r~ d;
r@291 186 #X obj 169 214 r~ L;
r@291 187 #X obj 154 236 /~;
r@291 188 #X obj 154 259 sqrt~;
r@291 189 #X obj 139 281 *~;
r@291 190 #X obj 139 303 *~ 0.92;
r@291 191 #X obj 85 330 s~ St;
r@291 192 #X obj 154 322 r~ windspeed;
r@291 193 #X obj 154 362 r~ L;
r@291 194 #X obj 139 342 *~;
r@291 195 #X obj 139 383 /~;
r@291 196 #X obj 139 408 s~ freq;
r@291 197 #X obj 270 144 r myMet;
r@291 198 #X obj 270 164 snapshot~;
r@291 199 #X floatatom 270 185 0 0 0 0 - - -;
r@291 200 #X connect 0 0 1 0;
r@291 201 #X connect 1 0 3 0;
r@291 202 #X connect 2 0 1 1;
r@291 203 #X connect 3 0 4 0;
r@291 204 #X connect 4 0 12 0;
r@291 205 #X connect 5 0 4 1;
r@291 206 #X connect 6 0 5 0;
r@291 207 #X connect 7 0 5 1;
r@291 208 #X connect 8 0 10 0;
r@291 209 #X connect 9 0 10 1;
r@291 210 #X connect 10 0 11 0;
r@291 211 #X connect 11 0 12 1;
r@291 212 #X connect 12 0 13 0;
r@291 213 #X connect 13 0 14 0;
r@291 214 #X connect 13 0 17 0;
r@291 215 #X connect 15 0 17 1;
r@291 216 #X connect 16 0 18 1;
r@291 217 #X connect 17 0 18 0;
r@291 218 #X connect 18 0 19 0;
r@291 219 #X connect 20 0 21 0;
r@291 220 #X connect 21 0 22 0;
r@291 221 #X restore 448 229 pd freqCalcHowe;
r@291 222 #N canvas 373 161 720 763 freqCalcCrighton 0;
r@291 223 #X obj 152 23 r~ d;
r@291 224 #X obj 152 45 /~ 2;
r@291 225 #X obj 152 92 /~;
r@291 226 #X obj 167 70 r~ L;
r@291 227 #X obj 152 175 pow~;
r@291 228 #X obj 173 153 /~;
r@291 229 #X obj 173 111 sig~ 3;
r@291 230 #X obj 188 130 sig~ 2;
r@291 231 #X obj 167 198 sig~ 12.566;
r@291 232 #X obj 182 219 sig~ 0.375;
r@291 233 #X obj 182 263 *~ 1;
r@291 234 #X obj 203 240 r n;
r@291 235 #X obj 167 370 pow~;
r@291 236 #X obj 188 348 /~;
r@291 237 #X obj 188 306 sig~ 3;
r@291 238 #X obj 203 325 sig~ 2;
r@291 239 #X obj 167 285 *~;
r@291 240 #X obj 152 392 *~;
r@291 241 #X obj 178 476 /~;
r@291 242 #X obj 152 434 *~;
r@291 243 #X obj 167 412 r~ windspeed;
r@291 244 #X obj 193 497 sig~ 3.14159;
r@291 245 #X obj 178 520 /~;
r@291 246 #X obj 178 545 s~ freq_Crighton;
r@291 247 #X connect 0 0 1 0;
r@291 248 #X connect 1 0 18 1;
r@291 249 #X connect 1 0 2 0;
r@291 250 #X connect 2 0 4 0;
r@291 251 #X connect 3 0 2 1;
r@291 252 #X connect 4 0 17 0;
r@291 253 #X connect 5 0 4 1;
r@291 254 #X connect 6 0 5 0;
r@291 255 #X connect 7 0 5 1;
r@291 256 #X connect 8 0 16 0;
r@291 257 #X connect 9 0 10 0;
r@291 258 #X connect 10 0 16 1;
r@291 259 #X connect 11 0 10 1;
r@291 260 #X connect 12 0 17 1;
r@291 261 #X connect 13 0 12 1;
r@291 262 #X connect 14 0 13 0;
r@291 263 #X connect 15 0 13 1;
r@291 264 #X connect 16 0 12 0;
r@291 265 #X connect 17 0 19 0;
r@291 266 #X connect 18 0 22 0;
r@291 267 #X connect 19 0 18 0;
r@291 268 #X connect 20 0 19 1;
r@291 269 #X connect 21 0 22 1;
r@291 270 #X connect 22 0 23 0;
r@291 271 #X restore 556 250 pd freqCalcCrighton;
r@291 272 #X obj 178 417 r~ freq_Crighton;
r@291 273 #X obj 225 439 r myMet;
r@291 274 #X obj 225 459 snapshot~;
r@291 275 #X floatatom 225 480 0 0 0 0 - - -;
r@291 276 #N canvas 31 274 1056 639 freqCalcHolger 0;
r@291 277 #X obj 411 79 r~ d;
r@291 278 #X obj 426 101 r~ L;
r@291 279 #X obj 411 122 /~;
r@291 280 #X obj 411 144 sqrt~;
r@291 281 #X obj 396 54 sig~ 0.925;
r@291 282 #X obj 396 167 *~;
r@291 283 #X obj 487 131 r n;
r@291 284 #X msg 502 219 0.4;
r@291 285 #X msg 525 197 0.35;
r@291 286 #X msg 548 176 0.5;
r@291 287 #X obj 502 153 select 1 2 3;
r@291 288 #X obj 446 229 line~;
r@291 289 #X msg 446 203 \$1 30;
r@291 290 #X obj 481 369 pow~;
r@291 291 #X obj 502 347 /~;
r@291 292 #X obj 502 305 sig~ 3;
r@291 293 #X obj 517 324 sig~ 2;
r@291 294 #X obj 396 415 *~;
r@291 295 #X obj 402 551 s~ freqHolg;
r@291 296 #X obj 481 283 +~ 1;
r@291 297 #X obj 406 447 r~ windspeed;
r@291 298 #X obj 412 494 r~ L;
r@291 299 #X obj 391 470 *~;
r@291 300 #X obj 396 515 /~;
r@291 301 #X connect 0 0 2 0;
r@291 302 #X connect 1 0 2 1;
r@291 303 #X connect 2 0 3 0;
r@291 304 #X connect 3 0 5 1;
r@291 305 #X connect 4 0 5 0;
r@291 306 #X connect 5 0 17 0;
r@291 307 #X connect 6 0 10 0;
r@291 308 #X connect 6 0 12 0;
r@291 309 #X connect 7 0 19 1;
r@291 310 #X connect 8 0 19 1;
r@291 311 #X connect 9 0 19 1;
r@291 312 #X connect 10 0 7 0;
r@291 313 #X connect 10 1 8 0;
r@291 314 #X connect 10 2 9 0;
r@291 315 #X connect 11 0 19 0;
r@291 316 #X connect 12 0 11 0;
r@291 317 #X connect 13 0 17 1;
r@291 318 #X connect 14 0 13 1;
r@291 319 #X connect 15 0 14 0;
r@291 320 #X connect 16 0 14 1;
r@291 321 #X connect 17 0 22 0;
r@291 322 #X connect 19 0 13 0;
r@291 323 #X connect 20 0 22 1;
r@291 324 #X connect 21 0 23 1;
r@291 325 #X connect 22 0 23 0;
r@291 326 #X connect 23 0 18 0;
r@291 327 #X restore 681 217 pd freqCalcHolger;
r@291 328 #X obj 347 408 r~ freqHolg;
r@291 329 #X obj 361 431 r myMet;
r@291 330 #X obj 361 451 snapshot~;
r@291 331 #X floatatom 361 472 0 0 0 0 - - -;
r@291 332 #X connect 1 0 0 1;
r@291 333 #X connect 3 0 2 0;
r@291 334 #X connect 4 0 3 0;
r@291 335 #X connect 5 0 8 0;
r@291 336 #X connect 5 0 11 0;
r@291 337 #X connect 6 0 9 0;
r@291 338 #X connect 6 0 13 0;
r@291 339 #X connect 7 0 10 0;
r@291 340 #X connect 7 0 15 0;
r@291 341 #X connect 11 0 12 0;
r@291 342 #X connect 12 0 17 0;
r@291 343 #X connect 13 0 14 0;
r@291 344 #X connect 14 0 18 0;
r@291 345 #X connect 15 0 16 0;
r@291 346 #X connect 16 0 19 0;
r@291 347 #X connect 20 0 21 0;
r@291 348 #X connect 21 0 22 0;
r@291 349 #X connect 22 0 23 0;
r@291 350 #X connect 22 0 26 0;
r@291 351 #X connect 27 0 33 0;
r@291 352 #X connect 28 0 30 0;
r@291 353 #X connect 29 0 30 0;
r@291 354 #X connect 30 0 31 0;
r@291 355 #X connect 32 0 33 0;
r@291 356 #X connect 33 0 34 0;
r@291 357 #X connect 35 0 5 0;
r@291 358 #X connect 36 0 6 0;
r@291 359 #X connect 37 0 38 0;
r@291 360 #X connect 38 0 39 0;
r@291 361 #X connect 40 0 41 0;
r@291 362 #X connect 41 0 42 0;
r@291 363 #X connect 43 0 38 0;
r@291 364 #X connect 44 0 41 0;
r@291 365 #X connect 45 0 46 0;
r@291 366 #X connect 45 0 49 0;
r@291 367 #X connect 49 0 47 0;
r@291 368 #X connect 49 1 48 0;
r@291 369 #X connect 51 0 52 0;
r@291 370 #X connect 52 0 50 0;
r@291 371 #X connect 53 0 51 0;
r@291 372 #X connect 53 0 54 0;
r@291 373 #X connect 55 0 53 0;
r@291 374 #X connect 57 0 59 0;
r@291 375 #X connect 58 0 56 0;
r@291 376 #X connect 59 0 58 0;
r@291 377 #X connect 62 0 64 0;
r@291 378 #X connect 63 0 64 0;
r@291 379 #X connect 64 0 65 0;
r@291 380 #X connect 67 0 69 0;
r@291 381 #X connect 68 0 69 0;
r@291 382 #X connect 69 0 70 0;