Mercurial > hg > weather-synthesis-prototyping

annotate sept - Dec 14/thunder4.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 3504138285bb
children
rev   line source
r@33 1 #N canvas 168 171 601 372 10;
r@33 2 #N canvas 152 29 188 323 afterimage 0;
r@33 3 #X obj 1 114 noise~;
r@33 4 #X obj 16 176 noise~;
r@33 5 #X obj 1 199 *~;
r@33 6 #X obj 1 241 bp~ 333 4;
r@33 7 #X obj 1 135 lop~ 3;
r@33 8 #X obj 1 220 clip~ -1 1;
r@33 9 #X obj 52 68 line;
r@33 10 #X obj 52 109 + 3;
r@33 11 #X obj 52 89 * 30;
r@33 12 #X obj 1 156 *~ 80;
r@33 13 #X obj 117 67 line;
r@33 14 #X obj 1 263 *~;
r@33 15 #X msg 52 48 1 \, 0 600;
r@33 16 #X msg 117 47 1 \, 0 6000;
r@33 17 #X obj 1 283 *~ 0.9;
r@33 18 #X obj 85 23 del 200;
r@33 19 #X obj 85 1 inlet;
r@33 20 #X obj 1 303 outlet~;
r@33 21 #X connect 0 0 4 0;
r@33 22 #X connect 1 0 2 1;
r@33 23 #X connect 2 0 5 0;
r@33 24 #X connect 3 0 11 0;
r@33 25 #X connect 4 0 9 0;
r@33 26 #X connect 5 0 3 0;
r@33 27 #X connect 6 0 8 0;
r@33 28 #X connect 7 0 4 1;
r@33 29 #X connect 8 0 7 0;
r@33 30 #X connect 9 0 2 0;
r@33 31 #X connect 10 0 11 1;
r@33 32 #X connect 11 0 14 0;
r@33 33 #X connect 12 0 6 0;
r@33 34 #X connect 13 0 10 0;
r@33 35 #X connect 14 0 17 0;
r@33 36 #X connect 15 0 12 0;
r@33 37 #X connect 15 0 13 0;
r@33 38 #X connect 16 0 15 0;
r@33 39 #X restore 248 91 pd afterimage;
r@33 40 #X obj 272 262 distance;
r@33 41 #X obj 323 238 line;
r@33 42 #X obj 11 71 r go;
r@33 43 #X obj 248 68 r go;
r@33 44 #X obj 350 66 r go;
r@33 45 #X obj 128 70 r go;
r@33 46 #X obj 186 49 line;
r@33 47 #X msg 186 26 1 \, 0 9000;
r@33 48 #X obj 186 4 r go;
r@33 49 #X obj 323 193 r go;
r@33 50 #X obj 272 348 dac~;
r@33 51 #X obj 286 288 s~ udly;
r@33 52 #N canvas 265 516 402 108 box 0;
r@33 53 #X obj 319 51 switch~;
r@33 54 #X obj 319 29 inlet;
r@33 55 #X obj 1 7 udly 12000;
r@33 56 #X obj 11 17 udly 12000;
r@33 57 #X obj 21 27 udly 12000;
r@33 58 #X obj 31 37 udly 12000;
r@33 59 #X obj 41 47 udly 12000;
r@33 60 #X obj 51 57 udly 12000;
r@33 61 #X obj 61 67 udly 12000;
r@33 62 #X obj 71 77 udly 12000;
r@33 63 #X obj 87 7 udly 12000;
r@33 64 #X obj 97 17 udly 12000;
r@33 65 #X obj 107 27 udly 12000;
r@33 66 #X obj 117 37 udly 12000;
r@33 67 #X obj 127 47 udly 12000;
r@33 68 #X obj 137 57 udly 12000;
r@33 69 #X obj 147 67 udly 12000;
r@33 70 #X obj 157 77 udly 12000;
r@33 71 #X obj 172 6 udly 12000;
r@33 72 #X obj 182 16 udly 12000;
r@33 73 #X obj 192 26 udly 12000;
r@33 74 #X obj 202 36 udly 12000;
r@33 75 #X obj 212 46 udly 12000;
r@33 76 #X obj 222 56 udly 12000;
r@33 77 #X obj 232 66 udly 12000;
r@33 78 #X obj 242 76 udly 12000;
r@33 79 #X connect 1 0 0 0;
r@33 80 #X restore 465 135 pd box of delays;
r@33 81 #X obj 126 264 catch~ la;
r@33 82 #X obj 368 263 catch~ ra;
r@33 83 #X obj 465 115 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
r@33 84 1;
r@33 85 #X obj 490 112 s shake;
r@33 86 #X obj 490 91 r go;
r@33 87 #X obj 12 22 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
r@33 88 -1;
r@33 89 #X obj 12 44 s go;
r@33 90 #X obj 186 71 * 2000;
r@33 91 #X msg 323 215 0 \, 1 12000;
r@33 92 #X obj 248 135 throw~ out;
r@33 93 #X obj 197 264 catch~ out;
r@33 94 #X obj 350 135 throw~ distance;
r@33 95 #X obj 129 135 throw~ distance;
r@33 96 #X obj 272 173 catch~ distance;
r@33 97 #N canvas 132 138 177 510 rumble 0;
r@33 98 #X obj 17 110 noise~;
r@33 99 #X obj 33 314 -~ 0.5;
r@33 100 #X obj 33 339 *~;
r@33 101 #X obj 33 359 *~ -4;
r@33 102 #X obj 33 379 +~ 1;
r@33 103 #X obj 33 399 *~ 0.5;
r@33 104 #X obj 75 28 noise~;
r@33 105 #X obj 75 89 max~ 0;
r@33 106 #X obj 17 172 samphold~;
r@33 107 #X msg 938 102 0.54;
r@33 108 #X obj 75 151 phasor~;
r@33 109 #X obj 75 111 *~ 3000;
r@33 110 #X obj 17 419 *~;
r@33 111 #X obj 17 439 hip~ 100;
r@33 112 #X obj 17 192 rpole~ 0.99;
r@33 113 #X obj 17 212 *~ 0.04;
r@33 114 #X obj 75 131 +~ 1;
r@33 115 #X obj 81 -12 inlet density;
r@33 116 #X obj 17 131 lop~;
r@33 117 #X obj 17 152 lop~;
r@33 118 #X obj 75 68 lop~;
r@33 119 #X obj 75 48 lop~;
r@33 120 #X obj 1 480 outlet~;
r@33 121 #X obj 17 241 min~ 0;
r@33 122 #X obj 17 263 *~ -1;
r@33 123 #X obj 65 240 max~ 0;
r@33 124 #X obj 17 286 +~;
r@33 125 #X obj 1 28 vline~;
r@33 126 #X obj 1 459 *~;
r@33 127 #X obj 1 -12 inlet trig;
r@33 128 #X msg 1 8 1 50 \, 0 8000 50;
r@33 129 #X connect 0 0 18 0;
r@33 130 #X connect 1 0 2 0;
r@33 131 #X connect 1 0 2 1;
r@33 132 #X connect 2 0 3 0;
r@33 133 #X connect 3 0 4 0;
r@33 134 #X connect 4 0 5 0;
r@33 135 #X connect 5 0 12 1;
r@33 136 #X connect 6 0 21 0;
r@33 137 #X connect 7 0 11 0;
r@33 138 #X connect 8 0 14 0;
r@33 139 #X connect 10 0 8 1;
r@33 140 #X connect 11 0 16 0;
r@33 141 #X connect 12 0 13 0;
r@33 142 #X connect 13 0 28 1;
r@33 143 #X connect 14 0 15 0;
r@33 144 #X connect 15 0 25 0;
r@33 145 #X connect 15 0 23 0;
r@33 146 #X connect 16 0 10 0;
r@33 147 #X connect 17 0 20 1;
r@33 148 #X connect 17 0 21 1;
r@33 149 #X connect 17 0 18 1;
r@33 150 #X connect 17 0 19 1;
r@33 151 #X connect 18 0 19 0;
r@33 152 #X connect 19 0 8 0;
r@33 153 #X connect 20 0 7 0;
r@33 154 #X connect 21 0 20 0;
r@33 155 #X connect 23 0 24 0;
r@33 156 #X connect 24 0 26 0;
r@33 157 #X connect 25 0 26 1;
r@33 158 #X connect 26 0 1 0;
r@33 159 #X connect 26 0 12 0;
r@33 160 #X connect 27 0 28 0;
r@33 161 #X connect 28 0 22 0;
r@33 162 #X connect 29 0 30 0;
r@33 163 #X connect 30 0 27 0;
r@33 164 #X restore 128 93 pd rumble;
r@33 165 #N canvas 148 116 232 212 deep 0;
r@33 166 #X obj 8 -8 noise~;
r@33 167 #X obj 7 161 *~;
r@33 168 #X obj 84 115 *~;
r@33 169 #X obj 84 49 del 1000;
r@33 170 #X obj 84 28 inlet;
r@33 171 #X obj 7 181 outlet~;
r@33 172 #X obj 84 91 vline~;
r@33 173 #X msg 84 70 1 2000 \, 0 20000 2000;
r@33 174 #X obj 8 12 lop~ 80;
r@33 175 #X obj 8 32 lop~ 80;
r@33 176 #X obj 8 52 hip~ 15;
r@33 177 #X obj 8 92 clip~ -1 1;
r@33 178 #X obj 8 72 *~ 12;
r@33 179 #X obj 8 112 lop~ 80;
r@33 180 #X obj 8 132 lop~ 80;
r@33 181 #X connect 0 0 8 0;
r@33 182 #X connect 1 0 5 0;
r@33 183 #X connect 2 0 1 1;
r@33 184 #X connect 3 0 7 0;
r@33 185 #X connect 4 0 3 0;
r@33 186 #X connect 6 0 2 0;
r@33 187 #X connect 6 0 2 1;
r@33 188 #X connect 7 0 6 0;
r@33 189 #X connect 8 0 9 0;
r@33 190 #X connect 9 0 10 0;
r@33 191 #X connect 10 0 12 0;
r@33 192 #X connect 11 0 13 0;
r@33 193 #X connect 12 0 11 0;
r@33 194 #X connect 13 0 14 0;
r@33 195 #X connect 14 0 1 0;
r@33 196 #X restore 350 88 pd deep;
r@33 197 #X obj 11 135 throw~ out;
r@33 198 #N canvas 724 263 166 223 strike 0;
r@33 199 #X obj 0 172 outlet~;
r@33 200 #X obj 1 44 route 0 1 2 3;
r@33 201 #X obj 1 0 inlet;
r@33 202 #N canvas 0 181 261 370 strike-pattern 1;
r@33 203 #X obj 59 8 inlet;
r@33 204 #X obj 130 334 outlet;
r@33 205 #X obj 59 38 t b b;
r@33 206 #X msg 59 71 1;
r@33 207 #X msg 89 71 0;
r@33 208 #X obj 59 98 +;
r@33 209 #X obj 89 98 f;
r@33 210 #X obj 59 125 moses 100;
r@33 211 #X obj 59 152 t f f;
r@33 212 #X obj 59 179 del;
r@33 213 #X obj 59 207 t b b;
r@33 214 #X obj 13 101 / 10;
r@33 215 #X obj 59 257 random 100;
r@33 216 #X obj 190 234 swap 100;
r@33 217 #X obj 190 258 -;
r@33 218 #X obj 190 284 / 100;
r@33 219 #X obj 130 257 f;
r@33 220 #X obj 159 257 + 1;
r@33 221 #X obj 130 283 mod 4;
r@33 222 #X obj 130 308 pack f f;
r@33 223 #X connect 0 0 2 0;
r@33 224 #X connect 2 0 3 0;
r@33 225 #X connect 2 1 4 0;
r@33 226 #X connect 3 0 5 0;
r@33 227 #X connect 4 0 6 0;
r@33 228 #X connect 5 0 6 0;
r@33 229 #X connect 5 0 7 0;
r@33 230 #X connect 6 0 5 1;
r@33 231 #X connect 7 0 8 0;
r@33 232 #X connect 8 0 9 0;
r@33 233 #X connect 8 1 13 0;
r@33 234 #X connect 9 0 10 0;
r@33 235 #X connect 10 0 12 0;
r@33 236 #X connect 10 1 16 0;
r@33 237 #X connect 11 0 5 0;
r@33 238 #X connect 12 0 11 0;
r@33 239 #X connect 13 0 14 0;
r@33 240 #X connect 13 1 14 1;
r@33 241 #X connect 14 0 15 0;
r@33 242 #X connect 15 0 19 1;
r@33 243 #X connect 16 0 17 0;
r@33 244 #X connect 16 0 18 0;
r@33 245 #X connect 17 0 16 1;
r@33 246 #X connect 18 0 19 0;
r@33 247 #X connect 19 0 1 0;
r@33 248 #X restore 1 23 pd strike-pattern;
r@33 249 #X obj 1 67 strike-sound;
r@33 250 #X obj 22 87 strike-sound;
r@33 251 #X obj 65 126 strike-sound;
r@33 252 #X obj 44 107 strike-sound;
r@33 253 #X connect 1 0 4 0;
r@33 254 #X connect 1 1 5 0;
r@33 255 #X connect 1 2 7 0;
r@33 256 #X connect 1 3 6 0;
r@33 257 #X connect 2 0 3 0;
r@33 258 #X connect 3 0 1 0;
r@33 259 #X connect 4 0 0 0;
r@33 260 #X connect 5 0 0 0;
r@33 261 #X connect 6 0 0 0;
r@33 262 #X connect 7 0 0 0;
r@33 263 #X restore 11 94 pd strike;
r@33 264 #X obj 12 0 inlet;
r@33 265 #X obj 465 63 inlet;
r@33 266 #X obj 11 115 *~ 0.3;
r@33 267 #X obj 129 114 *~ 0.2;
r@33 268 #X obj 248 113 *~ 0.9;
r@33 269 #X obj 350 111 *~ 0.5;
r@33 270 #X obj 367 340 throw~ l;
r@33 271 #X obj 460 344 throw~ r;
r@33 272 #X connect 0 0 36 0;
r@33 273 #X connect 1 0 11 0;
r@33 274 #X connect 1 0 11 1;
r@33 275 #X connect 1 0 12 0;
r@33 276 #X connect 1 0 38 0;
r@33 277 #X connect 1 0 39 0;
r@33 278 #X connect 2 0 1 1;
r@33 279 #X connect 3 0 31 0;
r@33 280 #X connect 4 0 0 0;
r@33 281 #X connect 5 0 29 0;
r@33 282 #X connect 6 0 28 0;
r@33 283 #X connect 7 0 21 0;
r@33 284 #X connect 8 0 7 0;
r@33 285 #X connect 9 0 8 0;
r@33 286 #X connect 10 0 22 0;
r@33 287 #X connect 14 0 11 0;
r@33 288 #X connect 14 0 38 0;
r@33 289 #X connect 15 0 11 1;
r@33 290 #X connect 15 0 39 0;
r@33 291 #X connect 16 0 13 0;
r@33 292 #X connect 18 0 17 0;
r@33 293 #X connect 19 0 20 0;
r@33 294 #X connect 21 0 28 1;
r@33 295 #X connect 22 0 2 0;
r@33 296 #X connect 24 0 11 0;
r@33 297 #X connect 24 0 11 1;
r@33 298 #X connect 24 0 38 0;
r@33 299 #X connect 24 0 39 0;
r@33 300 #X connect 27 0 1 0;
r@33 301 #X connect 28 0 35 0;
r@33 302 #X connect 29 0 37 0;
r@33 303 #X connect 31 0 34 0;
r@33 304 #X connect 32 0 19 0;
r@33 305 #X connect 33 0 16 0;
r@33 306 #X connect 34 0 30 0;
r@33 307 #X connect 35 0 26 0;
r@33 308 #X connect 36 0 23 0;
r@33 309 #X connect 37 0 25 0;