1 files changed, 94 insertions, 0 deletions
diff --git a/puremapping/pmopen_string_1d.pd b/puremapping/pmopen_string_1d.pd
new file mode 100644
index 0000000..aad7eba
--- /dev/null
+++ b/puremapping/pmopen_string_1d.pd
@@ -0,0 +1,94 @@
+#N canvas 267 388 662 400 10;
+#X obj 31 227 msd;
+#X obj 31 34 inlet;
+#X obj 31 301 outlet;
+#X obj 453 39 inlet;
+#X msg 453 86 setK lnk \$1;
+#X obj 546 40 inlet;
+#X msg 546 86 setD lnk \$1;
+#X obj 126 300 outlet;
+#N canvas 327 184 457 717 creation_corde 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 195 366 pack f f;
+#X obj 195 247 t f f;
+#X obj 241 248 \$1;
+#X msg 195 389 mass M-\$1 1 1 \$2;
+#X obj 225 300 /;
+#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 445 moses \$1;
+#X obj 173 677 outlet;
+#X msg 31 578 setL lnk 0;
+#X obj 43 50 t b b b b b b;
+#X obj 43 23 inlet;
+#X msg 163 94 reset \, mass M-0 0 1 0;
+#X msg 69 392 0;
+#X obj 152 525 + 1;
+#X obj 69 495 + 1;
+#X obj 69 470 t f f f;
+#X obj 91 522 t f;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 2 0 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 1 0;
+#X connect 4 1 7 0;
+#X connect 5 0 15 0;
+#X connect 6 0 9 0;
+#X connect 7 0 6 0;
+#X connect 7 1 10 0;
+#X connect 8 0 10 1;
+#X connect 9 0 5 0;
+#X connect 10 0 6 1;
+#X connect 11 0 5 0;
+#X connect 12 0 11 0;
+#X connect 13 0 14 0;
+#X connect 14 0 23 0;
+#X connect 16 0 5 0;
+#X connect 17 0 16 0;
+#X connect 17 1 20 0;
+#X connect 17 3 0 0;
+#X connect 17 4 19 0;
+#X connect 17 5 8 0;
+#X connect 18 0 17 0;
+#X connect 19 0 5 0;
+#X connect 20 0 13 0;
+#X connect 21 0 12 1;
+#X connect 22 0 24 0;
+#X connect 23 0 22 0;
+#X connect 23 1 12 0;
+#X connect 23 2 21 0;
+#X connect 24 0 13 0;
+#X restore 69 174 pd creation_corde;
+#X msg 317 84 forceX M-\$1 \$2;
+#X obj 31 249 route massesPos massesForces;
+#X obj 70 151 loadbang;
+#X obj 136 154 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 31 81 bang \, get massesPos \, get massesForces;
+#X obj 317 42 inlet;
+#X obj 31 57 t b f;
+#X msg 61 104 posX M-0 \$1;
+#X connect 0 0 10 0;
+#X connect 1 0 15 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 0 0;
+#X connect 10 0 2 0;
+#X connect 10 1 7 0;
+#X connect 11 0 8 0;
+#X connect 12 0 8 0;
+#X connect 13 0 0 0;
+#X connect 14 0 9 0;
+#X connect 15 0 13 0;
+#X connect 15 1 16 0;
+#X connect 16 0 0 0;