#N canvas 423 238 487 445 10; #X floatatom 32 12 0 0 0 0 - - -; #N canvas 0 0 454 304 cpu 0; #X obj 61 159 cputime; #X obj 61 19 loadbang; #X obj 61 103 metro 1000; #X msg 61 47 1; #X floatatom 61 75 0 0 0 0 - - -; #X obj 61 131 t b b; #X obj 61 219 * 0.1; #X obj 61 188 int; #X text 106 75 <-- on/off; #X obj 61 246 outlet; #X connect 0 0 7 0; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 4 0; #X connect 4 0 2 0; #X connect 5 0 0 0; #X connect 5 1 0 1; #X connect 6 0 9 0; #X connect 7 0 6 0; #X restore 32 -14 pd cpu; #X obj 89 219 tabwrite~ array99; #X msg 80 14 \; pd dsp 1 \;; #X obj 80 -14 loadbang; #X obj 26 221 dac~; #X obj 27 171 hip~ 20; #N canvas 0 0 450 300 (subpatch) 0; #X array array99 3000 float 0; #X coords 0 1 2999 -1 150 100 1; #X restore 49 257 graph; #N canvas 0 0 531 530 corde 0; #X obj 86 32 t b b b b; #X msg 143 71 reset; #X obj 92 4 inlet; #X obj 141 409 outlet; #X obj 72 270 pack f f; #X obj 83 200 t f f; #X obj 108 223 + 1; #X text 254 75 number of masss on the string; #X obj 144 220 + 1; #X obj 104 112 + 1; #N canvas 0 0 454 304 uzi 0; #X obj 70 50 inlet; #X obj 70 154 f; #X obj 95 129 + 1; #X msg 67 103 0; #X obj 71 199 moses; #X obj 69 74 t b f; #X obj 71 232 outlet; #X connect 0 0 5 0; #X connect 1 0 4 0; #X connect 2 0 1 0; #X connect 3 0 1 0; #X connect 4 0 2 0; #X connect 4 0 6 0; #X connect 5 0 3 0; #X connect 5 1 4 1; #X restore 83 160 pd uzi; #N canvas 0 0 454 304 uzi 0; #X obj 70 50 inlet; #X obj 70 154 f; #X obj 95 129 + 1; #X msg 67 103 0; #X obj 71 199 moses; #X obj 69 74 t b f; #X obj 71 232 outlet; #X connect 0 0 5 0; #X connect 1 0 4 0; #X connect 2 0 1 0; #X connect 3 0 1 0; #X connect 4 0 2 0; #X connect 4 0 6 0; #X connect 5 0 3 0; #X connect 5 1 4 1; #X restore 138 156 pd uzi; #X obj 137 127 20; #X obj 86 136 21; #X obj 109 244 % 21; #X msg 221 78 50; #X msg 149 181 mass 20 1; #X msg 69 297 link \$1 \$2 0.1 0.03; #X msg 204 360 inForce 0 3 1; #X msg 206 332 outPos 0 7 1; #X connect 0 0 19 0; #X connect 0 0 18 0; #X connect 0 1 13 0; #X connect 0 2 12 0; #X connect 0 3 1 0; #X connect 1 0 3 0; #X connect 2 0 0 0; #X connect 4 0 17 0; #X connect 5 0 4 0; #X connect 5 1 6 0; #X connect 6 0 14 0; #X connect 8 0 14 1; #X connect 9 0 13 1; #X connect 10 0 5 0; #X connect 11 0 16 0; #X connect 12 0 11 0; #X connect 13 0 10 0; #X connect 14 0 4 1; #X connect 15 0 8 0; #X connect 15 0 9 0; #X connect 15 0 12 1; #X connect 16 0 3 0; #X connect 17 0 3 0; #X connect 18 0 3 0; #X connect 19 0 3 0; #X restore 28 96 pd corde; #X obj 28 74 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 89 193 metro 100; #X obj 89 167 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X obj 115 170 loadbang; #X obj 28 122 pmpd~ 1 1; #X obj 45 74 loadbang; #X obj 111 97 line~; #X msg 111 71 0.05 \, 0 1; #X obj 28 146 *~ 0.7; #X text 190 70 <- send a force to a point of the string; #X connect 1 0 0 0; #X connect 4 0 3 0; #X connect 6 0 2 0; #X connect 6 0 5 0; #X connect 6 0 5 1; #X connect 8 0 13 0; #X connect 9 0 8 0; #X connect 10 0 2 0; #X connect 11 0 10 0; #X connect 12 0 10 0; #X connect 13 0 17 0; #X connect 14 0 8 0; #X connect 15 0 13 0; #X connect 16 0 15 0; #X connect 17 0 6 0;