annotate sept - Dec 14/windD2.pd @ 115:61d267c71a18

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 3504138285bb
children
rev   line source
r@33 1 #N canvas 153 130 1130 601 10;
r@33 2 #X obj 290 242 *~;
r@33 3 #X obj 626 193 +~ 1000;
r@33 4 #X obj 626 173 *~ 1000;
r@33 5 #X msg 665 217 60;
r@33 6 #X obj 126 74 noise~;
r@33 7 #X obj 585 261 *~;
r@33 8 #N canvas 696 178 393 360 windspeed 0;
r@33 9 #X obj 13 41 +~ 1;
r@33 10 #X obj 12 151 +~;
r@33 11 #X obj 13 64 *~ 0.25;
r@33 12 #X obj 28 129 +~;
r@33 13 #X obj 13 173 clip~ 0 1;
r@33 14 #N canvas 0 22 184 221 squall 0;
r@33 15 #X obj 78 41 noise~;
r@33 16 #X obj 77 108 hip~ 0;
r@33 17 #X obj 78 64 lop~ 3;
r@33 18 #X obj 78 85 lop~ 3;
r@33 19 #X obj 17 112 *~;
r@33 20 #X obj 38 160 *~;
r@33 21 #X obj 16 42 max~ 0.4;
r@33 22 #X obj 16 64 -~ 0.4;
r@33 23 #X obj 16 87 *~ 8;
r@33 24 #X obj 78 129 *~ 20;
r@33 25 #X obj 16 14 inlet~;
r@33 26 #X obj 40 184 outlet~;
r@33 27 #X connect 0 0 2 0;
r@33 28 #X connect 1 0 9 0;
r@33 29 #X connect 2 0 3 0;
r@33 30 #X connect 3 0 1 0;
r@33 31 #X connect 4 0 5 0;
r@33 32 #X connect 5 0 11 0;
r@33 33 #X connect 6 0 7 0;
r@33 34 #X connect 7 0 8 0;
r@33 35 #X connect 8 0 4 0;
r@33 36 #X connect 8 0 4 1;
r@33 37 #X connect 9 0 5 1;
r@33 38 #X connect 10 0 6 0;
r@33 39 #X restore 83 98 pd squall;
r@33 40 #N canvas 0 22 190 244 gust 0;
r@33 41 #X obj 9 15 noise~;
r@33 42 #X obj 8 82 hip~ 0;
r@33 43 #X obj 8 157 *~;
r@33 44 #X obj 76 72 *~;
r@33 45 #X obj 75 49 +~ 0.5;
r@33 46 #X obj 76 96 -~ 0.125;
r@33 47 #X obj 9 59 lop~ 0.5;
r@33 48 #X obj 9 38 lop~ 0.5;
r@33 49 #X obj 9 103 *~ 50;
r@33 50 #X obj 75 9 inlet~;
r@33 51 #X obj 8 182 outlet~;
r@33 52 #X connect 0 0 7 0;
r@33 53 #X connect 1 0 8 0;
r@33 54 #X connect 2 0 10 0;
r@33 55 #X connect 3 0 5 0;
r@33 56 #X connect 4 0 3 0;
r@33 57 #X connect 4 0 3 1;
r@33 58 #X connect 5 0 2 1;
r@33 59 #X connect 6 0 1 0;
r@33 60 #X connect 7 0 6 0;
r@33 61 #X connect 8 0 2 0;
r@33 62 #X connect 9 0 4 0;
r@33 63 #X restore 27 98 pd gust;
r@33 64 #X obj 13 199 outlet~;
r@33 65 #X obj 13 19 osc~ 0.1;
r@33 66 #X obj 118 -14 inlet;
r@33 67 #X obj 152 42 / 4;
r@33 68 #X connect 0 0 2 0;
r@33 69 #X connect 1 0 4 0;
r@33 70 #X connect 2 0 5 0;
r@33 71 #X connect 2 0 1 0;
r@33 72 #X connect 2 0 6 0;
r@33 73 #X connect 3 0 1 1;
r@33 74 #X connect 4 0 7 0;
r@33 75 #X connect 5 0 3 1;
r@33 76 #X connect 6 0 3 0;
r@33 77 #X connect 8 0 0 0;
r@33 78 #X connect 9 0 0 1;
r@33 79 #X connect 9 0 10 0;
r@33 80 #X connect 10 0 2 1;
r@33 81 #X restore 4 71 pd windspeed;
r@33 82 #X obj 4 93 delwrite~ a 3000;
r@33 83 #X obj 586 237 vcf~ 1000 60;
r@33 84 #X obj 601 193 *~;
r@33 85 #X obj 585 282 *~ 2;
r@33 86 #X obj 590 367 throw~ l;
r@33 87 #X obj 654 367 throw~ r;
r@33 88 #X msg 523 168 60;
r@33 89 #X obj 429 260 *~;
r@33 90 #X obj 430 190 vcf~ 1000 60;
r@33 91 #X obj 446 238 *~;
r@33 92 #X obj 523 148 loadbang;
r@33 93 #X obj 434 367 throw~ l;
r@33 94 #X obj 498 367 throw~ r;
r@33 95 #X obj 469 148 *~ 400;
r@33 96 #X obj 469 168 +~ 600;
r@33 97 #X obj 434 342 fcpan 0.28;
r@33 98 #X obj 590 342 fcpan 0.64;
r@33 99 #X obj 126 96 s~ white;
r@33 100 #X obj 586 125 r~ white;
r@33 101 #X obj 429 100 r~ white;
r@33 102 #X obj 429 282 *~ 1.2;
r@33 103 #X obj 445 212 +~ 0.12;
r@33 104 #X obj 719 367 throw~ l;
r@33 105 #X obj 783 367 throw~ r;
r@33 106 #X obj 713 126 r~ white;
r@33 107 #X obj 713 154 max~;
r@33 108 #X obj 713 175 -~;
r@33 109 #X obj 713 197 *~;
r@33 110 #X obj 779 102 sig~ 1;
r@33 111 #X obj 779 126 -~;
r@33 112 #X obj 714 263 *~;
r@33 113 #X obj 797 33 +~ 0.3;
r@33 114 #X obj 912 99 -~ 0.2;
r@33 115 #X obj 796 81 *~ 0.4;
r@33 116 #X obj 713 219 hip~ 200;
r@33 117 #X obj 714 241 lop~ 4000;
r@33 118 #X obj 295 367 throw~ l;
r@33 119 #X obj 360 367 throw~ r;
r@33 120 #X obj 719 342 fcpan 0.71;
r@33 121 #X obj 290 198 r~ white;
r@33 122 #X obj 368 133 cos~;
r@33 123 #X obj 368 67 -~ 0.25;
r@33 124 #X obj 368 45 clip~ 0.25 0.5;
r@33 125 #X obj 368 111 -~ 0.25;
r@33 126 #X obj 368 89 *~ 2;
r@33 127 #X obj 290 220 bp~ 200 40;
r@33 128 #X obj 290 286 *~;
r@33 129 #X obj 368 221 osc~;
r@33 130 #X obj 368 177 *~ 100;
r@33 131 #X obj 368 199 +~ 20;
r@33 132 #X obj 368 155 lop~ 0.1;
r@33 133 #X obj 158 242 *~;
r@33 134 #X obj 163 367 throw~ l;
r@33 135 #X obj 228 367 throw~ r;
r@33 136 #X obj 158 198 r~ white;
r@33 137 #X obj 236 133 cos~;
r@33 138 #X obj 236 111 -~ 0.25;
r@33 139 #X obj 236 89 *~ 2;
r@33 140 #X obj 160 296 *~;
r@33 141 #X obj 236 221 osc~;
r@33 142 #X obj 236 45 clip~ 0.35 0.6;
r@33 143 #X obj 236 67 -~ 0.35;
r@33 144 #X obj 236 155 lop~ 0.5;
r@33 145 #X obj 158 220 bp~ 400 40;
r@33 146 #X obj 236 177 *~ 200;
r@33 147 #X obj 236 199 +~ 30;
r@33 148 #X obj 158 264 *~ 2;
r@33 149 #X obj 290 264 *~ 2;
r@33 150 #X obj 236 23 vd~ a 100;
r@33 151 #X obj 368 23 vd~ a 300;
r@33 152 #X obj 445 121 vd~ a 500;
r@33 153 #X obj 602 146 vd~ a 900;
r@33 154 #X obj 163 345 fcpan 0.91;
r@33 155 #X obj 295 345 fcpan 0.03;
r@33 156 #X obj 1 128 vd~ a 0;
r@33 157 #X obj 18 171 r~ white;
r@33 158 #X obj 29 367 throw~ l;
r@33 159 #X obj 94 367 throw~ r;
r@33 160 #X obj 1 217 *~;
r@33 161 #X obj 29 345 fcpan 0.51;
r@33 162 #X obj 63 235 clip~ 0 0.99;
r@33 163 #X obj 25 263 rzero~;
r@33 164 #X obj 1 150 +~ 0.2;
r@33 165 #X obj 62 213 *~ 0.6;
r@33 166 #X obj 18 192 bp~ 800 1;
r@33 167 #X obj 797 11 vd~ a 3000;
r@33 168 #X obj 797 55 lop~ 0.07;
r@33 169 #X text 37 398 buildings;
r@33 170 #X text 248 398 doorways;
r@33 171 #X text 512 398 branches/wires;
r@33 172 #X text 734 397 tree leaves;
r@33 173 #X obj 714 284 *~ 0.5;
r@33 174 #X obj 117 -94 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@33 175 -1 -1 12300 1;
r@33 176 #X obj 94 -31 *;
r@33 177 #X floatatom 94 23 5 0 0 0 - - -;
r@33 178 #X obj 93 -62 / 32;
r@33 179 #X obj 94 -3 + 0.25;
r@33 180 #X obj 94 -124 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@33 181 -1 -1 6200 1;
r@33 182 #X obj 49 -102 / 127;
r@33 183 #X floatatom 131 150 5 0 0 0 - - -;
r@33 184 #X obj 189 159 + 100;
r@33 185 #X obj 94 47 * 150;
r@33 186 #X obj 126 173 / 400;
r@33 187 #X obj 187 124 / 2;
r@33 188 #X obj 25 285 *~ 0.1;
r@33 189 #X obj 510 69 + 600;
r@33 190 #X obj 662 95 + 1000;
r@33 191 #X msg 849 226 4000;
r@33 192 #X obj 970 117 vd~ a 0;
r@33 193 #X obj 987 160 r~ white;
r@33 194 #X obj 998 356 throw~ l;
r@33 195 #X obj 1063 356 throw~ r;
r@33 196 #X obj 970 206 *~;
r@33 197 #X obj 998 334 fcpan 0.51;
r@33 198 #X obj 1032 224 clip~ 0 0.99;
r@33 199 #X obj 994 252 rzero~;
r@33 200 #X obj 970 139 +~ 0.2;
r@33 201 #X obj 1031 202 *~ 0.6;
r@33 202 #X obj 994 274 *~ 1.8;
r@33 203 #X obj 1055 254 / 1;
r@33 204 #X obj 987 181 bp~ 120 1;
r@33 205 #X obj 346 -107 loadbang;
r@33 206 #X msg 347 -74 0;
r@33 207 #X obj 506 -124 cnv 15 100 60 empty empty empty 20 12 0 14 -260097
r@33 208 -66577 0;
r@33 209 #X connect 0 0 74 0;
r@33 210 #X connect 1 0 8 1;
r@33 211 #X connect 2 0 1 0;
r@33 212 #X connect 3 0 8 2;
r@33 213 #X connect 4 0 24 0;
r@33 214 #X connect 5 0 10 0;
r@33 215 #X connect 6 0 7 0;
r@33 216 #X connect 8 0 5 0;
r@33 217 #X connect 9 0 5 1;
r@33 218 #X connect 10 0 23 0;
r@33 219 #X connect 13 0 15 2;
r@33 220 #X connect 14 0 27 0;
r@33 221 #X connect 15 0 14 0;
r@33 222 #X connect 16 0 14 1;
r@33 223 #X connect 17 0 13 0;
r@33 224 #X connect 17 0 3 0;
r@33 225 #X connect 20 0 21 0;
r@33 226 #X connect 21 0 15 1;
r@33 227 #X connect 22 0 18 0;
r@33 228 #X connect 22 1 19 0;
r@33 229 #X connect 23 0 11 0;
r@33 230 #X connect 23 1 12 0;
r@33 231 #X connect 25 0 8 0;
r@33 232 #X connect 26 0 15 0;
r@33 233 #X connect 27 0 22 0;
r@33 234 #X connect 28 0 16 0;
r@33 235 #X connect 28 0 16 1;
r@33 236 #X connect 31 0 32 0;
r@33 237 #X connect 32 0 33 0;
r@33 238 #X connect 33 0 34 0;
r@33 239 #X connect 34 0 41 0;
r@33 240 #X connect 35 0 36 0;
r@33 241 #X connect 36 0 32 1;
r@33 242 #X connect 36 0 33 1;
r@33 243 #X connect 36 0 34 1;
r@33 244 #X connect 37 0 98 0;
r@33 245 #X connect 38 0 93 0;
r@33 246 #X connect 39 0 37 1;
r@33 247 #X connect 40 0 36 1;
r@33 248 #X connect 41 0 42 0;
r@33 249 #X connect 42 0 37 0;
r@33 250 #X connect 45 0 29 0;
r@33 251 #X connect 45 1 30 0;
r@33 252 #X connect 46 0 52 0;
r@33 253 #X connect 47 0 57 0;
r@33 254 #X connect 48 0 51 0;
r@33 255 #X connect 49 0 48 0;
r@33 256 #X connect 50 0 47 0;
r@33 257 #X connect 51 0 50 0;
r@33 258 #X connect 52 0 0 0;
r@33 259 #X connect 53 0 80 0;
r@33 260 #X connect 54 0 53 1;
r@33 261 #X connect 55 0 56 0;
r@33 262 #X connect 56 0 54 0;
r@33 263 #X connect 57 0 0 1;
r@33 264 #X connect 57 0 55 0;
r@33 265 #X connect 58 0 73 0;
r@33 266 #X connect 61 0 70 0;
r@33 267 #X connect 62 0 69 0;
r@33 268 #X connect 63 0 62 0;
r@33 269 #X connect 64 0 63 0;
r@33 270 #X connect 65 0 79 0;
r@33 271 #X connect 66 0 65 1;
r@33 272 #X connect 67 0 68 0;
r@33 273 #X connect 68 0 64 0;
r@33 274 #X connect 69 0 58 1;
r@33 275 #X connect 69 0 71 0;
r@33 276 #X connect 70 0 58 0;
r@33 277 #X connect 71 0 72 0;
r@33 278 #X connect 72 0 66 0;
r@33 279 #X connect 73 0 65 0;
r@33 280 #X connect 74 0 53 0;
r@33 281 #X connect 75 0 67 0;
r@33 282 #X connect 76 0 49 0;
r@33 283 #X connect 77 0 20 0;
r@33 284 #X connect 77 0 28 0;
r@33 285 #X connect 78 0 2 0;
r@33 286 #X connect 78 0 9 0;
r@33 287 #X connect 78 0 9 1;
r@33 288 #X connect 79 0 59 0;
r@33 289 #X connect 79 1 60 0;
r@33 290 #X connect 80 0 43 0;
r@33 291 #X connect 80 1 44 0;
r@33 292 #X connect 81 0 89 0;
r@33 293 #X connect 82 0 91 0;
r@33 294 #X connect 85 0 88 0;
r@33 295 #X connect 86 0 83 0;
r@33 296 #X connect 86 1 84 0;
r@33 297 #X connect 87 0 88 1;
r@33 298 #X connect 88 0 111 0;
r@33 299 #X connect 89 0 85 0;
r@33 300 #X connect 89 0 90 0;
r@33 301 #X connect 90 0 87 0;
r@33 302 #X connect 91 0 85 1;
r@33 303 #X connect 92 0 38 0;
r@33 304 #X connect 93 0 39 0;
r@33 305 #X connect 93 0 40 0;
r@33 306 #X connect 98 0 45 0;
r@33 307 #X connect 99 0 102 0;
r@33 308 #X connect 100 0 103 0;
r@33 309 #X connect 101 0 108 0;
r@33 310 #X connect 101 0 126 0;
r@33 311 #X connect 102 0 100 0;
r@33 312 #X connect 102 0 100 1;
r@33 313 #X connect 103 0 101 0;
r@33 314 #X connect 104 0 105 0;
r@33 315 #X connect 105 0 6 0;
r@33 316 #X connect 106 0 91 1;
r@33 317 #X connect 106 0 109 0;
r@33 318 #X connect 107 0 70 1;
r@33 319 #X connect 108 0 106 0;
r@33 320 #X connect 108 0 110 0;
r@33 321 #X connect 108 0 112 0;
r@33 322 #X connect 108 0 113 0;
r@33 323 #X connect 109 0 91 2;
r@33 324 #X connect 110 0 107 0;
r@33 325 #X connect 110 0 52 1;
r@33 326 #X connect 111 0 86 0;
r@33 327 #X connect 112 0 21 1;
r@33 328 #X connect 113 0 1 1;
r@33 329 #X connect 114 0 42 1;
r@33 330 #X connect 115 0 123 0;
r@33 331 #X connect 116 0 127 0;
r@33 332 #X connect 119 0 122 0;
r@33 333 #X connect 120 0 117 0;
r@33 334 #X connect 120 1 118 0;
r@33 335 #X connect 121 0 122 1;
r@33 336 #X connect 122 0 125 0;
r@33 337 #X connect 123 0 119 0;
r@33 338 #X connect 123 0 124 0;
r@33 339 #X connect 124 0 121 0;
r@33 340 #X connect 125 0 120 0;
r@33 341 #X connect 126 0 125 1;
r@33 342 #X connect 127 0 119 1;
r@33 343 #X connect 128 0 129 0;
r@33 344 #X connect 129 0 104 0;
r@33 345 #X connect 129 0 99 0;
r@33 346 #X coords 0 -1 1 1 85 60 1 100 100;