#N canvas 421 245 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 1 82 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 155 479 outlet;
#X obj 82 347 pack f f;
#X obj 93 277 t f f;
#X obj 118 300 + 1;
#X text 254 75 number of masss on the string;
#X obj 158 290 + 1;
#X obj 104 112 + 1;
#X obj 137 127 20;
#X obj 86 136 21;
#X obj 119 321 % 21;
#X msg 221 78 50;
#X msg 149 181 mass 20 1;
#X msg 83 367 link \$1 \$2 0.1 0.03;
#X msg 218 430 inForce 0 3 1;
#X msg 220 402 outPos 0 7 1;
#X obj 138 156 until;
#X obj 83 160 t f b;
#X msg 108 180 0;
#X obj 82 207 until;
#X obj 80 233 f;
#X obj 108 233 + 1;
#X connect 0 0 17 0;
#X connect 0 0 16 0;
#X connect 0 1 11 0;
#X connect 0 2 10 0;
#X connect 0 3 1 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 15 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 12 0;
#X connect 8 0 12 1;
#X connect 9 0 11 1;
#X connect 10 0 18 0;
#X connect 11 0 19 0;
#X connect 12 0 4 1;
#X connect 13 0 8 0;
#X connect 13 0 9 0;
#X connect 13 0 10 1;
#X connect 14 0 3 0;
#X connect 15 0 3 0;
#X connect 16 0 3 0;
#X connect 17 0 3 0;
#X connect 18 0 14 0;
#X connect 19 0 21 0;
#X connect 19 1 20 0;
#X connect 20 0 22 1;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 22 0 5 0;
#X connect 23 0 22 1;
#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 0 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;