Mercurial > hg > weather-synthesis-prototyping

annotate June/woosh_D4.pd @ 306:c57f401165ca tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New Decision tree added
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 13 Jan 2018 14:47:35 +0000
parents 2dea66bf32a1
children
rev   line source
r@94 1 #N canvas 386 234 893 466 10;
r@91 2 #X obj 541 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@91 3 #X obj 604 -103 vu 15 120 empty empty -1 -8 0 10 -66577 -1 1 0;
r@91 4 #X text 601 -194 Gain;
r@91 5 #X obj 540 -220 loadbang;
r@91 6 #N canvas 865 368 284 318 opLevels 0;
r@91 7 #X obj 85 188 dac~;
r@91 8 #X obj 30 70 catch~ l;
r@91 9 #X obj 155 76 catch~ r;
r@91 10 #X obj 155 106 *~ 0.45;
r@91 11 #X obj 30 104 *~ 0.45;
r@91 12 #X obj 30 210 prvu~;
r@91 13 #X obj 155 213 prvu~;
r@91 14 #X obj 100 69 / 127;
r@91 15 #X obj 100 34 inlet;
r@91 16 #X obj 30 239 outlet;
r@91 17 #X obj 155 241 outlet;
r@91 18 #X obj 155 30 r NoOfSources;
r@91 19 #X obj 155 132 /~ 1;
r@91 20 #X obj 30 131 /~ 1;
r@91 21 #X obj 155 49 / 20;
r@91 22 #X connect 1 0 4 0;
r@91 23 #X connect 2 0 3 0;
r@91 24 #X connect 3 0 12 0;
r@91 25 #X connect 4 0 13 0;
r@91 26 #X connect 5 0 9 0;
r@91 27 #X connect 6 0 10 0;
r@91 28 #X connect 7 0 3 1;
r@91 29 #X connect 7 0 4 1;
r@91 30 #X connect 8 0 7 0;
r@91 31 #X connect 11 0 14 0;
r@91 32 #X connect 12 0 0 1;
r@91 33 #X connect 12 0 6 0;
r@91 34 #X connect 13 0 0 0;
r@91 35 #X connect 13 0 5 0;
r@91 36 #X connect 14 0 12 1;
r@91 37 #X connect 14 0 13 1;
r@91 38 #X restore 540 -146 pd opLevels;
r@91 39 #X msg 540 -197 5;
r@94 40 #N canvas 474 116 807 545 speedCalc 0;
r@91 41 #X obj 59 -12 inlet;
r@91 42 #X obj 135 -11 inlet;
r@91 43 #X obj 217 -12 inlet;
r@91 44 #X obj 317 -12 inlet;
r@91 45 #X obj 59 11 s \$0_swLen;
r@91 46 #X obj 135 11 s \$0_armLen;
r@91 47 #X obj 317 10 s \$0_tipSpeed;
r@91 48 #X obj 142 237 r \$0_tipSpeed;
r@91 49 #X obj 211 437 outlet;
r@91 50 #X obj 211 414 r \$0_minSpeed;
r@91 51 #X obj 127 338 s \$0_minSpeed;
r@91 52 #X obj 310 414 r \$0_deltaSpeed;
r@91 53 #X obj 504 335 s \$0_deltaSpeed;
r@91 54 #X obj 310 437 outlet;
r@91 55 #X obj 212 104 r \$0_swLen;
r@91 56 #X obj 127 216 /;
r@91 57 #X floatatom 81 243 5 0 0 0 - - -;
r@91 58 #X obj 227 127 r \$0_armLen;
r@91 59 #X obj 212 194 +;
r@91 60 #X obj 227 149 t f b;
r@91 61 #X floatatom 212 216 5 0 0 0 - - -;
r@91 62 #X obj 99 143 r \$0_armLen;
r@91 63 #X obj 217 11 s \$0_sourceTot;
r@91 64 #X obj 519 274 r \$0_sourceTot;
r@91 65 #X obj 127 314 *;
r@91 66 #X floatatom 85 338 5 0 0 0 - - -;
r@91 67 #X obj 519 186 r \$0_minSpeed;
r@91 68 #X obj 504 253 -;
r@91 69 #X obj 504 163 r \$0_tipSpeed;
r@91 70 #X obj 504 296 /;
r@91 71 #X obj 519 207 t f b;
r@91 72 #X floatatom 521 315 5 0 0 0 - - -;
r@91 73 #X obj 546 230 delay 9;
r@91 74 #X text 244 198 Length of blade and arm;
r@91 75 #X obj 99 165 t f b;
r@91 76 #X obj 126 189 delay 9;
r@91 77 #X obj 254 173 delay 6;
r@91 78 #X text -49 216 Ratio of arm to total length;
r@91 79 #X text 69 361 Speed of blade at the hilt;
r@91 80 #X text 387 247 Difference between;
r@91 81 #X text 369 259 speed at tip and hilt;
r@91 82 #X text 459 357 Difference in speed for each source;
r@91 83 #X text 459 369 based on a linear scale;
r@91 84 #X text 417 16 as well as the difference in speed of each source;
r@91 85 #X text 431 2 Patch that calculates the minimum speed;
r@91 86 #X obj 142 260 t f b;
r@91 87 #X obj 168 283 delay 8;
r@91 88 #X connect 0 0 4 0;
r@91 89 #X connect 1 0 5 0;
r@91 90 #X connect 2 0 22 0;
r@91 91 #X connect 3 0 6 0;
r@91 92 #X connect 7 0 45 0;
r@91 93 #X connect 9 0 8 0;
r@91 94 #X connect 11 0 13 0;
r@91 95 #X connect 14 0 18 0;
r@91 96 #X connect 15 0 16 0;
r@91 97 #X connect 15 0 24 0;
r@91 98 #X connect 17 0 19 0;
r@91 99 #X connect 18 0 20 0;
r@91 100 #X connect 18 0 15 1;
r@91 101 #X connect 19 0 18 1;
r@91 102 #X connect 19 1 36 0;
r@91 103 #X connect 21 0 34 0;
r@91 104 #X connect 23 0 29 1;
r@91 105 #X connect 24 0 10 0;
r@91 106 #X connect 24 0 25 0;
r@91 107 #X connect 26 0 30 0;
r@91 108 #X connect 27 0 29 0;
r@91 109 #X connect 28 0 27 0;
r@91 110 #X connect 29 0 31 0;
r@91 111 #X connect 29 0 12 0;
r@91 112 #X connect 30 0 27 1;
r@91 113 #X connect 30 1 32 0;
r@91 114 #X connect 32 0 27 0;
r@91 115 #X connect 34 0 15 0;
r@91 116 #X connect 34 1 35 0;
r@91 117 #X connect 35 0 15 0;
r@91 118 #X connect 36 0 18 0;
r@91 119 #X connect 45 0 24 1;
r@91 120 #X connect 45 1 46 0;
r@91 121 #X connect 46 0 24 0;
r@91 122 #X restore 534 140 pd speedCalc;
r@91 123 #X floatatom 443 164 8 0 0 0 - - -;
r@91 124 #X floatatom 688 162 8 0 0 0 - - -;
r@91 125 #X msg 14 -225 1;
r@91 126 #X msg 13 -94 100;
r@91 127 #X msg 12 -159 0.59;
r@91 128 #X obj 534 45 r bladeLen;
r@91 129 #X obj 557 68 r armLength;
r@91 130 #X obj 580 92 r NoOfSources;
r@91 131 #X obj 603 117 r topSpeed;
r@91 132 #X obj 14 -202 s bladeLen;
r@91 133 #X obj 12 -138 s armLength;
r@91 134 #X obj 13 -71 s NoOfSources;
r@91 135 #X obj 78 89 s topSpeed;
r@91 136 #X obj 26 63 hsl 100 20 0 100 0 0 empty empty empty -2 -8 0 10 -262144
r@94 137 -1 -1 100 1;
r@91 138 #X floatatom 23 89 8 0 0 0 - - -;
r@91 139 #X text 47 -226 Blade Length;
r@91 140 #X text 46 -160 Arm Length;
r@91 141 #X text 41 -94 Number of Sources;
r@91 142 #X text 134 67 Top Speed;
r@91 143 #X obj 23 147 hsl 100 20 0 360 0 0 empty empty empty -2 -8 0 10 -262144
r@94 144 -1 -1 6600 1;
r@91 145 #X floatatom 20 179 8 0 0 0 - - -;
r@91 146 #X obj 75 178 s sweepAngle;
r@91 147 #X text 134 148 Sweep Angle;
r@91 148 #X obj 370 -13 r sweepAngle;
r@91 149 #X obj 277 -57 r bladeLen;
r@91 150 #X obj 323 -34 r armLength;
r@91 151 #X obj 508 164 s firstSpeed;
r@91 152 #X obj 603 163 s deltaSpeed;
r@91 153 #X floatatom 220 38 8 0 0 0 - - -;
r@91 154 #X floatatom 458 36 8 0 0 0 - - -;
r@91 155 #N canvas 833 342 426 335 thickCalc 0;
r@91 156 #X obj 173 139 r NoOfSources;
r@91 157 #X obj 23 16 inlet;
r@91 158 #X obj 26 64 inlet;
r@91 159 #X obj 26 86 s \$0_tipThick;
r@91 160 #X obj 158 115 -;
r@91 161 #X obj 158 164 /;
r@91 162 #X obj 158 187 outlet;
r@91 163 #X obj 23 39 s \$0_hiltThick;
r@91 164 #X floatatom 126 147 5 0 0 0 - - -;
r@91 165 #X obj 173 44 r \$0_tipThick;
r@91 166 #X obj 158 19 r \$0_hiltThick;
r@91 167 #X floatatom 94 189 8 0 0 0 - - -;
r@91 168 #X obj 173 72 t f b;
r@91 169 #X obj 200 95 delay 9;
r@91 170 #X text 58 237 Calculates the difference in thickness between sources
r@91 171 ;
r@91 172 #X text 59 254 based on the blade tapering in a straight line;
r@91 173 #X connect 0 0 5 1;
r@91 174 #X connect 1 0 7 0;
r@91 175 #X connect 2 0 3 0;
r@91 176 #X connect 4 0 5 0;
r@91 177 #X connect 4 0 8 0;
r@91 178 #X connect 5 0 6 0;
r@91 179 #X connect 5 0 11 0;
r@91 180 #X connect 9 0 12 0;
r@91 181 #X connect 10 0 4 0;
r@91 182 #X connect 12 0 4 1;
r@91 183 #X connect 12 1 13 0;
r@91 184 #X connect 13 0 4 0;
r@91 185 #X restore 372 -123 pd thickCalc;
r@91 186 #X obj 372 -100 s deltaThick;
r@91 187 #X floatatom 317 -99 8 0 0 0 - - -;
r@91 188 #X obj 20 238 hsl 100 20 0 0.03 0 0 empty empty empty -2 -8 0 10 -262144
r@94 189 -1 -1 3135 1;
r@91 190 #X obj 19 323 hsl 100 20 0 0.01 0 0 empty empty empty -2 -8 0 10 -262144
r@94 191 -1 -1 3168 1;
r@91 192 #X floatatom 17 268 8 0 0 0 - - -;
r@91 193 #X obj 71 267 s hiltThick;
r@91 194 #X floatatom 16 351 8 0 0 0 - - -;
r@91 195 #X obj 74 350 s tipThick;
r@91 196 #X text 134 240 Hilt Thickness;
r@91 197 #X text 126 324 Tip Thickness;
r@91 198 #X obj 372 -168 r hiltThick;
r@91 199 #X obj 441 -146 r tipThick;
r@91 200 #X obj 214 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@91 201 -1;
r@91 202 #X obj 214 -127 s GO;
r@91 203 #X obj 775 -93 tenSource;
r@91 204 #X obj 19 405 hsl 100 20 100 1 1 0 empty empty empty -2 -8 0 10 -262144
r@94 205 -1 -1 3210 1;
r@91 206 #X obj 15 490 hsl 100 20 -180 180 0 0 empty empty empty -2 -8 0 10
r@94 207 -262144 -1 -1 5000 1;
r@91 208 #X floatatom 16 431 8 0 0 0 - - -;
r@91 209 #X text 129 409 Distance to Observer;
r@91 210 #X floatatom 12 518 8 0 0 0 - - -;
r@91 211 #X text 137 484 Angle to Observer;
r@91 212 #X obj 809 -129 r distance;
r@91 213 #X obj 792 -150 r angle;
r@91 214 #X obj 775 -191 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 215 -1 -1;
r@91 216 #X obj 214 -226 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@91 217 0 1;
r@91 218 #X obj 214 -207 metro 200;
r@91 219 #X obj 268 -231 hsl 100 20 300 50 0 0 empty empty empty -2 -8 0 10
r@91 220 -262144 -1 -1 0 1;
r@91 221 #X obj 154 -180 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@91 222 -1 -1;
r@91 223 #X obj 154 -127 s setUp;
r@91 224 #X obj -30 37 r setUp;
r@91 225 #X obj -38 127 r setUp;
r@91 226 #X obj -34 215 r setUp;
r@91 227 #X obj -35 303 r setUp;
r@91 228 #X obj -36 384 r setUp;
r@91 229 #X obj -39 468 r setUp;
r@91 230 #X obj 775 -219 r setUp;
r@91 231 #X obj 75 432 s obsDistance;
r@91 232 #X obj 71 519 s obsAngle;
r@91 233 #N canvas 427 69 911 675 circumferCalc 0;
r@91 234 #X obj 266 13 inlet;
r@91 235 #X floatatom 365 172 5 0 0 0 - - -;
r@91 236 #X obj 80 13 inlet;
r@91 237 #X obj 170 13 inlet;
r@91 238 #X obj 247 146 +;
r@91 239 #X obj 316 172 / 360;
r@91 240 #X obj 247 171 * 3.14159;
r@91 241 #X obj 247 219 *;
r@91 242 #X obj 247 195 * 2;
r@91 243 #X obj 80 36 s \$0_bladeLen;
r@91 244 #X obj 170 36 s \$0_armLength;
r@91 245 #X obj 266 36 s \$0_sweepAngle;
r@91 246 #X obj 247 99 r \$0_bladeLen;
r@91 247 #X obj 262 123 r \$0_armLength;
r@91 248 #X obj 316 148 r \$0_sweepAngle;
r@91 249 #X floatatom 734 192 5 0 0 0 - - -;
r@91 250 #X obj 685 192 / 360;
r@91 251 #X floatatom 628 168 5 0 0 0 - - -;
r@91 252 #X obj 616 191 * 3.14159;
r@91 253 #X obj 616 239 *;
r@91 254 #X floatatom 560 267 8 0 0 0 - - -;
r@91 255 #X obj 616 215 * 2;
r@91 256 #X obj 616 143 r \$0_armLength;
r@91 257 #X obj 685 168 r \$0_sweepAngle;
r@91 258 #X obj 616 267 s \$0_minCirc;
r@91 259 #X obj 265 459 r \$0_minCirc;
r@91 260 #X obj 265 481 outlet;
r@91 261 #X obj 262 279 r \$0_minCirc;
r@91 262 #X floatatom 188 339 8 0 0 0 - - -;
r@91 263 #X obj 247 305 -;
r@91 264 #X obj 247 341 /;
r@91 265 #X obj 277 317 r NoOfSources;
r@91 266 #X floatatom 185 370 8 0 0 0 - - -;
r@91 267 #X obj 247 367 s \$0_deltaCirc;
r@91 268 #X obj 354 459 r \$0_deltaCirc;
r@91 269 #X obj 354 481 outlet;
r@91 270 #X obj 260 246 s maxCirc;
r@91 271 #X obj 191 172 s length;
r@91 272 #X text 122 176 Arc radius;
r@91 273 #X text 318 195 % of circle;
r@91 274 #X text 323 242 Circumference of arc of tip;
r@91 275 #X text 692 210 % of circle;
r@91 276 #X text 601 289 Circumference of arc of hilt;
r@91 277 #X floatatom 187 243 8 0 0 0 - - -;
r@91 278 #X text 199 390 Difference of circumference length for each source
r@91 279 ;
r@91 280 #X text 199 405 based on linear spacing between sources;
r@91 281 #X connect 0 0 11 0;
r@91 282 #X connect 2 0 9 0;
r@91 283 #X connect 3 0 10 0;
r@91 284 #X connect 4 0 6 0;
r@91 285 #X connect 4 0 37 0;
r@91 286 #X connect 5 0 7 1;
r@91 287 #X connect 6 0 8 0;
r@91 288 #X connect 7 0 29 0;
r@91 289 #X connect 7 0 36 0;
r@91 290 #X connect 7 0 43 0;
r@91 291 #X connect 8 0 7 0;
r@91 292 #X connect 12 0 4 0;
r@91 293 #X connect 13 0 4 1;
r@91 294 #X connect 14 0 5 0;
r@91 295 #X connect 14 0 1 0;
r@91 296 #X connect 16 0 19 1;
r@91 297 #X connect 18 0 21 0;
r@91 298 #X connect 19 0 20 0;
r@91 299 #X connect 19 0 24 0;
r@91 300 #X connect 21 0 19 0;
r@91 301 #X connect 22 0 18 0;
r@91 302 #X connect 22 0 17 0;
r@91 303 #X connect 23 0 16 0;
r@91 304 #X connect 23 0 15 0;
r@91 305 #X connect 25 0 26 0;
r@91 306 #X connect 27 0 29 1;
r@91 307 #X connect 29 0 28 0;
r@91 308 #X connect 29 0 30 0;
r@91 309 #X connect 30 0 32 0;
r@91 310 #X connect 30 0 33 0;
r@91 311 #X connect 31 0 30 1;
r@91 312 #X connect 34 0 35 0;
r@91 313 #X restore 277 11 pd circumferCalc;
r@91 314 #X obj 277 37 s circumMin;
r@91 315 #X obj 370 36 s deltaCircum;
r@94 316 #N canvas 303 28 1094 768 angleCalc 0;
r@93 317 #X obj -129 105 * 0.75;
r@93 318 #X obj 325 234 * 0.25;
r@93 319 #X obj -129 145 /;
r@93 320 #X obj -144 199 * 1000;
r@93 321 #X obj 263 254 delay \$1;
r@93 322 #X obj 236 202 f;
r@93 323 #X obj 236 159 r GO;
r@93 324 #X obj 236 228 t f b;
r@93 325 #X msg 227 367 0;
r@93 326 #X obj 325 276 /;
r@93 327 #X obj 325 298 * 1000;
r@93 328 #X obj -127 225 s \$0_thisDe;
r@93 329 #X obj 251 181 r \$0_thisDe;
r@93 330 #X obj 145 237 r sweepAngle;
r@93 331 #X obj -129 81 r maxCirc;
r@93 332 #X obj 325 212 r maxCirc;
r@93 333 #X obj -114 124 r topSpeed;
r@93 334 #X obj 340 255 r topSpeed;
r@93 335 #X obj 644 360 delay \$1;
r@93 336 #X obj 646 302 f;
r@93 337 #X obj 639 248 r GO;
r@93 338 #X obj 646 328 t f b;
r@93 339 #X obj 682 208 r maxCirc;
r@93 340 #X obj 697 230 r topSpeed;
r@93 341 #X obj 682 254 /;
r@93 342 #X obj 682 276 * 1000;
r@93 343 #X obj 644 407 s end;
r@93 344 #X obj -77 312 r end;
r@93 345 #X obj 145 260 * -0.25;
r@93 346 #X text -193 45 0.75 represents the ratio of swing that;
r@93 347 #X text 200 118 0.25 represents the ratio of swing that;
r@93 348 #X text 200 132 the sword is decelerating;
r@93 349 #X text -102 149 Time taken for acceleration;
r@93 350 #X text -54 221 Send as a delay;
r@93 351 #X text 280 160 Recieve as a delay;
r@93 352 #X text -36 312 Reset angle;
r@93 353 #X text -38 325 once swing complete;
r@93 354 #X text 622 426 Send bang message at the;
r@93 355 #X text 623 438 end of the swing to reset;
r@93 356 #X text 379 296 Time for last;
r@93 357 #X text 381 307 1/4 of swing;
r@93 358 #X text -193 59 the sword is before 0 degrees;
r@93 359 #X text -121 700 Output of complete swing \, split into 75% before
r@91 360 0 degrees and 25% past 0 degrees;
r@93 361 #X text 568 517 Once delay from start to 0 degrees complete;
r@93 362 #X text 564 535 count down from 0 to finish the total swing angle;
r@91 363 #X text 98 9 Patch that calculates the angle between 0 degrees for
r@91 364 the full length of the swing;
r@93 365 #X obj -144 482 line~;
r@93 366 #X obj 86 601 metro 10;
r@93 367 #X obj 86 632 snapshot~;
r@93 368 #X floatatom 85 656 8 0 0 0 - - -;
r@93 369 #X obj 172 397 line~;
r@93 370 #X msg 172 350 \$1 \$2;
r@93 371 #X obj 151 319 pack;
r@93 372 #X obj 86 570 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@91 373 1;
r@93 374 #X floatatom -108 266 5 0 0 0 - - -;
r@93 375 #X msg -90 438 \$1;
r@93 376 #X obj -48 365 r sweepAngle;
r@93 377 #X obj -48 387 * 0.75;
r@93 378 #X msg -144 427 0 \$1;
r@93 379 #X obj -62 341 r setUp;
r@93 380 #X obj 151 294 f;
r@94 381 #X obj -4 549 +~;
r@93 382 #X obj 227 342 r setUp;
r@93 383 #X floatatom -63 474 5 0 0 0 - - -;
r@94 384 #X text 11 464 comment;
r@93 385 #X obj -63 409 f;
r@93 386 #X floatatom -26 434 5 0 0 0 - - -;
r@93 387 #X obj 286 343 r end;
r@93 388 #X obj 632 276 delay 9;
r@93 389 #X obj 644 383 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@93 390 -1 -1;
r@93 391 #X obj -144 174 f;
r@93 392 #X obj -163 143 r GO;
r@94 393 #X obj -4 633 s~ swordAngle;
r@93 394 #X text 241 325 Set to 0 at end;
r@94 395 #X obj 86 545 loadbang;
r@94 396 #X obj 68 509 r obsAngle;
r@94 397 #X obj -4 576 +~ 1;
r@94 398 #X text 141 470 Adding in the observer angle here offsets the swing
r@94 399 angle by the angle the observer is at. This makes all the future calculations
r@94 400 as if the observer is positioned at 0 degrees to the swordSwing.;
r@91 401 #X connect 0 0 2 0;
r@93 402 #X connect 1 0 9 0;
r@93 403 #X connect 2 0 70 1;
r@93 404 #X connect 3 0 11 0;
r@93 405 #X connect 3 0 54 0;
r@93 406 #X connect 3 0 58 0;
r@93 407 #X connect 4 0 60 0;
r@93 408 #X connect 5 0 7 0;
r@93 409 #X connect 6 0 5 0;
r@93 410 #X connect 7 0 4 1;
r@93 411 #X connect 7 1 4 0;
r@93 412 #X connect 8 0 50 0;
r@93 413 #X connect 9 0 10 0;
r@93 414 #X connect 10 0 52 1;
r@93 415 #X connect 12 0 5 1;
r@93 416 #X connect 13 0 28 0;
r@93 417 #X connect 14 0 0 0;
r@93 418 #X connect 15 0 1 0;
r@93 419 #X connect 16 0 2 1;
r@93 420 #X connect 17 0 9 1;
r@93 421 #X connect 18 0 69 0;
r@93 422 #X connect 19 0 21 0;
r@93 423 #X connect 20 0 68 0;
r@93 424 #X connect 21 0 18 1;
r@93 425 #X connect 21 1 18 0;
r@93 426 #X connect 22 0 24 0;
r@93 427 #X connect 23 0 24 1;
r@93 428 #X connect 24 0 25 0;
r@93 429 #X connect 25 0 19 1;
r@93 430 #X connect 27 0 65 0;
r@93 431 #X connect 28 0 60 1;
r@93 432 #X connect 46 0 61 0;
r@93 433 #X connect 47 0 48 0;
r@93 434 #X connect 48 0 49 0;
r@93 435 #X connect 50 0 61 1;
r@93 436 #X connect 51 0 50 0;
r@93 437 #X connect 52 0 51 0;
r@93 438 #X connect 53 0 47 0;
r@93 439 #X connect 55 0 46 0;
r@93 440 #X connect 55 0 63 0;
r@93 441 #X connect 56 0 57 0;
r@93 442 #X connect 57 0 65 1;
r@93 443 #X connect 57 0 66 0;
r@93 444 #X connect 58 0 46 0;
r@93 445 #X connect 59 0 65 0;
r@93 446 #X connect 60 0 52 0;
r@94 447 #X connect 61 0 76 0;
r@93 448 #X connect 62 0 8 0;
r@93 449 #X connect 65 0 55 0;
r@93 450 #X connect 67 0 8 0;
r@93 451 #X connect 68 0 19 0;
r@93 452 #X connect 69 0 26 0;
r@93 453 #X connect 70 0 3 0;
r@93 454 #X connect 71 0 70 0;
r@94 455 #X connect 74 0 53 0;
r@94 456 #X connect 75 0 76 1;
r@94 457 #X connect 76 0 72 0;
r@94 458 #X connect 76 0 48 0;
r@91 459 #X restore 431 -220 pd angleCalc;
r@91 460 #X obj 543 -175 hsl 100 25 0 127 0 0 empty empty empty -2 -8 0 10 -262144
r@94 461 -1 -1 9354 1;
r@91 462 #X msg 775 -172 10;
r@91 463 #X obj 14 -249 loadbang;
r@91 464 #X obj 12 -180 loadbang;
r@91 465 #X obj 13 -116 loadbang;
r@91 466 #X obj 826 -113 r elev;
r@91 467 #X msg 15 -22 0;
r@91 468 #X obj 15 0 s elev;
r@91 469 #X text 134 496 (Azimuth);
r@91 470 #X obj 944 -117 r distance;
r@91 471 #X obj 927 -138 r angle;
r@91 472 #X obj 910 -179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 473 -1 -1;
r@91 474 #X obj 910 -207 r setUp;
r@91 475 #X obj 961 -101 r elev;
r@91 476 #X msg 910 -160 9;
r@91 477 #X obj 15 -45 loadbang;
r@91 478 #X obj 437 545 s thisTS;
r@91 479 #X obj 456 524 s thisSA;
r@91 480 #X obj 476 502 s thisHT;
r@91 481 #X obj 495 479 s thisTT;
r@91 482 #X obj 515 458 s thisOD;
r@91 483 #X obj 534 438 s thisOA;
r@91 484 #X obj 554 416 s thisG;
r@91 485 #X obj 23 37 r thisTS;
r@91 486 #X obj 20 126 r thisSA;
r@91 487 #X obj 17 215 r thisHT;
r@91 488 #X obj 16 303 r thisTT;
r@91 489 #X obj 16 384 r thisOD;
r@91 490 #X obj 13 469 r thisOA;
r@91 491 #X obj 488 -195 r thisG;
r@91 492 #X obj 437 392 unpack f f f f f f f;
r@91 493 #X obj -37 -45 r setUp;
r@91 494 #X obj -40 -114 r setUp;
r@91 495 #X obj -37 -182 r setUp;
r@91 496 #X obj -38 -247 r setUp;
r@91 497 #X text 351 -82 Calculate thicknes delta;
r@91 498 #X text 279 55 Circumference calculations;
r@91 499 #X text 540 185 Speed calculations;
r@91 500 #X text 374 392 Presets;
r@91 501 #X obj 808 36 r distance;
r@91 502 #X obj 791 15 r angle;
r@91 503 #X obj 774 -26 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 504 -1 -1;
r@91 505 #X obj 774 -54 r setUp;
r@91 506 #X obj 825 52 r elev;
r@91 507 #X obj 937 45 r distance;
r@91 508 #X obj 920 24 r angle;
r@91 509 #X obj 903 -17 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 510 -1 -1;
r@91 511 #X obj 903 -45 r setUp;
r@91 512 #X obj 954 61 r elev;
r@91 513 #X obj 805 187 r distance;
r@91 514 #X obj 788 166 r angle;
r@91 515 #X obj 771 125 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 516 -1 -1;
r@91 517 #X obj 771 97 r setUp;
r@91 518 #X obj 822 203 r elev;
r@91 519 #X msg 771 144 6;
r@91 520 #X msg 903 2 7;
r@91 521 #X msg 774 -7 8;
r@91 522 #X obj 939 194 r distance;
r@91 523 #X obj 922 173 r angle;
r@91 524 #X obj 905 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
r@91 525 -1 -1;
r@91 526 #X obj 905 104 r setUp;
r@91 527 #X obj 956 210 r elev;
r@91 528 #X msg 905 151 5;
r@91 529 #X msg 446 287 20 160 0.01 0.004 2 0 127;
r@91 530 #X msg 437 264 43 215 0.0085 0.0025 4 90 40;
r@91 531 #X msg 456 310 30 280 0.0095 0.0032 2 60 120;
r@91 532 #X text 706 273 Currently the noise sources are not connected but still
r@91 533 getting a zipping type sound. It seems to get worse with sources lower
r@91 534 down the blade - this needs looked into;
r@91 535 #X obj 437 235 loadbang;
r@91 536 #X obj 154 -232 loadbang;
r@91 537 #X obj 154 -208 delay 13;
r@91 538 #X obj 389 317 t b;
r@91 539 #X obj 369 340 s setUp;
r@91 540 #X obj 910 -81 tenSource;
r@91 541 #X obj 774 72 tenSource;
r@91 542 #X obj 903 81 tenSource;
r@91 543 #X obj 771 223 tenSource;
r@91 544 #X obj 905 230 tenSource;
r@91 545 #X connect 3 0 5 0;
r@91 546 #X connect 4 0 0 0;
r@91 547 #X connect 4 1 1 0;
r@91 548 #X connect 5 0 80 0;
r@91 549 #X connect 6 0 7 0;
r@91 550 #X connect 6 0 33 0;
r@91 551 #X connect 6 1 8 0;
r@91 552 #X connect 6 1 34 0;
r@91 553 #X connect 9 0 16 0;
r@91 554 #X connect 10 0 18 0;
r@91 555 #X connect 11 0 17 0;
r@91 556 #X connect 12 0 6 0;
r@91 557 #X connect 13 0 6 1;
r@91 558 #X connect 14 0 6 2;
r@91 559 #X connect 15 0 6 3;
r@91 560 #X connect 20 0 19 0;
r@91 561 #X connect 20 0 21 0;
r@91 562 #X connect 26 0 27 0;
r@91 563 #X connect 26 0 28 0;
r@91 564 #X connect 30 0 76 2;
r@91 565 #X connect 31 0 76 0;
r@91 566 #X connect 32 0 76 1;
r@91 567 #X connect 37 0 38 0;
r@91 568 #X connect 37 0 39 0;
r@91 569 #X connect 40 0 42 0;
r@91 570 #X connect 40 0 43 0;
r@91 571 #X connect 41 0 44 0;
r@91 572 #X connect 41 0 45 0;
r@91 573 #X connect 48 0 37 0;
r@91 574 #X connect 49 0 37 1;
r@91 575 #X connect 50 0 51 0;
r@91 576 #X connect 53 0 55 0;
r@91 577 #X connect 53 0 74 0;
r@91 578 #X connect 54 0 57 0;
r@91 579 #X connect 54 0 75 0;
r@91 580 #X connect 59 0 52 2;
r@91 581 #X connect 60 0 52 1;
r@91 582 #X connect 61 0 81 0;
r@91 583 #X connect 62 0 63 0;
r@91 584 #X connect 63 0 50 0;
r@91 585 #X connect 64 0 63 1;
r@91 586 #X connect 65 0 66 0;
r@91 587 #X connect 67 0 20 0;
r@91 588 #X connect 68 0 26 0;
r@91 589 #X connect 69 0 40 0;
r@91 590 #X connect 70 0 41 0;
r@91 591 #X connect 71 0 53 0;
r@91 592 #X connect 72 0 54 0;
r@91 593 #X connect 73 0 61 0;
r@91 594 #X connect 76 0 35 0;
r@91 595 #X connect 76 0 77 0;
r@91 596 #X connect 76 1 36 0;
r@91 597 #X connect 76 1 78 0;
r@91 598 #X connect 80 0 4 0;
r@91 599 #X connect 81 0 52 0;
r@91 600 #X connect 82 0 9 0;
r@91 601 #X connect 83 0 11 0;
r@91 602 #X connect 84 0 10 0;
r@91 603 #X connect 85 0 52 3;
r@91 604 #X connect 86 0 87 0;
r@91 605 #X connect 89 0 152 2;
r@91 606 #X connect 90 0 152 1;
r@91 607 #X connect 91 0 94 0;
r@91 608 #X connect 92 0 91 0;
r@91 609 #X connect 93 0 152 3;
r@91 610 #X connect 94 0 152 0;
r@91 611 #X connect 95 0 86 0;
r@91 612 #X connect 103 0 20 0;
r@91 613 #X connect 104 0 26 0;
r@91 614 #X connect 105 0 40 0;
r@91 615 #X connect 106 0 41 0;
r@91 616 #X connect 107 0 53 0;
r@91 617 #X connect 108 0 54 0;
r@91 618 #X connect 109 0 80 0;
r@91 619 #X connect 110 0 96 0;
r@91 620 #X connect 110 1 97 0;
r@91 621 #X connect 110 2 98 0;
r@91 622 #X connect 110 3 99 0;
r@91 623 #X connect 110 4 100 0;
r@91 624 #X connect 110 5 101 0;
r@91 625 #X connect 110 6 102 0;
r@91 626 #X connect 111 0 86 0;
r@91 627 #X connect 112 0 10 0;
r@91 628 #X connect 113 0 11 0;
r@91 629 #X connect 114 0 9 0;
r@91 630 #X connect 119 0 153 2;
r@91 631 #X connect 120 0 153 1;
r@91 632 #X connect 121 0 136 0;
r@91 633 #X connect 122 0 121 0;
r@91 634 #X connect 123 0 153 3;
r@91 635 #X connect 124 0 154 2;
r@91 636 #X connect 125 0 154 1;
r@91 637 #X connect 126 0 135 0;
r@91 638 #X connect 127 0 126 0;
r@91 639 #X connect 128 0 154 3;
r@91 640 #X connect 129 0 155 2;
r@91 641 #X connect 130 0 155 1;
r@91 642 #X connect 131 0 134 0;
r@91 643 #X connect 132 0 131 0;
r@91 644 #X connect 133 0 155 3;
r@91 645 #X connect 134 0 155 0;
r@91 646 #X connect 135 0 154 0;
r@91 647 #X connect 136 0 153 0;
r@91 648 #X connect 137 0 156 2;
r@91 649 #X connect 138 0 156 1;
r@91 650 #X connect 139 0 142 0;
r@91 651 #X connect 140 0 139 0;
r@91 652 #X connect 141 0 156 3;
r@91 653 #X connect 142 0 156 0;
r@91 654 #X connect 143 0 110 0;
r@91 655 #X connect 143 0 150 0;
r@91 656 #X connect 144 0 110 0;
r@91 657 #X connect 144 0 150 0;
r@91 658 #X connect 145 0 110 0;
r@91 659 #X connect 145 0 150 0;
r@91 660 #X connect 147 0 144 0;
r@91 661 #X connect 148 0 149 0;
r@91 662 #X connect 149 0 65 0;
r@91 663 #X connect 150 0 151 0;