annotate scene demo/testBed.pd @ 139:ced3d7831a75

Minor edits to freqCalcCyl2. freqCalcCyl3 created which includes harmonics and looking at noise with f^(-2) roll off.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Tue, 27 Oct 2015 06:28:58 +0000
parents 6ff3ad934ae7
children 6f2ac9ea1690
rev   line source
r@139 1 #N canvas 162 77 1281 766 10;
r@124 2 #X obj 167 -82 loadbang;
r@106 3 #N canvas 236 158 426 423 windspeed 0;
r@106 4 #X obj 3 -19 +~ 1;
r@106 5 #X obj 3 76 +~;
r@106 6 #X obj 3 3 *~ 0.25;
r@106 7 #X obj 19 53 +~;
r@106 8 #X obj 3 98 clip~ 0 1;
r@106 9 #N canvas 548 156 136 193 squall 0;
r@106 10 #X obj 63 20 noise~;
r@106 11 #X obj 63 83 hip~ 0;
r@106 12 #X obj 63 41 lop~ 3;
r@106 13 #X obj 63 62 lop~ 3;
r@106 14 #X obj 0 86 *~;
r@106 15 #X obj 22 130 *~;
r@106 16 #X obj 0 64 *~ 8;
r@106 17 #X obj 63 104 *~ 20;
r@106 18 #X obj 0 0 inlet~;
r@106 19 #X obj 22 154 outlet~;
r@106 20 #X obj 0 20 max~ 0.42;
r@106 21 #X obj 0 42 -~ 0.42;
r@106 22 #X connect 0 0 2 0;
r@106 23 #X connect 1 0 7 0;
r@106 24 #X connect 2 0 3 0;
r@106 25 #X connect 3 0 1 0;
r@106 26 #X connect 4 0 5 0;
r@106 27 #X connect 5 0 9 0;
r@106 28 #X connect 6 0 4 0;
r@106 29 #X connect 6 0 4 1;
r@106 30 #X connect 7 0 5 1;
r@106 31 #X connect 8 0 10 0;
r@106 32 #X connect 10 0 11 0;
r@106 33 #X connect 11 0 6 0;
r@106 34 #X restore 77 28 pd squall;
r@106 35 #N canvas 398 157 136 192 gust 0;
r@106 36 #X obj 0 0 noise~;
r@106 37 #X obj 0 63 hip~ 0;
r@106 38 #X obj 0 106 *~;
r@106 39 #X obj 67 44 *~;
r@106 40 #X obj 67 21 +~ 0.5;
r@106 41 #X obj 67 67 -~ 0.125;
r@106 42 #X obj 0 42 lop~ 0.5;
r@106 43 #X obj 0 21 lop~ 0.5;
r@106 44 #X obj 0 84 *~ 50;
r@106 45 #X obj 67 0 inlet~;
r@106 46 #X obj 0 131 outlet~;
r@106 47 #X connect 0 0 7 0;
r@106 48 #X connect 1 0 8 0;
r@106 49 #X connect 2 0 10 0;
r@106 50 #X connect 3 0 5 0;
r@106 51 #X connect 4 0 3 0;
r@106 52 #X connect 4 0 3 1;
r@106 53 #X connect 5 0 2 1;
r@106 54 #X connect 6 0 1 0;
r@106 55 #X connect 7 0 6 0;
r@106 56 #X connect 8 0 2 0;
r@106 57 #X connect 9 0 4 0;
r@106 58 #X restore 18 29 pd gust;
r@106 59 #X obj 3 120 outlet~;
r@106 60 #X obj 3 -41 osc~ 0.01;
r@106 61 #X connect 0 0 2 0;
r@106 62 #X connect 1 0 4 0;
r@106 63 #X connect 2 0 5 0;
r@106 64 #X connect 2 0 6 0;
r@106 65 #X connect 2 0 1 0;
r@106 66 #X connect 3 0 1 1;
r@106 67 #X connect 4 0 7 0;
r@106 68 #X connect 5 0 3 1;
r@106 69 #X connect 6 0 3 0;
r@106 70 #X connect 8 0 0 0;
r@124 71 #X restore -268 -129 pd windspeed;
r@124 72 #X obj -268 65 delwrite~ varwind 3000;
r@124 73 #X obj -185 -127 hsl 128 15 0 150 0 0 empty empty empty -2 -8 0 10
r@138 74 -262144 -1 -1 1101 1;
r@124 75 #X obj -225 -24 snapshot~;
r@124 76 #X obj -225 -49 metro 100;
r@124 77 #X obj -225 -71 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@106 78 1 1;
r@124 79 #X floatatom -225 3 10 0 0 0 - - -;
r@124 80 #X obj -268 -95 *~ 1;
r@124 81 #X obj -268 -69 +~ 1;
r@124 82 #X obj -225 -96 loadbang;
r@124 83 #X text -228 21 Wind Speed;
r@124 84 #X obj -49 -126 loadbang;
r@124 85 #X msg -49 -98 5;
r@124 86 #X obj 211 10 hsl 128 15 0.001 0.1 1 0 empty empty empty -2 -8 0 10
r@139 87 -262144 -1 -1 4021 1;
r@124 88 #X floatatom 223 34 8 0 0 0 - - -;
r@124 89 #X obj 274 284 hsl 128 15 0.009 0.9 0 0 empty empty empty -2 -8 0 10
r@106 90 -262144 -1 -1 6999 1;
r@124 91 #X floatatom 300 313 5 0 0 0 - - -;
r@124 92 #X text 346 11 Diameter;
r@124 93 #X obj 249 166 hsl 128 15 -90 90 0 0 empty empty empty -2 -8 0 10 -262144
r@106 94 -1 -1 6350 1;
r@124 95 #X floatatom 270 195 5 0 0 0 - - -;
r@124 96 #X obj 261 221 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@139 97 -262144 -1 -1 2000 1;
r@124 98 #X floatatom 285 250 5 0 0 0 - - -;
r@124 99 #X obj 236 109 hsl 128 15 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@139 100 -1 -1 5847 1;
r@124 101 #X floatatom 247 138 5 0 0 0 - - -;
r@124 102 #X text 415 285 Pan Value;
r@124 103 #X obj -276 231 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@124 104 #X obj -213 231 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@124 105 #X text -216 140 Gain;
r@134 106 #X obj -253 86 loadbang;
r@106 107 #N canvas 865 368 284 318 opLevels 0;
r@106 108 #X obj 74 188 dac~;
r@106 109 #X obj 30 70 catch~ l;
r@106 110 #X obj 128 70 catch~ r;
r@106 111 #X obj 129 104 *~ 0.45;
r@106 112 #X obj 30 104 *~ 0.45;
r@106 113 #X obj 30 210 prvu~;
r@106 114 #X obj 129 211 prvu~;
r@106 115 #X obj 93 33 inlet;
r@106 116 #X obj 30 239 outlet;
r@106 117 #X obj 129 239 outlet;
r@106 118 #X obj 74 143 /~ 15;
r@106 119 #X obj 95 165 /~ 15;
r@106 120 #X obj 196 132 inlet;
r@124 121 #X obj 215 208 /~ 2;
r@124 122 #X obj 227 184 +~;
r@124 123 #X obj 215 254 outlet~;
r@134 124 #X obj 93 68 / 100;
r@106 125 #X connect 1 0 4 0;
r@106 126 #X connect 2 0 3 0;
r@106 127 #X connect 3 0 6 0;
r@134 128 #X connect 3 0 11 0;
r@106 129 #X connect 4 0 5 0;
r@134 130 #X connect 4 0 10 0;
r@134 131 #X connect 5 0 8 0;
r@134 132 #X connect 6 0 9 0;
r@134 133 #X connect 7 0 16 0;
r@134 134 #X connect 10 0 0 0;
r@134 135 #X connect 10 0 14 0;
r@134 136 #X connect 11 0 0 1;
r@134 137 #X connect 11 0 14 1;
r@134 138 #X connect 12 0 10 1;
r@134 139 #X connect 12 0 11 1;
r@134 140 #X connect 13 0 15 0;
r@134 141 #X connect 14 0 13 0;
r@134 142 #X connect 16 0 3 1;
r@134 143 #X connect 16 0 4 1;
r@124 144 #X restore -277 188 pd opLevels;
r@134 145 #X msg -253 109 5;
r@137 146 #X obj -274 159 hsl 100 25 0.1 5000 0 0 empty empty empty -2 -8 0 10
r@139 147 -262144 -1 -1 2996 1;
r@124 148 #X obj -7 -21 snapshot~;
r@124 149 #X obj -7 -46 metro 100;
r@124 150 #X floatatom -7 6 10 0 0 0 - - -;
r@124 151 #X obj -7 -93 loadbang;
r@124 152 #X obj -7 -70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@124 153 1;
r@124 154 #X text -10 24 Mach No;
r@106 155 #N canvas 20 383 344 123 machCalc 0;
r@106 156 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@106 157 #X obj 26 -14 vd~ varwind;
r@115 158 #X obj 26 33 s~ MY_MACH;
r@135 159 #X obj 26 9 /~ 343.21;
r@135 160 #X connect 1 0 3 0;
r@135 161 #X connect 3 0 2 0;
r@124 162 #X restore 64 -121 pd machCalc;
r@124 163 #X obj 340 -139 bng 35 250 50 0 empty empty empty 17 7 0 10 -4032 -1
r@106 164 -1;
r@124 165 #X floatatom 235 509 8 0 0 0 - - -;
r@124 166 #X msg 117 92 12;
r@124 167 #X msg 97 149 0;
r@124 168 #X msg 54 267 0.5;
r@124 169 #X obj 167 -58 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@124 170 -1 -1;
r@124 171 #X obj 224 66 hsl 128 15 1 10 0 0 empty empty empty -2 -8 0 10 -262144
r@139 172 -1 -1 4233 1;
r@124 173 #X floatatom 245 85 8 0 0 0 - - -;
r@124 174 #X msg 133 49 4;
r@124 175 #X obj -157 162 hsl 100 25 1 127 0 0 empty empty empty -2 -8 0 10 -262144
r@124 176 -1 -1 0 1;
r@124 177 #X obj -156 115 loadbang;
r@124 178 #X text -95 141 No Of Sources;
r@124 179 #X text 356 50 Length;
r@124 180 #X obj -146 2 s WSPEED;
r@124 181 #X obj -92 -60 r~ MY_MACH;
r@124 182 #X obj -74 8 s SIG_MACH;
r@124 183 #X obj 340 -98 s SET_UP;
r@124 184 #X obj 210 -11 r SET_UP;
r@124 185 #X obj 283 44 r SET_UP;
r@124 186 #X obj 350 83 r SET_UP;
r@124 187 #X obj 337 135 r SET_UP;
r@124 188 #X obj 343 195 r SET_UP;
r@124 189 #X obj 351 253 r SET_UP;
r@124 190 #X text 388 166 Obs Elevation;
r@124 191 #X text 400 222 Obs Azimuth;
r@124 192 #X text 374 110 Obs Distance;
r@124 193 #X obj 296 342 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@118 194 -262144 -1 -1 6350 1;
r@124 195 #X floatatom 320 371 5 0 0 0 - - -;
r@124 196 #X obj 378 316 r SET_UP;
r@124 197 #X obj 318 396 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@118 198 -262144 -1 -1 6350 1;
r@124 199 #X floatatom 342 425 5 0 0 0 - - -;
r@124 200 #X obj 400 370 r SET_UP;
r@124 201 #X obj 324 449 hsl 128 15 -180 180 0 0 empty empty empty -2 -8 0 10
r@118 202 -262144 -1 -1 6350 1;
r@124 203 #X floatatom 348 478 5 0 0 0 - - -;
r@124 204 #X obj 406 423 r SET_UP;
r@124 205 #X msg 33 325 0;
r@124 206 #X msg 13 379 0;
r@124 207 #X msg -10 432 0;
r@124 208 #X text 457 397 Source Rotation Y;
r@124 209 #X text 435 343 Source Rotation X;
r@124 210 #X text 463 450 Source Rotation Z;
r@124 211 #N canvas 1023 81 1013 557 writing 0;
r@124 212 #X obj 23 -100 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@124 213 1;
r@124 214 #X obj 23 -134 loadbang;
r@124 215 #X obj 203 59 r rey1;
r@124 216 #X obj 164 26 r outFreq1;
r@124 217 #X obj 249 48 r Diameter1;
r@124 218 #N canvas 0 22 450 278 (subpatch) 0;
r@124 219 #X array freqs 2000 float 3;
r@124 220 #A 0 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 221 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 222 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 223 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 224 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 225 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 226 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 227 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 228 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 229 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 230 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 231 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 232 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 233 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 234 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 235 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 236 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 237 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 238 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 239 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 240 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 241 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 242 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 243 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 244 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 245 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 246 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 247 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 248 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 249 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 250 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 251 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 252 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 253 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 254 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 255 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 256 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 257 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 258 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 259 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 260 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 261 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 262 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 263 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 264 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 265 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 266 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 267 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 268 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 269 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 270 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 271 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 272 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 273 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 274 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 275 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 276 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 277 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 278 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1;
r@124 279 #A 1000 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 280 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 281 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 282 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 283 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 284 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 285 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 286 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 287 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 288 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 289 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 290 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 291 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 292 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 293 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 294 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 295 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 296 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 297 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 298 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 299 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 300 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 301 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 302 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 303 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 304 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 305 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 306 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 307 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 308 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 309 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 310 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 311 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 312 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 313 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 314 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 315 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 316 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 317 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 318 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 319 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 320 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 321 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 322 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 323 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 324 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 325 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 326 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 327 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 328 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 329 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 330 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 331 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 332 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 333 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 334 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 335 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 336 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1
r@124 337 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1;
r@124 338 #X coords 0 350 2000 200 500 400 1 0 0;
r@124 339 #X restore 444 -90 graph;
r@124 340 #X obj 342 46 tabwrite freqs;
r@124 341 #X obj 106 293 textfile;
r@124 342 #X obj 219 -38 count 20000;
r@124 343 #X msg 215 264 clear \, rewind;
r@124 344 #X obj 23 110 f;
r@124 345 #X obj 78 109 f;
r@124 346 #X obj 149 106 f;
r@124 347 #X obj 188 103 f;
r@124 348 #X obj 234 108 f;
r@124 349 #X msg 24 142 add2 \$1;
r@124 350 #X msg 76 141 add2 \$1;
r@124 351 #X msg 130 142 add2 \$1;
r@124 352 #X msg 180 143 add2 \$1;
r@124 353 #X msg 286 142 add \$1;
r@124 354 #X obj 316 92 r qValue1;
r@124 355 #X obj 278 118 f;
r@124 356 #X obj 23 56 t b b b b b b;
r@124 357 #X msg 233 144 add2 \$1;
r@124 358 #X obj 348 -89 inlet~;
r@124 359 #X obj 358 -47 snapshot~;
r@124 360 #X obj 23 -70 metro 1;
r@124 361 #X msg 268 181 write azim1.txt;
r@124 362 #X obj 93 3 r azim;
r@124 363 #X connect 0 0 26 0;
r@124 364 #X connect 1 0 0 0;
r@124 365 #X connect 2 0 13 1;
r@124 366 #X connect 3 0 6 0;
r@124 367 #X connect 3 0 12 1;
r@124 368 #X connect 4 0 14 1;
r@124 369 #X connect 8 0 6 1;
r@124 370 #X connect 8 0 10 1;
r@124 371 #X connect 9 0 7 0;
r@124 372 #X connect 10 0 15 0;
r@124 373 #X connect 11 0 16 0;
r@124 374 #X connect 15 0 7 0;
r@124 375 #X connect 16 0 7 0;
r@124 376 #X connect 17 0 7 0;
r@124 377 #X connect 18 0 7 0;
r@124 378 #X connect 19 0 7 0;
r@124 379 #X connect 21 0 19 0;
r@124 380 #X connect 22 0 10 0;
r@124 381 #X connect 22 1 11 0;
r@124 382 #X connect 22 2 12 0;
r@124 383 #X connect 22 3 13 0;
r@124 384 #X connect 22 4 14 0;
r@124 385 #X connect 22 5 21 0;
r@124 386 #X connect 23 0 7 0;
r@124 387 #X connect 24 0 25 0;
r@124 388 #X connect 25 0 21 1;
r@124 389 #X connect 26 0 8 0;
r@124 390 #X connect 26 0 22 0;
r@124 391 #X connect 26 0 25 0;
r@124 392 #X connect 27 0 7 0;
r@124 393 #X connect 28 0 11 1;
r@134 394 #X restore -414 49 pd writing;
r@124 395 #X obj 440 243 s azim;
r@124 396 #X msg 77 204 90;
r@124 397 #X msg 125 188 120;
r@124 398 #X msg 171 165 -45;
r@134 399 #X obj -374 10 sig~;
r@125 400 #X msg 134 232 5;
r@125 401 #X msg 290 -20 0.01;
r@125 402 #X floatatom -148 -87 5 0 0 0 - - -;
r@125 403 #X msg 337 -20 0.0015;
r@134 404 #X msg 196 -39 0;
r@134 405 #X msg -334 -51 30 3000;
r@134 406 #X msg -363 -85 0;
r@134 407 #X obj -330 -12 line~;
r@134 408 #X obj -483 265 unpack f f f f f f;
r@134 409 #X obj -378 289 s GAIN;
r@134 410 #X obj -323 63 r GAIN;
r@134 411 #X obj -399 312 s AZIM;
r@134 412 #X obj 407 191 r AZIM;
r@134 413 #X obj -420 333 s DIST;
r@134 414 #X obj 416 83 r DIST;
r@134 415 #X obj -441 354 s LEN;
r@134 416 #X obj 397 43 r LEN;
r@134 417 #X obj -462 374 s DIA;
r@134 418 #X obj 390 -22 r DIA;
r@134 419 #X obj -483 395 s SPEED;
r@134 420 #X obj -188 -151 r SPEED;
r@134 421 #X msg -328 120 0;
r@134 422 #X msg -482 112 13 0.0015 10 1 85 200;
r@134 423 #X msg -461 164 13 0.0015 10 1 5 700;
r@134 424 #X msg -473 136 13 0.0015 10 1 45 150;
r@134 425 #X msg -454 197 25 0.0015 10 1 85 4;
r@134 426 #X obj -482 81 loadbang;
r@134 427 #X msg -156 138 1;
r@134 428 #X floatatom -314 190 5 0 0 0 - - -;
r@134 429 #X msg -444 232 13 0.005 10 1 85 150;
r@139 430 #X obj -444 -44 hsl 128 15 0 55 0 0 empty empty empty -2 -8 0 10 -262144
r@139 431 -1 -1 0 1;
r@138 432 #X floatatom -456 -5 5 0 0 0 - - -;
r@139 433 #X msg 154 -7 0.0254;
r@139 434 #X msg -378 -17 32.3;
r@139 435 #X obj 199 481 freqCalcCyl3_D1Mach;
r@139 436 #X connect 0 0 45 0;
r@134 437 #X connect 1 0 8 0;
r@134 438 #X connect 3 0 8 1;
r@134 439 #X connect 3 0 9 1;
r@139 440 #X connect 3 0 89 0;
r@134 441 #X connect 4 0 7 0;
r@139 442 #X connect 4 0 53 0;
r@134 443 #X connect 5 0 4 0;
r@106 444 #X connect 6 0 5 0;
r@134 445 #X connect 8 0 9 0;
r@137 446 #X connect 9 0 4 0;
r@139 447 #X connect 9 0 2 0;
r@134 448 #X connect 10 0 6 0;
r@134 449 #X connect 12 0 13 0;
r@134 450 #X connect 13 0 3 0;
r@134 451 #X connect 14 0 15 0;
r@139 452 #X connect 14 0 121 1;
r@134 453 #X connect 16 0 17 0;
r@139 454 #X connect 16 0 121 6;
r@134 455 #X connect 19 0 20 0;
r@139 456 #X connect 19 0 121 4;
r@134 457 #X connect 21 0 22 0;
r@139 458 #X connect 21 0 82 0;
r@139 459 #X connect 21 0 121 5;
r@134 460 #X connect 23 0 24 0;
r@139 461 #X connect 23 0 121 3;
r@134 462 #X connect 29 0 31 0;
r@134 463 #X connect 30 0 26 0;
r@134 464 #X connect 30 1 27 0;
r@134 465 #X connect 31 0 32 0;
r@134 466 #X connect 32 0 30 0;
r@139 467 #X connect 32 0 115 0;
r@134 468 #X connect 33 0 35 0;
r@139 469 #X connect 33 0 55 0;
r@134 470 #X connect 34 0 33 0;
r@134 471 #X connect 36 0 37 0;
r@134 472 #X connect 37 0 34 0;
r@139 473 #X connect 40 0 56 0;
r@139 474 #X connect 42 0 23 0;
r@139 475 #X connect 43 0 19 0;
r@139 476 #X connect 44 0 16 0;
r@139 477 #X connect 45 0 91 0;
r@139 478 #X connect 45 0 119 0;
r@139 479 #X connect 45 0 42 0;
r@139 480 #X connect 45 0 43 0;
r@139 481 #X connect 45 0 83 0;
r@139 482 #X connect 45 0 44 0;
r@139 483 #X connect 45 0 48 0;
r@139 484 #X connect 45 0 75 0;
r@139 485 #X connect 45 0 76 0;
r@139 486 #X connect 45 0 77 0;
r@139 487 #X connect 46 0 47 0;
r@139 488 #X connect 46 0 121 2;
r@139 489 #X connect 48 0 46 0;
r@139 490 #X connect 49 0 30 1;
r@139 491 #X connect 50 0 114 0;
r@139 492 #X connect 54 0 33 0;
r@139 493 #X connect 57 0 14 0;
r@139 494 #X connect 58 0 46 0;
r@139 495 #X connect 59 0 23 0;
r@139 496 #X connect 60 0 19 0;
r@139 497 #X connect 61 0 21 0;
r@139 498 #X connect 62 0 16 0;
r@139 499 #X connect 66 0 67 0;
r@139 500 #X connect 66 0 121 7;
r@139 501 #X connect 68 0 66 0;
r@139 502 #X connect 69 0 70 0;
r@139 503 #X connect 69 0 121 8;
r@139 504 #X connect 71 0 69 0;
r@139 505 #X connect 72 0 73 0;
r@139 506 #X connect 72 0 121 9;
r@139 507 #X connect 74 0 72 0;
r@139 508 #X connect 75 0 66 0;
r@139 509 #X connect 76 0 69 0;
r@139 510 #X connect 77 0 72 0;
r@139 511 #X connect 83 0 21 0;
r@139 512 #X connect 84 0 21 0;
r@134 513 #X connect 85 0 21 0;
r@134 514 #X connect 87 0 21 0;
r@139 515 #X connect 88 0 14 0;
r@137 516 #X connect 90 0 14 0;
r@139 517 #X connect 91 0 121 0;
r@139 518 #X connect 92 0 94 0;
r@139 519 #X connect 93 0 94 0;
r@139 520 #X connect 95 0 106 0;
r@139 521 #X connect 95 1 104 0;
r@139 522 #X connect 95 2 102 0;
r@139 523 #X connect 95 3 100 0;
r@139 524 #X connect 95 4 98 0;
r@139 525 #X connect 95 5 96 0;
r@139 526 #X connect 97 0 32 0;
r@139 527 #X connect 99 0 21 0;
r@139 528 #X connect 101 0 23 0;
r@139 529 #X connect 103 0 46 0;
r@139 530 #X connect 105 0 14 0;
r@139 531 #X connect 107 0 3 0;
r@139 532 #X connect 108 0 32 0;
r@139 533 #X connect 109 0 95 0;
r@139 534 #X connect 110 0 95 0;
r@139 535 #X connect 111 0 95 0;
r@139 536 #X connect 112 0 95 0;
r@139 537 #X connect 113 0 109 0;
r@139 538 #X connect 114 0 49 0;
r@139 539 #X connect 116 0 95 0;
r@139 540 #X connect 117 0 86 0;
r@139 541 #X connect 117 0 118 0;
r@139 542 #X connect 119 0 14 0;
r@139 543 #X connect 120 0 86 0;
r@139 544 #X connect 121 0 41 0;