annotate MechAeolian/harpD1.pd @ 231:83c198c642e4

Difference frequency sorted to remain constant during lock in. Main patch tidied up, reducing the number of connections across the GUI.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Mon, 25 Jul 2016 20:04:24 +0100
parents f13bc86bb52f
children
rev   line source
r@224 1 #N canvas 151 30 1167 772 10;
r@223 2 #X obj -193 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@223 3 #X obj -130 285 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@223 4 #X text -133 194 Gain;
r@223 5 #X obj -185 165 loadbang;
r@223 6 #N canvas 555 179 313 396 opLevels 0;
r@223 7 #X obj 79 184 dac~;
r@223 8 #X obj 30 70 catch~ l;
r@223 9 #X obj 128 70 catch~ r;
r@223 10 #X obj 129 104 *~ 0.45;
r@223 11 #X obj 30 104 *~ 0.45;
r@223 12 #X obj 30 210 prvu~;
r@223 13 #X obj 129 211 prvu~;
r@223 14 #X obj 93 33 inlet;
r@223 15 #X obj 30 239 outlet;
r@223 16 #X obj 129 239 outlet;
r@223 17 #X connect 1 0 4 0;
r@223 18 #X connect 2 0 3 0;
r@223 19 #X connect 3 0 6 0;
r@223 20 #X connect 3 0 0 1;
r@223 21 #X connect 4 0 5 0;
r@223 22 #X connect 4 0 0 0;
r@223 23 #X connect 5 0 8 0;
r@223 24 #X connect 6 0 9 0;
r@223 25 #X connect 7 0 4 1;
r@223 26 #X connect 7 0 3 1;
r@223 27 #X restore -194 242 pd opLevels;
r@224 28 #X obj -191 213 hsl 100 25 0.01 1e+12 1 0 empty empty empty -2 -8 0
r@225 29 10 -262144 -1 -1 100 1;
r@223 30 #X text -106 139 No Of Sources;
r@223 31 #X obj -194 142 r GAIN;
r@223 32 #X floatatom -251 243 8 0 0 0 - - -;
r@223 33 #X obj 409 254 delwrite~ varwind 3000;
r@223 34 #X obj 518 36 hsl 128 15 0 15 0 0 empty empty empty -2 -8 0 10 -262144
r@225 35 -1 -1 1185 1;
r@223 36 #X obj 409 80 *~ 1;
r@223 37 #X obj 409 106 +~ 1;
r@223 38 #X obj 607 -8 loadbang;
r@223 39 #N canvas 20 383 344 123 machCalc 0;
r@223 40 #X text 107 15 Speed of Sound (dry air 20 Degs C);
r@223 41 #X obj 26 -14 vd~ varwind;
r@223 42 #X obj 26 33 s~ MY_MACH;
r@223 43 #X obj 26 9 /~ 343.56;
r@223 44 #X connect 1 0 3 0;
r@223 45 #X connect 3 0 2 0;
r@223 46 #X restore 665 49 pd machCalc;
r@223 47 #X floatatom 556 59 5 0 0 0 - - -;
r@223 48 #X obj 515 12 r SPEED;
r@223 49 #N canvas 634 290 596 443 windDirection 0;
r@223 50 #X obj 183 0 inlet~;
r@223 51 #X obj 280 52 inlet;
r@223 52 #X obj 280 86 sig~;
r@223 53 #X obj 185 251 *~;
r@223 54 #X obj 185 279 outlet~;
r@223 55 #X obj 246 254 outlet~;
r@223 56 #X obj 200 195 cos~;
r@223 57 #X obj 200 135 +~;
r@223 58 #X obj 200 71 lop~ 1;
r@223 59 #X obj 246 194 *~ 360;
r@223 60 #X obj 200 91 lop~ 1;
r@223 61 #X obj 200 30 noise~;
r@223 62 #X obj 200 51 lop~ 1;
r@223 63 #X obj 200 157 /~ 360;
r@223 64 #X obj 200 113 *~ 800;
r@223 65 #X obj 200 221 abs~;
r@223 66 #X connect 0 0 3 0;
r@223 67 #X connect 1 0 2 0;
r@223 68 #X connect 2 0 7 1;
r@223 69 #X connect 3 0 4 0;
r@223 70 #X connect 6 0 15 0;
r@223 71 #X connect 7 0 13 0;
r@223 72 #X connect 8 0 10 0;
r@223 73 #X connect 9 0 5 0;
r@223 74 #X connect 10 0 14 0;
r@223 75 #X connect 11 0 12 0;
r@223 76 #X connect 12 0 8 0;
r@223 77 #X connect 13 0 6 0;
r@223 78 #X connect 13 0 9 0;
r@223 79 #X connect 14 0 7 0;
r@223 80 #X connect 15 0 3 1;
r@223 81 #X restore 443 170 pd windDirection;
r@223 82 #X obj 561 230 snapshot~;
r@223 83 #X floatatom 561 257 10 0 0 0 - - -;
r@223 84 #X text 558 275 Wind Speed;
r@223 85 #X obj 539 145 hsl 128 15 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@223 86 -1 -1 0 1;
r@223 87 #X obj 642 230 snapshot~;
r@223 88 #X floatatom 642 257 10 0 0 0 - - -;
r@224 89 #X text 648 281 Wind Direction;
r@223 90 #X obj 409 50 WindGenD1;
r@223 91 #X msg 570 13 20;
r@223 92 #X obj 642 207 r myMet;
r@223 93 #X obj 561 207 r myMet;
r@223 94 #X obj 457 201 TUCalc2;
r@223 95 #X obj 478 59 * 0.5;
r@223 96 #X obj 515 59 * 0.88;
r@223 97 #X obj 457 225 s blust;
r@223 98 #X floatatom 508 223 0 0 0 0 - - -;
r@223 99 #X msg 607 12 7;
r@224 100 #X msg 44 128 1.1 0.001 0.95 6 90 6700 87 20;
r@224 101 #X msg -47 490 1.1 0.0009 0.85 6 90 3000 50 20;
r@224 102 #X msg 539 490 1.1 0.0009 0.85 6 90 6000 80 20;
r@224 103 #X msg -27 -43 1.1 0.00075 0.95 6 90 5000 68.23 20;
r@224 104 #X msg 126 293 1.1 0.0006 0.95 6 90 5000 50 20;
r@224 105 #X msg 557 531 0.9 0.0002286 0.65 6 90 7940 59.98 20;
r@224 106 #X msg 252 527 0.9 0.0002794 0.65 6 90 7820 49.5 20;
r@224 107 #X msg -33 532 0.9 0.0004064 0.65 6 90 8050 67.91 20;
r@224 108 #X msg 142 332 0.9 0.0006096 0.65 6 90 6650 70.79 20;
r@224 109 #X msg 57 167 0.9 0.0008636 0.65 6 90 6900 82.83 20;
r@224 110 #X msg -13 -1 0.9 0.0010668 0.65 6 90 6640 68.23 20;
r@223 111 #X obj -216 0 s guitar;
r@224 112 #X obj -13 -21 r guitar;
r@224 113 #X obj 57 148 r guitar;
r@224 114 #X obj 142 313 r guitar;
r@224 115 #X obj -33 511 r guitar;
r@224 116 #X obj 252 508 r guitar;
r@224 117 #X obj 557 510 r guitar;
r@223 118 #X obj -216 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@223 119 -1 -1;
r@223 120 #X obj -156 -1 s rand1;
r@224 121 #X obj -27 -64 r rand1;
r@224 122 #X obj 44 107 r rand1;
r@224 123 #X obj 126 273 r rand1;
r@224 124 #X obj -47 469 r rand1;
r@224 125 #X obj 236 467 r rand1;
r@224 126 #X obj 540 469 r rand1;
r@223 127 #X obj -156 -21 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@223 128 -1 -1;
r@224 129 #X obj 246 -45 hsl 300 35 1 10000 1 0 empty empty empty -2 -8 0 10
r@225 130 -262144 -1 -1 3000 1;
r@224 131 #X obj 282 13 s mod;
r@224 132 #X msg -185 188 0.015;
r@224 133 #X obj -48 -107 r rand2;
r@224 134 #X obj 26 65 r rand2;
r@224 135 #X obj 105 233 r rand2;
r@224 136 #X obj -63 429 r rand2;
r@224 137 #X obj 212 426 r rand2;
r@224 138 #X obj 518 429 r rand2;
r@224 139 #X obj -140 51 s rand2;
r@224 140 #X obj -140 32 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@224 141 -1 -1;
r@224 142 #X obj -43 43 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@224 143 1 1;
r@224 144 #X obj 26 210 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 145 1 1;
r@224 146 #X obj 112 377 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@225 147 1 1;
r@224 148 #X obj -67 575 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@224 149 1 1;
r@224 150 #X obj 217 576 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@224 151 1 1;
r@224 152 #X obj 526 577 tgl 30 0 empty empty empty 17 7 0 40 -260097 -4032 -4032
r@224 153 1 1;
r@224 154 #X msg 237 487 1.1 0.0007 1 6 90 6300 56 20;
r@224 155 #X msg -74 -2 0;
r@224 156 #X floatatom 32 41 0 0 0 0 - - -;
r@224 157 #X floatatom 102 207 0 0 0 0 - - -;
r@224 158 #X floatatom 187 374 0 0 0 0 - - -;
r@224 159 #X floatatom 12 573 0 0 0 0 - - -;
r@224 160 #X floatatom 297 571 0 0 0 0 - - -;
r@224 161 #X floatatom 602 575 0 0 0 0 - - -;
r@224 162 #X obj 378 181 sig~;
r@224 163 #X msg 378 158 1.1;
r@225 164 #X msg -48 -84 1.4 0.00046919 0.65 6 90 1000 80 20;
r@225 165 #X msg 26 88 1.4 0.00046919 0.7 6 90 1000 92.78 20;
r@225 166 #X msg 105 254 1.4 0.00046919 0.85 6 90 1000 136.81 20;
r@225 167 #X msg -63 450 1.4 0.00046919 0.9 6 90 1000 306.76 20;
r@225 168 #X msg 212 447 1.4 0.001 0.9 6 90 1000 97.76 20;
r@225 169 #X msg 518 450 1.4 0.001 0.9 6 90 1000 94 20;
r@224 170 #X obj 142 353 MA_Test2;
r@224 171 #X obj 252 548 MA_Test2;
r@225 172 #X obj 57 188 MA_Test2;
r@224 173 #X obj -13 19 MA_Test2;
r@225 174 #X obj -33 552 MA_Test2;
r@224 175 #X obj 557 552 MA_Test2;
r@224 176 #X connect 3 0 64 0;
r@223 177 #X connect 4 0 0 0;
r@223 178 #X connect 4 1 1 0;
r@224 179 #X connect 5 0 4 0;
r@224 180 #X connect 5 0 8 0;
r@224 181 #X connect 7 0 5 0;
r@224 182 #X connect 10 0 15 0;
r@224 183 #X connect 10 0 30 0;
r@224 184 #X connect 10 0 31 0;
r@224 185 #X connect 11 0 12 0;
r@224 186 #X connect 12 0 18 0;
r@224 187 #X connect 12 0 9 0;
r@224 188 #X connect 13 0 34 0;
r@224 189 #X connect 16 0 10 0;
r@224 190 #X connect 17 0 29 0;
r@224 191 #X connect 17 1 22 0;
r@224 192 #X connect 18 0 19 0;
r@224 193 #X connect 21 0 17 1;
r@224 194 #X connect 22 0 23 0;
r@224 195 #X connect 25 0 11 0;
r@224 196 #X connect 26 0 10 0;
r@224 197 #X connect 27 0 22 0;
r@224 198 #X connect 28 0 18 0;
r@224 199 #X connect 29 0 32 0;
r@224 200 #X connect 29 0 33 0;
r@224 201 #X connect 30 0 11 1;
r@223 202 #X connect 31 0 12 1;
r@224 203 #X connect 34 0 10 0;
r@225 204 #X connect 35 0 97 0;
r@225 205 #X connect 36 0 99 0;
r@225 206 #X connect 37 0 100 0;
r@225 207 #X connect 38 0 98 0;
r@225 208 #X connect 39 0 95 0;
r@225 209 #X connect 40 0 100 0;
r@225 210 #X connect 41 0 96 0;
r@225 211 #X connect 42 0 99 0;
r@225 212 #X connect 43 0 95 0;
r@225 213 #X connect 44 0 97 0;
r@225 214 #X connect 45 0 98 0;
r@224 215 #X connect 47 0 45 0;
r@224 216 #X connect 48 0 44 0;
r@224 217 #X connect 49 0 43 0;
r@224 218 #X connect 50 0 42 0;
r@224 219 #X connect 51 0 41 0;
r@223 220 #X connect 52 0 40 0;
r@224 221 #X connect 53 0 46 0;
r@224 222 #X connect 55 0 38 0;
r@224 223 #X connect 56 0 35 0;
r@224 224 #X connect 57 0 39 0;
r@224 225 #X connect 58 0 36 0;
r@224 226 #X connect 59 0 79 0;
r@224 227 #X connect 60 0 37 0;
r@223 228 #X connect 61 0 54 0;
r@224 229 #X connect 62 0 63 0;
r@224 230 #X connect 64 0 5 0;
r@225 231 #X connect 65 0 89 0;
r@225 232 #X connect 66 0 90 0;
r@225 233 #X connect 67 0 91 0;
r@225 234 #X connect 68 0 92 0;
r@225 235 #X connect 69 0 93 0;
r@225 236 #X connect 70 0 94 0;
r@224 237 #X connect 72 0 71 0;
r@225 238 #X connect 79 0 96 0;
r@225 239 #X connect 80 0 98 0;
r@225 240 #X connect 88 0 87 0;
r@225 241 #X connect 89 0 98 0;
r@225 242 #X connect 90 0 97 0;
r@225 243 #X connect 91 0 95 0;
r@225 244 #X connect 92 0 99 0;
r@225 245 #X connect 93 0 96 0;
r@225 246 #X connect 94 0 100 0;
r@225 247 #X connect 95 0 75 0;
r@225 248 #X connect 95 1 83 0;
r@225 249 #X connect 96 0 77 0;
r@225 250 #X connect 96 1 85 0;
r@225 251 #X connect 97 0 74 0;
r@225 252 #X connect 97 1 82 0;
r@225 253 #X connect 98 0 73 0;
r@225 254 #X connect 98 1 81 0;
r@225 255 #X connect 99 0 76 0;
r@225 256 #X connect 99 1 84 0;
r@225 257 #X connect 100 0 78 0;
r@225 258 #X connect 100 1 86 0;