view newSwordAuto/sourceSpeed.pd @ 167:e2b1b7fda168

Sword - Trying to resove zipper sound when swinging. No joy yet but distance now an audio signal
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Thu, 04 Feb 2016 15:48:58 +0000
parents 6aaeb2789f99
children a57729aedc75
line wrap: on
line source
#N canvas 140 48 1008 758 10;
#X obj -219 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034
-1 -1;
#X obj -219 -68 s GO;
#X obj -279 -121 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
-1 -1;
#X obj -279 -68 s setUp;
#X text -89 -100 Start calculation with elevation = 0 \, arm length
is constant \, acceleration/deceleration is constant.;
#X obj -202 498 loadbang;
#X obj -202 519 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj -202 537 metro 10;
#X obj -202 559 snapshot~;
#X floatatom -202 579 5 0 0 0 - - -;
#X obj -121 595 hsl 128 15 0 80 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg -259 383 \$1 \$2;
#X obj -259 358 pack;
#X msg -89 415 0;
#X obj -260 335 f;
#X obj -281 291 r GO;
#X msg 50 417 0 \$1;
#X obj 49 340 t f b;
#X obj 50 368 delay;
#X obj -89 394 r setUp;
#X text -106 375 Start at 0 speed;
#X text 92 428 \$1 = time to reach speed of 0;
#X obj 64 293 r preswingTime;
#X text 2 253 Trigger once full speed;
#X obj -89 482 outlet~;
#X obj 233 -103 inlet;
#X obj 327 -105 inlet;
#X obj 233 -80 s \$0_thisGroup;
#X obj 327 -81 s \$0_thisSource;
#X text -322 414 \$1 = source speed;
#X text -322 430 \$2 = time to reach source speed;
#X obj -234 334 r preswingTime;
#X obj -215 73 r deltaPreCirc;
#X obj -230 94 *;
#X obj -230 135 +;
#X obj -215 114 r minPreCirc;
#X floatatom -293 156 5 0 0 0 - - -;
#X obj -215 156 r preswingTime;
#X obj -230 199 /;
#X obj -215 177 * 0.001;
#X obj -230 226 * 2;
#X text -187 206 Average Speed;
#X text -190 230 Top Speed for this source;
#X floatatom -283 252 5 0 0 0 - - -;
#X obj 107 357 r postswingTime;
#X floatatom 139 380 5 0 0 0 - - -;
#X obj 49 273 r GO;
#X obj 49 315 f;
#X obj 50 395 f;
#X floatatom -74 98 0 0 0 0 - - -;
#X floatatom -118 137 0 0 0 0 - - -;
#X floatatom -302 114 0 0 0 0 - - -;
#X floatatom -266 68 0 0 0 0 - - -;
#X obj -230 12 r \$0_thisGroup;
#X obj -215 31 r \$0_thisSource;
#X obj -230 52 +;
#X obj 272 482 vline~;
#X obj -89 449 vline~;
#X connect 0 0 1 0;
#X connect 2 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 11 0 57 0;
#X connect 12 0 11 0;
#X connect 13 0 57 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 57 0;
#X connect 17 0 18 1;
#X connect 17 1 18 0;
#X connect 18 0 48 0;
#X connect 19 0 13 0;
#X connect 22 0 47 1;
#X connect 25 0 27 0;
#X connect 26 0 28 0;
#X connect 31 0 12 1;
#X connect 32 0 33 1;
#X connect 32 0 49 0;
#X connect 33 0 34 0;
#X connect 33 0 51 0;
#X connect 34 0 36 0;
#X connect 34 0 38 0;
#X connect 35 0 34 1;
#X connect 35 0 50 0;
#X connect 37 0 39 0;
#X connect 38 0 40 0;
#X connect 39 0 38 1;
#X connect 40 0 43 0;
#X connect 40 0 14 1;
#X connect 44 0 45 0;
#X connect 44 0 48 1;
#X connect 46 0 47 0;
#X connect 47 0 17 0;
#X connect 48 0 16 0;
#X connect 53 0 55 0;
#X connect 54 0 55 1;
#X connect 55 0 33 0;
#X connect 57 0 8 0;
#X connect 57 0 24 0;