1 files changed, 145 insertions, 0 deletions
diff --git a/puremapping/pmrigid_string_2d.pd b/puremapping/pmrigid_string_2d.pd
new file mode 100644
index 0000000..52d36ea
--- /dev/null
+++ b/puremapping/pmrigid_string_2d.pd
@@ -0,0 +1,145 @@
+#N canvas 605 196 743 397 10;
+#X obj 42 34 inlet;
+#X obj 42 57 t b f;
+#X obj 42 350 outlet;
+#X obj 269 31 inlet;
+#X obj 510 34 inlet;
+#X msg 510 81 setK lnk \$1;
+#X obj 603 35 inlet;
+#X msg 603 81 setD lnk \$1;
+#N canvas 746 115 421 804 creation_corde 0;
+#X obj 32 23 loadbang;
+#X msg 143 117 0;
+#X obj 143 142 f;
+#X obj 143 193 + 1;
+#X obj 143 169 moses \$1;
+#X obj 165 220 t f f;
+#X obj 175 649 t a;
+#X obj 241 271 + 1;
+#X obj 118 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 195 329 pack f f;
+#X obj 195 247 t f f;
+#X obj 241 248 \$1;
+#X obj 225 300 /;
+#X obj 119 291 + 1;
+#X obj 119 268 \$1;
+#X msg 121 580 link lnk M-\$1 M-\$2 \$3 \$4;
+#X obj 121 552 pack f f \$2 \$3;
+#X obj 173 677 outlet;
+#X msg 31 578 setL lnk 0;
+#X obj 32 50 t b b b b b b;
+#N canvas 0 0 259 330 loop 0;
+#X obj 74 149 f;
+#X obj 74 213 + 1;
+#X obj 74 171 moses \$1;
+#X obj 74 104 t b f;
+#X obj 104 281 outlet;
+#X obj 74 82 inlet;
+#X msg 74 126 0;
+#X obj 74 191 t f f;
+#X obj 96 240 t f;
+#X connect 0 0 2 0;
+#X connect 1 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 6 0;
+#X connect 3 1 2 1;
+#X connect 5 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 1 0;
+#X connect 7 1 4 0;
+#X connect 8 0 0 0;
+#X restore 70 417 pd loop;
+#X obj 71 361 \$1;
+#N canvas 0 0 259 330 loop 0;
+#X obj 74 149 f;
+#X obj 74 213 + 1;
+#X obj 74 171 moses \$1;
+#X obj 74 104 t b f;
+#X obj 104 281 outlet;
+#X obj 74 82 inlet;
+#X msg 74 126 0;
+#X obj 74 191 t f f;
+#X obj 96 240 t f;
+#X connect 0 0 2 0;
+#X connect 1 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 6 0;
+#X connect 3 1 2 1;
+#X connect 5 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 1 0;
+#X connect 7 1 4 0;
+#X connect 8 0 0 0;
+#X restore 71 477 pd loop;
+#X obj 71 451 t f f;
+#X obj 71 386 + 2;
+#X msg 175 94 reset \, mass M-0 0 1 0 0;
+#X msg 195 352 mass M-\$1 1 1 \$2 0;
+#X msg 119 400 mass M-\$1 0 1 1 0;
+#X connect 0 0 19 0;
+#X connect 1 0 2 0;
+#X connect 2 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 5 1 10 0;
+#X connect 6 0 17 0;
+#X connect 7 0 12 1;
+#X connect 8 0 19 0;
+#X connect 9 0 26 0;
+#X connect 10 0 9 0;
+#X connect 10 1 12 0;
+#X connect 11 0 7 0;
+#X connect 12 0 9 1;
+#X connect 13 0 27 0;
+#X connect 14 0 13 0;
+#X connect 15 0 6 0;
+#X connect 16 0 15 0;
+#X connect 19 0 18 0;
+#X connect 19 1 21 0;
+#X connect 19 2 14 0;
+#X connect 19 3 1 0;
+#X connect 19 4 25 0;
+#X connect 19 5 11 0;
+#X connect 20 0 23 0;
+#X connect 21 0 24 0;
+#X connect 22 0 16 0;
+#X connect 23 0 22 0;
+#X connect 23 1 16 1;
+#X connect 24 0 20 0;
+#X connect 25 0 6 0;
+#X connect 26 0 6 0;
+#X connect 27 0 6 0;
+#X restore 87 175 pd creation_corde;
+#X obj 269 96 pack f f;
+#X obj 320 30 loadbang;
+#X obj 320 72 + 1;
+#X obj 320 51 \$1;
+#X obj 395 31 inlet;
+#X obj 42 278 msd2D;
+#X msg 395 80 forceY M-\$1 \$2;
+#X msg 72 104 posY M-0 \$1;
+#X msg 268 124 posY M-\$2 \$1;
+#X obj 42 300 route massesPos;
+#X msg 42 81 bang \, get massesPos;
+#X connect 0 0 1 0;
+#X connect 1 0 19 0;
+#X connect 1 1 16 0;
+#X connect 3 0 9 0;
+#X connect 4 0 5 0;
+#X connect 5 0 14 0;
+#X connect 6 0 7 0;
+#X connect 7 0 14 0;
+#X connect 8 0 14 0;
+#X connect 9 0 17 0;
+#X connect 10 0 12 0;
+#X connect 11 0 9 1;
+#X connect 12 0 11 0;
+#X connect 13 0 15 0;
+#X connect 14 0 18 0;
+#X connect 15 0 14 0;
+#X connect 16 0 14 0;
+#X connect 17 0 14 0;
+#X connect 18 0 2 0;
+#X connect 19 0 14 0;