imported Cyrille's mpfilter objects and renamed them pmfilter to match pmpd

svn path=/trunk/externals/mapping/; revision=4624

9 files changed, 369 insertions, 0 deletions

diff --git a/help/pmfilter-help.pd b/help/pmfilter-help.pd
new file mode 100644
index 0000000..aada846
--- /dev/null
+++ b/help/pmfilter-help.pd
@@ -0,0 +1,35 @@
+#N canvas 300 138 676 449 10;
+#X obj 44 43 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6500 0;
+#X obj 44 238 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6500 1;
+#X floatatom 172 234 9 0 0 0 - - -;
+#X msg 86 157 1;
+#X obj 319 35 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6700 0;
+#X obj 319 230 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6700 1;
+#X floatatom 447 226 9 0 0 0 - - -;
+#X msg 361 149 0.5;
+#X obj 44 183 resample 30;
+#X obj 44 210 mpfilter 0.3 0.8;
+#X obj 93 235 clip 0 1;
+#X obj 93 259 timeroll;
+#X obj 368 251 timeroll;
+#X obj 368 227 clip 0 1;
+#X obj 319 198 mpfilter 0.3 0.3;
+#X obj 319 175 resample 30;
+#X connect 0 0 8 0;
+#X connect 3 0 9 1;
+#X connect 4 0 15 0;
+#X connect 7 0 14 1;
+#X connect 8 0 9 0;
+#X connect 9 0 1 0;
+#X connect 9 0 10 0;
+#X connect 9 1 2 0;
+#X connect 10 0 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 5 0;
+#X connect 14 0 13 0;
+#X connect 14 1 6 0;
+#X connect 15 0 14 0;
diff --git a/help/pmfilter_2d-help.pd b/help/pmfilter_2d-help.pd
new file mode 100644
index 0000000..ea72b48
--- /dev/null
+++ b/help/pmfilter_2d-help.pd
@@ -0,0 +1,35 @@
+#N canvas 181 195 583 629 10;
+#X obj 44 43 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 0;
+#X obj 94 44 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 0;
+#X obj 44 212 pack f f;
+#X obj 44 302 unpack f f;
+#X msg 81 256 1 2;
+#X obj 187 24 gcanvas 100 100;
+#X obj 187 132 / 100;
+#X obj 279 131 / 100;
+#X floatatom 155 257 5 0 0 0 - - -;
+#X floatatom 118 257 5 0 0 0 - - -;
+#X floatatom 193 232 5 0 0 0 - - -;
+#X obj 44 183 resample 50;
+#X obj 44 279 mpfilter_2d 0.3 0.3;
+#X obj 44 360 timeroll;
+#X obj 44 333 clip 0 1;
+#X text 348 44 physical modeling filter (2nd order);
+#X connect 0 0 11 0;
+#X connect 1 0 2 1;
+#X connect 2 0 12 0;
+#X connect 3 0 14 0;
+#X connect 3 1 14 0;
+#X connect 4 0 12 1;
+#X connect 5 0 6 0;
+#X connect 5 1 7 0;
+#X connect 6 0 11 0;
+#X connect 7 0 2 1;
+#X connect 8 0 12 3;
+#X connect 9 0 12 2;
+#X connect 10 0 12 4;
+#X connect 11 0 2 0;
+#X connect 12 0 3 0;
+#X connect 14 0 13 0;
diff --git a/help/pmfilter_3d-help.pd b/help/pmfilter_3d-help.pd
new file mode 100644
index 0000000..75b6e0f
--- /dev/null
+++ b/help/pmfilter_3d-help.pd
@@ -0,0 +1,27 @@
+#N canvas 181 195 296 555 10;
+#X obj 44 44 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 0;
+#X obj 75 43 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 0;
+#X obj 44 211 pack f f f;
+#X obj 44 299 unpack f f f;
+#X obj 109 42 vsl 15 128 0 1 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 0;
+#X msg 86 243 1 0.5 0.3;
+#X floatatom 198 245 5 0 0 0 - - -;
+#X obj 44 184 resample 50;
+#X obj 43 269 mpfilter_3d 0.3 0.3;
+#X obj 44 345 clip 0 1;
+#X obj 44 369 timeroll;
+#X connect 0 0 7 0;
+#X connect 1 0 2 1;
+#X connect 2 0 8 0;
+#X connect 3 0 9 0;
+#X connect 3 1 9 0;
+#X connect 3 2 9 0;
+#X connect 4 0 2 2;
+#X connect 5 0 8 1;
+#X connect 6 0 8 4;
+#X connect 7 0 2 0;
+#X connect 8 0 3 0;
+#X connect 9 0 10 0;
diff --git a/pd/pmfilter.pd b/pd/pmfilter.pd
new file mode 100644
index 0000000..801ec8c
--- /dev/null
+++ b/pd/pmfilter.pd
@@ -0,0 +1,40 @@
+#N canvas 838 215 702 349 10;
+#X obj 31 216 msd;
+#X obj 31 34 inlet;
+#X obj 31 57 t b f;
+#X obj 80 130 loadbang;
+#X msg 61 104 posX in \$1;
+#X obj 31 290 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X msg 80 182 reset \, mass in 0 1 0 \, mass out 1 1 0 \, link lnk
+in out \$1 \$2;
+#X obj 358 34 inlet;
+#X obj 459 34 inlet;
+#X msg 459 81 setK lnk \$1;
+#X obj 552 35 inlet;
+#X msg 552 81 setD lnk \$1;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 262 route out;
+#X obj 140 291 outlet;
+#X obj 140 263 route out;
+#X obj 31 238 route massesPosId massesForcesId;
+#X msg 358 81 forceX out \$1;
+#X connect 0 0 17 0;
+#X connect 1 0 2 0;
+#X connect 2 0 13 0;
+#X connect 2 1 4 0;
+#X connect 3 0 6 0;
+#X connect 4 0 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 8 0 18 0;
+#X connect 9 0 10 0;
+#X connect 10 0 0 0;
+#X connect 11 0 12 0;
+#X connect 12 0 0 0;
+#X connect 13 0 0 0;
+#X connect 14 0 5 0;
+#X connect 16 0 15 0;
+#X connect 17 0 14 0;
+#X connect 17 1 16 0;
+#X connect 18 0 0 0;
diff --git a/pd/pmfilter_2d.pd b/pd/pmfilter_2d.pd
new file mode 100644
index 0000000..bc2264a
--- /dev/null
+++ b/pd/pmfilter_2d.pd
@@ -0,0 +1,48 @@
+#N canvas 934 11 702 349 10;
+#X obj 31 34 inlet;
+#X obj 80 130 loadbang;
+#X obj 31 290 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X obj 259 34 inlet;
+#X obj 360 34 inlet;
+#X msg 360 81 setK lnk \$1;
+#X obj 453 35 inlet;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 262 route out;
+#X obj 140 291 outlet;
+#X obj 140 263 route out;
+#X obj 31 238 route massesPosId massesForcesId;
+#X obj 31 216 msd2D;
+#X msg 61 104 posX in \$1 \, posY in \$2;
+#X obj 31 57 t b l;
+#X msg 259 108 forceX out \$1 \, forceY out \$2;
+#X msg 453 81 setD damp \$1;
+#X obj 156 128 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 80 182 reset \, mass in 0 1 0 0 \, mass out 1 1 0 0 \, link
+lnk in out \$1 0 \, nLink damp in out 0 \$2 0 1 \, nLink damp in out
+0 \$2 1 0;
+#X obj 552 35 inlet;
+#X msg 552 81 setL lnk \$1;
+#X connect 0 0 15 0;
+#X connect 1 0 3 0;
+#X connect 3 0 19 0;
+#X connect 4 0 16 0;
+#X connect 5 0 6 0;
+#X connect 6 0 13 0;
+#X connect 7 0 17 0;
+#X connect 8 0 13 0;
+#X connect 9 0 2 0;
+#X connect 11 0 10 0;
+#X connect 12 0 9 0;
+#X connect 12 1 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 0;
+#X connect 15 0 8 0;
+#X connect 15 1 14 0;
+#X connect 16 0 13 0;
+#X connect 17 0 13 0;
+#X connect 18 0 3 0;
+#X connect 19 0 13 0;
+#X connect 20 0 21 0;
+#X connect 21 0 13 0;
diff --git a/pd/pmfilter_3d.pd b/pd/pmfilter_3d.pd
new file mode 100644
index 0000000..5c92ec2
--- /dev/null
+++ b/pd/pmfilter_3d.pd
@@ -0,0 +1,48 @@
+#N canvas 827 24 702 349 10;
+#X obj 31 34 inlet;
+#X obj 80 130 loadbang;
+#X obj 31 314 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X obj 259 34 inlet;
+#X obj 360 34 inlet;
+#X msg 360 81 setK lnk \$1;
+#X obj 453 35 inlet;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 286 route out;
+#X obj 140 315 outlet;
+#X obj 140 287 route out;
+#X obj 31 262 route massesPosId massesForcesId;
+#X obj 31 57 t b l;
+#X msg 453 81 setD damp \$1;
+#X obj 156 128 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 31 240 msd3D;
+#X msg 80 182 reset \, mass in 0 1 0 0 0 \, mass out 1 1 0 0 0 \, link
+lnk in out \$1 0 \, nLink damp in out 0 \$2 0 0 1 \, nLink damp in
+out 0 \$2 0 1 0 \, nLink damp in out 0 \$2 1 0 0;
+#X msg 259 130 forceX out \$1 \, forceY out \$2 \, forceZ out \$3;
+#X msg 61 104 posX in \$1 \, posY in \$2 \, posZ in \$3;
+#X obj 552 35 inlet;
+#X msg 552 81 setL lnk \$1;
+#X connect 0 0 13 0;
+#X connect 1 0 3 0;
+#X connect 3 0 17 0;
+#X connect 4 0 18 0;
+#X connect 5 0 6 0;
+#X connect 6 0 16 0;
+#X connect 7 0 14 0;
+#X connect 8 0 16 0;
+#X connect 9 0 2 0;
+#X connect 11 0 10 0;
+#X connect 12 0 9 0;
+#X connect 12 1 11 0;
+#X connect 13 0 8 0;
+#X connect 13 1 19 0;
+#X connect 14 0 16 0;
+#X connect 15 0 3 0;
+#X connect 16 0 12 0;
+#X connect 17 0 16 0;
+#X connect 18 0 16 0;
+#X connect 19 0 16 0;
+#X connect 20 0 21 0;
+#X connect 21 0 16 0;
diff --git a/pmfilter.pd b/pmfilter.pd
new file mode 100644
index 0000000..801ec8c
--- /dev/null
+++ b/pmfilter.pd
@@ -0,0 +1,40 @@
+#N canvas 838 215 702 349 10;
+#X obj 31 216 msd;
+#X obj 31 34 inlet;
+#X obj 31 57 t b f;
+#X obj 80 130 loadbang;
+#X msg 61 104 posX in \$1;
+#X obj 31 290 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X msg 80 182 reset \, mass in 0 1 0 \, mass out 1 1 0 \, link lnk
+in out \$1 \$2;
+#X obj 358 34 inlet;
+#X obj 459 34 inlet;
+#X msg 459 81 setK lnk \$1;
+#X obj 552 35 inlet;
+#X msg 552 81 setD lnk \$1;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 262 route out;
+#X obj 140 291 outlet;
+#X obj 140 263 route out;
+#X obj 31 238 route massesPosId massesForcesId;
+#X msg 358 81 forceX out \$1;
+#X connect 0 0 17 0;
+#X connect 1 0 2 0;
+#X connect 2 0 13 0;
+#X connect 2 1 4 0;
+#X connect 3 0 6 0;
+#X connect 4 0 0 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 8 0 18 0;
+#X connect 9 0 10 0;
+#X connect 10 0 0 0;
+#X connect 11 0 12 0;
+#X connect 12 0 0 0;
+#X connect 13 0 0 0;
+#X connect 14 0 5 0;
+#X connect 16 0 15 0;
+#X connect 17 0 14 0;
+#X connect 17 1 16 0;
+#X connect 18 0 0 0;
diff --git a/pmfilter_2d.pd b/pmfilter_2d.pd
new file mode 100644
index 0000000..bc2264a
--- /dev/null
+++ b/pmfilter_2d.pd
@@ -0,0 +1,48 @@
+#N canvas 934 11 702 349 10;
+#X obj 31 34 inlet;
+#X obj 80 130 loadbang;
+#X obj 31 290 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X obj 259 34 inlet;
+#X obj 360 34 inlet;
+#X msg 360 81 setK lnk \$1;
+#X obj 453 35 inlet;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 262 route out;
+#X obj 140 291 outlet;
+#X obj 140 263 route out;
+#X obj 31 238 route massesPosId massesForcesId;
+#X obj 31 216 msd2D;
+#X msg 61 104 posX in \$1 \, posY in \$2;
+#X obj 31 57 t b l;
+#X msg 259 108 forceX out \$1 \, forceY out \$2;
+#X msg 453 81 setD damp \$1;
+#X obj 156 128 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 80 182 reset \, mass in 0 1 0 0 \, mass out 1 1 0 0 \, link
+lnk in out \$1 0 \, nLink damp in out 0 \$2 0 1 \, nLink damp in out
+0 \$2 1 0;
+#X obj 552 35 inlet;
+#X msg 552 81 setL lnk \$1;
+#X connect 0 0 15 0;
+#X connect 1 0 3 0;
+#X connect 3 0 19 0;
+#X connect 4 0 16 0;
+#X connect 5 0 6 0;
+#X connect 6 0 13 0;
+#X connect 7 0 17 0;
+#X connect 8 0 13 0;
+#X connect 9 0 2 0;
+#X connect 11 0 10 0;
+#X connect 12 0 9 0;
+#X connect 12 1 11 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 0;
+#X connect 15 0 8 0;
+#X connect 15 1 14 0;
+#X connect 16 0 13 0;
+#X connect 17 0 13 0;
+#X connect 18 0 3 0;
+#X connect 19 0 13 0;
+#X connect 20 0 21 0;
+#X connect 21 0 13 0;
diff --git a/pmfilter_3d.pd b/pmfilter_3d.pd
new file mode 100644
index 0000000..5c92ec2
--- /dev/null
+++ b/pmfilter_3d.pd
@@ -0,0 +1,48 @@
+#N canvas 827 24 702 349 10;
+#X obj 31 34 inlet;
+#X obj 80 130 loadbang;
+#X obj 31 314 outlet;
+#X obj 80 156 pack \$1 \$2;
+#X obj 259 34 inlet;
+#X obj 360 34 inlet;
+#X msg 360 81 setK lnk \$1;
+#X obj 453 35 inlet;
+#X msg 31 81 bang \, get massesPos out \, get massesForces out;
+#X obj 31 286 route out;
+#X obj 140 315 outlet;
+#X obj 140 287 route out;
+#X obj 31 262 route massesPosId massesForcesId;
+#X obj 31 57 t b l;
+#X msg 453 81 setD damp \$1;
+#X obj 156 128 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 31 240 msd3D;
+#X msg 80 182 reset \, mass in 0 1 0 0 0 \, mass out 1 1 0 0 0 \, link
+lnk in out \$1 0 \, nLink damp in out 0 \$2 0 0 1 \, nLink damp in
+out 0 \$2 0 1 0 \, nLink damp in out 0 \$2 1 0 0;
+#X msg 259 130 forceX out \$1 \, forceY out \$2 \, forceZ out \$3;
+#X msg 61 104 posX in \$1 \, posY in \$2 \, posZ in \$3;
+#X obj 552 35 inlet;
+#X msg 552 81 setL lnk \$1;
+#X connect 0 0 13 0;
+#X connect 1 0 3 0;
+#X connect 3 0 17 0;
+#X connect 4 0 18 0;
+#X connect 5 0 6 0;
+#X connect 6 0 16 0;
+#X connect 7 0 14 0;
+#X connect 8 0 16 0;
+#X connect 9 0 2 0;
+#X connect 11 0 10 0;
+#X connect 12 0 9 0;
+#X connect 12 1 11 0;
+#X connect 13 0 8 0;
+#X connect 13 1 19 0;
+#X connect 14 0 16 0;
+#X connect 15 0 3 0;
+#X connect 16 0 12 0;
+#X connect 17 0 16 0;
+#X connect 18 0 16 0;
+#X connect 19 0 16 0;
+#X connect 20 0 21 0;
+#X connect 21 0 16 0;