Mercurial > hg > weather-synthesis-prototyping

annotate SwordSounds/woSoFreqD3.pd @ 199:2ded41e29e57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Projection matrix now calculated using control signals rather than audio. This makes sense as it was eating too much processing power for something that doesn't chage during the sound effect.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 11 Mar 2016 20:51:21 +0000
parents 04f0a00c5fbd
children
rev   line source
r@131 1 #N canvas 210 37 1440 824 10;
r@128 2 #X text 125 140 Frequency (Hz);
r@128 3 #X obj 288 616 throw~ l;
r@128 4 #X obj 321 597 throw~ r;
r@128 5 #X obj 135 89 snapshot~;
r@128 6 #X obj 135 42 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@128 7 1;
r@128 8 #X floatatom 135 115 10 0 0 0 - - -;
r@128 9 #X obj 185 -100 inlet;
r@128 10 #X obj 215 114 outlet;
r@128 11 #X obj 135 16 loadbang;
r@128 12 #X obj 288 529 +~;
r@128 13 #X obj 185 -77 s \$0-diameter;
r@128 14 #X obj 85 -77 s~ \$0-windSpeed;
r@128 15 #X obj 49 64 r~ \$0-myFreq;
r@128 16 #X obj 554 551 snapshot~;
r@128 17 #X obj 554 526 metro 100;
r@128 18 #X obj 554 504 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@128 19 1;
r@128 20 #X floatatom 554 577 10 0 0 0 - - -;
r@128 21 #X obj 554 478 loadbang;
r@128 22 #X obj 468 526 r~ \$0-myRey;
r@128 23 #X text 539 599 Reynolds Number;
r@128 24 #X obj 85 -100 inlet~;
r@128 25 #X obj 135 64 metro 10;
r@128 26 #X text 181 261 Mass Density of Air;
r@128 27 #X obj 303 474 osc~;
r@128 28 #X obj 303 262 *~ 1.225;
r@128 29 #X obj 303 322 /~ 1.81e-05;
r@128 30 #X obj 303 292 *~ 1;
r@128 31 #X obj 303 423 /~ 1;
r@128 32 #X obj 303 399 *~;
r@128 33 #X obj 303 448 clip~ 0 20000;
r@128 34 #X text 162 359 Reynolds Number;
r@128 35 #X text 187 415 Strouhal Number;
r@128 36 #X obj 303 504 *~;
r@128 37 #X text 380 322 Viscosity;
r@128 38 #X obj 67 425 *~ 2;
r@128 39 #X obj 67 452 osc~;
r@128 40 #X obj 67 474 *~;
r@128 41 #X obj 364 261 r \$0-diameter;
r@128 42 #X obj 367 403 r \$0-diameter;
r@128 43 #X obj 366 372 r~ \$0-windSpeed;
r@128 44 #X obj 303 234 r~ \$0-windSpeed;
r@128 45 #X obj 238 398 s~ \$0_str;
r@128 46 #X obj 100 452 r~ \$0_dragDiGain;
r@128 47 #X obj 218 474 s~ \$0-myFreq;
r@128 48 #X obj 67 404 r~ \$0-myFreq;
r@128 49 #X obj 341 474 r~ \$0_liftDiGain;
r@128 50 #X obj 218 344 s~ \$0-myRey;
r@128 51 #X text 54 287 Calculates the frequency;
r@128 52 #X text 54 300 based on the physics of;
r@128 53 #X text 55 313 the object and environment;
r@128 54 #X obj 566 -52 r~ \$0-windSpeed;
r@128 55 #X obj 556 -73 r~ \$0_str;
r@128 56 #X obj 563 207 r~ \$0-windSpeed;
r@128 57 #X obj 552 184 r~ \$0_str;
r@128 58 #N canvas 815 79 622 660 noiseGain 0;
r@128 59 #X text -21205 129 Mass Density of Air \, squared;
r@128 60 #X text -20857 164 Speed of Sound to power 2;
r@128 61 #X obj -21070 29 *~;
r@128 62 #X obj -21022 70 *~;
r@128 63 #X obj -21022 104 *~ 1;
r@128 64 #X obj -21022 132 *~ 1.50063;
r@128 65 #X obj -21021 422 *~ 0.27;
r@128 66 #X text -20859 71 Distance;
r@128 67 #X text -21175 486 Calculates Lift Dipole gain;
r@128 68 #N canvas 759 125 286 289 pow8 0;
r@128 69 #X obj 47 67 *~;
r@128 70 #X obj 76 67 *~;
r@128 71 #X obj 76 35 inlet~;
r@128 72 #X obj 47 170 outlet~;
r@128 73 #X obj 136 173 snapshot~;
r@128 74 #X obj 136 148 metro 100;
r@128 75 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@128 76 1;
r@128 77 #X floatatom 136 200 10 0 0 0 - - -;
r@128 78 #X obj 136 100 loadbang;
r@128 79 #X obj 106 67 *~;
r@128 80 #X obj 47 93 *~;
r@128 81 #X obj 47 118 *~;
r@128 82 #X obj 136 67 *~;
r@128 83 #X obj 47 144 *~;
r@128 84 #X connect 0 0 10 0;
r@128 85 #X connect 1 0 10 1;
r@128 86 #X connect 2 0 0 0;
r@128 87 #X connect 2 0 0 1;
r@128 88 #X connect 2 0 1 1;
r@128 89 #X connect 2 0 9 0;
r@128 90 #X connect 2 0 9 1;
r@128 91 #X connect 2 0 1 0;
r@128 92 #X connect 2 0 12 0;
r@128 93 #X connect 2 0 12 1;
r@128 94 #X connect 4 0 7 0;
r@128 95 #X connect 5 0 4 0;
r@128 96 #X connect 6 0 5 0;
r@128 97 #X connect 8 0 6 0;
r@128 98 #X connect 9 0 11 1;
r@128 99 #X connect 10 0 11 0;
r@128 100 #X connect 11 0 13 0;
r@128 101 #X connect 12 0 13 1;
r@128 102 #X connect 13 0 3 0;
r@128 103 #X connect 13 0 4 0;
r@128 104 #X restore -21022 32 pd pow8;
r@128 105 #X obj -21005 222 s~ \$0-c;
r@128 106 #X obj -21070 7 inlet~;
r@128 107 #X obj -21022 7 inlet~;
r@128 108 #X obj -20989 55 inlet;
r@128 109 #X obj -20873 229 inlet;
r@128 110 #X obj -21021 465 outlet~;
r@128 111 #X text -20937 227 Azimuth;
r@128 112 #X text -20871 210 Elevation;
r@128 113 #X text -20961 26 Gain proportional to windspeed to power 8 for spectrum
r@128 114 ;
r@128 115 #X text -20981 74 Diameter;
r@128 116 #N canvas 1567 153 479 552 angleCalc 0;
r@128 117 #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@128 118 -1 -1 0 1;
r@128 119 #X text 287 77 Elevation Angle;
r@128 120 #X obj 236 118 / 360;
r@128 121 #X obj 236 140 * 6.28319;
r@128 122 #X obj 164 80 / 360;
r@128 123 #X obj 164 102 * 6.28319;
r@128 124 #X floatatom 49 106 5 0 0 0 - - -;
r@128 125 #X floatatom 304 140 5 0 0 0 - - -;
r@128 126 #X obj 278 443 * 360;
r@128 127 #X floatatom 325 494 5 0 0 0 - - -;
r@128 128 #X obj 278 467 / 6.28319;
r@128 129 #X obj 236 235 *;
r@128 130 #X obj 236 267 swap 1;
r@128 131 #X obj 236 300 -;
r@128 132 #X obj 236 329 sqrt;
r@128 133 #X obj 278 360 /;
r@128 134 #X obj 278 388 atan;
r@128 135 #X obj 278 414 * 2;
r@128 136 #X text 318 296 Arccos of angle;
r@128 137 #X obj 293 236 + 1;
r@128 138 #X obj 164 126 cos;
r@128 139 #X obj 236 171 cos;
r@128 140 #X obj 236 205 *;
r@128 141 #X obj 164 149 t f b;
r@128 142 #X obj 162 174 delay 9;
r@128 143 #X obj 278 494 outlet;
r@128 144 #X obj 236 90 inlet;
r@128 145 #X obj 164 57 inlet;
r@128 146 #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@128 147 -1 -1 0 1;
r@128 148 #X text 56 42 Azimuth Angle;
r@128 149 #X connect 0 0 7 0;
r@128 150 #X connect 2 0 3 0;
r@128 151 #X connect 3 0 21 0;
r@128 152 #X connect 4 0 5 0;
r@128 153 #X connect 5 0 20 0;
r@128 154 #X connect 8 0 10 0;
r@128 155 #X connect 10 0 9 0;
r@128 156 #X connect 10 0 25 0;
r@128 157 #X connect 11 0 12 0;
r@128 158 #X connect 12 0 13 0;
r@128 159 #X connect 12 1 13 1;
r@128 160 #X connect 13 0 14 0;
r@128 161 #X connect 14 0 15 0;
r@128 162 #X connect 15 0 16 0;
r@128 163 #X connect 16 0 17 0;
r@128 164 #X connect 17 0 8 0;
r@128 165 #X connect 19 0 15 1;
r@128 166 #X connect 20 0 23 0;
r@128 167 #X connect 21 0 22 0;
r@128 168 #X connect 22 0 11 0;
r@128 169 #X connect 22 0 11 1;
r@128 170 #X connect 22 0 19 0;
r@128 171 #X connect 23 0 22 1;
r@128 172 #X connect 23 1 24 0;
r@128 173 #X connect 24 0 22 0;
r@128 174 #X connect 26 0 2 0;
r@128 175 #X connect 26 0 0 0;
r@128 176 #X connect 27 0 4 0;
r@128 177 #X connect 27 0 28 0;
r@128 178 #X connect 28 0 6 0;
r@128 179 #X restore -20847 270 pd angleCalc;
r@128 180 #X obj -20951 117 inlet;
r@128 181 #X obj -20951 142 *;
r@128 182 #X obj -21022 167 *~ 1;
r@128 183 #X text -20953 99 Length;
r@128 184 #X text -21239 441 Need for scienctific reasoning here!;
r@128 185 #X obj -20859 92 inlet~;
r@128 186 #X obj -20948 246 inlet~;
r@128 187 #X obj -21006 300 +~ 90;
r@128 188 #X obj -21006 323 /~ 360;
r@128 189 #X obj -21006 344 cos~;
r@128 190 #X obj -21021 397 *~;
r@128 191 #X obj -20859 118 *~;
r@128 192 #X obj -20859 141 *~ 118033;
r@128 193 #X obj -21022 193 /~;
r@128 194 #X obj -21021 444 *~ 0.01;
r@128 195 #X text -21172 7 Strouhal number;
r@128 196 #X text -20973 3 Wind speed;
r@128 197 #X obj -20948 272 angleCalcN~;
r@128 198 #X obj -20948 300 +~ 90;
r@128 199 #X obj -20948 321 /~ 360;
r@128 200 #X obj -20948 343 sin~;
r@128 201 #X obj -21006 375 +~;
r@128 202 #X obj -20877 297 loadbang;
r@128 203 #X obj -20877 318 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@128 204 1 1;
r@128 205 #X obj -20877 336 metro 10;
r@128 206 #X obj -20877 357 snapshot~;
r@128 207 #X floatatom -20877 377 5 0 0 0 - - -;
r@128 208 #X connect 2 0 3 1;
r@128 209 #X connect 3 0 4 0;
r@128 210 #X connect 4 0 5 0;
r@128 211 #X connect 5 0 23 0;
r@128 212 #X connect 6 0 35 0;
r@128 213 #X connect 9 0 3 0;
r@128 214 #X connect 11 0 2 0;
r@128 215 #X connect 11 0 2 1;
r@128 216 #X connect 12 0 9 0;
r@128 217 #X connect 13 0 4 1;
r@128 218 #X connect 14 0 20 1;
r@128 219 #X connect 21 0 22 0;
r@128 220 #X connect 21 0 22 1;
r@128 221 #X connect 22 0 23 1;
r@128 222 #X connect 23 0 34 0;
r@128 223 #X connect 26 0 32 0;
r@128 224 #X connect 26 0 32 1;
r@128 225 #X connect 27 0 38 0;
r@128 226 #X connect 28 0 29 0;
r@128 227 #X connect 29 0 30 0;
r@128 228 #X connect 30 0 42 0;
r@128 229 #X connect 31 0 6 0;
r@128 230 #X connect 32 0 33 0;
r@128 231 #X connect 33 0 34 1;
r@128 232 #X connect 34 0 10 0;
r@128 233 #X connect 34 0 31 0;
r@128 234 #X connect 35 0 15 0;
r@128 235 #X connect 38 0 28 0;
r@128 236 #X connect 38 0 39 0;
r@128 237 #X connect 38 0 46 0;
r@128 238 #X connect 39 0 40 0;
r@128 239 #X connect 40 0 41 0;
r@128 240 #X connect 41 0 42 1;
r@128 241 #X connect 42 0 31 1;
r@128 242 #X connect 43 0 44 0;
r@128 243 #X connect 44 0 45 0;
r@128 244 #X connect 45 0 46 0;
r@128 245 #X connect 46 0 47 0;
r@128 246 #X restore 552 336 pd noiseGain;
r@128 247 #X obj 575 228 r \$0-diameter;
r@128 248 #X obj 609 291 r \$0_elev;
r@131 249 #N canvas 814 272 702 650 freqGain 0;
r@128 250 #X text 36 127 Mass Density of Air \, squared;
r@128 251 #X text 508 93 Speed of Sound to power 2;
r@128 252 #N canvas 759 125 286 289 pow6 0;
r@128 253 #X obj 47 67 *~;
r@128 254 #X obj 76 67 *~;
r@128 255 #X obj 76 35 inlet~;
r@128 256 #X obj 47 163 outlet~;
r@128 257 #X obj 136 184 snapshot~;
r@128 258 #X obj 136 159 metro 100;
r@128 259 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@128 260 1;
r@128 261 #X floatatom 136 211 10 0 0 0 - - -;
r@128 262 #X obj 216 210 outlet;
r@128 263 #X obj 136 111 loadbang;
r@128 264 #X obj 106 67 *~;
r@128 265 #X obj 47 93 *~;
r@128 266 #X obj 47 118 *~;
r@128 267 #X connect 0 0 11 0;
r@128 268 #X connect 1 0 11 1;
r@128 269 #X connect 2 0 0 0;
r@128 270 #X connect 2 0 0 1;
r@128 271 #X connect 2 0 1 1;
r@128 272 #X connect 2 0 10 0;
r@128 273 #X connect 2 0 10 1;
r@128 274 #X connect 2 0 1 0;
r@128 275 #X connect 4 0 7 0;
r@128 276 #X connect 4 0 8 0;
r@128 277 #X connect 5 0 4 0;
r@128 278 #X connect 6 0 5 0;
r@128 279 #X connect 9 0 6 0;
r@128 280 #X connect 10 0 12 1;
r@128 281 #X connect 11 0 12 0;
r@128 282 #X connect 12 0 4 0;
r@128 283 #X connect 12 0 3 0;
r@128 284 #X restore 219 30 pd pow6;
r@128 285 #X obj 173 32 *~;
r@128 286 #X obj 219 68 *~;
r@128 287 #X obj 219 102 *~ 1;
r@128 288 #X obj 219 130 *~ 1.50063;
r@128 289 #X obj 219 506 *~ 0.27;
r@128 290 #X text 380 261 Azimuth;
r@128 291 #X text 497 1 Distance;
r@128 292 #X obj 398 491 *~ 0.27;
r@128 293 #X obj 236 269 s~ \$0-a;
r@128 294 #X obj 357 441 r~ \$0-a;
r@128 295 #N canvas 131 175 477 312 angleCalc 0;
r@128 296 #X obj 297 33 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@128 297 -1 -1 0 1;
r@128 298 #X text 233 6 Elevation Angle;
r@128 299 #X obj 242 59 / 360;
r@128 300 #X obj 242 81 * 6.28319;
r@128 301 #X obj 170 21 / 360;
r@128 302 #X obj 170 43 * 6.28319;
r@128 303 #X floatatom 50 22 5 0 0 0 - - -;
r@128 304 #X floatatom 294 57 5 0 0 0 - - -;
r@128 305 #X floatatom 204 196 5 0 0 0 - - -;
r@128 306 #X obj 170 67 cos;
r@128 307 #X obj 242 112 cos;
r@128 308 #X obj 242 146 *;
r@128 309 #X obj 170 90 t f b;
r@128 310 #X obj 168 115 delay 9;
r@128 311 #X obj 242 197 outlet;
r@128 312 #X obj 242 31 inlet;
r@128 313 #X obj 170 -6 inlet;
r@128 314 #X obj 53 -4 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@128 315 -1 -1 0 1;
r@128 316 #X text 136 -30 Azimuth Angle;
r@128 317 #X obj 242 172 arccos;
r@128 318 #X connect 0 0 7 0;
r@128 319 #X connect 0 0 2 0;
r@128 320 #X connect 2 0 3 0;
r@128 321 #X connect 3 0 10 0;
r@128 322 #X connect 4 0 5 0;
r@128 323 #X connect 5 0 9 0;
r@128 324 #X connect 9 0 12 0;
r@128 325 #X connect 10 0 11 0;
r@128 326 #X connect 11 0 19 0;
r@128 327 #X connect 12 0 11 1;
r@128 328 #X connect 12 1 13 0;
r@128 329 #X connect 13 0 11 0;
r@128 330 #X connect 15 0 2 0;
r@128 331 #X connect 16 0 4 0;
r@128 332 #X connect 17 0 6 0;
r@128 333 #X connect 17 0 4 0;
r@128 334 #X connect 19 0 14 0;
r@128 335 #X connect 19 0 8 0;
r@128 336 #X restore 424 302 pd angleCalc;
r@128 337 #X text 451 260 Elevation;
r@128 338 #X text 476 498 Calculates Drag Dipole gain;
r@128 339 #X text 48 445 Calculates Lift Dipole gain;
r@128 340 #X obj 398 516 *~ 0.1;
r@128 341 #X obj 173 8 inlet~;
r@128 342 #X obj 219 7 inlet~;
r@128 343 #X text 256 54 Diameter;
r@128 344 #X obj 250 69 inlet;
r@128 345 #X obj 434 275 inlet;
r@128 346 #X obj 219 530 outlet~;
r@128 347 #X obj 398 541 outlet~;
r@128 348 #X obj 297 125 inlet;
r@128 349 #X obj 297 149 *;
r@128 350 #X obj 219 193 *~ 1;
r@128 351 #X text 292 106 Length;
r@128 352 #X obj 305 247 arccos;
r@129 353 #X obj 315 218 r sigMac;
r@128 354 #X obj 240 337 +;
r@128 355 #X obj 305 269 t f b;
r@128 356 #X obj 240 298 delay 9;
r@128 357 #X text 309 203 Replicates Doppler effect;
r@128 358 #X obj 506 20 inlet~;
r@128 359 #X obj 506 45 *~;
r@128 360 #X obj 506 70 *~ 118033;
r@128 361 #X obj 219 240 /~;
r@128 362 #X obj 365 276 inlet~;
r@128 363 #X obj 240 388 /~ 360;
r@128 364 #X obj 304 385 *~ 6.28319;
r@128 365 #X obj 240 434 cos~;
r@128 366 #X obj 240 458 *~;
r@128 367 #X obj 219 481 *~;
r@128 368 #X obj 419 375 /~ 360;
r@128 369 #X obj 419 420 cos~;
r@128 370 #X obj 419 444 *~;
r@128 371 #X obj 398 467 *~;
r@129 372 #X obj 517 364 loadbang;
r@129 373 #X obj 517 385 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@129 374 1;
r@129 375 #X obj 517 403 metro 10;
r@129 376 #X obj 517 425 snapshot~;
r@129 377 #X floatatom 517 445 5 0 0 0 - - -;
r@131 378 #X obj 419 350 +~ 90;
r@128 379 #X connect 2 0 4 0;
r@128 380 #X connect 3 0 4 1;
r@128 381 #X connect 4 0 5 0;
r@128 382 #X connect 5 0 6 0;
r@128 383 #X connect 6 0 27 0;
r@128 384 #X connect 7 0 23 0;
r@128 385 #X connect 10 0 17 0;
r@128 386 #X connect 12 0 48 0;
r@128 387 #X connect 17 0 24 0;
r@128 388 #X connect 18 0 3 0;
r@128 389 #X connect 18 0 3 1;
r@128 390 #X connect 19 0 2 0;
r@128 391 #X connect 21 0 5 1;
r@128 392 #X connect 22 0 13 1;
r@128 393 #X connect 25 0 26 0;
r@128 394 #X connect 25 0 26 1;
r@128 395 #X connect 26 0 27 1;
r@128 396 #X connect 27 0 38 0;
r@128 397 #X connect 29 0 32 0;
r@128 398 #X connect 32 0 31 1;
r@128 399 #X connect 32 1 33 0;
r@128 400 #X connect 33 0 31 0;
r@128 401 #X connect 35 0 36 1;
r@128 402 #X connect 35 0 36 0;
r@128 403 #X connect 36 0 37 0;
r@128 404 #X connect 37 0 38 1;
r@128 405 #X connect 38 0 11 0;
r@128 406 #X connect 38 0 44 0;
r@131 407 #X connect 39 0 40 0;
r@129 408 #X connect 39 0 54 0;
r@128 409 #X connect 40 0 42 0;
r@128 410 #X connect 42 0 43 0;
r@128 411 #X connect 42 0 43 1;
r@128 412 #X connect 43 0 44 1;
r@130 413 #X connect 43 0 52 0;
r@128 414 #X connect 44 0 7 0;
r@128 415 #X connect 45 0 46 0;
r@128 416 #X connect 46 0 47 0;
r@128 417 #X connect 46 0 47 1;
r@128 418 #X connect 47 0 48 1;
r@128 419 #X connect 48 0 10 0;
r@129 420 #X connect 49 0 50 0;
r@129 421 #X connect 50 0 51 0;
r@129 422 #X connect 51 0 52 0;
r@129 423 #X connect 52 0 53 0;
r@131 424 #X connect 54 0 45 0;
r@128 425 #X restore 556 78 pd freqGain;
r@128 426 #X obj 577 -31 r \$0-diameter;
r@128 427 #X obj 608 35 r \$0_elev;
r@128 428 #X obj 619 102 s~ \$0_dragDiGain;
r@128 429 #X obj 556 122 s~ \$0_liftDiGain;
r@128 430 #X text 546 139 Calculates the gain of the dipole source;
r@128 431 #X text 543 400 Calculates the gain of the source;
r@128 432 #X obj 587 -8 r length;
r@128 433 #X obj 586 249 r length;
r@128 434 #X obj 422 -100 inlet;
r@128 435 #X obj 422 -78 s \$0_elev;
r@128 436 #X obj 754 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@128 437 -1;
r@128 438 #X obj 754 -37 s GO;
r@128 439 #X obj 694 -90 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@128 440 -1 -1;
r@128 441 #X obj 694 -37 s setUp;
r@128 442 #X obj 270 -100 inlet~;
r@128 443 #X obj 340 -101 inlet~;
r@128 444 #X obj 270 -78 s~ \$0_dist;
r@128 445 #X obj 340 -79 s~ \$0_azim;
r@128 446 #X obj 619 57 r~ \$0_dist;
r@128 447 #X obj 598 14 r~ \$0_azim;
r@128 448 #X obj 288 572 fcpan~;
r@128 449 #X obj 621 312 r~ \$0_dist;
r@128 450 #X obj 598 270 r~ \$0_azim;
r@128 451 #X obj 303 370 newStrou;
r@128 452 #X obj 945 115 r~ \$0-myFreq;
r@128 453 #X obj 857 47 noise~;
r@128 454 #X obj 905 195 *~;
r@128 455 #X obj 1043 108 snapshot~;
r@128 456 #X floatatom 1043 134 10 0 0 0 - - -;
r@128 457 #X obj 1043 35 loadbang;
r@128 458 #X obj 1043 60 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@128 459 1;
r@128 460 #X obj 997 -63 r~ \$0-myRey;
r@128 461 #X obj 911 142 vcf~ 1000 10;
r@128 462 #X obj 1043 83 metro 10;
r@128 463 #X obj 905 283 throw~ l;
r@128 464 #X obj 932 261 throw~ r;
r@128 465 #X obj 905 239 fcpan;
r@128 466 #X obj 878 69 r \$0-contFreq;
r@128 467 #X obj 920 166 r~ \$0-liftNoiseGain;
r@128 468 #X obj 932 220 r \$0-thisPan;
r@128 469 #X text 959 185 Noise spectrum calculation;
r@128 470 #X obj 857 93 hip~;
r@128 471 #X obj 896 174 +~;
r@128 472 #X obj 997 -39 *~ -0.001;
r@128 473 #X obj 997 -14 +~ 20;
r@128 474 #X obj 857 142 *~ 0.015;
r@128 475 #X obj 997 12 clip~ 1 20;
r@128 476 #X obj 552 381 s~ \$0-liftNoiseGain;
r@129 477 #X obj 240 48 snapshot~;
r@129 478 #X obj 240 1 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
r@129 479 ;
r@129 480 #X floatatom 240 74 10 0 0 0 - - -;
r@129 481 #X obj 240 -25 loadbang;
r@129 482 #X obj 240 23 metro 10;
r@131 483 #X obj 488 -100 inlet~;
r@131 484 #X obj 488 -76 s~ \$0-thisPan;
r@131 485 #X obj 321 550 r~ \$0-thisPan;
r@128 486 #X connect 3 0 5 0;
r@128 487 #X connect 3 0 7 0;
r@128 488 #X connect 4 0 21 0;
r@128 489 #X connect 6 0 10 0;
r@128 490 #X connect 8 0 4 0;
r@131 491 #X connect 9 0 78 0;
r@128 492 #X connect 12 0 3 0;
r@128 493 #X connect 13 0 16 0;
r@128 494 #X connect 14 0 13 0;
r@128 495 #X connect 15 0 14 0;
r@128 496 #X connect 17 0 15 0;
r@128 497 #X connect 18 0 13 0;
r@128 498 #X connect 20 0 11 0;
r@128 499 #X connect 21 0 3 0;
r@128 500 #X connect 23 0 32 0;
r@128 501 #X connect 24 0 26 0;
r@128 502 #X connect 25 0 46 0;
r@131 503 #X connect 25 0 81 0;
r@128 504 #X connect 26 0 25 0;
r@128 505 #X connect 27 0 29 0;
r@128 506 #X connect 28 0 27 0;
r@128 507 #X connect 29 0 23 0;
r@128 508 #X connect 29 0 43 0;
r@128 509 #X connect 32 0 9 1;
r@128 510 #X connect 34 0 35 0;
r@128 511 #X connect 35 0 36 0;
r@128 512 #X connect 36 0 9 0;
r@128 513 #X connect 37 0 26 1;
r@128 514 #X connect 38 0 27 1;
r@128 515 #X connect 39 0 28 1;
r@128 516 #X connect 40 0 24 0;
r@128 517 #X connect 42 0 36 1;
r@128 518 #X connect 44 0 34 0;
r@128 519 #X connect 45 0 32 1;
r@128 520 #X connect 50 0 57 1;
r@128 521 #X connect 51 0 57 0;
r@128 522 #X connect 52 0 54 1;
r@128 523 #X connect 53 0 54 0;
r@131 524 #X connect 54 0 105 0;
r@128 525 #X connect 55 0 54 2;
r@128 526 #X connect 56 0 54 5;
r@128 527 #X connect 57 0 61 0;
r@128 528 #X connect 57 1 60 0;
r@128 529 #X connect 58 0 57 2;
r@128 530 #X connect 59 0 57 5;
r@128 531 #X connect 64 0 57 3;
r@128 532 #X connect 65 0 54 3;
r@128 533 #X connect 66 0 67 0;
r@128 534 #X connect 68 0 69 0;
r@128 535 #X connect 70 0 71 0;
r@128 536 #X connect 72 0 74 0;
r@128 537 #X connect 73 0 75 0;
r@131 538 #X connect 73 0 106 0;
r@131 539 #X connect 76 0 57 6;
r@131 540 #X connect 77 0 57 4;
r@131 541 #X connect 78 0 1 0;
r@131 542 #X connect 78 1 2 0;
r@131 543 #X connect 79 0 54 6;
r@131 544 #X connect 80 0 54 4;
r@131 545 #X connect 81 0 28 0;
r@131 546 #X connect 81 0 41 0;
r@131 547 #X connect 82 0 90 1;
r@131 548 #X connect 83 0 99 0;
r@131 549 #X connect 83 0 90 0;
r@131 550 #X connect 84 0 94 0;
r@131 551 #X connect 85 0 86 0;
r@131 552 #X connect 85 0 90 2;
r@131 553 #X connect 87 0 88 0;
r@131 554 #X connect 88 0 91 0;
r@131 555 #X connect 89 0 101 0;
r@131 556 #X connect 90 0 100 1;
r@131 557 #X connect 91 0 85 0;
r@131 558 #X connect 94 0 92 0;
r@131 559 #X connect 94 1 93 0;
r@131 560 #X connect 95 0 99 1;
r@131 561 #X connect 96 0 84 1;
r@131 562 #X connect 97 0 94 1;
r@131 563 #X connect 99 0 103 0;
r@131 564 #X connect 100 0 84 0;
r@131 565 #X connect 101 0 102 0;
r@131 566 #X connect 102 0 104 0;
r@131 567 #X connect 103 0 100 0;
r@131 568 #X connect 104 0 85 0;
r@131 569 #X connect 106 0 108 0;
r@131 570 #X connect 107 0 110 0;
r@131 571 #X connect 109 0 107 0;
r@131 572 #X connect 110 0 106 0;
r@131 573 #X connect 111 0 112 0;
r@131 574 #X connect 113 0 78 1;