1 files changed, 113 insertions, 0 deletions
diff --git a/puremapping/pmstring_1d.pd b/puremapping/pmstring_1d.pd
new file mode 100644
index 0000000..58c4017
--- /dev/null
+++ b/puremapping/pmstring_1d.pd
@@ -0,0 +1,113 @@
+#N canvas 590 84 962 400 10;
+#X obj 42 278 msd;
+#X obj 31 34 inlet;
+#X obj 31 57 t b f;
+#X obj 42 352 outlet;
+#X obj 358 34 inlet;
+#X obj 710 41 inlet;
+#X msg 710 88 setK lnk \$1;
+#X obj 803 42 inlet;
+#X msg 803 88 setD lnk \$1;
+#X obj 137 351 outlet;
+#N canvas 795 187 457 717 creation_corde 0;
+#X obj 43 23 loadbang;
+#X msg 163 94 reset \, mass M-0 0 1 0;
+#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 129 19 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X msg 123 404 mass M-\$1 0 1 1;
+#X obj 195 329 pack f f;
+#X obj 195 247 t f f;
+#X obj 241 248 \$1;
+#X msg 195 352 mass M-\$1 1 1 \$2;
+#X obj 225 300 /;
+#X obj 123 378 + 1;
+#X obj 123 355 \$1;
+#X msg 121 580 link lnk M-\$1 M-\$2 \$3 \$4;
+#X obj 121 552 pack f f \$2 \$3;
+#X obj 69 418 f;
+#X obj 69 495 + 1;
+#X obj 69 445 moses \$1;
+#X obj 91 522 t f f;
+#X obj 69 470 t f f;
+#X msg 69 391 -1;
+#X obj 152 524 + 2;
+#X obj 173 677 outlet;
+#X msg 31 578 setL lnk 0;
+#X obj 43 50 t b b b b b b;
+#X connect 0 0 29 0;
+#X connect 1 0 7 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 3 0;
+#X connect 6 1 12 0;
+#X connect 7 0 27 0;
+#X connect 8 0 15 1;
+#X connect 9 0 29 0;
+#X connect 10 0 7 0;
+#X connect 11 0 14 0;
+#X connect 12 0 11 0;
+#X connect 12 1 15 0;
+#X connect 13 0 8 0;
+#X connect 14 0 7 0;
+#X connect 15 0 11 1;
+#X connect 16 0 10 0;
+#X connect 17 0 16 0;
+#X connect 18 0 7 0;
+#X connect 19 0 18 0;
+#X connect 20 0 22 0;
+#X connect 21 0 23 0;
+#X connect 22 0 24 0;
+#X connect 23 0 20 0;
+#X connect 23 1 19 0;
+#X connect 24 0 21 0;
+#X connect 24 1 26 0;
+#X connect 25 0 20 0;
+#X connect 26 0 19 1;
+#X connect 28 0 7 0;
+#X connect 29 0 28 0;
+#X connect 29 1 25 0;
+#X connect 29 2 17 0;
+#X connect 29 3 2 0;
+#X connect 29 4 1 0;
+#X connect 29 5 13 0;
+#X restore 105 149 pd creation_corde;
+#X msg 61 104 posX M-0 \$1;
+#X obj 358 99 pack f f;
+#X obj 409 33 loadbang;
+#X obj 409 75 + 1;
+#X msg 358 127 posX M-\$2 \$1;
+#X obj 409 54 \$1;
+#X obj 540 41 inlet;
+#X msg 540 115 forceX M-\$1 \$2;
+#X obj 42 300 route massesPos massesForces;
+#X msg 31 81 bang \, get massesPos \, get massesForces;
+#X connect 0 0 19 0;
+#X connect 1 0 2 0;
+#X connect 2 0 20 0;
+#X connect 2 1 11 0;
+#X connect 4 0 12 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X connect 12 0 15 0;
+#X connect 13 0 16 0;
+#X connect 14 0 12 1;
+#X connect 15 0 0 0;
+#X connect 16 0 14 0;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 19 0 3 0;
+#X connect 19 1 9 0;
+#X connect 20 0 0 0;