aboutsummaryrefslogtreecommitdiff
path: root/msd
diff options
context:
space:
mode:
Diffstat (limited to 'msd')
-rw-r--r--msd/msd.h2044
-rw-r--r--msd/msd/01_msdtest.pd92
-rw-r--r--msd/msd/02_msdstring.pd328
-rw-r--r--msd/msd/03_msdwave.pd230
-rw-r--r--msd/msd/Makefile.am51
-rw-r--r--msd/msd/license.txt504
-rw-r--r--msd/msd/main.cpp3
-rw-r--r--msd/msd/msd-help.pd438
-rw-r--r--msd/msd/package.txt4
-rw-r--r--msd/msd2D/01_msd2Dtest.pd168
-rw-r--r--msd/msd2D/02_msd2Dadd.pd463
-rw-r--r--msd/msd2D/03_imsd2Dtest.pd156
-rw-r--r--msd/msd2D/04_msd2Dperf.pd213
-rw-r--r--msd/msd2D/05_msd2DDataStruct.pd117
-rw-r--r--msd/msd2D/06_msd2Dgravit.pd212
-rw-r--r--msd/msd2D/07_sable.pd505
-rw-r--r--msd/msd2D/Makefile.am51
-rw-r--r--msd/msd2D/editor/MOVED1
-rw-r--r--msd/msd2D/lb.pd13
-rw-r--r--msd/msd2D/license.txt504
-rw-r--r--msd/msd2D/main.cpp3
-rw-r--r--msd/msd2D/make_anim.pd204
-rw-r--r--msd/msd2D/msd2D-help.pd582
-rw-r--r--msd/msd2D/package.txt4
-rw-r--r--msd/msd2D/sound_sable.pd67
-rw-r--r--msd/msd2D/structures.pd27
-rw-r--r--msd/msd3D/01_msd3Dtest.pd192
-rw-r--r--msd/msd3D/02_msd3Dperf.pd214
-rw-r--r--msd/msd3D/03_msd3Dmemb.pd207
-rw-r--r--msd/msd3D/04_msd3Dfilet.pd188
-rw-r--r--msd/msd3D/05_msd3Dvline.pd312
-rw-r--r--msd/msd3D/Makefile.am51
-rw-r--r--msd/msd3D/curve16.pd133
-rw-r--r--msd/msd3D/curve2.pd23
-rw-r--r--msd/msd3D/filet.pd106
-rw-r--r--msd/msd3D/license.txt504
-rw-r--r--msd/msd3D/main.cpp3
-rw-r--r--msd/msd3D/msd3D-help.pd567
-rw-r--r--msd/msd3D/package.txt4
-rw-r--r--msd/msd3D/partiel.pd29
40 files changed, 9517 insertions, 0 deletions
diff --git a/msd/msd.h b/msd/msd.h
new file mode 100644
index 0000000..1e1b6f2
--- /dev/null
+++ b/msd/msd.h
@@ -0,0 +1,2044 @@
+
+
+/*
+ msd - mass spring damper model for Pure Data or Max/MSP
+
+ Copyright (C) 2005 Nicolas Montgermont
+ Written by Nicolas Montgermont for a Master's train in Acoustic,
+ Signal processing and Computing Applied to Music (ATIAM, Paris 6)
+ at La Kitchen supervised by Cyrille Henry.
+
+ Optimized by Thomas Grill for Flext
+ Based on Pure Data by Miller Puckette and others
+ Based on pmpd by Cyrille Henry
+
+ Contact : Nicolas Montgermont, nicolas_montgermont @ yahoo dot fr
+ Cyrille Henry, Cyrille.Henry @ la-kitchen dot fr
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+ Version 0.08 -- 26.07.2006
+*/
+
+// include flext header
+#include <flext.h>
+#include <flmap.h>
+#include <math.h>
+#include <string.h>
+#include <vector>
+
+// define constants
+#define MSD_VERSION 0.07
+#define PI 3.1415926535
+
+// check for appropriate flext version
+#if !defined(FLEXT_VERSION) || (FLEXT_VERSION < 500)
+#error You need at least flext version 0.5.0
+#endif
+
+#ifdef _MSC_VER
+#define NEWARR(type,var,size) type *var = new type[size]
+#define DELARR(var) delete[] var
+#else
+#define NEWARR(type,var,size) type var[size]
+#define DELARR(var) ((void)0)
+#endif
+
+
+inline t_float sqr(t_float x) { return x*x; }
+
+
+template<int N> class Link;
+
+template<int N>
+class LinkList
+ : public std::vector<Link<N> *>
+{
+public:
+ void insert(Link<N> *l)
+ {
+ for(typename LinkList<N>::iterator it = this->begin(); it != this->end(); ++it)
+ if(*it == l) return;
+ // not found -> add
+ push_back(l);
+ }
+
+ void erase(Link<N> *l)
+ {
+ for(typename LinkList<N>::iterator it = this->begin(); it != this->end(); ++it)
+ if(*it == l) {
+ // found
+ std::vector<Link<N> *>::erase(it);
+ return;
+ }
+ }
+};
+
+template<int N>
+class Mass {
+public:
+ t_int nbr;
+ const t_symbol *Id;
+ t_float M,invM;
+ t_float speed[N];
+ t_float pos[N];
+ t_float pos2[N];
+ t_float force[N];
+ t_float out_force[N];
+ LinkList<N> links;
+
+ Mass(t_int n,const t_symbol *id,bool mob,t_float m,t_float p[N])
+ : nbr(n),Id(id)
+ , M(m)
+ {
+ if(mob) setMobile(); else setFixed();
+
+ for(int i = 0; i < N; ++i) {
+ pos[i] = pos2[i] = p[i];
+ force[i] = speed[i] = 0;
+ }
+ }
+
+ inline void setForce(int n,t_float f) { force[n] += f; }
+
+ inline void setForce(t_float f[N])
+ {
+ for(int i = 0; i < N; ++i) setForce(i,f[i]);
+ }
+
+ inline void setPos(int n,t_float p) { pos[n] = pos2[n] = p; }
+
+ inline void setPos(t_float p[N])
+ {
+ for(int i = 0; i < N; ++i) setPos(i,p[i]);
+ }
+
+ inline bool getMobile() const { return invM != 0; }
+
+ inline void setMobile() { invM = M?1/M:0.; }
+ inline void setFixed() { invM = 0; }
+
+ inline void compute(t_float limit[N][2])
+ {
+ for(int i = 0; i < N; ++i) {
+ t_float pold = pos[i];
+ t_float pnew;
+ if(invM) // if mass is mobile
+ pnew = force[i] * invM + 2*pold - pos2[i]; // x[n] =Fx[n]/M+2x[n]-x[n-1]
+ else // if mass is fixed
+ pnew = pos[i];
+
+ // check limit
+ if(pnew < limit[i][0]) pnew = limit[i][0]; else if(pnew > limit[i][1]) pnew = limit[i][1];
+ speed[i] = (pos[i] = pnew) - (pos2[i] = pold); // x[n-2] = x[n-1], x[n-1] = x[n],vx[n] = x[n] - x[n-1]
+
+ // clear forces
+ out_force[i] = force[i];
+ force[i] = 0; // Fx[n] = 0
+ }
+ }
+
+ static inline t_float dist(const Mass &m1,const Mass &m2)
+ {
+ if(N == 1)
+ return fabs(m1.pos[0]-m2.pos[0]); // L[n] = |x1 - x2|
+ else {
+ t_float distance = 0;
+ for(int i = 0; i < N; ++i) distance += sqr(m1.pos[i]-m2.pos[i]);
+ return sqrt(distance);
+ }
+ }
+};
+
+template<int N>
+class Link {
+public:
+ t_int nbr;
+ const t_symbol *Id;
+ Mass<N> *mass1,*mass2;
+ t_float K1, D1, D2;
+ t_float longueur, long_min, long_max;
+ t_float distance_old;
+ t_float puissance;
+ t_int link_type; //0 : no, 1 : tangential, 2 : normal
+ t_float tdirection1[N], tdirection2[N];
+
+ Link(t_int n,const t_symbol *id,Mass<N> *m1,Mass<N> *m2,t_float k1,t_float d1, t_int o=0, t_float tangent[N]=NULL,t_float pow=1, t_float lmin = 0,t_float lmax = 1e10)
+ : nbr(n),Id(id)
+ , mass1(m1),mass2(m2)
+ , K1(k1),D1(d1),D2(0),link_type(o),puissance(pow)
+ , long_min(lmin),long_max(lmax)
+ {
+ for (int i=0; i<N; i++) {
+ tdirection1[i] = 0;
+ tdirection2[i] = 0;
+ }
+ if (link_type == 0)
+ distance_old = longueur = Mass<N>::dist(*mass1,*mass2); // L[n-1]
+ else if (link_type == 1) { // TANGENTIAL LINK
+ t_float norme = 0;
+ for(int i = 0; i < N; ++i) norme += sqr(tangent[i]);
+ norme = sqrt(norme);
+ //t_float norme = sqrt(sqr(xa)+sqr(ya)+sqr(za));
+ for(int i = 0; i < N; ++i)tdirection1[i] = tangent[i]/norme;
+ //tdirection1[1] = ya/norme;
+ //tdirection1[2] = za/norme;
+ distance_old = 0;
+ for(int i = 0; i < N; ++i)
+ distance_old += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
+ distance_old = sqrt(distance_old);
+ longueur = distance_old;
+ }
+ /*else if (link_type == 2) { // NORMAL LINK 2D
+ if (N >= 2) {
+ const t_float norme = sqrt(sqr(xa)+sqr(ya));
+ tdirection1[0]=ya/norme;
+ tdirection1[1]=xa/norme;
+ distance_old = 0;
+ for(int i = 0; i < N; ++i)
+ distance_old += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
+ if (N == 3) { // NORMAL LINK 3D
+ if (xa == 0 && ya==0 && za!= 0) { // Special case
+ tdirection1[0]=1;
+ tdirection1[1]=0;
+ tdirection1[2]=0;
+ tdirection2[0]=0;
+ tdirection2[1]=1;
+ tdirection2[2]=0;
+ }
+ else { // Normal case
+ const t_float norme2 = sqrt(sqr(xa*ya +za*xa)+sqr(xa*ya+za*ya)+sqr(sqr(xa)+sqr(ya)));
+ tdirection2[0] = (xa*za+xa*ya)/norme2;
+ tdirection2[1] = (xa*ya+za*ya)/norme2;
+ tdirection2[2] = (sqr(xa)+sqr(ya))/norme2;
+ }
+ distance_old = 0;
+ for(int i = 0; i < N; ++i)
+ distance_old += sqr((m1->pos[i]-m2->pos[i])*(tdirection1[i]+tdirection2[i]));
+ }
+ distance_old = sqrt(distance_old);
+ longueur = distance_old;
+ }
+ }*/
+ mass1->links.insert(this);
+ mass2->links.insert(this);
+ }
+
+ ~Link()
+ {
+ mass1->links.erase(this);
+ mass2->links.erase(this);
+ }
+
+ // compute link forces
+ inline void compute()
+ {
+ t_float distance=0;
+ t_float F;
+ Mass<N> *m1 = mass1,*m2 = mass2; // cache locally
+ if (m1->invM || m2->invM) {
+ if (link_type == 0)
+ distance = Mass<N>::dist(*m1,*m2);
+ else if (link_type == 1) {
+ for(int i = 0; i < N; ++i)
+ distance += sqr((m1->pos[i]-m2->pos[i])*tdirection1[i]);
+ distance = sqrt(distance);
+ }
+ else if (link_type == 2) {
+ for(int i = 0; i < N; ++i)
+ distance += sqr((m1->pos[i]-m2->pos[i])*(tdirection1[i] +tdirection2[i]));
+ distance = sqrt(distance);
+ }
+
+ if (distance < long_min || distance > long_max || distance == 0) {
+// for(int i = 0; i < N; ++i) {
+ // m1->force[i] -= D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ // m2->force[i] += D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ // }
+ }
+ else { // Lmin < L < Lmax
+ // F[n] = k1 (L[n] - L[0])/L[n] + D1 (L[n] - L[n-1])/L[n]
+ if ((distance - longueur)>0)
+ F = (K1 * pow(distance - longueur,puissance) + D1 * (distance - distance_old))/distance ;
+ else
+ F = (-K1 * pow(longueur - distance,puissance) + D1 * (distance - distance_old))/distance ;
+ if (link_type == 0)
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i]); // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ else if (link_type == 1 || (link_type == 2 && N == 2))
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i])*tdirection1[i]; // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ else if (link_type == 2 && N == 3)
+ for(int i = 0; i < N; ++i) {
+ const t_float Fn = F * (m1->pos[i] - m2->pos[i])*(tdirection1[i] +tdirection2[i]); // Fx = F * Lx[n]/L[n]
+ m1->force[i] -= Fn + D2 * m1->speed[i]; // Fx1[n] = -Fx, Fx1[n] = Fx1[n] - D2 * vx1[n-1]
+ m2->force[i] += Fn - D2 * m2->speed[i]; // Fx2[n] = Fx, Fx2[n] = Fx2[n] - D2 * vx2[n-1]
+ }
+ }
+
+ distance_old = distance; // L[n-1] = L[n]
+ }
+ }
+};
+
+
+template <typename T>
+inline T bitrev(T k)
+{
+ T r = 0;
+ for(int i = 0; i < sizeof(k)*8; ++i) r = (r<<1)|(k&1),k >>= 1;
+ return r;
+}
+
+// use bit-reversed key to pseudo-balance the map tree
+template <typename T>
+class IndexMap
+ : TablePtrMap<unsigned int,T,64>
+{
+public:
+ typedef TablePtrMap<unsigned int,T,64> Parent;
+
+ virtual ~IndexMap() { reset(); }
+
+ void reset()
+ {
+ // delete all associated items
+ for(typename Parent::iterator it(*this); it; ++it) delete it.data();
+ Parent::clear();
+ }
+
+ inline int size() const { return Parent::size(); }
+
+ inline T insert(unsigned int k,T v) { return Parent::insert(bitrev(k),v); }
+
+ inline T find(unsigned int k) { return Parent::find(bitrev(k)); }
+
+ inline T remove(unsigned int k) { return Parent::remove(bitrev(k)); }
+
+ class iterator
+ : public Parent::iterator
+ {
+ public:
+ iterator() {}
+ iterator(IndexMap &m): Parent::iterator(m) {}
+ inline unsigned int key() const { return bitrev(Parent::key()); }
+ };
+};
+
+template <typename T>
+class IDMap
+ : TablePtrMap<const t_symbol *,TablePtrMap<T,T,4> *,4>
+{
+public:
+ // that's the container holding the data items (masses, links) of one ID
+ typedef TablePtrMap<T,T,4> Container;
+ // that's the map for the key ID (symbol,int) relating to the data items
+ typedef TablePtrMap<const t_symbol *,Container *,4> Parent;
+
+ typedef typename Container::iterator iterator;
+
+ IDMap() {}
+
+ virtual ~IDMap() { reset(); }
+
+ void reset()
+ {
+ typename Parent::iterator it(*this);
+ for(; it; ++it) delete it.data();
+ Parent::clear();
+ }
+
+ void insert(T item)
+ {
+ Container *c = Parent::find(item->Id);
+ if(!c)
+ Parent::insert(item->Id,c = new Container);
+ c->insert(item,item);
+ }
+
+ iterator find(const t_symbol *key)
+ {
+ Container *c = Parent::find(key);
+ if(c)
+ return iterator(*c);
+ else
+ return iterator();
+ }
+
+ void erase(T item)
+ {
+ Container *c = Parent::find(item->Id);
+ if(c) c->remove(item);
+ }
+};
+
+
+template<int N>
+class msdN:
+ public flext_base
+{
+ FLEXT_HEADER_S(msdN,flext_base,setup) //class with setup
+
+public:
+ // constructor with no arguments
+ msdN(int argc,t_atom *argv)
+ : id_mass(0),id_link(0)
+ {
+ for(int i = 0; i < N; ++i) limit[i][0] = -1.e10,limit[i][1] = 1.e10;
+
+ // --- define inlets and outlets ---
+ AddInAnything("bang, reset, etc."); // default inlet
+ AddOutAnything("infos on masses"); // outlet for integer count
+ AddOutAnything("control"); // outlet for bang
+ }
+
+ virtual ~msdN() { clear(); }
+
+protected:
+
+// -------------------------------------------------------------- PROTECTED VARIABLES
+// -----------------------------------------------------------------------------------
+
+ typedef Mass<N> t_mass;
+ typedef Link<N> t_link;
+
+ IndexMap<t_link *> link; // links
+ IDMap<t_link *> linkids; // links by name
+ IndexMap<t_mass *> mass; // masses
+ IDMap<t_mass *> massids; // masses by name
+
+ t_float limit[N][2]; // Limit values
+ unsigned int id_mass, id_link, mouse_grab, nearest_mass, link_deleted, mass_deleted;
+
+// --------------------------------------------------------------- RESET
+// ----------------------------------------------------------------------
+ void m_reset()
+ {
+ clear();
+ ToOutAnything(1,S_Reset,0,NULL);
+ }
+
+// -------------------------------------------------------------- COMPUTE
+// -----------------------------------------------------------------------
+
+ void m_bang()
+ {
+ // update all links
+ for (typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) lit.data()->compute();
+
+ // update all masses
+ for (typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) mit.data()->compute(limit);
+ }
+
+// -------------------------------------------------------------- MASSES
+// ----------------------------------------------------------------------
+
+ // add a mass
+ // Id, nbr, mobile, invM, speedX, posX, forceX
+ void m_mass(int argc,t_atom *argv)
+ {
+ if(argc != 3+N) {
+ error("mass : Id mobile mass X%s%s",N >= 2?" Y":"",N >= 3?" Z":"");
+ return;
+ }
+
+ t_float pos[N];
+ for(int i = 0; i < N; ++i) pos[i] = GetAFloat(argv[3+i]);
+
+ t_mass *m = new t_mass(
+ id_mass, // index
+ GetSymbol(argv[0]), // ID
+ GetABool(argv[1]), // mobile
+ GetAFloat(argv[2]), // mass
+ pos // pos
+ );
+
+ outmass(S_Mass,m);
+
+ massids.insert(m);
+ mass.insert(id_mass++,m);
+ }
+
+ // add a force to mass(es) named Id or No
+ void m_force(int argc,t_atom *argv,int n)
+ {
+ if(argc != 2) {
+ error("%s - %s Syntax : Id/Nomass value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float f = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it) {
+ t_mass *m = it.data();
+ m->setForce(n,f);
+ }
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m)
+ m->setForce(n,f);
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ inline void m_forceX(int argc,t_atom *argv) { m_force(argc,argv,0); }
+ inline void m_forceY(int argc,t_atom *argv) { m_force(argc,argv,1); }
+ inline void m_forceZ(int argc,t_atom *argv) { m_force(argc,argv,2); }
+ inline void m_forceN(int argc,t_atom *argv) {
+ t_atom arglist[2];
+
+ if(argc != 3) {
+ error("%s - %s Syntax : N Id/Nomass value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ if (IsSymbol(argv[1]))
+ SetSymbol(arglist[0],GetSymbol(argv[1]));
+ else
+ SetInt(arglist[0],GetAInt(argv[1]));
+ SetFloat(arglist[1],GetFloat(argv[2]));
+ m_force(argc-1,arglist,GetAInt(argv[0])-1);
+ }
+
+ // displace mass(es) named Id or No to a certain position
+ void m_pos(int argc,t_atom *argv,int n)
+ {
+ if(argc != 2) {
+ error("%s - %s Syntax : Id/Nomass value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float p = GetAFloat(argv[1]);
+ if(p > limit[n][1] || p < limit[n][0]) return;
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->setPos(n,p);
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m)
+ m->setPos(n,p);
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ inline void m_posX(int argc,t_atom *argv) { m_pos(argc,argv,0); }
+ inline void m_posY(int argc,t_atom *argv) { m_pos(argc,argv,1); }
+ inline void m_posZ(int argc,t_atom *argv) { m_pos(argc,argv,2); }
+ inline void m_posN(int argc,t_atom *argv) {
+ t_atom arglist[2];
+
+ if(argc != 3) {
+ error("%s - %s Syntax : N Id/Nomass value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ if (IsSymbol(argv[1]))
+ SetSymbol(arglist[0],GetSymbol(argv[1]));
+ else
+ SetInt(arglist[0],GetAInt(argv[1]));
+ SetFloat(arglist[1],GetFloat(argv[2]));
+ m_pos(argc-1,arglist,GetAInt(argv[0])-1);
+ }
+ // set mass to mobile
+ void m_set_mobile(int argc,t_atom *argv,bool mob = true)
+ {
+ if (argc != 1) {
+ error("%s - %s Syntax : Id/Nomass",thisName(),GetString(thisTag()));
+ return;
+ }
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ if(mob)
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->setMobile();
+ else
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->setFixed();
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m)
+ if(mob) m->setMobile();
+ else m->setFixed();
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set mass No to fixed
+ inline void m_set_fixe(int argc,t_atom *argv) { m_set_mobile(argc,argv,false); }
+
+ // Delete mass
+ void m_delete_mass(int argc,t_atom *argv)
+ {
+ if (argc != 1) {
+ error("%s - %s Syntax : Nomass",thisName(),GetString(thisTag()));
+ return;
+ }
+
+
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m) {
+ // Delete all associated links
+
+ while(!m->links.empty())
+ deletelink(m->links.front());
+
+ outmass(S_Mass_deleted,m);
+ massids.erase(m);
+ mass.remove(m->nbr);
+
+ delete m;
+ mass_deleted = 1;
+ }
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+
+
+ // set X,Y,Z min/max
+ void m_limit(int argc,t_atom *argv,int n,int i)
+ {
+ if (argc != 1)
+ error("%s - %s Syntax : Value",thisName(),GetString(thisTag()));
+ else
+ limit[n][i] = GetAFloat(argv[0]);
+ }
+
+ inline void m_Xmin(int argc,t_atom *argv) { m_limit(argc,argv,0,0); }
+ inline void m_Ymin(int argc,t_atom *argv) { m_limit(argc,argv,1,0); }
+ inline void m_Zmin(int argc,t_atom *argv) { m_limit(argc,argv,2,0); }
+ inline void m_Nmin(int argc,t_atom *argv) {
+ t_atom arglist[1];
+
+ if(argc != 2) {
+ error("%s - %s Syntax : N value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ SetFloat(arglist[0],GetFloat(argv[1]));
+ m_limit(argc-1,arglist,GetAInt(argv[0])-1,0);
+ }
+
+ inline void m_Xmax(int argc,t_atom *argv) { m_limit(argc,argv,0,1); }
+ inline void m_Ymax(int argc,t_atom *argv) { m_limit(argc,argv,1,1); }
+ inline void m_Zmax(int argc,t_atom *argv) { m_limit(argc,argv,2,1); }
+ inline void m_Nmax(int argc,t_atom *argv) {
+ t_atom arglist[1];
+
+ if(argc != 2) {
+ error("%s - %s Syntax : N value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ SetFloat(arglist[0],GetFloat(argv[1]));
+ m_limit(argc-1,arglist,GetAInt(argv[0])-1,1);
+ }
+
+ // set Id of link(s) named Id or number No
+ void m_setMassId(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : OldId/NoMass NewId",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_symbol *id = GetSymbol(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->Id = id;
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m)
+ m->Id = id;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ void m_grab_mass(int argc,t_atom *argv)
+ {
+ // grab nearest mass X Y
+ t_mass **mi;
+ t_float aux, distance;
+ t_atom aux2[2];
+ bool mobil;
+
+ // if click
+ if (GetInt(argv[2])==1 && mass.size()>0) {
+
+ if (argc != 3)
+ error("grabMass : X Y click");
+ // first time we grab this mass?Find nearest mass
+ if (mouse_grab == 0) {
+ t_mass *m = mass.find(0);
+ aux = sqr(m->pos[0]-GetFloat(argv[0])) + sqr(m->pos[1]-GetFloat(argv[1]));
+ nearest_mass = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ distance = sqr(mit.data()->pos[0]-GetFloat(argv[0])) + sqr(mit.data()->pos[1]-GetFloat(argv[1]));
+ if (distance<aux) {
+ aux = distance;
+ nearest_mass = mit.data()->nbr;
+ }
+ }
+ }
+
+ // Set fixed if mobile
+ mobil = mass.find(nearest_mass)->invM;
+ SetInt(aux2[0],nearest_mass);
+ if (mobil != 0)
+ m_set_fixe(1,aux2);
+
+ // Set XY
+ SetFloat(aux2[1],GetFloat(argv[0]));
+ m_posX(2,aux2);
+ SetFloat(aux2[1],GetFloat(argv[1]));
+ m_posY(2,aux2);
+
+ // Set mobile
+ if(mobil != 0)
+ m_set_mobile(1,aux2);
+
+ // Current grabbing on
+ mouse_grab = 1;
+ }
+ else
+ // Grabing off
+ mouse_grab = 0;
+ }
+
+// -------------------------------------------------------------- LINKS
+// ---------------------------------------------------------------------
+
+ // add a link
+ // Id, *mass1, *mass2, K1, D1, D2, (Lmin,Lmax)
+ void m_link(int argc,t_atom *argv)
+ {
+ if (argc < 5 || argc > 8) {
+ error("%s - %s Syntax : Id No/Idmass1 No/Idmass2 K D1 (pow Lmin Lmax)",thisName(),GetString(thisTag()));
+ return;
+ }
+ if (IsSymbol(argv[1]) && IsSymbol(argv[2])) { // ID & ID
+ typename IDMap<t_mass *>::iterator it1,it2,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(; it1; ++it1) {
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it1.data(),it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 0,NULL,
+ argc >= 6?GetFloat(argv[5]):1, // power
+ argc >= 7?GetFloat(argv[6]):0,
+ argc >= 8?GetFloat(argv[7]):1e10
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_iLink,l);
+ }
+ }
+ }
+ else if (IsSymbol(argv[1])==0 && IsSymbol(argv[2])) { // No & ID
+ typename IDMap<t_mass *>::iterator it2,it;
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 0,NULL,
+ argc >= 6?GetFloat(argv[5]):1, // power
+ argc >= 7?GetFloat(argv[6]):0,
+ argc >= 8?GetFloat(argv[7]):1e10
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_iLink,l);
+ }
+ }
+ else if (IsSymbol(argv[1]) && IsSymbol(argv[2])==0) { // ID & No
+ typename IDMap<t_mass *>::iterator it1,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+ for(it = it1; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it.data(),mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 0,NULL,
+ argc >= 6?GetFloat(argv[5]):1, // power
+ argc >= 7?GetFloat(argv[6]):0,
+ argc >= 8?GetFloat(argv[7]):1e10
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_iLink,l);
+ }
+ }
+ else { // No & No
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+
+ if(!mass1 || !mass2) {
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 0,NULL,
+ argc >= 6?GetFloat(argv[5]):1, // power
+ argc >= 7?GetFloat(argv[6]):0, // Lmin
+ argc >= 8?GetFloat(argv[7]):1e10// Lmax
+ );
+
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_Link,l);
+ }
+ }
+ // add interactor link
+ // Id, Id masses1, Id masses2, K1, D1, D2, (Lmin, Lmax)
+ void m_ilink(int argc,t_atom *argv)
+ {
+ if (argc < 6 || argc > 8) {
+ error("%s - %s Syntax : Id Idmass1 Idmass2 K D1 (pow Lmin Lmax)",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ typename IDMap<t_mass *>::iterator it1,it2,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+
+ for(; it1; ++it1) {
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it1.data(),it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 0,NULL,
+ argc >= 6?GetFloat(argv[5]):1, // power
+ argc >= 7?GetFloat(argv[6]):0,
+ argc >= 8?GetFloat(argv[7]):1e10
+ );
+
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_iLink,l);
+ }
+ }
+ }
+
+ // add a tangential link
+ // Id, *mass1, *mass2, K1, D1, D2, (Lmin,Lmax)
+ void m_tlink(int argc,t_atom *argv)
+ {
+ if (argc < 5+N || argc > 8+N) {
+ error("%s - %s Syntax : Id Nomass1 Nomass2 K D1 xa%s%s (pow Lmin Lmax)",thisName(),GetString(thisTag()),N >= 2?" ya":"",N >= 3?" za":"");
+ return;
+ }
+ t_float tangent[N];
+ for(int i = 0; i < N; ++i) tangent[i] = GetAFloat(argv[5+i]);
+
+ if (IsSymbol(argv[1]) && IsSymbol(argv[2])) { // ID & ID
+ typename IDMap<t_mass *>::iterator it1,it2,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(; it1; ++it1) {
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it1.data(),it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 1, // tangential
+ tangent,
+ argc >= 6+N?GetFloat(argv[5+N]):1, // power
+ argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+ argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_iLink,l);
+ }
+ }
+ }
+ else if (IsSymbol(argv[1])==0 && IsSymbol(argv[2])) { // No & ID
+ typename IDMap<t_mass *>::iterator it2,it;
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 1, // tangential
+ tangent,
+ argc >= 6+N?GetFloat(argv[5+N]):1, // power
+ argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+ argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_tLink,l);
+ }
+ }
+ else if (IsSymbol(argv[1]) && IsSymbol(argv[2])==0) { // ID & No
+ typename IDMap<t_mass *>::iterator it1,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+ for(it = it1; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it.data(),mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 1,
+ tangent, // tangential
+ argc >= 6+N?GetFloat(argv[5+N]):1, // power
+ argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+ argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_tLink,l);
+ }
+ }
+ else { // No & No
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+
+ if(!mass1 || !mass2) {
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ return;
+ }
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 1, // tangential
+ tangent, // tangential
+ argc >= 6+N?GetFloat(argv[5+N]):1, // power
+ argc >= 7+N?GetFloat(argv[6+N]):0, // Lmin
+ argc >= 8+N?GetFloat(argv[7+N]):1e10 // Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_tLink,l);
+ }
+ }
+
+ // add a normal link
+ // Id, *mass1, *mass2, K1, D1, D2, (Lmin,Lmax)
+ void m_nlink(int argc,t_atom *argv)
+ {/*
+ if (argc < 5+N || argc > 8+N) {
+ error("%s - %s Syntax : Id No/Idmass1 No/Idmass2 K D1 xa%s%s (pow Lmin Lmax)",thisName(),GetString(thisTag()),N >= 2?" ya":"",N >= 3?" za":"");
+ return;
+ }
+
+ if (N==1) {
+ error("%s - %s : No normal Link in 1D",thisName(),GetString(thisTag()));
+ return;
+ }
+ if (IsSymbol(argv[1]) && IsSymbol(argv[2])) { // ID & ID
+ typename IDMap<t_mass *>::iterator it1,it2,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(; it1; ++it1) {
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it1.data(),it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 2, // normal
+ GetAFloat(argv[5]),GetAFloat(argv[6]),N >= 3?GetAFloat(argv[7]):0, // vector
+ (N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1), // pow
+ (N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0), // Lmin
+ (N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10)// Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_nLink,l);
+ }
+ }
+ }
+ else if (IsSymbol(argv[1])==0 && IsSymbol(argv[2])) { // No & ID
+ typename IDMap<t_mass *>::iterator it2,it;
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ it2 = massids.find(GetSymbol(argv[2]));
+ for(it = it2; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,it.data(), // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 2, // normal
+ GetAFloat(argv[5]),GetAFloat(argv[6]),N >= 3?GetAFloat(argv[7]):0, // vector
+ (N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1), // pow
+ (N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0), // Lmin
+ (N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10)// Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_nLink,l);
+ }
+ }
+ else if (IsSymbol(argv[1]) && IsSymbol(argv[2])==0) { // ID & No
+ typename IDMap<t_mass *>::iterator it1,it;
+ it1 = massids.find(GetSymbol(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+ for(it = it1; it; ++it) {
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ it.data(),mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 2, // normal
+ GetAFloat(argv[5]),GetAFloat(argv[6]),N >= 3?GetAFloat(argv[7]):0, // vector
+ (N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1), // pow
+ (N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0), // Lmin
+ (N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10)// Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_nLink,l);
+ }
+ }
+ else { // No & No
+ t_mass *mass1 = mass.find(GetAInt(argv[1]));
+ t_mass *mass2 = mass.find(GetAInt(argv[2]));
+
+ if(!mass1 || !mass2) {
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ t_link *l = new t_link(
+ id_link,
+ GetSymbol(argv[0]), // ID
+ mass1,mass2, // pointer to mass1, mass2
+ GetAFloat(argv[3]), // K1
+ GetAFloat(argv[4]), // D1
+ 2, // normal
+ GetAFloat(argv[5]),GetAFloat(argv[6]),N >= 3?GetAFloat(argv[7]):0, // vector
+ (N==2 && argc >= 8)?GetFloat(argv[7]):((N==3 && argc >= 9)?GetFloat(argv[8]):1), // pow
+ (N==2 && argc >= 9)?GetFloat(argv[8]):((N==3 && argc >= 10)?GetFloat(argv[9]):0), // Lmin
+ (N==2 && argc >= 10)?GetFloat(argv[9]):((N==3 && argc >= 11)?GetFloat(argv[10]):1e10)// Lmax
+ );
+ linkids.insert(l);
+ link.insert(id_link++,l);
+ outlink(S_nLink,l);
+ }
+ */}
+
+ // set Id of link(s) named Id or number No
+ void m_setLinkId(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : OldId/NoLink NewId",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_symbol *id = GetSymbol(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->Id = id;
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l)
+ l->Id = id;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set rigidity of link(s) named Id or number No
+ void m_setK(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float k1 = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->K1 = k1;
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l)
+ l->K1 = k1;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set damping of link(s) named Id or number No
+ void m_setD(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float d1 = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->D1 = d1;
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l)
+ l->D1 = d1;
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set max lenght of link(s) named Id or number No
+ void m_setLmax(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float lon = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it) {
+ it.data()->long_max = lon;
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l) {
+ l->long_max = lon;
+ }
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set min lenght of link(s) named Id or number No
+ void m_setLmin(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float lon = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it) {
+ it.data()->long_min = lon;
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l) {
+ l->long_min = lon;
+ }
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set initial lenght of link(s) named Id or number No
+ void m_setL(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float lon = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it) {
+ it.data()->longueur = lon;
+ it.data()->distance_old = lon;
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l) {
+ l->longueur = lon;
+ l->distance_old = lon;
+ }
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set mass of mass(s) named Id or number No
+ void m_setM(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : Id/NoLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ const t_float ma = GetAFloat(argv[1]);
+
+ if(IsSymbol(argv[0])) {
+ typename IDMap<t_mass *>::iterator it;
+ //typename IDMap<t_link *>::iterator it;
+ for(it = massids.find(GetSymbol(argv[0])); it; ++it) {
+ it.data()->M = ma;
+ it.data()->invM = ma?1/ma:0.;
+ }
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[0]));
+ if(m) {
+ m->M = ma;
+ m->invM = ma?1/ma:0.;
+ }
+ else
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+
+ // set damping of link(s) named Id
+ void m_setD2(int argc,t_atom *argv)
+ {
+ if (argc != 2) {
+ error("%s - %s Syntax : IdLink Value",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ t_float d2 = GetAFloat(argv[1]);
+ typename IDMap<t_link *>::iterator it;
+ for(it = linkids.find(GetSymbol(argv[0])); it; ++it)
+ it.data()->D2 = d2;
+ }
+
+ // Delete link
+ void m_delete_link(int argc,t_atom *argv)
+ {
+ if (argc != 1) {
+ error("%s - %s Syntax : NtLink",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ t_link *l = link.find(GetAInt(argv[0]));
+ if(l) {
+ deletelink(l);
+ link_deleted = 1;
+ }
+ else {
+ error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ return;
+ }
+ }
+
+
+// -------------------------------------------------------------- GET
+// -------------------------------------------------------------------
+
+ // get attributes
+ void m_get(int argc,t_atom *argv)
+ {
+ if(argc == 0) {
+ return;
+ }
+
+ t_atom sortie[1+2*N];
+ t_float mean[N] ,std[N], nombre;
+ const t_symbol *auxtype = GetSymbol(argv[0]);
+
+
+ if (argc == 1) {
+ if (auxtype == S_massesPos) { // get all masses positions
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetInt(sortie[0],mit.data()->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->pos[i]);
+ ToOutAnything(0,S_massesPos,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesPosName) { // get all masses positions output Id
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->pos[i]);
+ ToOutAnything(0,S_massesPosName,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesPosMean) { // get all masses positions mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->pos[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesPosMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesPosStd) { // get all masses positions std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->pos[i];
+ std[i] += sqr(mit.data()->pos[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesPosStd,0+N,sortie);
+ }
+ else if (auxtype == S_massesForces) { // get all masses forces
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetInt(sortie[0],mit.data()->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->out_force[i]);
+ ToOutAnything(0,S_massesForces,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesForcesName) { // get all masses forces
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->out_force[i]);
+ ToOutAnything(0,S_massesForcesName,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesForcesMean) { // get all masses forces mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->out_force[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesForcesMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesForcesStd) { // get all masses forces std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->out_force[i];
+ std[i] += sqr(mit.data()->out_force[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesForcesStd,0+N,sortie);
+ }
+ else if (auxtype == S_linksPos) { // get all links positions
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
+ SetInt(sortie[0],lit.data()->nbr);
+ for(int i = 0; i < N; ++i) {
+ SetFloat(sortie[1+i],lit.data()->mass1->pos[i]);
+ SetFloat(sortie[1+N+i],lit.data()->mass2->pos[i]);
+ }
+ ToOutAnything(0,S_linksPos,1+2*N,sortie);
+ }
+ }
+ else if (auxtype == S_linksPosName) { // get all links positions
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
+ SetSymbol(sortie[0],lit.data()->Id);
+ for(int i = 0; i < N; ++i) {
+ SetFloat(sortie[1+i],lit.data()->mass1->pos[i]);
+ SetFloat(sortie[1+N+i],lit.data()->mass2->pos[i]);
+ }
+ ToOutAnything(0,S_linksPosName,1+2*N,sortie);
+ }
+ }
+ else if (auxtype == S_linksLenghts) { // get all links lenghts
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
+ SetInt(sortie[0],lit.data()->nbr);
+ SetFloat(sortie[1],lit.data()->distance_old);
+ ToOutAnything(0,S_linksLenghts,2,sortie);
+ }
+ }
+ else if (auxtype == S_linksLenghtsMean) { // get all links lenghts mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
+ ++nombre;
+ mean[0] += lit.data()->distance_old;
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0],mean[0]/nombre);
+ ToOutAnything(0,S_linksLenghtsMean,1,sortie);
+ }
+ else if (auxtype == S_linksLenghtsStd) { // get all links lenghts std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit) {
+ ++nombre;
+ mean[0] += lit.data()->distance_old;
+ std[0] += sqr(lit.data()->distance_old) ;
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0],sqrt(std[0]/nombre-sqr(mean[0]/nombre)));
+ ToOutAnything(0,S_linksLenghtsStd,1,sortie);
+ }
+ else if (auxtype == S_massesSpeeds) { // get all masses speeds
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetInt(sortie[0],mit.data()->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->speed[i]);
+ ToOutAnything(0,S_massesSpeeds,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesSpeedsName) { // get all masses speeds
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->speed[i]);
+ ToOutAnything(0,S_massesSpeedsName,1+N,sortie);
+ }
+ }
+ else if (auxtype == S_massesSpeedsMean) { // get all masses forces mean
+ for(int i = 0; i<N; ++i)
+ mean[i] = 0;
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i)
+ mean[i] += mit.data()->speed[i];
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],mean[i]/nombre);
+ ToOutAnything(0,S_massesSpeedsMean,0+N,sortie);
+ }
+ else if (auxtype == S_massesSpeedsStd) { // get all masses forces std
+ for(int i = 0; i<N; ++i) {
+ mean[i] = 0;
+ std[i] = 0;
+ }
+ nombre = 0;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit) {
+ ++nombre;
+ for(int i = 0; i < N; ++i) {
+ mean[i] += mit.data()->speed[i];
+ std[i] += sqr(mit.data()->speed[i]) ;
+ }
+ }
+ for(int i = 0; i < N; ++i)
+ SetFloat(sortie[0+i],sqrt(std[i]/nombre-sqr(mean[i]/nombre)));
+ ToOutAnything(0,S_massesSpeedsStd,0+N,sortie);
+ }
+ else
+ error("%s - %s : Syntax error",thisName(),GetString(thisTag()));
+ return;
+ }
+
+ // more than 1 args
+ if (auxtype == S_massesPos) // get mass positions
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_mass *>::iterator mit;
+ for(mit = massids.find(GetSymbol(argv[j])); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->pos[i]);
+ ToOutAnything(0,S_massesPosId,1+N,sortie);
+ }
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[j]));
+ if(m) {
+ SetInt(sortie[0],m->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],m->pos[i]);
+ ToOutAnything(0,S_massesPosNo,1+N,sortie);
+ }
+// else
+// error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
+ else if (auxtype == S_massesForces) // get mass forces
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_mass *>::iterator mit;
+ for(mit = massids.find(GetSymbol(argv[j])); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->out_force[i]);
+ ToOutAnything(0,S_massesForcesId,1+N,sortie);
+ }
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[j]));
+ if(m) {
+ SetInt(sortie[0],m->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],m->out_force[i]);
+ ToOutAnything(0,S_massesForcesNo,1+N,sortie);
+ }
+// else
+// error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
+ else if (auxtype == S_linksPos) // get links positions
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_link *>::iterator lit;
+ for(lit = linkids.find(GetSymbol(argv[j])); lit; ++lit) {
+ SetSymbol(sortie[0],lit.data()->Id);
+ for(int i = 0; i < N; ++i) {
+ SetFloat(sortie[1+i],lit.data()->mass1->pos[i]);
+ SetFloat(sortie[1+N+i],lit.data()->mass2->pos[i]);
+ }
+ ToOutAnything(0,S_linksPosId,1+2*N,sortie);
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[j]));
+ if(l) {
+ SetInt(sortie[0],l->nbr);
+ for(int i = 0; i < N; ++i) {
+ SetFloat(sortie[1+i],l->mass1->pos[i]);
+ SetFloat(sortie[1+N+i],l->mass2->pos[i]);
+ }
+ ToOutAnything(0,S_linksPosNo,1+2*N,sortie);
+ }
+// else
+// error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
+ else if (auxtype == S_linksLenghts) // get links lenghts
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_link *>::iterator lit;
+ for(lit = linkids.find(GetSymbol(argv[j])); lit; ++lit) {
+ SetSymbol(sortie[0],lit.data()->Id);
+ SetFloat(sortie[1],lit.data()->distance_old);
+ ToOutAnything(0,S_linksLenghtsId,2,sortie);
+ }
+ }
+ else {
+ t_link *l = link.find(GetAInt(argv[j]));
+ if(l) {
+ SetInt(sortie[0],l->nbr);
+ SetFloat(sortie[1],l->distance_old);
+ ToOutAnything(0,S_linksLenghtsNo,2,sortie);
+ }
+// else
+// error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
+ else // get mass speeds
+ {
+ for(int j = 1; j<argc; j++) {
+ if(IsSymbol(argv[j])) {
+ typename IDMap<t_mass *>::iterator mit;
+ for(mit = massids.find(GetSymbol(argv[j])); mit; ++mit) {
+ SetSymbol(sortie[0],mit.data()->Id);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],mit.data()->speed[i]);
+ ToOutAnything(0,S_massesSpeedsId,1+N,sortie);
+ }
+ }
+ else {
+ t_mass *m = mass.find(GetAInt(argv[j]));
+ if(m) {
+ SetInt(sortie[0],m->nbr);
+ for(int i = 0; i < N; ++i) SetFloat(sortie[1+i],m->speed[i]);
+ ToOutAnything(0,S_massesSpeedsNo,1+N,sortie);
+ }
+// else
+// error("%s - %s : Index not found",thisName(),GetString(thisTag()));
+ }
+ }
+ }
+ }
+
+ // List of masses positions on first outlet
+ void m_mass_dumpl()
+ {
+ if (mass_deleted ==0) {
+ int sz = mass.size();
+ NEWARR(t_atom,sortie,sz*N);
+ t_atom *s = sortie;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ for(int i = 0; i < N; ++i) SetFloat(s[mit.data()->nbr*N+i],mit.data()->pos[i]);
+ ToOutAnything(0, S_massesPosL, sz*N, sortie);
+ DELARR(sortie);
+ }
+ else
+ error("%s - %s : Message Forbidden when deletion is used",thisName(),GetString(thisTag()));
+ }
+
+ // List of masses x positions on first outlet
+ void m_mass_dump_xl()
+ {
+ if (mass_deleted ==0) {
+ int sz = mass.size();
+ NEWARR(t_atom,sortie,sz);
+ t_atom *s = sortie;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ SetFloat(s[mit.data()->nbr],mit.data()->pos[0]);
+ ToOutAnything(0, S_massesPosXL, sz, sortie);
+ DELARR(sortie);
+ }
+ else
+ error("%s - %s : Message Forbidden when deletion is used",thisName(),GetString(thisTag()));
+ }
+
+ // List of masses y positions on first outlet
+ void m_mass_dump_yl()
+ {
+ if (mass_deleted ==0) {
+ int sz = mass.size();
+ NEWARR(t_atom,sortie,sz);
+ t_atom *s = sortie;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ SetFloat(s[mit.data()->nbr],mit.data()->pos[1]);
+ ToOutAnything(0, S_massesPosYL, sz, sortie);
+ DELARR(sortie);
+ }
+ else
+ error("%s - %s : Message Forbidden when deletion is used",thisName(),GetString(thisTag()));
+ }
+
+ // List of masses z positions on first outlet
+ void m_mass_dump_zl()
+ {
+ if (mass_deleted ==0) {
+ int sz = mass.size();
+ NEWARR(t_atom,sortie,sz);
+ t_atom *s = sortie;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ SetFloat(s[mit.data()->nbr],mit.data()->pos[2]);
+ ToOutAnything(0, S_massesPosZL, sz, sortie);
+ DELARR(sortie);
+ }
+ else
+ error("%s - %s : Message Forbidden when deletion is used",thisName(),GetString(thisTag()));
+ }
+
+ // List of masses forces on first outlet
+ void m_force_dumpl()
+ {
+ if (mass_deleted ==0) {
+ int sz = mass.size();
+ NEWARR(t_atom,sortie,sz*N);
+ t_atom *s = sortie;
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ for(int i = 0; i < N; ++i) SetFloat(s[mit.data()->nbr*N+i],mit.data()->out_force[i]);
+ ToOutAnything(0, S_massesForcesL, sz*N, sortie);
+ DELARR(sortie);
+ }
+ else
+ error("%s - %s : Message Forbidden when deletion is used",thisName(),GetString(thisTag()));
+ }
+
+ // List of masses and links infos on second outlet
+ void m_info_dumpl()
+ {
+ for(typename IndexMap<t_mass *>::iterator mit(mass); mit; ++mit)
+ outmass(S_Mass,mit.data());
+
+ for(typename IndexMap<t_link *>::iterator lit(link); lit; ++lit)
+ outlink(S_Link,lit.data());
+ }
+
+
+// -------------------------------------------------------------- SETUP
+// ---------------------------------------------------------------------
+
+private:
+
+ void clear()
+ {
+ linkids.reset();
+ link.reset();
+
+ massids.reset();
+ mass.reset();
+ // Reset state variables
+ id_mass = id_link = mouse_grab = mass_deleted = link_deleted = 0;
+ }
+
+ void deletelink(t_link *l)
+ {
+ outlink(S_Link_deleted,l);
+ linkids.erase(l);
+ link.remove(l->nbr);
+ delete l;
+ }
+
+ void outmass(const t_symbol *s,const t_mass *m)
+ {
+ t_atom sortie[4+N];
+ SetInt((sortie[0]),m->nbr);
+ SetSymbol((sortie[1]),m->Id);
+ SetBool((sortie[2]),m->getMobile());
+ SetFloat((sortie[3]),m->M);
+ for(int i = 0; i < N; ++i) SetFloat((sortie[4+i]),m->pos[i]);
+ ToOutAnything(1,s,4+N,sortie);
+ }
+
+ void outlink(const t_symbol *s,const t_link *l)
+ {
+ t_atom sortie[15];
+ int size=6;
+ SetInt((sortie[0]),l->nbr);
+ SetSymbol((sortie[1]),l->Id);
+ SetInt((sortie[2]),l->mass1->nbr);
+ SetInt((sortie[3]),l->mass2->nbr);
+ SetFloat((sortie[4]),l->K1);
+ SetFloat((sortie[5]),l->D1);
+
+ if (l->link_type == 1 ||(l->link_type == 2 && N ==2)) {
+ for (int i=0; i<N; i++)
+ SetFloat((sortie[6+i]),l->tdirection1[i]);
+// ToOutAnything(1,s,6+N,sortie);
+ size = 6+N;
+ }
+ else if (l->link_type == 2 && N==3) {
+ for (int i=0; i<N; i++) {
+ SetFloat((sortie[6+i]),l->tdirection1[i]);
+ SetFloat((sortie[6+i+N]),l->tdirection2[i]);
+ }
+// ToOutAnything(1,s,6+2*N,sortie);
+ size = 6+2*N;
+ }
+
+ if(l->long_max != 1e10) {
+ SetFloat((sortie[size]),l->puissance);
+ size++;
+ SetFloat((sortie[size]),l->long_min);
+ size++;
+ SetFloat((sortie[size]),l->long_max);
+ size++;
+ }
+ else if(l->long_min != 0) {
+ SetFloat((sortie[size]),l->puissance);
+ size++;
+ SetFloat((sortie[size]),l->long_min);
+ size++;
+ }
+ else if(l->puissance != 1) {
+ SetFloat((sortie[size]),l->puissance);
+ size++;
+ }
+ ToOutAnything(1,s,size,sortie);
+ }
+
+
+ // Static symbols
+ const static t_symbol *S_Reset;
+ const static t_symbol *S_Mass;
+ const static t_symbol *S_Link;
+ const static t_symbol *S_iLink;
+ const static t_symbol *S_tLink;
+ const static t_symbol *S_nLink;
+ const static t_symbol *S_Mass_deleted;
+ const static t_symbol *S_Link_deleted;
+ const static t_symbol *S_massesPos;
+ const static t_symbol *S_massesPosName;
+ const static t_symbol *S_massesPosMean;
+ const static t_symbol *S_massesPosStd;
+ const static t_symbol *S_massesPosNo;
+ const static t_symbol *S_massesPosId;
+ const static t_symbol *S_linksPos;
+ const static t_symbol *S_linksPosName;
+ const static t_symbol *S_linksPosNo;
+ const static t_symbol *S_linksPosId;
+ const static t_symbol *S_linksLenghts;
+ const static t_symbol *S_linksLenghtsMean;
+ const static t_symbol *S_linksLenghtsStd;
+ const static t_symbol *S_linksLenghtsNo;
+ const static t_symbol *S_linksLenghtsId;
+ const static t_symbol *S_massesForces;
+ const static t_symbol *S_massesForcesName;
+ const static t_symbol *S_massesForcesMean;
+ const static t_symbol *S_massesForcesStd;
+ const static t_symbol *S_massesForcesNo;
+ const static t_symbol *S_massesForcesId;
+ const static t_symbol *S_massesSpeeds;
+ const static t_symbol *S_massesSpeedsName;
+ const static t_symbol *S_massesSpeedsMean;
+ const static t_symbol *S_massesSpeedsStd;
+ const static t_symbol *S_massesSpeedsNo;
+ const static t_symbol *S_massesSpeedsId;
+ const static t_symbol *S_massesPosL;
+ const static t_symbol *S_massesPosXL;
+ const static t_symbol *S_massesPosYL;
+ const static t_symbol *S_massesPosZL;
+ const static t_symbol *S_massesForcesL;
+
+ static void setup(t_classid c)
+ {
+ S_Reset = MakeSymbol("Reset");
+ S_Mass = MakeSymbol("Mass");
+ S_Link = MakeSymbol("Link");
+ S_iLink = MakeSymbol("iLink");
+ S_tLink = MakeSymbol("tLink");
+ S_nLink = MakeSymbol("nLink");
+ S_Mass_deleted = MakeSymbol("Mass deleted");
+ S_Link_deleted = MakeSymbol("Link deleted");
+ S_massesPos = MakeSymbol("massesPos");
+ S_massesPosName = MakeSymbol("massesPosName");
+ S_massesPosMean = MakeSymbol("massesPosMean");
+ S_massesPosStd = MakeSymbol("massesPosStd");
+ S_massesPosNo = MakeSymbol("massesPosNo");
+ S_massesPosId = MakeSymbol("massesPosId");
+ S_linksPos = MakeSymbol("linksPos");
+ S_linksPosName = MakeSymbol("linksPosName");
+ S_linksPosNo = MakeSymbol("linksPosNo");
+ S_linksPosId = MakeSymbol("linksPosId");
+ S_linksLenghts = MakeSymbol("linksLenghts");
+ S_linksLenghtsMean = MakeSymbol("linksLenghtsMean");
+ S_linksLenghtsStd = MakeSymbol("linksLenghtsStd");
+ S_linksLenghtsNo = MakeSymbol("linksLenghtsNo");
+ S_linksLenghtsId = MakeSymbol("linksLenghtsId");
+ S_massesForces = MakeSymbol("massesForces");
+ S_massesForcesName = MakeSymbol("massesForcesName");
+ S_massesForcesMean = MakeSymbol("massesForcesMean");
+ S_massesForcesStd = MakeSymbol("massesForcesStd");
+ S_massesForcesNo = MakeSymbol("massesForcesNo");
+ S_massesForcesId = MakeSymbol("massesForcesId");
+ S_massesSpeeds = MakeSymbol("massesSpeeds");
+ S_massesSpeedsName = MakeSymbol("massesSpeedsName");
+ S_massesSpeedsMean = MakeSymbol("massesSpeedsMean");
+ S_massesSpeedsStd = MakeSymbol("massesSpeedsStd");
+ S_massesSpeedsNo = MakeSymbol("massesSpeedsNo");
+ S_massesSpeedsId = MakeSymbol("massesSpeedsId");
+ S_massesPosL = MakeSymbol("massesPosL");
+ S_massesPosXL = MakeSymbol("massesPosXL");
+ S_massesPosYL = MakeSymbol("massesPosYL");
+ S_massesPosZL = MakeSymbol("massesPosZL");
+ S_massesForcesL = MakeSymbol("massesForcesL");
+
+ // --- set up methods (class scope) ---
+
+ // register a bang method to the default inlet (0)
+ FLEXT_CADDBANG(c,0,m_bang);
+
+ // set up tagged methods for the default inlet (0)
+ // the underscore _ after CADDMETHOD indicates that a message tag is used
+ // no, variable list or anything and all single arguments are recognized automatically, ...
+ FLEXT_CADDMETHOD_(c,0,"reset",m_reset);
+
+ FLEXT_CADDMETHOD_(c,0,"forceX",m_forceX);
+ FLEXT_CADDMETHOD_(c,0,"posX",m_posX);
+ FLEXT_CADDMETHOD_(c,0,"Xmax",m_Xmax);
+ FLEXT_CADDMETHOD_(c,0,"Xmin",m_Xmin);
+ FLEXT_CADDMETHOD_(c,0,"forceN",m_forceN);
+ FLEXT_CADDMETHOD_(c,0,"posN",m_posN);
+ FLEXT_CADDMETHOD_(c,0,"Nmax",m_Nmax);
+ FLEXT_CADDMETHOD_(c,0,"Nmin",m_Nmin);
+ FLEXT_CADDMETHOD_(c,0,"massesPosL",m_mass_dumpl);
+ FLEXT_CADDMETHOD_(c,0,"massesPosXL",m_mass_dump_xl);
+ if(N >= 2) {
+ FLEXT_CADDMETHOD_(c,0,"forceY",m_forceY);
+ FLEXT_CADDMETHOD_(c,0,"posY",m_posY);
+ FLEXT_CADDMETHOD_(c,0,"Ymax",m_Ymax);
+ FLEXT_CADDMETHOD_(c,0,"Ymin",m_Ymin);
+ FLEXT_CADDMETHOD_(c,0,"massesPosYL",m_mass_dump_yl);
+ FLEXT_CADDMETHOD_(c,0,"grabMass",m_grab_mass);
+ }
+ if(N >= 3) {
+ FLEXT_CADDMETHOD_(c,0,"forceZ",m_forceZ);
+ FLEXT_CADDMETHOD_(c,0,"posZ",m_posZ);
+ FLEXT_CADDMETHOD_(c,0,"Zmax",m_Zmax);
+ FLEXT_CADDMETHOD_(c,0,"Zmin",m_Zmin);
+ FLEXT_CADDMETHOD_(c,0,"massesPosZL",m_mass_dump_zl);
+ }
+
+ FLEXT_CADDMETHOD_(c,0,"setMobile",m_set_mobile);
+ FLEXT_CADDMETHOD_(c,0,"setFixed",m_set_fixe);
+ FLEXT_CADDMETHOD_(c,0,"setMassId",m_setMassId);
+ FLEXT_CADDMETHOD_(c,0,"setLinkId",m_setLinkId);
+ FLEXT_CADDMETHOD_(c,0,"setK",m_setK);
+ FLEXT_CADDMETHOD_(c,0,"setD",m_setD);
+ FLEXT_CADDMETHOD_(c,0,"setL",m_setL);
+ FLEXT_CADDMETHOD_(c,0,"setLMin",m_setLmin);
+ FLEXT_CADDMETHOD_(c,0,"setLMax",m_setLmax);
+ FLEXT_CADDMETHOD_(c,0,"setM",m_setM);
+ FLEXT_CADDMETHOD_(c,0,"setD2",m_setD2);
+ FLEXT_CADDMETHOD_(c,0,"mass",m_mass);
+ FLEXT_CADDMETHOD_(c,0,"link",m_link);
+ FLEXT_CADDMETHOD_(c,0,"iLink",m_ilink);
+ FLEXT_CADDMETHOD_(c,0,"tLink",m_tlink);
+ FLEXT_CADDMETHOD_(c,0,"nLink",m_nlink);
+ FLEXT_CADDMETHOD_(c,0,"get",m_get);
+ FLEXT_CADDMETHOD_(c,0,"deleteLink",m_delete_link);
+ FLEXT_CADDMETHOD_(c,0,"deleteMass",m_delete_mass);
+ FLEXT_CADDMETHOD_(c,0,"infosL",m_info_dumpl);
+ FLEXT_CADDMETHOD_(c,0,"massesForcesL",m_force_dumpl);
+ }
+
+ // for every registered method a callback has to be declared
+ FLEXT_CALLBACK(m_bang)
+ FLEXT_CALLBACK(m_mass_dumpl)
+ FLEXT_CALLBACK(m_mass_dump_xl)
+ FLEXT_CALLBACK(m_mass_dump_yl)
+ FLEXT_CALLBACK(m_mass_dump_zl)
+ FLEXT_CALLBACK(m_info_dumpl)
+ FLEXT_CALLBACK(m_force_dumpl)
+ FLEXT_CALLBACK(m_reset)
+ FLEXT_CALLBACK_V(m_set_mobile)
+ FLEXT_CALLBACK_V(m_set_fixe)
+ FLEXT_CALLBACK_V(m_mass)
+ FLEXT_CALLBACK_V(m_link)
+ FLEXT_CALLBACK_V(m_ilink)
+ FLEXT_CALLBACK_V(m_tlink)
+ FLEXT_CALLBACK_V(m_nlink)
+ FLEXT_CALLBACK_V(m_Xmax)
+ FLEXT_CALLBACK_V(m_Xmin)
+ FLEXT_CALLBACK_V(m_forceX)
+ FLEXT_CALLBACK_V(m_posX)
+ FLEXT_CALLBACK_V(m_Ymax)
+ FLEXT_CALLBACK_V(m_Ymin)
+ FLEXT_CALLBACK_V(m_forceY)
+ FLEXT_CALLBACK_V(m_posY)
+ FLEXT_CALLBACK_V(m_Zmax)
+ FLEXT_CALLBACK_V(m_Zmin)
+ FLEXT_CALLBACK_V(m_forceZ)
+ FLEXT_CALLBACK_V(m_posZ)
+ FLEXT_CALLBACK_V(m_Nmax)
+ FLEXT_CALLBACK_V(m_Nmin)
+ FLEXT_CALLBACK_V(m_forceN)
+ FLEXT_CALLBACK_V(m_posN)
+ FLEXT_CALLBACK_V(m_setMassId)
+ FLEXT_CALLBACK_V(m_setLinkId)
+ FLEXT_CALLBACK_V(m_setK)
+ FLEXT_CALLBACK_V(m_setD)
+ FLEXT_CALLBACK_V(m_setL)
+ FLEXT_CALLBACK_V(m_setLmin)
+ FLEXT_CALLBACK_V(m_setLmax)
+ FLEXT_CALLBACK_V(m_setM)
+ FLEXT_CALLBACK_V(m_setD2)
+ FLEXT_CALLBACK_V(m_get)
+ FLEXT_CALLBACK_V(m_delete_link)
+ FLEXT_CALLBACK_V(m_delete_mass)
+ FLEXT_CALLBACK_V(m_grab_mass)
+};
+// -------------------------------------------------------------- STATIC VARIABLES
+// -------------------------------------------------------------------------------
+
+template<int N> const t_symbol *msdN<N>::S_Reset;
+template<int N> const t_symbol *msdN<N>::S_Mass;
+template<int N> const t_symbol *msdN<N>::S_Link;
+template<int N> const t_symbol *msdN<N>::S_iLink;
+template<int N> const t_symbol *msdN<N>::S_tLink;
+template<int N> const t_symbol *msdN<N>::S_nLink;
+template<int N> const t_symbol *msdN<N>::S_Mass_deleted;
+template<int N> const t_symbol *msdN<N>::S_Link_deleted;
+template<int N> const t_symbol *msdN<N>::S_massesPos;
+template<int N> const t_symbol *msdN<N>::S_massesPosName;
+template<int N> const t_symbol *msdN<N>::S_massesPosNo;
+template<int N> const t_symbol *msdN<N>::S_massesPosId;
+template<int N> const t_symbol *msdN<N>::S_linksPos;
+template<int N> const t_symbol *msdN<N>::S_linksPosName;
+template<int N> const t_symbol *msdN<N>::S_linksPosNo;
+template<int N> const t_symbol *msdN<N>::S_linksPosId;
+template<int N> const t_symbol *msdN<N>::S_linksLenghts;
+template<int N> const t_symbol *msdN<N>::S_linksLenghtsMean;
+template<int N> const t_symbol *msdN<N>::S_linksLenghtsStd;
+template<int N> const t_symbol *msdN<N>::S_linksLenghtsNo;
+template<int N> const t_symbol *msdN<N>::S_linksLenghtsId;
+template<int N> const t_symbol *msdN<N>::S_massesForces;
+template<int N> const t_symbol *msdN<N>::S_massesForcesName;
+template<int N> const t_symbol *msdN<N>::S_massesForcesMean;
+template<int N> const t_symbol *msdN<N>::S_massesForcesStd;
+template<int N> const t_symbol *msdN<N>::S_massesForcesNo;
+template<int N> const t_symbol *msdN<N>::S_massesForcesId;
+template<int N> const t_symbol *msdN<N>::S_massesSpeeds;
+template<int N> const t_symbol *msdN<N>::S_massesSpeedsName;
+template<int N> const t_symbol *msdN<N>::S_massesSpeedsMean;
+template<int N> const t_symbol *msdN<N>::S_massesSpeedsStd;
+template<int N> const t_symbol *msdN<N>::S_massesSpeedsNo;
+template<int N> const t_symbol *msdN<N>::S_massesSpeedsId;
+template<int N> const t_symbol *msdN<N>::S_massesPosL;
+template<int N> const t_symbol *msdN<N>::S_massesPosXL;
+template<int N> const t_symbol *msdN<N>::S_massesPosYL;
+template<int N> const t_symbol *msdN<N>::S_massesPosZL;
+template<int N> const t_symbol *msdN<N>::S_massesPosStd;
+template<int N> const t_symbol *msdN<N>::S_massesPosMean;
+template<int N> const t_symbol *msdN<N>::S_massesForcesL;
+
+#define MSD(NAME,CLASS,N) \
+typedef msdN<N> CLASS; \
+template<> FLEXT_NEW_V(NAME,CLASS)
diff --git a/msd/msd/01_msdtest.pd b/msd/msd/01_msdtest.pd
new file mode 100644
index 0000000..49922e9
--- /dev/null
+++ b/msd/msd/01_msdtest.pd
@@ -0,0 +1,92 @@
+#N canvas 392 22 616 594 10;
+#X obj 20 33 loadbang;
+#X obj 382 197 print msd;
+#X obj 309 58 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X text 329 56 ON / OFF;
+#X obj 309 80 metro 50;
+#X obj 33 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 83 113 reset;
+#X msg 35 229 Xmax 100 \, Xmin 0;
+#X msg 128 372 setD souple 0.01;
+#X msg 18 371 setK souple 1;
+#X msg 128 394 setD souple 1;
+#X msg 18 393 setK souple 2;
+#X obj 331 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 7025 1;
+#X obj 354 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 7484 1;
+#X obj 308 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 6450 1;
+#X msg 308 538 posX fix \$1;
+#X obj 401 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 7901 1;
+#X obj 377 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 7771 1;
+#X msg 20 256 0 1 \, 1 2 \, 2 3 \, 3 4;
+#X obj 308 347 unpack f f f f f;
+#X obj 308 325 route massesPosL;
+#X msg 309 103 bang \, massesPosL;
+#X msg 20 278 link souple \$1 \$2 10 10;
+#X obj 309 167 msd;
+#X obj 309 31 loadbang;
+#X obj 20 77 t b b b b b;
+#X text 50 55 reset;
+#X text 18 10 creation : 5 masses and 4 links;
+#X text 308 10 compute and get masses positions;
+#X text 16 349 set rigidity and viscosity of links;
+#X text 17 452 add force on all mobile masses;
+#X text 443 440 move first slider;
+#X text 429 453 to move the fixed mass;
+#X msg 19 503 forceX mob 300;
+#X msg 19 479 forceX mob -300;
+#X text 307 279 display and interaction;
+#X msg 51 201 mass mob 1 100 50;
+#X msg 51 159 4;
+#X obj 51 180 until;
+#X msg 67 139 mass fix 0 100 50;
+#X obj 83 314 s \$0-msdin;
+#X obj 18 421 s \$0-msdin;
+#X obj 19 530 s \$0-msdin;
+#X obj 319 138 r \$0-msdin;
+#X obj 309 197 s \$0-msdout;
+#X obj 308 302 r \$0-msdout;
+#X obj 308 560 s \$0-msdin;
+#X connect 0 0 25 0;
+#X connect 2 0 4 0;
+#X connect 4 0 21 0;
+#X connect 5 0 25 0;
+#X connect 6 0 40 0;
+#X connect 7 0 40 0;
+#X connect 8 0 41 0;
+#X connect 9 0 41 0;
+#X connect 10 0 41 0;
+#X connect 11 0 41 0;
+#X connect 14 0 15 0;
+#X connect 15 0 46 0;
+#X connect 18 0 22 0;
+#X connect 19 0 14 0;
+#X connect 19 1 12 0;
+#X connect 19 2 13 0;
+#X connect 19 3 17 0;
+#X connect 19 4 16 0;
+#X connect 20 0 19 0;
+#X connect 21 0 23 0;
+#X connect 22 0 40 0;
+#X connect 23 0 44 0;
+#X connect 23 1 1 0;
+#X connect 24 0 2 0;
+#X connect 25 0 18 0;
+#X connect 25 1 7 0;
+#X connect 25 2 37 0;
+#X connect 25 3 39 0;
+#X connect 25 4 6 0;
+#X connect 33 0 42 0;
+#X connect 34 0 42 0;
+#X connect 36 0 40 0;
+#X connect 37 0 38 0;
+#X connect 38 0 36 0;
+#X connect 39 0 40 0;
+#X connect 43 0 23 0;
+#X connect 45 0 20 0;
diff --git a/msd/msd/02_msdstring.pd b/msd/msd/02_msdstring.pd
new file mode 100644
index 0000000..8eebc38
--- /dev/null
+++ b/msd/msd/02_msdstring.pd
@@ -0,0 +1,328 @@
+#N canvas 518 31 480 222 10;
+#X obj 24 54 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
+-1;
+#X text 49 54 reset;
+#N canvas 0 22 610 333 creation_structure 0;
+#X obj 52 15 loadbang;
+#X obj 135 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
+-1;
+#X msg 193 65 reset;
+#X text 173 21 reset;
+#N canvas 77 152 608 525 masses 0;
+#X obj 109 15 inlet;
+#X obj 112 338 outlet;
+#X obj 200 343 print;
+#X obj 112 64 t b b b b;
+#X obj 150 158 until 17;
+#X msg 150 184 mass corde 1 50 0;
+#X msg 112 276 mass zero 0 1 0;
+#X msg 150 134 80;
+#X text 232 275 masse nulle pour l'amortissement general;
+#X text 302 90 extremite gauche no 0;
+#X text 283 184 masses mobiles no 1->80;
+#X text 278 220 extremite droite no 81;
+#X msg 170 89 mass corde 0 100 0;
+#X msg 131 218 mass corde 0 100 0;
+#X connect 0 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 1 13 0;
+#X connect 3 2 7 0;
+#X connect 3 3 12 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 0;
+#X connect 12 0 1 0;
+#X connect 13 0 1 0;
+#X restore 173 87 pd masses;
+#N canvas 579 114 813 597 link 0;
+#X obj 157 35 inlet;
+#X obj 185 490 outlet;
+#X msg 176 320 link souple \$1 \$2 10 10;
+#X obj 236 210 + 1;
+#X obj 176 293 pack f f;
+#X obj 253 493 print;
+#X obj 176 241 t f f f;
+#X obj 176 212 f 0;
+#X obj 157 64 t b b b b;
+#X text 305 254 liens entre les masses mobiles;
+#X text 384 406 tlink qui fait un amortissement vertical general;
+#X obj 386 323 s rigidite;
+#X msg 386 300 10;
+#X msg 157 403 link D2 zero corde 0 0;
+#X msg 266 169 0;
+#X obj 203 269 + 1;
+#X obj 176 188 until;
+#X floatatom 267 251 5 0 0 0 - - -;
+#X msg 176 165 81;
+#X obj 467 324 s amort;
+#X connect 0 0 8 0;
+#X connect 2 0 1 0;
+#X connect 3 0 7 1;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
+#X connect 6 1 15 0;
+#X connect 6 2 3 0;
+#X connect 7 0 6 0;
+#X connect 7 0 17 0;
+#X connect 8 0 12 0;
+#X connect 8 0 13 0;
+#X connect 8 1 18 0;
+#X connect 8 2 14 0;
+#X connect 12 0 11 0;
+#X connect 12 0 19 0;
+#X connect 13 0 1 0;
+#X connect 14 0 7 1;
+#X connect 15 0 4 1;
+#X connect 16 0 7 0;
+#X connect 18 0 16 0;
+#X restore 154 111 pd link;
+#X obj 135 42 t b b b b;
+#X text 252 82 CREATION : 2 masses fixes (fix) \, 80 mobiles (corde)
+\, 80 liens (souple) \, 78 tLink (D2);
+#X msg 135 132 Xmax 100 \, Xmin -100;
+#X obj 247 23 inlet;
+#X obj 121 213 loadbang;
+#X obj 121 237 s load;
+#X obj 135 160 s \$0-msdin;
+#X connect 0 0 6 0;
+#X connect 1 0 6 0;
+#X connect 2 0 12 0;
+#X connect 4 0 12 0;
+#X connect 5 0 12 0;
+#X connect 6 0 8 0;
+#X connect 6 1 5 0;
+#X connect 6 2 4 0;
+#X connect 6 3 2 0;
+#X connect 8 0 12 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X restore 24 76 pd creation_structure;
+#N canvas 508 227 516 328 compute 0;
+#X obj 27 30 gemhead;
+#N canvas 735 244 537 479 corde 0;
+#X obj 139 41 inlet;
+#X obj 81 333 translateXYZ;
+#X obj 139 167 / 12.5;
+#X obj 139 190 - 4;
+#X obj 81 307 separator;
+#X obj 139 238 t b f;
+#X obj 81 273 gemhead 45;
+#X obj 204 188 / 0.2;
+#X obj 139 106 unpack f f;
+#X msg 81 238 0;
+#X obj 81 213 loadbang;
+#X obj 81 369 color 1 1 1;
+#X obj 139 139 + 10;
+#X obj 81 398 cube 0.02;
+#X obj 139 80 route 82;
+#X connect 0 0 14 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 6 0;
+#X connect 5 1 1 1;
+#X connect 6 0 4 0;
+#X connect 7 0 1 2;
+#X connect 8 0 12 0;
+#X connect 8 1 7 0;
+#X connect 9 0 6 0;
+#X connect 10 0 9 0;
+#X connect 11 0 13 0;
+#X connect 12 0 2 0;
+#X connect 14 1 8 0;
+#X restore 27 252 pd corde;
+#N canvas 643 123 605 590 vitesse 0;
+#X obj 127 22 inlet;
+#X obj 62 333 translateXYZ;
+#X obj 129 200 / 12.5;
+#X obj 129 223 - 4;
+#X obj 62 307 separator;
+#X obj 129 250 t b f;
+#X obj 62 280 gemhead 45;
+#X obj 62 398 cube 0.01;
+#X obj 431 25 inlet;
+#X obj 236 46 spigot;
+#X obj 195 216 + 2;
+#X obj 78 81 route 82;
+#X obj 129 107 unpack f f;
+#X obj 62 232 loadbang;
+#X msg 62 256 0;
+#X obj 129 172 + 10;
+#X obj 195 193 * 200;
+#X obj 62 369 color 1 0 0;
+#X connect 0 0 9 0;
+#X connect 1 0 17 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 6 0;
+#X connect 5 1 1 1;
+#X connect 6 0 4 0;
+#X connect 8 0 9 1;
+#X connect 9 0 11 0;
+#X connect 10 0 1 2;
+#X connect 11 1 12 0;
+#X connect 12 0 15 0;
+#X connect 12 1 16 0;
+#X connect 13 0 14 0;
+#X connect 14 0 6 0;
+#X connect 15 0 2 0;
+#X connect 16 0 10 0;
+#X connect 17 0 7 0;
+#X restore 121 239 pd vitesse;
+#X obj 186 219 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
+1;
+#X obj 27 136 msd --------------------------------;
+#X obj 27 53 t b b b b b b b;
+#X obj 27 195 route massesPos massesSpeeds massesForces;
+#X text 208 240 Afficher les vitesses en haut;
+#X text 310 279 Afficher les forces en bas;
+#X obj 379 185 inlet;
+#X obj 355 119 gemhead;
+#X obj 355 142 world_light;
+#N canvas 643 123 605 590 forces 0;
+#X obj 53 99 inlet;
+#X obj 60 377 translateXYZ;
+#X obj 139 260 / 12.5;
+#X obj 139 283 - 4;
+#X obj 204 261 / 12.5;
+#X obj 60 351 separator;
+#X obj 137 310 t b f;
+#X obj 60 325 gemhead 45;
+#X obj 60 434 cube 0.02;
+#X obj 111 99 inlet;
+#X obj 53 129 spigot;
+#X obj 60 284 loadbang;
+#X msg 60 306 0;
+#X obj 139 207 unpack f f;
+#X obj 139 232 + 10;
+#X obj 204 284 - 2;
+#X obj 53 180 route 0 81 82;
+#X obj 204 239 * 400;
+#X obj 60 405 color 0 1 0;
+#X connect 0 0 10 0;
+#X connect 1 0 18 0;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 15 0;
+#X connect 5 0 1 0;
+#X connect 6 0 7 0;
+#X connect 6 1 1 1;
+#X connect 7 0 5 0;
+#X connect 9 0 10 1;
+#X connect 10 0 16 0;
+#X connect 11 0 12 0;
+#X connect 12 0 7 0;
+#X connect 13 0 14 0;
+#X connect 13 1 17 0;
+#X connect 14 0 2 0;
+#X connect 15 0 1 2;
+#X connect 16 3 13 0;
+#X connect 17 0 4 0;
+#X connect 18 0 8 0;
+#X restore 215 278 pd forces;
+#X msg 27 75 bang \, get massesPos \, get massesSpeeds \, get massesForces
+;
+#X obj 95 100 r \$0-msdin;
+#X connect 0 0 5 0;
+#X connect 3 0 2 1;
+#X connect 4 0 6 0;
+#X connect 5 0 13 0;
+#X connect 5 1 4 0;
+#X connect 5 2 4 0;
+#X connect 5 3 4 0;
+#X connect 5 4 4 0;
+#X connect 5 5 4 0;
+#X connect 5 6 4 0;
+#X connect 6 0 1 0;
+#X connect 6 1 2 0;
+#X connect 6 2 12 0;
+#X connect 9 0 12 1;
+#X connect 9 0 2 1;
+#X connect 10 0 11 0;
+#X connect 13 0 4 0;
+#X connect 14 0 4 0;
+#X restore 24 165 pd compute;
+#X obj 24 143 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 307 151 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 6500 1;
+#X text 303 134 Amortissement general;
+#X obj 307 93 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#N canvas 0 22 611 439 milieu 0;
+#X obj 174 147 / 120;
+#X obj 174 84 inlet;
+#X msg 173 298 forceX \$1 \$2;
+#X msg 174 175 41 \$1 \, 42 \$1;
+#X obj 191 201 / 1.5;
+#X msg 191 225 39 \$1 \, 40 \$1 \, 43 \$1 \, 44 \$1;
+#X msg 206 271 36 \$1 \, 37 \$1 \, 38 \$1 \, 45 \$1 \, 46 \$1 \, 47
+\$1;
+#X obj 206 247 / 3;
+#X obj 173 326 s \$0-msdin;
+#X obj 398 76 t f f;
+#X obj 401 107 -;
+#X obj 400 131 * 10;
+#X connect 0 0 3 0;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 9 0;
+#X connect 2 0 8 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 6 0 2 0;
+#X connect 7 0 6 0;
+#X connect 9 0 10 1;
+#X connect 9 1 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 0 0;
+#X restore 304 116 pd milieu;
+#N canvas 0 22 450 300 gem 0;
+#X obj 179 135 gemwin;
+#X msg 198 113 0 \, destroy;
+#X msg 179 90 reset \, create \, lighting 1 \, 1;
+#X obj 179 39 inlet;
+#X obj 179 68 sel 1 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 0;
+#X restore 24 118 pd gem;
+#X obj 24 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 44 142 display forces (green) and speeds (red);
+#N canvas 0 22 450 300 forces 0;
+#X msg 167 134 forceX corde \$1;
+#X obj 167 89 inlet;
+#X obj 167 112 / 300;
+#X obj 167 157 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X restore 304 56 pd forces;
+#X obj 307 34 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 2300 1;
+#N canvas 0 22 450 300 general_damping 0;
+#X msg 172 143 setD D2 \$1;
+#X obj 172 121 / 5;
+#X obj 173 100 inlet;
+#X obj 172 166 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X restore 304 171 pd general_damping;
+#X text 302 74 Send forces in the middle;
+#X text 302 16 Send forces;
+#X text 45 98 gem on/off;
+#X text 24 20 1D string model;
+#X connect 0 0 2 0;
+#X connect 4 0 3 0;
+#X connect 5 0 14 0;
+#X connect 7 0 8 0;
+#X connect 10 0 9 0;
+#X connect 13 0 12 0;
diff --git a/msd/msd/03_msdwave.pd b/msd/msd/03_msdwave.pd
new file mode 100644
index 0000000..816840a
--- /dev/null
+++ b/msd/msd/03_msdwave.pd
@@ -0,0 +1,230 @@
+#N canvas 617 175 594 188 10;
+#X obj 29 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 49 19 Reset;
+#X obj 202 27 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#N canvas 0 22 981 585 structure_creation 0;
+#X msg 681 243 mass filet 1 100 0;
+#X msg 663 64 reset;
+#X obj 418 25 t b b b b b b b b b b b b;
+#X obj 681 201 until;
+#X msg 681 170 400;
+#X msg 561 378 link fil \$1 \$2 10 1;
+#X msg 561 174 380;
+#X obj 561 206 until;
+#X obj 561 245 f 0;
+#X obj 609 261 + 1;
+#X msg 618 226 0;
+#X obj 636 312 + 20;
+#X obj 561 339 pack f f;
+#X obj 561 288 t f f;
+#X msg 397 151 400;
+#X obj 397 189 until;
+#X obj 397 231 f 0;
+#X obj 445 247 + 1;
+#X msg 454 212 0;
+#X obj 397 292 t f f;
+#X obj 452 325 mod 20;
+#X obj 452 355 != 19;
+#X obj 397 393 spigot;
+#X obj 397 475 pack f f;
+#X obj 397 424 t f f;
+#X obj 472 448 + 1;
+#X msg 397 505 link fil \$1 \$2 10 1;
+#X msg 403 107 setFixed 0 \, setFixed 19 \, setFixed 380 \, setFixed
+399;
+#X obj 418 -8 inlet;
+#X obj 326 61 loadbang;
+#X obj 690 527 s \$0-msdin;
+#X connect 0 0 30 0;
+#X connect 1 0 30 0;
+#X connect 2 5 27 0;
+#X connect 2 6 14 0;
+#X connect 2 7 18 0;
+#X connect 2 8 6 0;
+#X connect 2 9 10 0;
+#X connect 2 10 4 0;
+#X connect 2 11 1 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 5 0 30 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X connect 8 0 13 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 12 1;
+#X connect 12 0 5 0;
+#X connect 13 0 12 0;
+#X connect 13 1 11 0;
+#X connect 14 0 15 0;
+#X connect 15 0 16 0;
+#X connect 16 0 17 0;
+#X connect 16 0 19 0;
+#X connect 17 0 16 1;
+#X connect 18 0 16 1;
+#X connect 19 0 22 0;
+#X connect 19 1 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 1;
+#X connect 22 0 24 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 0;
+#X connect 24 1 25 0;
+#X connect 25 0 23 1;
+#X connect 26 0 30 0;
+#X connect 27 0 30 0;
+#X connect 28 0 2 0;
+#X connect 29 0 2 0;
+#X restore 29 39 pd structure_creation;
+#N canvas 813 63 450 300 gem 0;
+#X obj 114 171 gemwin;
+#X msg 134 149 0 \, destroy;
+#X msg 114 125 reset \, create \, 1 \, lighting 1;
+#X obj 114 71 inlet;
+#X obj 114 97 sel 1 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 0;
+#X restore 30 85 pd gem;
+#X obj 30 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 200 -6 send forces;
+#X text 200 7 on a row;
+#N canvas 0 22 450 300 damping 0;
+#X msg 151 90 setD fil \$1;
+#X obj 151 70 / 8;
+#X obj 151 47 inlet;
+#X obj 151 113 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X restore 301 119 pd damping;
+#X obj 304 100 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 12700 1;
+#X text 300 79 change viscosity;
+#N canvas 0 22 450 300 row 0;
+#X msg 149 87 20;
+#X obj 149 132 f 6;
+#X obj 149 112 until;
+#X obj 192 133 + 20;
+#X msg 208 113 6;
+#X obj 149 63 t b b;
+#X msg 149 153 forceX \$1 30;
+#X obj 149 38 inlet;
+#X obj 149 183 s \$0-msdin;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 3 0 1 1;
+#X connect 4 0 1 1;
+#X connect 5 0 0 0;
+#X connect 5 1 4 0;
+#X connect 6 0 8 0;
+#X connect 7 0 5 0;
+#X restore 202 51 pd row;
+#X obj 201 105 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 199 70 send forces;
+#X text 50 63 Gem on/off;
+#X obj 305 38 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 1300 1;
+#X text 300 17 change rigidity;
+#N canvas 0 22 450 300 rigi 0;
+#X obj 151 47 inlet;
+#X obj 151 70 / 4;
+#X msg 151 90 setK fil \$1;
+#X obj 151 113 s \$0-msdin;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X restore 302 57 pd rigi;
+#X text 199 83 on a point;
+#N canvas 0 22 450 300 point 0;
+#X msg 192 123 forceX 10 100;
+#X obj 193 95 inlet;
+#X obj 192 156 s \$0-msdin;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X restore 201 126 pd point;
+#X text 469 -2 move a corner;
+#N canvas 0 22 450 300 corner 0;
+#X msg 222 89 posX 0 \$1;
+#X obj 222 65 / 30;
+#X obj 223 32 inlet;
+#X obj 222 115 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X restore 471 155 pd corner;
+#X obj 471 17 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
+-1 -1 0 1;
+#N canvas 696 124 709 588 compute 0;
+#X msg 126 130 bang \, get massesPos;
+#X obj 126 27 gemhead;
+#X obj 126 224 route massesPos;
+#X obj 34 306 gemhead;
+#X msg 34 268 0;
+#X obj 126 290 unpack f f;
+#X obj 34 539 translateXYZ;
+#X obj 126 334 mod 20;
+#X obj 126 389 - 3;
+#X obj 126 363 * 0.3;
+#X obj 126 257 t b a;
+#X obj 197 326 / 20;
+#X obj 197 356 int;
+#X obj 197 383 * -0.3;
+#X obj 197 410 + 3;
+#X obj 34 238 loadbang;
+#X obj 126 184 msd --------------;
+#X obj 439 286 gemhead;
+#X obj 439 349 light;
+#X obj 439 318 translateXYZ 0 0 1;
+#X obj 33 572 cube 0.08;
+#X obj 126 58 t b b;
+#X msg 171 97 bang \, bang \, bang \, bang \, bang \, bang \, bang
+;
+#X obj 34 443 translateXYZ 0 0 -2;
+#X obj 34 477 rotateXYZ 0 20 0;
+#X obj 141 153 r \$0-msdin;
+#X connect 0 0 16 0;
+#X connect 1 0 21 0;
+#X connect 2 0 10 0;
+#X connect 3 0 23 0;
+#X connect 4 0 3 0;
+#X connect 5 0 7 0;
+#X connect 5 0 11 0;
+#X connect 5 1 6 3;
+#X connect 6 0 20 0;
+#X connect 7 0 9 0;
+#X connect 8 0 6 1;
+#X connect 9 0 8 0;
+#X connect 10 0 3 0;
+#X connect 10 1 5 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 6 2;
+#X connect 15 0 4 0;
+#X connect 16 0 2 0;
+#X connect 17 0 19 0;
+#X connect 19 0 18 0;
+#X connect 21 0 0 0;
+#X connect 21 1 22 0;
+#X connect 22 0 16 0;
+#X connect 23 0 24 0;
+#X connect 24 0 6 0;
+#X connect 25 0 16 0;
+#X restore 30 109 pd compute;
+#X connect 0 0 3 0;
+#X connect 2 0 11 0;
+#X connect 5 0 4 0;
+#X connect 9 0 8 0;
+#X connect 12 0 19 0;
+#X connect 15 0 17 0;
+#X connect 22 0 21 0;
diff --git a/msd/msd/Makefile.am b/msd/msd/Makefile.am
new file mode 100644
index 0000000..59a3dff
--- /dev/null
+++ b/msd/msd/Makefile.am
@@ -0,0 +1,51 @@
+#
+# automake template
+# added by tim blechmann
+#
+
+NAME = msd2
+
+BUILT_SOURCES = main.cpp
+
+EXTRA_DIST = main.cpp \
+ $(NAME).mcp \
+ $(NAME).vcproj
+
+CXXFLAGS = @CXXFLAGS@ \
+ @OPT_FLAGS@ \
+ @INCLUDEDIR@ \
+ -I../../source \
+ $(DEFS) \
+ -DFLEXT_SHARED
+
+LDFLAGS = @DYNAMIC_LDFLAGS@ @LDFLAGS@ \
+ $(patsubst %,-framework %,$(FRAMEWORKS))
+
+LIBS = @LIBS@ -lflext-pd
+
+FRAMEWORKS = @FRAMEWORKS@
+
+TARGETDIR = @TARGETDIR@
+
+TARGET =$(NAME).@EXTENSION@
+
+OBJECTS = $(patsubst %.cpp,./%.@OBJEXT@,$(BUILT_SOURCES))
+
+SYSDIR = @SYSDIR@
+
+
+# ----------------------------- targets --------------------------------
+
+all-local: $(OBJECTS)
+ $(CXX) $(LDFLAGS) ./*.@OBJEXT@ $(LIBS) -o ../$(TARGETDIR)/$(TARGET)
+ strip --strip-unneeded ../$(TARGETDIR)/$(TARGET)
+
+./%.@OBJEXT@ : %.cpp
+ $(CXX) -c $(CXXFLAGS) $< -o $@
+
+clean-local:
+ rm -f ../$(TARGETDIR)/$(TARGET)
+ rm -f ./$(OBJECTS)
+
+install-exec-local:
+ install ../$(TARGET) $(SYSDIR)extra
diff --git a/msd/msd/license.txt b/msd/msd/license.txt
new file mode 100644
index 0000000..b1e3f5a
--- /dev/null
+++ b/msd/msd/license.txt
@@ -0,0 +1,504 @@
+ GNU LESSER GENERAL PUBLIC LICENSE
+ Version 2.1, February 1999
+
+ Copyright (C) 1991, 1999 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+[This is the first released version of the Lesser GPL. It also counts
+ as the successor of the GNU Library Public License, version 2, hence
+ the version number 2.1.]
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+Licenses are intended to guarantee your freedom to share and change
+free software--to make sure the software is free for all its users.
+
+ This license, the Lesser General Public License, applies to some
+specially designated software packages--typically libraries--of the
+Free Software Foundation and other authors who decide to use it. You
+can use it too, but we suggest you first think carefully about whether
+this license or the ordinary General Public License is the better
+strategy to use in any particular case, based on the explanations below.
+
+ When we speak of free software, we are referring to freedom of use,
+not price. Our General Public Licenses are designed to make sure that
+you have the freedom to distribute copies of free software (and charge
+for this service if you wish); that you receive source code or can get
+it if you want it; that you can change the software and use pieces of
+it in new free programs; and that you are informed that you can do
+these things.
+
+ To protect your rights, we need to make restrictions that forbid
+distributors to deny you these rights or to ask you to surrender these
+rights. These restrictions translate to certain responsibilities for
+you if you distribute copies of the library or if you modify it.
+
+ For example, if you distribute copies of the library, whether gratis
+or for a fee, you must give the recipients all the rights that we gave
+you. You must make sure that they, too, receive or can get the source
+code. If you link other code with the library, you must provide
+complete object files to the recipients, so that they can relink them
+with the library after making changes to the library and recompiling
+it. And you must show them these terms so they know their rights.
+
+ We protect your rights with a two-step method: (1) we copyright the
+library, and (2) we offer you this license, which gives you legal
+permission to copy, distribute and/or modify the library.
+
+ To protect each distributor, we want to make it very clear that
+there is no warranty for the free library. Also, if the library is
+modified by someone else and passed on, the recipients should know
+that what they have is not the original version, so that the original
+author's reputation will not be affected by problems that might be
+introduced by others.
+
+ Finally, software patents pose a constant threat to the existence of
+any free program. We wish to make sure that a company cannot
+effectively restrict the users of a free program by obtaining a
+restrictive license from a patent holder. Therefore, we insist that
+any patent license obtained for a version of the library must be
+consistent with the full freedom of use specified in this license.
+
+ Most GNU software, including some libraries, is covered by the
+ordinary GNU General Public License. This license, the GNU Lesser
+General Public License, applies to certain designated libraries, and
+is quite different from the ordinary General Public License. We use
+this license for certain libraries in order to permit linking those
+libraries into non-free programs.
+
+ When a program is linked with a library, whether statically or using
+a shared library, the combination of the two is legally speaking a
+combined work, a derivative of the original library. The ordinary
+General Public License therefore permits such linking only if the
+entire combination fits its criteria of freedom. The Lesser General
+Public License permits more lax criteria for linking other code with
+the library.
+
+ We call this license the "Lesser" General Public License because it
+does Less to protect the user's freedom than the ordinary General
+Public License. It also provides other free software developers Less
+of an advantage over competing non-free programs. These disadvantages
+are the reason we use the ordinary General Public License for many
+libraries. However, the Lesser license provides advantages in certain
+special circumstances.
+
+ For example, on rare occasions, there may be a special need to
+encourage the widest possible use of a certain library, so that it becomes
+a de-facto standard. To achieve this, non-free programs must be
+allowed to use the library. A more frequent case is that a free
+library does the same job as widely used non-free libraries. In this
+case, there is little to gain by limiting the free library to free
+software only, so we use the Lesser General Public License.
+
+ In other cases, permission to use a particular library in non-free
+programs enables a greater number of people to use a large body of
+free software. For example, permission to use the GNU C Library in
+non-free programs enables many more people to use the whole GNU
+operating system, as well as its variant, the GNU/Linux operating
+system.
+
+ Although the Lesser General Public License is Less protective of the
+users' freedom, it does ensure that the user of a program that is
+linked with the Library has the freedom and the wherewithal to run
+that program using a modified version of the Library.
+
+ The precise terms and conditions for copying, distribution and
+modification follow. Pay close attention to the difference between a
+"work based on the library" and a "work that uses the library". The
+former contains code derived from the library, whereas the latter must
+be combined with the library in order to run.
+
+ GNU LESSER GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License Agreement applies to any software library or other
+program which contains a notice placed by the copyright holder or
+other authorized party saying it may be distributed under the terms of
+this Lesser General Public License (also called "this License").
+Each licensee is addressed as "you".
+
+ A "library" means a collection of software functions and/or data
+prepared so as to be conveniently linked with application programs
+(which use some of those functions and data) to form executables.
+
+ The "Library", below, refers to any such software library or work
+which has been distributed under these terms. A "work based on the
+Library" means either the Library or any derivative work under
+copyright law: that is to say, a work containing the Library or a
+portion of it, either verbatim or with modifications and/or translated
+straightforwardly into another language. (Hereinafter, translation is
+included without limitation in the term "modification".)
+
+ "Source code" for a work means the preferred form of the work for
+making modifications to it. For a library, complete source code means
+all the source code for all modules it contains, plus any associated
+interface definition files, plus the scripts used to control compilation
+and installation of the library.
+
+ Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running a program using the Library is not restricted, and output from
+such a program is covered only if its contents constitute a work based
+on the Library (independent of the use of the Library in a tool for
+writing it). Whether that is true depends on what the Library does
+and what the program that uses the Library does.
+
+ 1. You may copy and distribute verbatim copies of the Library's
+complete source code as you receive it, in any medium, provided that
+you conspicuously and appropriately publish on each copy an
+appropriate copyright notice and disclaimer of warranty; keep intact
+all the notices that refer to this License and to the absence of any
+warranty; and distribute a copy of this License along with the
+Library.
+
+ You may charge a fee for the physical act of transferring a copy,
+and you may at your option offer warranty protection in exchange for a
+fee.
+
+ 2. You may modify your copy or copies of the Library or any portion
+of it, thus forming a work based on the Library, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) The modified work must itself be a software library.
+
+ b) You must cause the files modified to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ c) You must cause the whole of the work to be licensed at no
+ charge to all third parties under the terms of this License.
+
+ d) If a facility in the modified Library refers to a function or a
+ table of data to be supplied by an application program that uses
+ the facility, other than as an argument passed when the facility
+ is invoked, then you must make a good faith effort to ensure that,
+ in the event an application does not supply such function or
+ table, the facility still operates, and performs whatever part of
+ its purpose remains meaningful.
+
+ (For example, a function in a library to compute square roots has
+ a purpose that is entirely well-defined independent of the
+ application. Therefore, Subsection 2d requires that any
+ application-supplied function or table used by this function must
+ be optional: if the application does not supply it, the square
+ root function must still compute square roots.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Library,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Library, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote
+it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Library.
+
+In addition, mere aggregation of another work not based on the Library
+with the Library (or with a work based on the Library) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may opt to apply the terms of the ordinary GNU General Public
+License instead of this License to a given copy of the Library. To do
+this, you must alter all the notices that refer to this License, so
+that they refer to the ordinary GNU General Public License, version 2,
+instead of to this License. (If a newer version than version 2 of the
+ordinary GNU General Public License has appeared, then you can specify
+that version instead if you wish.) Do not make any other change in
+these notices.
+
+ Once this change is made in a given copy, it is irreversible for
+that copy, so the ordinary GNU General Public License applies to all
+subsequent copies and derivative works made from that copy.
+
+ This option is useful when you wish to copy part of the code of
+the Library into a program that is not a library.
+
+ 4. You may copy and distribute the Library (or a portion or
+derivative of it, under Section 2) in object code or executable form
+under the terms of Sections 1 and 2 above provided that you accompany
+it with the complete corresponding machine-readable source code, which
+must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange.
+
+ If distribution of object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the
+source code from the same place satisfies the requirement to
+distribute the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 5. A program that contains no derivative of any portion of the
+Library, but is designed to work with the Library by being compiled or
+linked with it, is called a "work that uses the Library". Such a
+work, in isolation, is not a derivative work of the Library, and
+therefore falls outside the scope of this License.
+
+ However, linking a "work that uses the Library" with the Library
+creates an executable that is a derivative of the Library (because it
+contains portions of the Library), rather than a "work that uses the
+library". The executable is therefore covered by this License.
+Section 6 states terms for distribution of such executables.
+
+ When a "work that uses the Library" uses material from a header file
+that is part of the Library, the object code for the work may be a
+derivative work of the Library even though the source code is not.
+Whether this is true is especially significant if the work can be
+linked without the Library, or if the work is itself a library. The
+threshold for this to be true is not precisely defined by law.
+
+ If such an object file uses only numerical parameters, data
+structure layouts and accessors, and small macros and small inline
+functions (ten lines or less in length), then the use of the object
+file is unrestricted, regardless of whether it is legally a derivative
+work. (Executables containing this object code plus portions of the
+Library will still fall under Section 6.)
+
+ Otherwise, if the work is a derivative of the Library, you may
+distribute the object code for the work under the terms of Section 6.
+Any executables containing that work also fall under Section 6,
+whether or not they are linked directly with the Library itself.
+
+ 6. As an exception to the Sections above, you may also combine or
+link a "work that uses the Library" with the Library to produce a
+work containing portions of the Library, and distribute that work
+under terms of your choice, provided that the terms permit
+modification of the work for the customer's own use and reverse
+engineering for debugging such modifications.
+
+ You must give prominent notice with each copy of the work that the
+Library is used in it and that the Library and its use are covered by
+this License. You must supply a copy of this License. If the work
+during execution displays copyright notices, you must include the
+copyright notice for the Library among them, as well as a reference
+directing the user to the copy of this License. Also, you must do one
+of these things:
+
+ a) Accompany the work with the complete corresponding
+ machine-readable source code for the Library including whatever
+ changes were used in the work (which must be distributed under
+ Sections 1 and 2 above); and, if the work is an executable linked
+ with the Library, with the complete machine-readable "work that
+ uses the Library", as object code and/or source code, so that the
+ user can modify the Library and then relink to produce a modified
+ executable containing the modified Library. (It is understood
+ that the user who changes the contents of definitions files in the
+ Library will not necessarily be able to recompile the application
+ to use the modified definitions.)
+
+ b) Use a suitable shared library mechanism for linking with the
+ Library. A suitable mechanism is one that (1) uses at run time a
+ copy of the library already present on the user's computer system,
+ rather than copying library functions into the executable, and (2)
+ will operate properly with a modified version of the library, if
+ the user installs one, as long as the modified version is
+ interface-compatible with the version that the work was made with.
+
+ c) Accompany the work with a written offer, valid for at
+ least three years, to give the same user the materials
+ specified in Subsection 6a, above, for a charge no more
+ than the cost of performing this distribution.
+
+ d) If distribution of the work is made by offering access to copy
+ from a designated place, offer equivalent access to copy the above
+ specified materials from the same place.
+
+ e) Verify that the user has already received a copy of these
+ materials or that you have already sent this user a copy.
+
+ For an executable, the required form of the "work that uses the
+Library" must include any data and utility programs needed for
+reproducing the executable from it. However, as a special exception,
+the materials to be distributed need not include anything that is
+normally distributed (in either source or binary form) with the major
+components (compiler, kernel, and so on) of the operating system on
+which the executable runs, unless that component itself accompanies
+the executable.
+
+ It may happen that this requirement contradicts the license
+restrictions of other proprietary libraries that do not normally
+accompany the operating system. Such a contradiction means you cannot
+use both them and the Library together in an executable that you
+distribute.
+
+ 7. You may place library facilities that are a work based on the
+Library side-by-side in a single library together with other library
+facilities not covered by this License, and distribute such a combined
+library, provided that the separate distribution of the work based on
+the Library and of the other library facilities is otherwise
+permitted, and provided that you do these two things:
+
+ a) Accompany the combined library with a copy of the same work
+ based on the Library, uncombined with any other library
+ facilities. This must be distributed under the terms of the
+ Sections above.
+
+ b) Give prominent notice with the combined library of the fact
+ that part of it is a work based on the Library, and explaining
+ where to find the accompanying uncombined form of the same work.
+
+ 8. You may not copy, modify, sublicense, link with, or distribute
+the Library except as expressly provided under this License. Any
+attempt otherwise to copy, modify, sublicense, link with, or
+distribute the Library is void, and will automatically terminate your
+rights under this License. However, parties who have received copies,
+or rights, from you under this License will not have their licenses
+terminated so long as such parties remain in full compliance.
+
+ 9. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Library or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Library (or any work based on the
+Library), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Library or works based on it.
+
+ 10. Each time you redistribute the Library (or any work based on the
+Library), the recipient automatically receives a license from the
+original licensor to copy, distribute, link with or modify the Library
+subject to these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties with
+this License.
+
+ 11. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Library at all. For example, if a patent
+license would not permit royalty-free redistribution of the Library by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Library.
+
+If any portion of this section is held invalid or unenforceable under any
+particular circumstance, the balance of the section is intended to apply,
+and the section as a whole is intended to apply in other circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 12. If the distribution and/or use of the Library is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Library under this License may add
+an explicit geographical distribution limitation excluding those countries,
+so that distribution is permitted only in or among countries not thus
+excluded. In such case, this License incorporates the limitation as if
+written in the body of this License.
+
+ 13. The Free Software Foundation may publish revised and/or new
+versions of the Lesser General Public License from time to time.
+Such new versions will be similar in spirit to the present version,
+but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Library
+specifies a version number of this License which applies to it and
+"any later version", you have the option of following the terms and
+conditions either of that version or of any later version published by
+the Free Software Foundation. If the Library does not specify a
+license version number, you may choose any version ever published by
+the Free Software Foundation.
+
+ 14. If you wish to incorporate parts of the Library into other free
+programs whose distribution conditions are incompatible with these,
+write to the author to ask for permission. For software which is
+copyrighted by the Free Software Foundation, write to the Free
+Software Foundation; we sometimes make exceptions for this. Our
+decision will be guided by the two goals of preserving the free status
+of all derivatives of our free software and of promoting the sharing
+and reuse of software generally.
+
+ NO WARRANTY
+
+ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Libraries
+
+ If you develop a new library, and you want it to be of the greatest
+possible use to the public, we recommend making it free software that
+everyone can redistribute and change. You can do so by permitting
+redistribution under these terms (or, alternatively, under the terms of the
+ordinary General Public License).
+
+ To apply these terms, attach the following notices to the library. It is
+safest to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least the
+"copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the library's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Also add information on how to contact you by electronic and paper mail.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the library, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the
+ library `Frob' (a library for tweaking knobs) written by James Random Hacker.
+
+ <signature of Ty Coon>, 1 April 1990
+ Ty Coon, President of Vice
+
+That's all there is to it!
+
+
diff --git a/msd/msd/main.cpp b/msd/msd/main.cpp
new file mode 100644
index 0000000..844b8f9
--- /dev/null
+++ b/msd/msd/main.cpp
@@ -0,0 +1,3 @@
+#include "../msd.h"
+
+MSD("msd",msd,1)
diff --git a/msd/msd/msd-help.pd b/msd/msd/msd-help.pd
new file mode 100644
index 0000000..784d081
--- /dev/null
+++ b/msd/msd/msd-help.pd
@@ -0,0 +1,438 @@
+#N canvas 244 22 563 764 10;
+#X obj 4 369 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 729 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 389 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 584 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 527 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 4 562 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 679 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 699 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#N canvas 76 31 777 741 More_Info 0;
+#X text 94 17 MSD : mass - spring - damper model;
+#X text 26 46 MSD is the 1D object of the msd objects collection.;
+#X text 25 160 Be careful : if masses are deleted \, lists messages
+won't work;
+#X text 25 65 It is designed to implement particules physical model
+in PD.The model is based on two elements type : mass and link. The
+msd masses are the principals objects of the model. They got only one
+physical parameter \, the value of their mass. They can be mobile or
+fixed \, in this case forces applied on them automatically \, by links
+\, or manually \, by messages \, don't do anything.;
+#X text 25 262 Links can be created between mutiples masses \, instead
+of creation number \, the masses linked are defined with their Id.
+;
+#X obj 449 23 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 449 277 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity1 4 float 1;
+#A 0 -1 0 1 2;
+#X array zero 4 float 1;
+#A 0 0 0 0 0;
+#X coords 0 3 3 -3 200 150 1;
+#X restore 117 339 graph;
+#X text 175 496 L0;
+#N canvas 331 182 956 727 figure 0;
+#X obj 182 108 loadbang;
+#X msg 191 180 \; rigidity1 resize 1 \; rigidity1 resize 4 \; rigidity1
+bounds 0 3 3 -3 \; rigidity1 0 -1 0 1 2 \; rigidity1 ylabel -0.5 \;
+rigidity1 xlabel -3.5 \; rigidity1 xticks 0 1 1 \; rigidity1 yticks
+0 0.1 5;
+#X obj 399 574 sqrt;
+#X obj 316 651 tabwrite rigidity3;
+#X obj 343 464 - 20;
+#X obj 316 609 f;
+#X obj 316 579 t b f;
+#X obj 343 494 moses 0;
+#X obj 343 517 * -1;
+#X obj 343 538 sqrt;
+#X obj 343 559 * -1;
+#X obj 481 479 - 20;
+#X obj 453 662 f;
+#X obj 453 632 t b f;
+#X obj 481 509 moses 0;
+#X obj 481 532 * -1;
+#X obj 480 612 * -1;
+#X obj 536 627 *;
+#X obj 480 591 *;
+#X obj 533 595 t f f;
+#X obj 480 564 t f f;
+#X obj 453 704 tabwrite rigidity4;
+#X msg 55 419 \; rigidity3 resize 51 \; rigidity3 xticks 0 1 5 \; rigidity3
+yticks 0 1 5 \; rigidity4 resize 51 \; rigidity4 xticks 0 1 5 \; rigidity4
+yticks 0 100 5;
+#X obj 255 350 t b b;
+#X msg 404 183 \; rigidity2 resize 1 \; rigidity2 resize 23 \; rigidity2
+bounds 0 3 22 -3 \; rigidity2 0 0 0 -2.5 -2.34 -2.167 -2 -1.833 -1.667
+-1.5 0 0 0 0 0 1.5 1.667 1.833 2 2.167 2.34 2.5 0 0 0 \; rigidity2
+ylabel -0.5 \; rigidity2 xlabel -3.5 \; rigidity2 xticks 1 1 5 \; rigidity2
+yticks 0 0.2 5;
+#X obj 402 359 f;
+#X obj 418 409 + 1;
+#X obj 402 382 moses 50.5;
+#X obj 384 417 f;
+#X obj 395 328 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X connect 0 0 1 0;
+#X connect 0 0 24 0;
+#X connect 0 0 23 0;
+#X connect 2 0 5 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X connect 6 1 3 1;
+#X connect 7 0 8 0;
+#X connect 7 1 2 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 5 1;
+#X connect 11 0 14 0;
+#X connect 12 0 21 0;
+#X connect 13 0 12 0;
+#X connect 13 1 21 1;
+#X connect 14 0 15 0;
+#X connect 14 1 19 0;
+#X connect 15 0 20 0;
+#X connect 16 0 12 1;
+#X connect 17 0 12 1;
+#X connect 18 0 16 0;
+#X connect 19 0 17 0;
+#X connect 19 1 17 1;
+#X connect 20 0 18 0;
+#X connect 20 1 18 1;
+#X connect 23 0 25 0;
+#X connect 23 1 22 0;
+#X connect 25 0 27 0;
+#X connect 26 0 25 0;
+#X connect 27 0 26 0;
+#X connect 27 0 28 0;
+#X connect 28 0 4 0;
+#X connect 28 0 6 0;
+#X connect 28 0 11 0;
+#X connect 28 0 13 0;
+#X connect 29 0 25 0;
+#X restore 430 703 pd figure;
+#X text 121 318 Rigidity;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity2 23 float 1;
+#A 0 0 0 -2.5 -2.34 -2.167 -2 -1.833 -1.667 -1.5 0 0 0 0 0 1.5 1.667
+1.833 2 2.167 2.34 2.5 0 0;
+#X array zero 23 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 3 22 -3 200 150 1;
+#X restore 112 555 graph;
+#X text 204 710 L0;
+#X text 117 532 Rigidity with Lmin and Lmax;
+#X text 220 710 Lmin;
+#X text 282 711 Lmax;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity3 51 float 1;
+#A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555
+-3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2
+-1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575
+2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311
+4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615
+5.2915 5.38516 5.47723;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 6 50 -6 200 150 1;
+#X restore 557 346 graph;
+#X text 630 499 L0;
+#X text 562 325 Rigidity with power = 1/2;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity4 51 float 1;
+#A 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64
+-49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169
+196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900
+;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 1000 50 -1000 200 150 1;
+#X restore 554 561 graph;
+#X text 627 715 L0;
+#X text 557 539 Rigidity with power = 2;
+#X text 548 21 The equations are :;
+#X text 474 45 if Lmin<|L[n]-L[0]|<Lmax;
+#X text 473 84 else;
+#X text 473 104 F[n] = D(L[n]-L[n-1]);
+#X text 473 63 F[n] = K(L[n] - L[0])^P + D(L[n] - L[n-1]);
+#X text 25 192 Links connect masses two by two. They got 4 physicals
+parameters : length \, rigidity \, damping and power.;
+#X text 25 221 Rigidity \, damping and power are defined by the creation
+message. The lenght is initialised to the distance between the two
+masses at the creation.;
+#X connect 5 0 6 0;
+#X restore 16 735 pd More_Info;
+#X text 12 76 Examples:;
+#X text 9 369 Inlets:;
+#X text 19 388 - Left:;
+#X text 10 526 Arguments:;
+#X text 11 562 Outlets:;
+#X text 19 679 See Also:;
+#X text 74 48 Full Name:;
+#N canvas 58 22 262 70 Related_Objects 0;
+#X obj 3 10 cnv 15 250 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 3 30 cnv 15 250 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 5 10 Externals and libraries;
+#X obj 44 37 msd2D;
+#X obj 140 37 msd3D;
+#X restore 122 735 pd Related_Objects;
+#X text 12 8 HELP: msd;
+#X obj 157 48 msd;
+#X text 12 18 DESCRIPTION: Mass spring damper physical modeling in
+1D.;
+#X obj 17 319 msd;
+#N canvas 541 387 524 302 init 0;
+#X msg 89 187 Xmax 127 \, Xmin 0;
+#X obj 89 215 t a;
+#X obj 89 33 loadbang;
+#X msg 143 100 mass fix 0 10 0;
+#X obj 89 241 s \$0-in;
+#X obj 89 59 t b b b b b;
+#X msg 161 80 reset;
+#X obj 44 13 inlet;
+#X msg 125 120 mass mob 1 10 0 \, mass mob 1 10 0 \, mass mob 1 10
+0;
+#X msg 107 143 link souple 1 0 1 0.5 \, link souple 1 2 1 0.5 \, link
+souple 3 2 1 0.5;
+#X connect 0 0 1 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 0;
+#X connect 3 0 1 0;
+#X connect 5 0 0 0;
+#X connect 5 1 9 0;
+#X connect 5 2 8 0;
+#X connect 5 3 3 0;
+#X connect 5 4 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 1 0;
+#X connect 9 0 1 0;
+#X restore 17 156 pd init;
+#X obj 17 344 s \$0-out;
+#X obj 17 295 r \$0-in;
+#X obj 261 184 vsl 15 127 0 127 0 0 empty empty Drag-----> -70 60 1
+10 -262144 -1 -1 0 1;
+#X obj 292 184 vsl 15 127 0 127 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 261 345 s \$0-in;
+#X msg 261 322 posX fix \$1;
+#N canvas 565 515 355 193 compute 0;
+#X obj 159 37 inlet;
+#X obj 159 74 metro 20;
+#X obj 159 135 s \$0-in;
+#X msg 159 104 bang \, massesPosL;
+#X connect 0 0 1 0;
+#X connect 1 0 3 0;
+#X connect 3 0 2 0;
+#X restore 17 194 pd compute;
+#X obj 17 177 tgl 15 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
+0 1;
+#X obj 261 107 r \$0-out;
+#X obj 17 139 bng 15 250 50 0 empty empty reset 25 10 1 10 -262144
+-1 -1;
+#X obj 261 131 route massesPosL;
+#X obj 311 184 vsl 15 127 0 127 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 330 184 vsl 15 127 0 127 0 0 empty empty empty 0 -8 0 8 -262144
+-1 -1 0 1;
+#X obj 261 152 unpack f f f f;
+#X text 101 388 Bang - A bang at the left inlet compute the new model
+state based on previous instant.;
+#X text 158 478 To set the model parameters after creation.;
+#X text 158 456 To create the model masses and links.;
+#X text 158 501 To get the model parameters;
+#N canvas 33 254 559 560 creation________ 0;
+#X obj 11 95 cnv 15 100 35 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 5 75 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 7 2 CREATION Messages;
+#X obj 10 156 cnv 15 150 140 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 137 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 332 cnv 15 240 220 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 3 308 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X msg 32 104 reset;
+#X text 202 167 Add a mass;
+#X text 288 168 \$1 : Id (symbol);
+#X text 287 188 \$2 : fixed or mobile (0/1);
+#X text 287 206 \$3 : mass;
+#X msg 32 167 mass \$1 \$2 \$3 \$4;
+#X msg 32 243 deleteMass \$1;
+#X text 201 245 Delete a mass and associated links;
+#X text 285 262 \$1 : Creation No of mass;
+#X text 287 224 \$4 : initial position;
+#X text 7 137 Masses :;
+#X text 7 74 Reset :;
+#X text 129 105 Delete all masses \, links and internal variables;
+#X text 6 308 Links :;
+#X text 271 360 \$1 : Id (symbol);
+#X text 271 413 \$4 : rigidity;
+#X msg 30 505 deleteLink \$1;
+#X text 264 507 Delete a link;
+#X text 268 525 \$1 : Creation No of link;
+#X text 271 360 \$1 : Id (symbol);
+#X text 271 413 \$4 : rigidity;
+#X text 271 378 \$2 : creation No/Id of mass1;
+#X text 271 396 \$3 : creation No/Id of mass2;
+#X text 266 341 Add link(s);
+#X text 268 468 (\$6) : minimum lenght of link;
+#X text 268 485 (\$7) : maximum lenght of link;
+#X text 271 431 \$5 : damping;
+#X text 10 28 Creation messages are used to define the structure of
+the model. Messages create links and masses or destroy them.;
+#X msg 30 341 link \$1 \$2 \$3 \$4 \$5 (\$6 \$7 \$8);
+#X text 271 449 \$6 : Power of the rigidity distance;
+#X restore 12 457 pd creation________;
+#X text 103 542 None;
+#X text 18 583 - Left:;
+#X text 101 584 Outputs the model parameters asked with the attributes
+messages.;
+#X obj 13 629 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 17 628 - Right:;
+#X text 100 629 Outputs information on model when creation messages
+are send or with the special message [infosL( which dump the complete
+state of the model.;
+#X text 101 420 Messages - Different messages are used to control the
+msd object. They are of three types :;
+#X text 9 701 CATEGORY: control;
+#N canvas 475 181 557 516 dynamic 0;
+#X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 85 cnv 15 130 210 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 330 cnv 15 130 180 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 3 306 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 62 Masses :;
+#X text 6 306 Links :;
+#X text 7 2 DYNAMIC SETTINGS Messages;
+#X msg 31 96 posX \$1 \$2;
+#X text 190 144 Add force on mass(es);
+#X msg 30 152 forceX \$1 \$2;
+#X text 192 212 \$1 : Value;
+#X text 193 107 \$1 : Id (symbol) or No;
+#X text 193 161 \$1 : Id (symbol) or No;
+#X msg 30 195 Xmin \$1;
+#X msg 30 217 Xmax \$1;
+#X msg 29 244 setMobile \$1;
+#X msg 29 265 setFixed \$1;
+#X text 193 89 Set position of fixed mass(es);
+#X text 193 125 \$2 : Value;
+#X text 193 179 \$2 : Value;
+#X text 189 196 Set minimimum and maximum position of all masses;
+#X text 188 244 Set mass to mobile or fixed;
+#X msg 29 394 setD \$1 \$2;
+#X text 184 380 \$2 : New value;
+#X msg 29 343 setK \$1 \$2;
+#X text 184 436 \$2 : New value;
+#X text 184 489 \$2 : New value;
+#X text 178 344 Set rigidity of link(s);
+#X text 178 400 Set damping of link(s);
+#X msg 29 449 setL \$1 \$2;
+#X text 178 453 Set initial lenght of link(s);
+#X text 184 362 \$1 : Id (symbol) or No;
+#X text 184 418 \$1 : Id (symbol) or No;
+#X text 184 471 \$1 : Id (symbol) or No;
+#X text 191 261 \$1 : Id (symbol) or No;
+#X text 10 25 Dynamic settings messages allows the user to redefine
+internal parameters of links and masses.;
+#X restore 12 478 pd dynamic settings;
+#N canvas 191 75 634 669 attributes______ 0;
+#X obj 11 95 cnv 15 100 35 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 5 75 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 158 cnv 15 150 75 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 137 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 264 cnv 15 110 330 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 240 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 74 General :;
+#X text 7 2 ATTRIBUTES Messages;
+#X text 7 137 Lists :;
+#X msg 33 104 infosL;
+#X text 136 104 Get infos on all masses and links on right outlet;
+#X msg 32 170 massesPosL;
+#X msg 32 198 massesForcesL;
+#X text 170 170 Output all masses positions in a list on outlet No
+1;
+#X text 140 280 Get specific attribute on specific element;
+#X msg 20 278 get \$1 (\$2);
+#X text 7 240 Specific :;
+#X text 140 381 The get message return the asked attribute preceded
+by an identifier and the creation No of the element. The identifier
+is made of the asked parameter and the way you asked for it.;
+#X text 141 457 message;
+#X text 381 457 response;
+#X text 140 438 Examples with 3 masses numbered 0 \, 1 and 2 and named
+mas:;
+#X text 146 547 [get massesPos mas( -----> [massesPosId 0 x0(;
+#X text 335 562 [massesPosId 2 x2(;
+#X text 335 577 [massesPosId 1 x1(;
+#X text 174 476 [get massesPos( -----> [massesPos 0 x0(;
+#X text 335 490 [massesPos 2 x2(;
+#X text 335 504 [massesPos 1 x1(;
+#X text 160 526 [get massesPos 1( -----> [massesPosNo 1 x1(;
+#X text 15 30 The attributes messages ask the object to output some
+of his internal parameters. They can be output by lists for positions
+and forces of masses.;
+#X text 170 199 Output all forces applied on masses in a list on outlet
+No 1;
+#X text 140 348 (\$2) : - If not defined all the attributes are send
+for all the elements. - Ids or/and creations No;
+#X text 140 305 \$1 : Attribute type ( massesPos / massesPosName /
+massesSpeeds / massesSpeedsName / massesForces / massesForces / linksPos
+/ linksPos );
+#X text 146 596 [get massesPosName( -----> [massesPosName name_0 x0(
+;
+#X text 336 626 [massesPosName name_1 x1(;
+#X text 336 611 [massesPosName name_2 x2(;
+#X restore 12 499 pd attributes______;
+#X text 9 711 KEYWORDS: physical model mass spring damper link;
+#X text 267 736 - Nicolas Montgermont \, May 12 \, 2005;
+#X text 111 679 01_msdtest.pd;
+#X connect 22 0 24 0;
+#X connect 25 0 22 0;
+#X connect 26 0 29 0;
+#X connect 29 0 28 0;
+#X connect 31 0 30 0;
+#X connect 32 0 34 0;
+#X connect 33 0 23 0;
+#X connect 34 0 37 0;
+#X connect 37 0 26 0;
+#X connect 37 1 27 0;
+#X connect 37 2 35 0;
+#X connect 37 3 36 0;
diff --git a/msd/msd/package.txt b/msd/msd/package.txt
new file mode 100644
index 0000000..c564a23
--- /dev/null
+++ b/msd/msd/package.txt
@@ -0,0 +1,4 @@
+NAME=msd
+SRCS=main.cpp
+HDRS=../msd.h
+
diff --git a/msd/msd2D/01_msd2Dtest.pd b/msd/msd2D/01_msd2Dtest.pd
new file mode 100644
index 0000000..fe68b84
--- /dev/null
+++ b/msd/msd2D/01_msd2Dtest.pd
@@ -0,0 +1,168 @@
+#N canvas 520 22 626 507 10;
+#X obj 27 26 loadbang;
+#X obj 127 419 print msd;
+#X obj 369 155 gemwin;
+#X msg 384 132 0 \, destroy;
+#X text 260 26 2 DRAG THE STRUCTURE WITH THE MOUSE;
+#X obj 87 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 90 76 reset;
+#X obj 27 47 t b b b b b;
+#X msg 42 186 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
+#X obj 53 300 gemhead;
+#X obj 53 323 t b;
+#X msg 53 345 bang \, get massesPos \, get linksPos;
+#N canvas 643 123 609 594 massrender 0;
+#X obj 127 22 inlet;
+#X obj 48 203 translateXYZ;
+#X obj 127 86 / 12.5;
+#X obj 127 109 - 4;
+#X obj 192 87 / 12.5;
+#X obj 192 110 - 4;
+#X obj 48 177 separator;
+#X obj 125 136 t b f;
+#X obj 127 57 unpack f f f;
+#X obj 48 141 gemhead 45;
+#X msg 48 104 0;
+#X obj 47 58 loadbang;
+#X obj 48 229 circle 0.1;
+#X connect 0 0 8 0;
+#X connect 1 0 12 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 2;
+#X connect 6 0 1 0;
+#X connect 7 0 9 0;
+#X connect 7 1 1 1;
+#X connect 8 1 2 0;
+#X connect 8 2 4 0;
+#X connect 9 0 6 0;
+#X connect 10 0 9 0;
+#X connect 11 0 10 0;
+#X restore 436 267 pd massrender;
+#X obj 366 244 route linksPos massesPos;
+#N canvas 731 296 458 308 gemmouse 0;
+#X obj 189 77 gemmouse;
+#X obj 189 184 pack f f;
+#X obj 189 218 spigot;
+#X obj 103 244 outlet;
+#X obj 189 131 - 0;
+#X obj 216 131 + 100;
+#X obj 189 108 / 5;
+#X obj 216 108 / -5;
+#X obj 79 51 inlet;
+#X obj 109 98 t b;
+#X obj 141 120 list;
+#X obj 141 41 r mouse_init;
+#X connect 0 0 6 0;
+#X connect 0 1 7 0;
+#X connect 0 2 2 1;
+#X connect 1 0 2 0;
+#X connect 2 0 10 1;
+#X connect 4 0 1 0;
+#X connect 5 0 1 1;
+#X connect 6 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 3 0;
+#X connect 11 0 10 1;
+#X restore 366 356 pd gemmouse;
+#X obj 366 335 gemhead;
+#X msg 366 377 posX fix \$1;
+#X msg 366 398 posY fix \$2;
+#N canvas 0 22 454 304 linkrender 0;
+#X obj 127 22 inlet;
+#X obj 127 86 / 12.5;
+#X obj 127 109 - 4;
+#X obj 187 87 / 12.5;
+#X obj 187 110 - 4;
+#X obj 48 177 separator;
+#X obj 125 136 t b f;
+#X obj 241 86 / 12.5;
+#X obj 241 109 - 4;
+#X obj 308 87 / 12.5;
+#X obj 308 110 - 4;
+#X obj 48 222 curve 2;
+#X obj 155 189 pack f f 0;
+#X obj 241 190 pack f f 0;
+#X obj 127 57 unpack f f f f f;
+#X obj 46 130 gemhead 45;
+#X obj 45 44 loadbang;
+#X msg 45 68 0;
+#X connect 0 0 14 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 4 0 12 1;
+#X connect 5 0 11 0;
+#X connect 6 0 15 0;
+#X connect 6 1 12 0;
+#X connect 7 0 8 0;
+#X connect 8 0 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 1;
+#X connect 12 0 11 1;
+#X connect 13 0 11 2;
+#X connect 14 1 1 0;
+#X connect 14 2 3 0;
+#X connect 14 3 7 0;
+#X connect 14 4 9 0;
+#X connect 15 0 5 0;
+#X connect 16 0 17 0;
+#X connect 17 0 15 0;
+#X restore 366 289 pd linkrender;
+#X msg 194 139 50 50;
+#X msg 74 96 mass fix 0 100 50 50;
+#X msg 58 139 mass mob 1 100 \$1 \$2;
+#X msg 58 118 40 60 \, 60 60 \, 60 40 \, 40 40;
+#X obj 194 162 s mouse_init;
+#X msg 27 207 link souple mob mob 10 5;
+#X msg 27 230 link souple fix mob 10 5;
+#X text 25 1 creation : 5 masses and 20 links;
+#X text 52 281 compute and get masses and links positions;
+#X obj 53 397 msd2D;
+#X text 364 315 move mass to mouse position;
+#X text 365 197 display masses with gem;
+#X msg 369 109 reset \, create \, 1;
+#X text 261 6 1 CREATE WINDOW;
+#X text 108 26 reset struct;
+#X obj 90 259 s \$0-msdin;
+#X obj 84 373 r \$0-msdin;
+#X obj 52 419 s \$0-msdout;
+#X obj 365 423 s \$0-msdin;
+#X obj 366 218 r \$0-msdout;
+#X connect 0 0 7 0;
+#X connect 3 0 2 0;
+#X connect 5 0 7 0;
+#X connect 6 0 34 0;
+#X connect 7 0 24 0;
+#X connect 7 1 19 0;
+#X connect 7 1 8 0;
+#X connect 7 2 22 0;
+#X connect 7 3 20 0;
+#X connect 7 4 6 0;
+#X connect 8 0 34 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 28 0;
+#X connect 13 0 18 0;
+#X connect 13 1 12 0;
+#X connect 14 0 16 0;
+#X connect 14 0 17 0;
+#X connect 15 0 14 0;
+#X connect 16 0 37 0;
+#X connect 17 0 37 0;
+#X connect 19 0 23 0;
+#X connect 20 0 34 0;
+#X connect 21 0 34 0;
+#X connect 22 0 21 0;
+#X connect 24 0 25 0;
+#X connect 24 0 34 0;
+#X connect 25 0 34 0;
+#X connect 28 0 36 0;
+#X connect 28 1 1 0;
+#X connect 31 0 2 0;
+#X connect 35 0 28 0;
+#X connect 38 0 13 0;
diff --git a/msd/msd2D/02_msd2Dadd.pd b/msd/msd2D/02_msd2Dadd.pd
new file mode 100644
index 0000000..8dbc071
--- /dev/null
+++ b/msd/msd2D/02_msd2Dadd.pd
@@ -0,0 +1,463 @@
+#N canvas 572 22 686 162 10;
+#X obj 22 16 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 177 95 954 737 synthese 0;
+#X msg -35 254 \$1 50;
+#X obj -35 276 line~;
+#X obj -75 280 *~;
+#X msg 60 254 \$1 50;
+#X obj 60 276 line~;
+#X obj 20 280 *~;
+#X msg 153 256 \$1 50;
+#X obj 153 278 line~;
+#X obj 113 282 *~;
+#X msg 245 254 \$1 50;
+#X obj 245 276 line~;
+#X obj 205 280 *~;
+#X obj 62 328 dac~;
+#X msg 346 257 \$1 50;
+#X obj 346 279 line~;
+#X obj 306 283 *~;
+#X msg 441 257 \$1 50;
+#X obj 441 279 line~;
+#X obj 401 283 *~;
+#X msg 534 259 \$1 50;
+#X obj 534 281 line~;
+#X obj 494 285 *~;
+#X msg 626 257 \$1 50;
+#X obj 626 279 line~;
+#X obj 586 283 *~;
+#X obj 443 331 dac~;
+#X obj -77 224 osc~ 55;
+#X obj 19 224 osc~ 110;
+#X obj 204 225 osc~ 222;
+#X obj -13 158 unpack f f;
+#X obj 176 164 unpack f f;
+#X obj 362 161 unpack f f;
+#X obj 553 168 unpack f f;
+#X msg -45 458 \$1 50;
+#X obj -45 480 line~;
+#X obj -85 484 *~;
+#X msg 50 458 \$1 50;
+#X obj 50 480 line~;
+#X obj 10 484 *~;
+#X msg 143 460 \$1 50;
+#X obj 143 482 line~;
+#X obj 103 486 *~;
+#X msg 235 458 \$1 50;
+#X obj 235 480 line~;
+#X obj 195 484 *~;
+#X obj 52 532 dac~;
+#X msg 336 461 \$1 50;
+#X obj 336 483 line~;
+#X obj 296 487 *~;
+#X msg 431 461 \$1 50;
+#X obj 431 483 line~;
+#X obj 391 487 *~;
+#X msg 524 463 \$1 50;
+#X obj 524 485 line~;
+#X obj 484 489 *~;
+#X msg 616 461 \$1 50;
+#X obj 616 483 line~;
+#X obj 576 487 *~;
+#X obj 433 535 dac~;
+#X obj 483 433 osc~ 1113;
+#X obj 575 431 osc~ 2229;
+#X obj -15 373 unpack f f;
+#X obj 166 368 unpack f f;
+#X obj 352 365 unpack f f;
+#X obj 543 372 unpack f f;
+#X obj 112 226 osc~ 165;
+#X obj 305 227 osc~ 267;
+#X obj 400 227 osc~ 311;
+#X obj 268 74 route 1 5 9 13 17 21 25 29;
+#X obj 493 229 osc~ 366;
+#X obj 585 227 osc~ 421;
+#X obj -87 428 osc~ 444;
+#X obj 9 428 osc~ 554;
+#X obj 102 430 osc~ 664;
+#X obj 194 428 osc~ 776;
+#X obj 295 431 osc~ 888;
+#X obj 390 431 osc~ 1000;
+#X obj -75 398 / 20;
+#X obj 52 404 / 20;
+#X obj 144 406 / 20;
+#X obj 240 404 / 50;
+#X obj 307 401 / 50;
+#X obj 434 407 / 50;
+#X obj 524 409 / 100;
+#X obj 621 407 / 100;
+#X obj 631 203 / 100;
+#X obj 532 206 / 100;
+#X obj 444 204 / 50;
+#X obj 317 197 / 50;
+#X obj 250 200 / 50;
+#X obj 153 202 / 20;
+#X obj 61 201 / 20;
+#X obj -64 194 / 20;
+#X obj 268 49 route massesSpeedsNo;
+#X obj 268 27 r \$0-msdout;
+#X connect 0 0 1 0;
+#X connect 1 0 2 1;
+#X connect 2 0 12 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 1;
+#X connect 5 0 12 0;
+#X connect 5 0 12 1;
+#X connect 6 0 7 0;
+#X connect 7 0 8 1;
+#X connect 8 0 12 0;
+#X connect 8 0 12 1;
+#X connect 9 0 10 0;
+#X connect 10 0 11 1;
+#X connect 11 0 12 1;
+#X connect 13 0 14 0;
+#X connect 14 0 15 1;
+#X connect 15 0 25 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 1;
+#X connect 18 0 25 0;
+#X connect 18 0 25 1;
+#X connect 19 0 20 0;
+#X connect 20 0 21 1;
+#X connect 21 0 25 0;
+#X connect 21 0 25 1;
+#X connect 22 0 23 0;
+#X connect 23 0 24 1;
+#X connect 24 0 25 1;
+#X connect 26 0 2 0;
+#X connect 27 0 5 0;
+#X connect 28 0 11 0;
+#X connect 29 0 92 0;
+#X connect 29 1 91 0;
+#X connect 30 0 90 0;
+#X connect 30 1 89 0;
+#X connect 31 0 88 0;
+#X connect 31 1 87 0;
+#X connect 32 0 86 0;
+#X connect 32 1 85 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 1;
+#X connect 35 0 45 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 1;
+#X connect 38 0 45 0;
+#X connect 38 0 45 1;
+#X connect 39 0 40 0;
+#X connect 40 0 41 1;
+#X connect 41 0 45 0;
+#X connect 41 0 45 1;
+#X connect 42 0 43 0;
+#X connect 43 0 44 1;
+#X connect 44 0 45 1;
+#X connect 46 0 47 0;
+#X connect 47 0 48 1;
+#X connect 48 0 58 0;
+#X connect 49 0 50 0;
+#X connect 50 0 51 1;
+#X connect 51 0 58 0;
+#X connect 51 0 58 1;
+#X connect 52 0 53 0;
+#X connect 53 0 54 1;
+#X connect 54 0 58 0;
+#X connect 54 0 58 1;
+#X connect 55 0 56 0;
+#X connect 56 0 57 1;
+#X connect 57 0 58 1;
+#X connect 59 0 54 0;
+#X connect 60 0 57 0;
+#X connect 61 0 77 0;
+#X connect 61 1 78 0;
+#X connect 62 0 79 0;
+#X connect 62 1 80 0;
+#X connect 63 0 81 0;
+#X connect 63 1 82 0;
+#X connect 64 0 83 0;
+#X connect 64 1 84 0;
+#X connect 65 0 8 0;
+#X connect 66 0 15 0;
+#X connect 67 0 18 0;
+#X connect 68 0 29 0;
+#X connect 68 1 30 0;
+#X connect 68 2 31 0;
+#X connect 68 3 32 0;
+#X connect 68 4 61 0;
+#X connect 68 5 62 0;
+#X connect 68 6 63 0;
+#X connect 68 7 64 0;
+#X connect 69 0 21 0;
+#X connect 70 0 24 0;
+#X connect 71 0 35 0;
+#X connect 72 0 38 0;
+#X connect 73 0 41 0;
+#X connect 74 0 44 0;
+#X connect 75 0 48 0;
+#X connect 76 0 51 0;
+#X connect 77 0 33 0;
+#X connect 78 0 36 0;
+#X connect 79 0 39 0;
+#X connect 80 0 42 0;
+#X connect 81 0 46 0;
+#X connect 82 0 49 0;
+#X connect 83 0 52 0;
+#X connect 84 0 55 0;
+#X connect 85 0 22 0;
+#X connect 86 0 19 0;
+#X connect 87 0 16 0;
+#X connect 88 0 13 0;
+#X connect 89 0 9 0;
+#X connect 90 0 6 0;
+#X connect 91 0 3 0;
+#X connect 92 0 0 0;
+#X connect 93 0 68 0;
+#X connect 94 0 93 0;
+#X restore 23 107 pd synthese;
+#X text 40 16 Reset;
+#N canvas 0 22 450 300 structure_creation 0;
+#X msg 195 86 reset;
+#X obj 52 15 loadbang;
+#X msg 156 145 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
+#X text 238 112 Random positions and masses;
+#N canvas 557 309 487 357 masses 0;
+#X msg 245 215 mass mob 1 \$1 \$2 \$3;
+#X obj 417 165 random 100;
+#X msg 417 145 seed 1;
+#X obj 342 165 random 100;
+#X obj 239 146 random 100;
+#X msg 342 144 seed 2;
+#X msg 239 126 seed 3;
+#X obj 239 166 + 100;
+#X obj 245 194 pack f f f;
+#X obj 42 14 inlet;
+#X obj 246 283 outlet;
+#X obj 268 47 loadbang;
+#X text 284 101 M;
+#X text 356 106 X;
+#X text 437 106 Y;
+#X obj 223 68 t b b;
+#X obj 42 45 until;
+#X obj 42 78 f;
+#X obj 72 78 + 1;
+#X obj 72 100 mod 30;
+#X obj 90 45 sel 0;
+#X connect 0 0 10 0;
+#X connect 1 0 8 2;
+#X connect 2 0 1 0;
+#X connect 3 0 8 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 6 0 4 0;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 9 0 16 0;
+#X connect 11 0 6 0;
+#X connect 11 0 5 0;
+#X connect 11 0 2 0;
+#X connect 15 0 4 0;
+#X connect 15 1 3 0;
+#X connect 15 1 1 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 17 0 15 0;
+#X connect 18 0 19 0;
+#X connect 19 0 17 1;
+#X connect 19 0 20 0;
+#X connect 20 0 16 1;
+#X restore 175 113 pd masses;
+#N canvas 0 22 450 300 links 0;
+#X obj 136 72 t b;
+#X obj 136 116 + 1;
+#X obj 130 191 f;
+#X obj 92 171 t f b;
+#X obj 91 211 pack f f;
+#X msg 91 233 link souple \$1 \$2 10 0.5;
+#X obj 136 23 inlet;
+#X obj 91 260 outlet;
+#X obj 136 48 until;
+#X obj 202 112 sel 0;
+#X obj 184 154 mod 29;
+#X obj 136 93 f 0;
+#X connect 0 0 11 0;
+#X connect 1 0 10 0;
+#X connect 1 0 2 1;
+#X connect 2 0 4 1;
+#X connect 3 0 4 0;
+#X connect 3 1 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 8 0 0 0;
+#X connect 9 0 8 1;
+#X connect 10 0 9 0;
+#X connect 10 0 11 1;
+#X connect 11 0 1 0;
+#X connect 11 0 3 0;
+#X restore 137 176 pd links;
+#X obj 137 62 t b b b b;
+#X obj 137 15 inlet;
+#X obj 137 211 s \$0-msdin;
+#X connect 0 0 8 0;
+#X connect 1 0 6 0;
+#X connect 2 0 8 0;
+#X connect 4 0 8 0;
+#X connect 5 0 8 0;
+#X connect 6 0 5 0;
+#X connect 6 1 2 0;
+#X connect 6 2 4 0;
+#X connect 6 3 0 0;
+#X connect 7 0 6 0;
+#X restore 22 39 pd structure_creation;
+#N canvas 0 22 763 327 gem_stuff 0;
+#X msg 137 179 0 \, destroy;
+#X obj 118 200 gemwin;
+#X obj 118 104 inlet;
+#X obj 118 129 sel 1 0;
+#X msg 118 156 reset \, create \, 1;
+#X obj 274 105 gemhead;
+#N canvas 311 224 413 534 gemmouse2 0;
+#X obj 114 29 gemmouse;
+#X obj 96 266 outlet;
+#X obj 114 83 - 0;
+#X obj 165 97 + 100;
+#X obj 114 60 / 5;
+#X obj 165 74 / -5;
+#X obj 32 81 t b;
+#X obj 32 37 inlet;
+#X obj 96 177 f;
+#X obj 96 206 pack 0 0 0;
+#X connect 0 0 4 0;
+#X connect 0 1 5 0;
+#X connect 0 2 9 2;
+#X connect 2 0 8 1;
+#X connect 3 0 9 1;
+#X connect 4 0 2 0;
+#X connect 5 0 3 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 9 0;
+#X connect 9 0 1 0;
+#X restore 274 127 pd gemmouse2;
+#X msg 274 150 grabMass \$1 \$2 \$3;
+#N canvas 643 123 617 602 massrender 0;
+#X obj 127 22 inlet;
+#X obj 62 267 translateXYZ;
+#X obj 166 123 / 12.5;
+#X obj 166 146 - 4;
+#X obj 231 124 / 12.5;
+#X obj 231 147 - 4;
+#X obj 62 241 separator;
+#X obj 127 57 unpack f f f;
+#X msg 128 194 \$1;
+#X obj 62 219 colorRGB 1 1 1;
+#X obj 128 174 / 29;
+#X obj 127 85 t b f;
+#X obj 62 135 gemhead 45;
+#X obj 62 63 loadbang;
+#X msg 62 93 0;
+#X obj 62 314 circle 0.1;
+#X connect 0 0 7 0;
+#X connect 1 0 15 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 1;
+#X connect 4 0 5 0;
+#X connect 5 0 1 2;
+#X connect 6 0 1 0;
+#X connect 7 0 11 0;
+#X connect 7 1 2 0;
+#X connect 7 2 4 0;
+#X connect 8 0 9 2;
+#X connect 8 0 9 3;
+#X connect 9 0 6 0;
+#X connect 10 0 8 0;
+#X connect 11 0 12 0;
+#X connect 11 1 10 0;
+#X connect 12 0 9 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X restore 502 153 pd massrender;
+#N canvas 284 227 595 566 linkrender 0;
+#X obj 261 87 inlet;
+#X obj 261 179 / 12.5;
+#X obj 261 202 - 4;
+#X obj 315 180 / 12.5;
+#X obj 315 203 - 4;
+#X obj 189 288 separator;
+#X obj 261 226 t b f;
+#X obj 189 331 curve 2;
+#X obj 375 183 / 12.5;
+#X obj 375 206 - 4;
+#X obj 429 184 / 12.5;
+#X obj 429 207 - 4;
+#X obj 291 256 pack f f;
+#X msg 291 279 \$1 \$2 0;
+#X obj 375 255 pack f f;
+#X msg 375 278 \$1 \$2 0;
+#X obj 261 131 unpack f f f f f;
+#X obj 189 310 colorRGB 1 1 1;
+#X obj 189 262 gemhead 45;
+#X obj 189 180 loadbang;
+#X msg 189 229 0;
+#X connect 0 0 16 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 4 0 12 1;
+#X connect 5 0 17 0;
+#X connect 6 0 18 0;
+#X connect 6 1 12 0;
+#X connect 8 0 9 0;
+#X connect 9 0 14 0;
+#X connect 10 0 11 0;
+#X connect 11 0 14 1;
+#X connect 12 0 13 0;
+#X connect 13 0 7 1;
+#X connect 14 0 15 0;
+#X connect 15 0 7 2;
+#X connect 16 1 1 0;
+#X connect 16 2 3 0;
+#X connect 16 3 8 0;
+#X connect 16 4 10 0;
+#X connect 17 0 7 0;
+#X connect 18 0 5 0;
+#X connect 19 0 20 0;
+#X connect 20 0 18 0;
+#X restore 432 174 pd linkrender;
+#X obj 432 124 route linksPos massesPos;
+#X obj 273 174 s \$0-msdin;
+#X obj 432 101 r \$0-msdout;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 0 0;
+#X connect 4 0 1 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 11 0;
+#X connect 10 0 9 0;
+#X connect 10 1 8 0;
+#X connect 12 0 10 0;
+#X restore 23 86 pd gem_stuff;
+#X obj 23 64 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 43 63 gem on/off;
+#X text 196 54 1 Create window;
+#X text 196 74 2 Set dsp on;
+#N canvas 0 22 450 300 compute 0;
+#X obj 110 186 print msd;
+#X obj 52 69 gemhead;
+#X msg 52 96 bang \, get massesPos \, get linksPos \, get massesSpeeds
+1 5 9 13 17 21 25 29;
+#X obj 52 162 msd2D;
+#X obj 67 133 r \$0-msdin;
+#X obj 52 186 s \$0-msdout;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 3 1 0 0;
+#X connect 4 0 3 0;
+#X restore 23 129 pd compute;
+#X text 196 94 Drag red masses for bass and white ones for high tones...
+;
+#X text 196 17 Additive synthesis example;
+#X connect 0 0 3 0;
+#X connect 5 0 4 0;
diff --git a/msd/msd2D/03_imsd2Dtest.pd b/msd/msd2D/03_imsd2Dtest.pd
new file mode 100644
index 0000000..a5ec27f
--- /dev/null
+++ b/msd/msd2D/03_imsd2Dtest.pd
@@ -0,0 +1,156 @@
+#N canvas 568 230 687 149 10;
+#X obj 23 17 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 43 16 reset;
+#N canvas 0 22 763 327 gem_stuff 0;
+#X msg 137 179 0 \, destroy;
+#X obj 118 200 gemwin;
+#X obj 118 104 inlet;
+#X obj 118 129 sel 1 0;
+#X msg 118 156 reset \, create \, 1;
+#N canvas 284 227 591 562 linkrender 0;
+#X obj 150 9 inlet;
+#X obj 150 101 / 12.5;
+#X obj 150 124 - 4;
+#X obj 204 102 / 12.5;
+#X obj 204 125 - 4;
+#X obj 67 265 separator;
+#X obj 150 148 t b f;
+#X obj 67 308 curve 2;
+#X obj 264 105 / 12.5;
+#X obj 264 128 - 4;
+#X obj 318 106 / 12.5;
+#X obj 318 129 - 4;
+#X obj 180 178 pack f f;
+#X msg 180 201 \$1 \$2 0;
+#X obj 264 177 pack f f;
+#X msg 264 200 \$1 \$2 0;
+#X obj 150 53 unpack f f f f f;
+#X obj 67 224 gemhead 45;
+#X obj 67 116 loadbang;
+#X msg 67 174 0;
+#X connect 0 0 16 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 4 0 12 1;
+#X connect 5 0 7 0;
+#X connect 6 0 17 0;
+#X connect 6 1 12 0;
+#X connect 8 0 9 0;
+#X connect 9 0 14 0;
+#X connect 10 0 11 0;
+#X connect 11 0 14 1;
+#X connect 12 0 13 0;
+#X connect 13 0 7 1;
+#X connect 14 0 15 0;
+#X connect 15 0 7 2;
+#X connect 16 1 1 0;
+#X connect 16 2 3 0;
+#X connect 16 3 8 0;
+#X connect 16 4 10 0;
+#X connect 17 0 5 0;
+#X connect 18 0 19 0;
+#X connect 19 0 17 0;
+#X restore 262 171 pd linkrender;
+#X obj 262 133 route linksPos;
+#X obj 262 110 r \$0-msdout;
+#N canvas 731 296 454 304 gemmouse 0;
+#X obj 189 77 gemmouse;
+#X obj 189 184 pack f f;
+#X obj 189 218 spigot;
+#X obj 103 244 outlet;
+#X obj 189 131 - 0;
+#X obj 216 131 + 100;
+#X obj 189 108 / 5;
+#X obj 216 108 / -5;
+#X obj 79 51 inlet;
+#X obj 109 98 t b;
+#X obj 108 139 list;
+#X obj 141 42 r mouse_init;
+#X connect 0 0 6 0;
+#X connect 0 1 7 0;
+#X connect 0 2 2 1;
+#X connect 1 0 2 0;
+#X connect 2 0 10 1;
+#X connect 4 0 1 0;
+#X connect 5 0 1 1;
+#X connect 6 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 3 0;
+#X connect 11 0 10 1;
+#X restore 404 127 pd gemmouse;
+#X obj 404 106 gemhead;
+#X msg 405 147 posX fix \$1;
+#X msg 406 168 posY fix \$2;
+#X obj 405 194 s \$0-msdin;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 0 0;
+#X connect 4 0 1 0;
+#X connect 6 0 5 0;
+#X connect 7 0 6 0;
+#X connect 8 0 10 0;
+#X connect 8 0 11 0;
+#X connect 9 0 8 0;
+#X connect 10 0 12 0;
+#X connect 11 0 12 0;
+#X restore 23 86 pd gem_stuff;
+#X obj 23 64 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X text 43 63 gem on/off;
+#N canvas 487 334 635 333 creation 0;
+#X obj 52 15 loadbang;
+#X msg 221 71 reset;
+#X msg 153 170 50 50;
+#X msg 203 91 mass fix 0 100 50 50;
+#X msg 169 192 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
+#X msg 186 150 mass mob 1 100 \$1 \$2;
+#X obj 135 42 t b b b b b b;
+#X msg 186 116 20 50 \, 23 61 \, 29 71 \, 39 77 \, 50 80 \, 61 77 \,
+71 71 \, 77 61 \, 80 50 \, 77 39 \, 71 29 \, 61 23 \, 50 20 \, 39 23
+\, 29 29 \, 23 39;
+#X msg 144 211 link intf mob 0 10 2.5;
+#X msg 135 234 link inter mob mob 1 2.5;
+#X obj 192 270 s mouse_init;
+#X obj 135 261 s \$0-msdin;
+#X obj 239 25 inlet;
+#X text 303 226 all links are created with these two messages;
+#X connect 0 0 6 0;
+#X connect 1 0 11 0;
+#X connect 2 0 10 0;
+#X connect 3 0 11 0;
+#X connect 4 0 11 0;
+#X connect 5 0 11 0;
+#X connect 6 0 9 0;
+#X connect 6 1 8 0;
+#X connect 6 2 2 0;
+#X connect 6 2 4 0;
+#X connect 6 3 7 0;
+#X connect 6 4 3 0;
+#X connect 6 5 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 11 0;
+#X connect 9 0 11 0;
+#X connect 12 0 6 0;
+#X restore 23 40 pd creation;
+#N canvas 0 22 450 300 compute 0;
+#X obj 53 100 gemhead;
+#X obj 53 123 t b;
+#X msg 53 145 bang \, get linksPos;
+#X obj 53 224 s \$0-msdout;
+#X obj 63 174 r \$0-msdin;
+#X obj 53 198 msd2D;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 5 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X restore 23 111 pd compute;
+#X text 164 54 create window;
+#X text 164 69 and drag the structure with the mouse;
+#X connect 0 0 5 0;
+#X connect 3 0 2 0;
diff --git a/msd/msd2D/04_msd2Dperf.pd b/msd/msd2D/04_msd2Dperf.pd
new file mode 100644
index 0000000..d264d8f
--- /dev/null
+++ b/msd/msd2D/04_msd2Dperf.pd
@@ -0,0 +1,213 @@
+#N canvas 521 54 428 182 10;
+#X msg 144 71 forceX mob 100;
+#X msg 144 94 forceX mob -100;
+#X text 141 13 change number of mass to test performance;
+#X text 141 26 (and reset afterwards);
+#X obj 81 19 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
+-1 -1 125.925 256;
+#X obj 18 18 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 38 16 reset;
+#N canvas 487 334 635 333 creation 0;
+#X msg 239 84 reset;
+#X obj 167 55 t b b b b b;
+#X obj 441 55 f;
+#X msg 221 104 mass fix 0 100 0 0;
+#N canvas 0 22 450 300 links 0;
+#X obj 136 72 t b;
+#X obj 136 116 + 1;
+#X obj 130 191 f;
+#X obj 92 171 t f b;
+#X obj 91 211 pack f f;
+#X msg 91 233 link souple \$1 \$2 10 0.5;
+#X obj 136 23 inlet;
+#X obj 91 260 outlet;
+#X obj 136 48 until;
+#X obj 202 112 sel 0;
+#X obj 184 154 mod 29;
+#X obj 136 93 f 0;
+#X obj 311 32 inlet;
+#X connect 0 0 11 0;
+#X connect 1 0 10 0;
+#X connect 1 0 2 1;
+#X connect 2 0 4 1;
+#X connect 3 0 4 0;
+#X connect 3 1 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 8 0 0 0;
+#X connect 9 0 8 1;
+#X connect 10 0 9 0;
+#X connect 10 0 11 1;
+#X connect 11 0 1 0;
+#X connect 11 0 3 0;
+#X connect 12 0 10 1;
+#X restore 167 194 pd links;
+#N canvas 557 309 487 357 masses 0;
+#X msg 211 239 mass mob 1 \$1 \$2 \$3;
+#X msg 417 145 seed 1;
+#X msg 342 144 seed 2;
+#X msg 239 126 seed 3;
+#X obj 211 218 pack f f f;
+#X obj 42 14 inlet;
+#X obj 212 307 outlet;
+#X obj 268 47 loadbang;
+#X text 284 101 M;
+#X text 356 106 X;
+#X text 437 106 Y;
+#X obj 223 68 t b b;
+#X obj 42 45 until;
+#X obj 42 78 f;
+#X obj 72 78 + 1;
+#X obj 72 100 mod 30;
+#X obj 90 45 sel 0;
+#X obj 164 15 inlet;
+#X obj 342 165 random 800;
+#X obj 418 165 random 800;
+#X obj 239 146 random 800;
+#X obj 342 186 / 100;
+#X obj 339 206 - 4;
+#X obj 407 193 / 100;
+#X obj 404 213 - 4;
+#X obj 239 166 + 800;
+#X obj 235 186 / 8;
+#X connect 0 0 6 0;
+#X connect 1 0 19 0;
+#X connect 2 0 18 0;
+#X connect 3 0 20 0;
+#X connect 4 0 0 0;
+#X connect 5 0 12 0;
+#X connect 7 0 3 0;
+#X connect 7 0 2 0;
+#X connect 7 0 1 0;
+#X connect 11 0 20 0;
+#X connect 11 1 18 0;
+#X connect 11 1 19 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 13 0 11 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 1;
+#X connect 15 0 16 0;
+#X connect 16 0 12 1;
+#X connect 17 0 15 1;
+#X connect 18 0 21 0;
+#X connect 19 0 23 0;
+#X connect 20 0 25 0;
+#X connect 21 0 22 0;
+#X connect 22 0 4 1;
+#X connect 23 0 24 0;
+#X connect 24 0 4 2;
+#X connect 25 0 26 0;
+#X connect 26 0 4 0;
+#X restore 203 129 pd masses;
+#X msg 185 155 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
+#X obj 166 29 inlet;
+#X obj 205 30 loadbang;
+#X obj 441 33 inlet;
+#X obj 167 221 s \$0-msdin;
+#X connect 0 0 10 0;
+#X connect 1 0 4 0;
+#X connect 1 1 6 0;
+#X connect 1 2 5 0;
+#X connect 1 3 3 0;
+#X connect 1 4 0 0;
+#X connect 2 0 4 1;
+#X connect 2 0 5 1;
+#X connect 3 0 10 0;
+#X connect 4 0 10 0;
+#X connect 5 0 10 0;
+#X connect 6 0 10 0;
+#X connect 7 0 1 0;
+#X connect 8 0 1 0;
+#X connect 9 0 2 0;
+#X restore 18 41 pd creation;
+#N canvas 0 22 450 300 gem 0;
+#X msg 30 99 0 \, destroy;
+#X msg 30 76 reset \, create \, lighting 1 \, 1;
+#X obj 30 148 gemwin;
+#X obj 32 25 inlet;
+#X obj 32 53 sel 1 0;
+#X obj 241 50 gemhead;
+#X obj 241 73 world_light;
+#X connect 0 0 2 0;
+#X connect 1 0 2 0;
+#X connect 3 0 4 0;
+#X connect 4 0 1 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X restore 18 91 pd gem;
+#X obj 18 68 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X text 38 66 gem on/off;
+#N canvas 0 22 450 300 compute 0;
+#N canvas 643 123 311 308 massrender 0;
+#X obj 24 196 translateXYZ;
+#X obj 24 170 separator;
+#X obj 24 144 gemhead 45;
+#X obj 103 17 inlet;
+#X obj 103 55 unpack f f f;
+#X obj 109 83 t b f;
+#X obj 24 56 loadbang;
+#X msg 24 80 0;
+#X obj 24 222 sphere 0.1;
+#X connect 0 0 8 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 1 5 0;
+#X connect 4 2 0 2;
+#X connect 5 0 2 0;
+#X connect 5 1 0 1;
+#X connect 6 0 7 0;
+#X connect 7 0 2 0;
+#X restore 133 205 pd massrender;
+#N canvas 284 227 394 269 linkrender 0;
+#X obj 121 20 inlet;
+#X obj 57 175 separator;
+#X obj 57 220 curve 2;
+#X obj 43 130 gemhead 45;
+#X msg 213 69 \$4 \$5 0;
+#X msg 141 65 \$2 \$3 0;
+#X obj 140 94 t b a;
+#X obj 44 46 loadbang;
+#X msg 44 75 0;
+#X connect 0 0 4 0;
+#X connect 0 0 5 0;
+#X connect 1 0 2 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 2;
+#X connect 5 0 6 0;
+#X connect 6 0 3 0;
+#X connect 6 1 2 1;
+#X connect 7 0 8 0;
+#X connect 8 0 3 0;
+#X restore 52 256 pd linkrender;
+#X obj 52 28 gemhead;
+#X msg 52 85 bang \, get massesPos \, get linksPos;
+#X obj 52 176 route linksPos massesPos;
+#X obj 82 127 r \$0-msdin;
+#X obj 52 153 msd2D;
+#X obj 85 198 inlet;
+#X obj 52 227 spigot;
+#X connect 2 0 3 0;
+#X connect 3 0 6 0;
+#X connect 4 0 8 0;
+#X connect 4 1 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 7 0 8 1;
+#X connect 8 0 1 0;
+#X restore 19 137 pd compute;
+#X obj 144 118 s \$0-msdin;
+#X text 260 80 click to move;
+#X obj 19 115 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X text 39 114 display links;
+#X connect 0 0 12 0;
+#X connect 1 0 12 0;
+#X connect 4 0 7 1;
+#X connect 5 0 7 0;
+#X connect 9 0 8 0;
+#X connect 14 0 11 0;
diff --git a/msd/msd2D/05_msd2DDataStruct.pd b/msd/msd2D/05_msd2DDataStruct.pd
new file mode 100644
index 0000000..9f74841
--- /dev/null
+++ b/msd/msd2D/05_msd2DDataStruct.pd
@@ -0,0 +1,117 @@
+#N struct liaison float x1 float y1 float x2 float y2 float mid1 float
+mid2 float lid;
+#N struct mass float x float y float mid float mob;
+#N struct fixmass float x float y float mid;
+#N canvas 241 22 630 524 10;
+#X obj 15 58 structures;
+#X obj 16 96 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 16 153 forceY mob 8;
+#X obj 16 125 metro 10;
+#N canvas 0 22 307 306 \$0-anim 0;
+#X scalar liaison 90.3805 300 139.692 181.359 0 0 0 \;;
+#X scalar liaison 89.4172 189.783 104.878 200.197 0 0 0 \;;
+#X scalar liaison 89.4172 189.783 139.692 181.359 0 0 0 \;;
+#X scalar liaison 145.861 231.953 90.3805 300 0 0 0 \;;
+#X scalar liaison 81.2748 184.111 102.254 162.589 0 0 0 \;;
+#X scalar liaison 89.4172 189.783 52.423 226.527 0 0 0 \;;
+#X scalar liaison 156.503 300 89.4172 189.783 0 0 0 \;;
+#X scalar liaison 104.878 200.197 121.885 186.762 0 0 0 \;;
+#X scalar liaison 145.861 231.953 89.4172 189.783 0 0 0 \;;
+#X scalar liaison 156.503 300 145.861 231.953 0 0 0 \;;
+#X scalar liaison 121.885 186.762 81.2748 184.111 0 0 0 \;;
+#X scalar liaison 52.423 226.527 139.692 181.359 0 0 0 \;;
+#X scalar liaison 156.503 300 97.1881 236.113 0 0 0 \;;
+#X scalar liaison 139.692 181.359 121.885 186.762 0 0 0 \;;
+#X scalar liaison 139.692 181.359 145.861 231.953 0 0 0 \;;
+#X scalar liaison 90.3805 300 97.1881 236.113 0 0 0 \;;
+#X scalar liaison 102.254 162.589 121.885 186.762 0 0 0 \;;
+#X scalar liaison 139.692 181.359 187.622 200.002 0 0 0 \;;
+#X scalar liaison 97.1881 236.113 145.861 231.953 0 0 0 \;;
+#X scalar liaison 104.878 200.197 81.2748 184.111 0 0 0 \;;
+#X scalar liaison 97.1881 236.113 139.692 181.359 0 0 0 \;;
+#X scalar liaison 97.1881 236.113 89.4172 189.783 0 0 0 \;;
+#X scalar liaison 104.878 200.197 102.254 162.589 0 0 0 \;;
+#X scalar liaison 89.4172 189.783 187.622 200.002 0 0 0 \;;
+#X scalar mass 90.3805 300 0 0 \;;
+#X scalar mass 104.878 200.197 8 0 \;;
+#X scalar mass 89.4172 189.783 4 0 \;;
+#X scalar mass 97.1881 236.113 2 0 \;;
+#X scalar mass 81.2748 184.111 10 0 \;;
+#X scalar mass 52.423 226.527 6 0 \;;
+#X scalar mass 156.503 300 1 0 \;;
+#X scalar mass 121.885 186.762 9 0 \;;
+#X scalar mass 139.692 181.359 5 0 \;;
+#X scalar mass 145.861 231.953 3 0 \;;
+#X scalar mass 102.254 162.589 11 0 \;;
+#X scalar mass 187.622 200.002 7 0 \;;
+#X coords 0 0 300 300 300 300 1;
+#X restore 255 92 pd \$0-anim;
+#X obj 16 212 make_anim \$0-anim;
+#X msg 15 358 forceY mob -200;
+#X msg 15 380 forceY mob 200;
+#X msg 15 316 forceX mob 200;
+#X msg 15 337 forceX mob -200;
+#X msg 15 400 forceX 0 -200 \, forceX 1 200;
+#X msg 15 442 forceY 0 -200 \, forceY 1 -200 \, forceX 0 -200 \, forceX
+1 200;
+#X msg 15 421 forceY 6 -200 \, forceY 7 -200;
+#X obj 15 182 r \$0-msdin;
+#N canvas 0 22 450 300 creation 0;
+#X obj 45 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
+-1;
+#X msg 117 71 reset;
+#X text 83 21 reset;
+#X obj 45 42 t b b b b b;
+#X msg 63 181 Xmax 300 \, Xmin 0 \, Ymax 300 \, Ymin 0;
+#X msg 81 113 100 300 \, 150 300 \, 100 230 \, 150 230 \, 100 180 \,
+150 180 \, 50 180 \, 200 180 \, 115 180 \, 135 180 \, 110 150 \, 140
+150;
+#X msg 45 205 0 5 \, 1 2 \, 1 4 \, 2 3 \, 3 0 \, 0 2 \, 1 3 \, 2 4
+\, 4 5 \, 5 3 \, 3 4 \, 2 5 \, 4 6 \, 5 7 \, 6 5 \, 4 7 \, 4 8 \, 5
+9 \, 8 9 \, 8 10 \, 10 11 \, 11 9 \, 9 10 \, 8 11;
+#X msg 45 252 link souple \$1 \$2 12 20;
+#X msg 81 146 mass mob 1 100 \$1 \$2;
+#X obj 45 274 s \$0-msdin;
+#X obj 69 6 inlet;
+#X obj 141 26 loadbang;
+#X connect 0 0 3 0;
+#X connect 1 0 9 0;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 3 2 5 0;
+#X connect 3 4 1 0;
+#X connect 4 0 9 0;
+#X connect 5 0 8 0;
+#X connect 6 0 7 0;
+#X connect 7 0 9 0;
+#X connect 8 0 9 0;
+#X connect 10 0 3 0;
+#X connect 11 0 3 0;
+#X restore 15 37 pd creation;
+#X obj 15 14 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 36 14 reset;
+#X obj 15 467 s \$0-msdin;
+#X obj 15 286 msd2D;
+#X text 38 95 compute;
+#X text 252 28 1 - notch the "poll" case to set DS to actual model
+state;
+#X text 252 47 2 - compute ON;
+#X text 252 64 3 - "force" the dancer to move;
+#X connect 1 0 3 0;
+#X connect 2 0 18 0;
+#X connect 3 0 2 0;
+#X connect 3 0 18 0;
+#X connect 5 0 18 0;
+#X connect 6 0 17 0;
+#X connect 7 0 17 0;
+#X connect 8 0 17 0;
+#X connect 9 0 17 0;
+#X connect 10 0 17 0;
+#X connect 11 0 17 0;
+#X connect 12 0 17 0;
+#X connect 13 0 18 0;
+#X connect 15 0 14 0;
+#X connect 18 0 5 0;
+#X connect 18 1 5 0;
diff --git a/msd/msd2D/06_msd2Dgravit.pd b/msd/msd2D/06_msd2Dgravit.pd
new file mode 100644
index 0000000..0213fe5
--- /dev/null
+++ b/msd/msd2D/06_msd2Dgravit.pd
@@ -0,0 +1,212 @@
+#N canvas 386 22 491 156 10;
+#X obj 18 21 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 39 18 reset;
+#N canvas 0 22 450 300 gem_stuff 0;
+#X msg 30 89 0 \, destroy;
+#X obj 30 185 gemhead;
+#X obj 30 238 world_light;
+#X obj 30 148 gemwin;
+#X msg 30 66 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
+#X obj 30 212 rotateXYZ 30 20 0;
+#X obj 32 10 inlet;
+#X obj 32 37 sel 1 0;
+#X connect 0 0 3 0;
+#X connect 1 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 7 1 0 0;
+#X restore 18 87 pd gem_stuff;
+#X obj 18 69 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#N canvas 0 22 804 395 creation 0;
+#X obj 42 28 bng 20 250 50 0 empty empty empty 0 -6 0 8 -258699 -1
+-1;
+#X msg 239 84 reset;
+#X obj 245 32 loadbang;
+#X text 68 30 reset;
+#X obj 167 55 t b b b b b;
+#X text 501 28 change number of mass to test performance;
+#X text 501 41 (and reset afterwards);
+#X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
+-1 -1 1681.79 256;
+#X msg 185 241 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
+#X msg 167 215 setL sun 0;
+#X msg 221 107 mass fix 0 100 0 0;
+#X text 409 270 0.2 : rigidity \, 0 : damping \, -2 : power \, 0.4
+: Lmin;
+#X text 363 109 Sun;
+#X text 288 181 Initial speed;
+#N canvas 309 104 769 663 masses 0;
+#X obj 151 16 inlet;
+#X obj 232 28 inlet;
+#X obj 151 616 outlet;
+#X msg 151 551 mass mob 1 \$1 \$2 \$3;
+#X msg 151 307 seed 3;
+#X obj 151 519 pack f f f;
+#X obj 151 228 t b b b;
+#X msg 243 306 seed 20;
+#X msg 331 308 seed 10;
+#X obj 151 327 random 10000;
+#X obj 243 371 - 1;
+#X obj 331 370 - 1;
+#X obj 151 47 t b;
+#X obj 333 52 loadbang;
+#X text 263 277 X;
+#X text 166 276 M;
+#X text 372 278 Y;
+#X obj 151 67 until;
+#X obj 151 86 f;
+#X obj 177 87 + 1;
+#X obj 177 118 mod 1000;
+#X obj 206 87 sel 0;
+#X obj 243 327 random 1000;
+#X obj 331 328 random 1000;
+#X obj 243 348 / 50000;
+#X obj 331 349 / 50000;
+#X obj 151 349 / 250;
+#X obj 151 371 + 185;
+#X connect 0 0 12 0;
+#X connect 1 0 20 1;
+#X connect 3 0 2 0;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 6 0 9 0;
+#X connect 6 1 22 0;
+#X connect 6 2 23 0;
+#X connect 7 0 22 0;
+#X connect 8 0 23 0;
+#X connect 9 0 26 0;
+#X connect 10 0 5 1;
+#X connect 11 0 5 2;
+#X connect 12 0 17 0;
+#X connect 13 0 7 0;
+#X connect 13 0 8 0;
+#X connect 13 0 4 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 18 0 6 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 20 0 18 1;
+#X connect 21 0 17 1;
+#X connect 22 0 24 0;
+#X connect 23 0 25 0;
+#X connect 24 0 10 0;
+#X connect 25 0 11 0;
+#X connect 26 0 27 0;
+#X connect 27 0 5 0;
+#X restore 203 144 pd masses;
+#X text 410 289 The power of the link is -2 to simulate a gravity field
+in 1/R^2;
+#X text 292 146 Particules;
+#X msg 185 268 link sun fix mob 0.2 0 -2 0.4;
+#X msg 167 178 forceX mob 5.9;
+#X obj 167 310 s \$0-msdin;
+#X obj 166 25 inlet;
+#X connect 0 0 4 0;
+#X connect 1 0 19 0;
+#X connect 2 0 4 0;
+#X connect 4 0 9 0;
+#X connect 4 0 18 0;
+#X connect 4 1 8 0;
+#X connect 4 1 17 0;
+#X connect 4 2 14 0;
+#X connect 4 3 10 0;
+#X connect 4 4 1 0;
+#X connect 7 0 14 1;
+#X connect 8 0 19 0;
+#X connect 9 0 19 0;
+#X connect 10 0 19 0;
+#X connect 14 0 19 0;
+#X connect 17 0 19 0;
+#X connect 18 0 19 0;
+#X connect 20 0 4 0;
+#X restore 18 43 pd creation;
+#X text 116 58 gravity field simulation;
+#X text 115 72 if you have cpu problem \, you can reduce the mass number
+in "creation";
+#N canvas 0 22 450 300 compute 0;
+#X obj 52 182 msd2D --------------------------------;
+#X obj 52 64 t b;
+#X obj 52 41 gemhead;
+#X msg 197 123 forceX mob 0.051;
+#X msg 197 149 forceY mob 0.1;
+#X msg 52 98 bang \, bang \, get massesPos;
+#N canvas 637 205 609 594 massrender 0;
+#X obj 124 5 inlet;
+#X obj 291 245 translateXYZ;
+#X obj 291 186 gemhead;
+#X obj 291 219 separator;
+#X obj 292 63 unpack f f f;
+#X obj 57 257 translateXYZ;
+#X obj 57 198 gemhead;
+#X obj 57 231 separator;
+#X obj 123 31 route 0 1;
+#X obj 296 118 t b;
+#X obj 64 71 unpack f f;
+#X obj 57 151 t b f;
+#X obj 168 262 translateXYZ;
+#X obj 168 197 gemhead;
+#X obj 168 236 separator;
+#X obj 175 76 unpack f f;
+#X obj 168 154 t b f;
+#X obj 169 290 color 1 0 0;
+#X obj 292 319 square 0.015;
+#X obj 168 320 square 0.04;
+#X text 61 351 Sun;
+#X text 169 355 Red particule;
+#X text 307 355 Particule;
+#X obj 56 315 sphere 0.3 30;
+#X obj 57 289 color 0.3 0.3 0.3;
+#X obj 292 291 color 0.3 0.3 0.3;
+#X obj 9 49 loadbang;
+#X msg 9 80 0;
+#X connect 0 0 8 0;
+#X connect 1 0 25 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 9 0;
+#X connect 4 1 1 1;
+#X connect 4 2 1 2;
+#X connect 5 0 24 0;
+#X connect 6 0 7 0;
+#X connect 7 0 5 0;
+#X connect 8 0 10 0;
+#X connect 8 1 15 0;
+#X connect 8 2 4 0;
+#X connect 9 0 2 0;
+#X connect 10 0 11 0;
+#X connect 10 1 5 2;
+#X connect 11 0 6 0;
+#X connect 11 1 5 1;
+#X connect 12 0 17 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X connect 15 0 16 0;
+#X connect 15 1 12 2;
+#X connect 16 0 13 0;
+#X connect 16 1 12 1;
+#X connect 17 0 19 0;
+#X connect 24 0 23 0;
+#X connect 25 0 18 0;
+#X connect 26 0 27 0;
+#X connect 27 0 2 0;
+#X connect 27 0 13 0;
+#X connect 27 0 6 0;
+#X restore 52 239 pd massrender;
+#X obj 52 212 route massesPos;
+#X obj 63 147 r \$0-msdin;
+#X connect 0 0 7 0;
+#X connect 1 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 0 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 7 0 6 0;
+#X connect 8 0 0 0;
+#X restore 18 107 pd compute;
+#X connect 0 0 4 0;
+#X connect 3 0 2 0;
diff --git a/msd/msd2D/07_sable.pd b/msd/msd2D/07_sable.pd
new file mode 100644
index 0000000..6dd44fe
--- /dev/null
+++ b/msd/msd2D/07_sable.pd
@@ -0,0 +1,505 @@
+#N canvas 649 116 636 696 10;
+#X obj 363 187 gemhead;
+#X obj 363 234 world_light;
+#X msg 364 141 \; pd dsp 1;
+#X msg 136 184 FSAA 4;
+#N canvas 451 61 454 540 toaster 0;
+#X obj 36 198 r T01;
+#N canvas 0 22 376 479 filtre 0;
+#X obj 59 42 inlet;
+#X obj 59 314 outlet;
+#X obj 59 247 +;
+#X obj 130 240 + 1;
+#X obj 130 42 inlet;
+#X obj 130 183 1;
+#X obj 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 1000;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 78 246 pd filtre;
+#X obj 33 226 t f f;
+#X obj 54 278 f;
+#X obj 51 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 32 399 outlet;
+#N canvas 0 22 376 479 filtre 0;
+#X obj 59 42 inlet;
+#X obj 59 314 outlet;
+#X obj 59 247 +;
+#X obj 130 240 + 1;
+#X obj 130 42 inlet;
+#X obj 130 183 1;
+#X obj 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 1000;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 243 256 pd filtre;
+#X obj 198 236 t f f;
+#X obj 219 288 f;
+#X obj 216 265 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 195 413 outlet;
+#X obj 201 208 r T02;
+#X floatatom 101 303 9 0 0 0 - - -;
+#X floatatom 260 322 9 0 0 0 - - -;
+#X obj 27 310 - 37286;
+#X obj 32 333 / 30;
+#X obj 195 342 / 30;
+#N canvas 0 22 376 479 filtre 0;
+#X obj 59 42 inlet;
+#X obj 59 314 outlet;
+#X obj 59 247 +;
+#X obj 130 240 + 1;
+#X obj 130 42 inlet;
+#X obj 130 183 1;
+#X obj 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 10;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 195 373 pd filtre;
+#N canvas 0 22 376 479 filtre 0;
+#X obj 59 42 inlet;
+#X obj 59 314 outlet;
+#X obj 59 247 +;
+#X obj 130 240 + 1;
+#X obj 130 42 inlet;
+#X obj 130 183 1;
+#X obj 130 160 /;
+#X obj 59 285 / 2;
+#X obj 59 223 * 1;
+#X msg 130 139 1 \$1;
+#X obj 142 92 loadbang;
+#X msg 141 117 10;
+#X connect 0 0 8 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 9 0;
+#X connect 5 0 3 0;
+#X connect 5 0 8 1;
+#X connect 6 0 5 0;
+#X connect 7 0 2 1;
+#X connect 7 0 1 0;
+#X connect 8 0 2 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X restore 31 362 pd filtre;
+#X obj 192 317 - 32797;
+#N canvas 0 22 450 300 receive 0;
+#X obj 17 103 send T01;
+#X obj 176 102 send T09;
+#X obj 195 134 send T10;
+#X obj 35 134 send T02;
+#X obj 56 166 send T03;
+#X obj 216 169 send T11;
+#X obj 236 201 send T12;
+#X obj 76 200 send T04;
+#X obj 96 103 send T05;
+#X obj 256 101 send T13;
+#X obj 274 135 send T14;
+#X obj 116 135 send T06;
+#X obj 296 168 send T15;
+#X obj 135 168 send T07;
+#X obj 316 201 send T16;
+#X obj 155 201 send T08;
+#X obj 17 20 dumpOSC 5679;
+#X obj 17 45 route /toaster;
+#X obj 17 70 unpack f f f f f f f f f f f f f f f f;
+#X obj 168 9 dumpOSC 5555;
+#X obj 166 40 route /toaster/sensors;
+#X obj 263 20 route /warhol/sensors;
+#X connect 16 0 17 0;
+#X connect 16 0 20 0;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 18 1 3 0;
+#X connect 18 2 4 0;
+#X connect 18 3 7 0;
+#X connect 18 4 8 0;
+#X connect 18 5 11 0;
+#X connect 18 6 13 0;
+#X connect 18 7 15 0;
+#X connect 18 8 1 0;
+#X connect 18 9 2 0;
+#X connect 18 10 5 0;
+#X connect 18 11 6 0;
+#X connect 18 12 9 0;
+#X connect 18 13 10 0;
+#X connect 18 14 12 0;
+#X connect 18 15 14 0;
+#X connect 19 0 20 0;
+#X connect 19 0 17 0;
+#X connect 19 0 21 0;
+#X connect 20 0 18 0;
+#X connect 21 0 18 0;
+#X restore 56 48 pd receive;
+#X connect 0 0 2 0;
+#X connect 1 0 3 1;
+#X connect 2 0 14 0;
+#X connect 2 1 1 0;
+#X connect 3 0 12 0;
+#X connect 3 0 14 1;
+#X connect 4 0 3 0;
+#X connect 6 0 8 1;
+#X connect 7 0 19 0;
+#X connect 7 1 6 0;
+#X connect 8 0 13 0;
+#X connect 8 0 19 1;
+#X connect 9 0 8 0;
+#X connect 11 0 7 0;
+#X connect 14 0 15 0;
+#X connect 15 0 18 0;
+#X connect 16 0 17 0;
+#X connect 17 0 10 0;
+#X connect 18 0 5 0;
+#X connect 19 0 16 0;
+#X restore 306 474 pd toaster;
+#X obj 51 575 msd2D --------------------------------;
+#N canvas 1144 74 300 425 massrender 0;
+#X obj 112 80 inlet;
+#X obj 62 311 translateXYZ;
+#X obj 62 285 separator;
+#X obj 62 244 gemhead 45;
+#X obj 112 115 unpack s f f;
+#X obj 62 337 sphere 0.2 20;
+#X obj 109 156 t b b;
+#X obj 64 364 color;
+#X msg 207 229 1 1 1;
+#X obj 232 61 inlet;
+#X msg 231 255 1 0 0;
+#X obj 62 54 loadbang;
+#X msg 62 194 0;
+#X connect 0 0 4 0;
+#X connect 1 0 5 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 6 0;
+#X connect 4 1 1 1;
+#X connect 4 2 1 2;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 6 1 3 0;
+#X connect 8 0 7 1;
+#X connect 9 0 10 0;
+#X connect 10 0 7 1;
+#X connect 11 0 12 0;
+#X connect 12 0 3 0;
+#X restore 51 627 pd massrender;
+#X obj 51 350 gemhead;
+#X obj 212 397 gcanvas 80 80;
+#X obj 51 328 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 51 373 get massesPos sable;
+#N canvas 754 153 608 476 creation 0;
+#X obj 198 405 t a;
+#X obj 196 30 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 207 72 reset;
+#X obj 128 28 loadbang;
+#X text 234 32 Reset;
+#X text 263 89 Random positions and masses;
+#N canvas 826 356 716 390 masses 0;
+#X msg 417 145 seed 1;
+#X msg 342 144 seed 2;
+#X obj 43 15 inlet;
+#X obj 238 362 outlet;
+#X obj 419 97 loadbang;
+#X obj 223 68 t b b;
+#X obj 43 78 f;
+#X obj 73 78 + 1;
+#X msg 43 41 0;
+#X msg 237 294 mass sable 1 1 \$1 \$2;
+#X obj 237 274 pack f f;
+#X obj 254 218 - 3;
+#X obj 336 223 - 3;
+#X obj 253 170 random 30;
+#X obj 339 172 random 30;
+#X obj 336 201 / 5;
+#X obj 254 196 / 5;
+#X obj 74 101 moses 32.5;
+#X connect 0 0 14 0;
+#X connect 1 0 13 0;
+#X connect 2 0 8 0;
+#X connect 4 0 1 0;
+#X connect 4 0 0 0;
+#X connect 5 0 13 0;
+#X connect 5 1 14 0;
+#X connect 6 0 7 0;
+#X connect 6 0 5 0;
+#X connect 7 0 17 0;
+#X connect 8 0 6 0;
+#X connect 9 0 3 0;
+#X connect 10 0 9 0;
+#X connect 11 0 10 0;
+#X connect 12 0 10 1;
+#X connect 13 0 16 0;
+#X connect 14 0 15 0;
+#X connect 15 0 12 0;
+#X connect 16 0 11 0;
+#X connect 17 0 6 0;
+#X restore 185 93 pd masses;
+#X obj 128 49 t b b b b;
+#X obj 40 149 t b b b b;
+#X msg 155 133 mass fixe 0 1 0 0;
+#X msg 138 176 tLink dampX fixe sable 0 0.001 0 1 1 0 1000;
+#X msg 131 198 tLink dampY fixe sable 0 0.001 1 0 1 0 1000;
+#X obj 197 434 outlet;
+#X obj 94 7 inlet;
+#X msg 36 375 Xmax 1111 \, Xmin -1111 \, Ymax 1111 \, Ymin -1111;
+#X msg 48 338 setL linkD 1000 \, setL linkG 1000 \, setL linkH 1000
+\, setL linkB 1000;
+#X msg 108 256 link linkD MlinkD sable 0.01 0 1 1000 100000;
+#X msg 103 276 link linkG MlinkG sable 0.01 0 1 1000 100000;
+#X msg 90 295 link linkH MlinkH sable 0.01 0 1 1000 100000;
+#X msg 78 315 link linkB MlinkB sable 0.01 0 1 1000 100000;
+#X msg 167 113 link rebond sable sable 0.003 0.005 1 0 0.4;
+#X msg 146 153 setL rebond 0.4;
+#X msg 120 221 mass MlinkD 0 1 -993.8 0 \, mass MlinkG 0 1 993.8 0
+\, mass MlinkH 0 1 0 996.2 \, mass MlinkB 0 1 0 -996.2;
+#X connect 0 0 12 0;
+#X connect 1 0 7 0;
+#X connect 2 0 0 0;
+#X connect 3 0 7 0;
+#X connect 6 0 0 0;
+#X connect 7 0 8 0;
+#X connect 7 0 21 0;
+#X connect 7 1 20 0;
+#X connect 7 1 9 0;
+#X connect 7 2 6 0;
+#X connect 7 3 2 0;
+#X connect 8 1 15 0;
+#X connect 8 2 16 0;
+#X connect 8 2 18 0;
+#X connect 8 2 19 0;
+#X connect 8 2 17 0;
+#X connect 8 3 10 0;
+#X connect 8 3 11 0;
+#X connect 8 3 22 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X connect 13 0 7 0;
+#X connect 14 0 0 0;
+#X connect 15 0 0 0;
+#X connect 16 0 0 0;
+#X connect 17 0 0 0;
+#X connect 18 0 0 0;
+#X connect 19 0 0 0;
+#X connect 20 0 0 0;
+#X connect 21 0 0 0;
+#X connect 22 0 0 0;
+#X restore 68 494 pd creation;
+#X obj 89 515 bang~;
+#X msg 89 539 get massesForces;
+#N canvas 0 22 450 300 simulation_gravite 0;
+#X msg 28 224 forceX sable \$1;
+#X msg 142 224 forceY sable \$1;
+#X obj 29 60 min 80;
+#X obj 28 82 max 0;
+#X obj 28 107 - 40;
+#X obj 142 60 min 80;
+#X obj 141 82 max 0;
+#X obj 143 151 - 40;
+#X obj 142 102 * -1;
+#X obj 143 126 + 80;
+#X obj 48 132 bang~;
+#X obj 30 39 inlet;
+#X obj 140 38 inlet;
+#X obj 25 257 outlet;
+#X obj 125 179 f;
+#X obj 36 178 f;
+#X obj 31 201 / 2e+06;
+#X obj 145 200 / 2e+06;
+#X obj 291 45 inlet;
+#X obj 401 44 inlet;
+#X connect 0 0 13 0;
+#X connect 1 0 13 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 15 1;
+#X connect 5 0 6 0;
+#X connect 6 0 8 0;
+#X connect 7 0 14 1;
+#X connect 8 0 9 0;
+#X connect 9 0 7 0;
+#X connect 10 0 14 0;
+#X connect 10 0 15 0;
+#X connect 11 0 2 0;
+#X connect 12 0 5 0;
+#X connect 14 0 17 0;
+#X connect 15 0 16 0;
+#X connect 16 0 0 0;
+#X connect 17 0 1 0;
+#X connect 18 0 15 1;
+#X connect 19 0 14 1;
+#X restore 212 496 pd simulation_gravite;
+#X obj 68 475 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 65 417 metro 1;
+#X obj 65 396 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X msg 109 145 view 0 0 40 0 0 0 0 1 0;
+#X msg 119 165 perspec -0.1 0.1 -0.1 0.1 1 100;
+#X obj 116 119 b;
+#X obj 135 96 loadbang;
+#X obj 116 95 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 363 212 rotateXYZ -30 -20 0;
+#X obj 65 444 t b b;
+#X msg 209 242 destroy;
+#X obj 209 197 key;
+#X obj 209 218 sel 27;
+#X obj 364 67 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 364 90 s lb;
+#X obj 364 120 lb;
+#X obj 126 396 lb;
+#X msg 90 396 1;
+#X msg 88 61 dimen 1680 1050 \, cursor 0;
+#X text 390 475 <- sensors;
+#X text 321 450 <- sensors simulation;
+#X obj 52 282 gemwin 58;
+#X msg 51 13 dimen 672 420;
+#X msg 69 38 create \, lighting 1 \, 1;
+#N canvas 0 22 450 300 sound 0;
+#X obj 19 279 dac~;
+#X obj 202 220 *~ 1;
+#X obj 10 40 sound_sable 0 1;
+#X obj 268 191 sound_sable 28 29;
+#X obj 43 101 sound_sable 12 13;
+#X obj 20 61 sound_sable 4 5;
+#X obj 79 164 sound_sable 24 25;
+#X obj 33 80 sound_sable 8 9;
+#X obj 56 123 sound_sable 16 17;
+#X obj 66 144 sound_sable 20 21;
+#X obj 191 43 sound_sable 2 3;
+#X obj 201 64 sound_sable 6 7;
+#X obj 214 83 sound_sable 10 11;
+#X obj 224 104 sound_sable 14 15;
+#X obj 237 126 sound_sable 18 19;
+#X obj 247 148 sound_sable 22 23;
+#X obj 260 167 sound_sable 26 27;
+#X obj 277 212 sound_sable 30 31;
+#X obj 19 246 *~ 0.2;
+#X obj 13 11 inlet;
+#X connect 1 0 18 0;
+#X connect 2 0 18 0;
+#X connect 2 1 5 0;
+#X connect 3 0 1 0;
+#X connect 3 1 17 0;
+#X connect 4 0 18 0;
+#X connect 4 1 8 0;
+#X connect 5 0 18 0;
+#X connect 5 1 7 0;
+#X connect 6 0 18 0;
+#X connect 6 1 10 0;
+#X connect 7 0 18 0;
+#X connect 7 1 4 0;
+#X connect 8 0 18 0;
+#X connect 8 1 9 0;
+#X connect 9 0 18 0;
+#X connect 9 1 6 0;
+#X connect 10 0 1 0;
+#X connect 10 1 11 0;
+#X connect 11 0 1 0;
+#X connect 11 1 12 0;
+#X connect 12 0 1 0;
+#X connect 12 1 13 0;
+#X connect 13 0 1 0;
+#X connect 13 1 14 0;
+#X connect 14 0 1 0;
+#X connect 14 1 15 0;
+#X connect 15 0 1 0;
+#X connect 15 1 16 0;
+#X connect 16 0 1 0;
+#X connect 16 1 3 0;
+#X connect 17 0 1 0;
+#X connect 18 0 0 0;
+#X connect 18 0 0 1;
+#X connect 19 0 2 0;
+#X restore 153 626 pd sound;
+#X obj 51 596 route massesPosId massesForces;
+#X connect 0 0 23 0;
+#X connect 3 0 36 0;
+#X connect 4 0 14 2;
+#X connect 4 1 14 3;
+#X connect 5 0 40 0;
+#X connect 7 0 10 0;
+#X connect 8 0 14 0;
+#X connect 8 1 14 1;
+#X connect 9 0 7 0;
+#X connect 10 0 5 0;
+#X connect 11 0 5 0;
+#X connect 12 0 13 0;
+#X connect 13 0 5 0;
+#X connect 14 0 5 0;
+#X connect 15 0 11 0;
+#X connect 16 0 24 0;
+#X connect 17 0 16 0;
+#X connect 18 0 36 0;
+#X connect 19 0 36 0;
+#X connect 20 0 18 0;
+#X connect 20 0 19 0;
+#X connect 20 0 3 0;
+#X connect 21 0 20 0;
+#X connect 22 0 20 0;
+#X connect 23 0 1 0;
+#X connect 24 0 5 0;
+#X connect 24 1 6 1;
+#X connect 25 0 36 0;
+#X connect 26 0 27 0;
+#X connect 27 0 25 0;
+#X connect 28 0 29 0;
+#X connect 30 0 2 0;
+#X connect 31 0 32 0;
+#X connect 32 0 17 0;
+#X connect 33 0 36 0;
+#X connect 37 0 36 0;
+#X connect 38 0 36 0;
+#X connect 40 0 6 0;
+#X connect 40 1 39 0;
diff --git a/msd/msd2D/Makefile.am b/msd/msd2D/Makefile.am
new file mode 100644
index 0000000..59a3dff
--- /dev/null
+++ b/msd/msd2D/Makefile.am
@@ -0,0 +1,51 @@
+#
+# automake template
+# added by tim blechmann
+#
+
+NAME = msd2
+
+BUILT_SOURCES = main.cpp
+
+EXTRA_DIST = main.cpp \
+ $(NAME).mcp \
+ $(NAME).vcproj
+
+CXXFLAGS = @CXXFLAGS@ \
+ @OPT_FLAGS@ \
+ @INCLUDEDIR@ \
+ -I../../source \
+ $(DEFS) \
+ -DFLEXT_SHARED
+
+LDFLAGS = @DYNAMIC_LDFLAGS@ @LDFLAGS@ \
+ $(patsubst %,-framework %,$(FRAMEWORKS))
+
+LIBS = @LIBS@ -lflext-pd
+
+FRAMEWORKS = @FRAMEWORKS@
+
+TARGETDIR = @TARGETDIR@
+
+TARGET =$(NAME).@EXTENSION@
+
+OBJECTS = $(patsubst %.cpp,./%.@OBJEXT@,$(BUILT_SOURCES))
+
+SYSDIR = @SYSDIR@
+
+
+# ----------------------------- targets --------------------------------
+
+all-local: $(OBJECTS)
+ $(CXX) $(LDFLAGS) ./*.@OBJEXT@ $(LIBS) -o ../$(TARGETDIR)/$(TARGET)
+ strip --strip-unneeded ../$(TARGETDIR)/$(TARGET)
+
+./%.@OBJEXT@ : %.cpp
+ $(CXX) -c $(CXXFLAGS) $< -o $@
+
+clean-local:
+ rm -f ../$(TARGETDIR)/$(TARGET)
+ rm -f ./$(OBJECTS)
+
+install-exec-local:
+ install ../$(TARGET) $(SYSDIR)extra
diff --git a/msd/msd2D/editor/MOVED b/msd/msd2D/editor/MOVED
new file mode 100644
index 0000000..f7d2e2f
--- /dev/null
+++ b/msd/msd2D/editor/MOVED
@@ -0,0 +1 @@
+msd-editor has moved to /externals/nusmuk/editor.
diff --git a/msd/msd2D/lb.pd b/msd/msd2D/lb.pd
new file mode 100644
index 0000000..1433464
--- /dev/null
+++ b/msd/msd2D/lb.pd
@@ -0,0 +1,13 @@
+#N canvas 0 0 450 300 10;
+#X obj 18 86 loadbang;
+#X obj 18 63 universal;
+#X msg 18 41 loadbang loadbang;
+#X obj 18 17 inlet;
+#X obj 18 108 outlet;
+#X obj 104 84 r lb;
+#X obj 104 105 t b;
+#X connect 0 0 4 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
diff --git a/msd/msd2D/license.txt b/msd/msd2D/license.txt
new file mode 100644
index 0000000..b1e3f5a
--- /dev/null
+++ b/msd/msd2D/license.txt
@@ -0,0 +1,504 @@
+ GNU LESSER GENERAL PUBLIC LICENSE
+ Version 2.1, February 1999
+
+ Copyright (C) 1991, 1999 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+[This is the first released version of the Lesser GPL. It also counts
+ as the successor of the GNU Library Public License, version 2, hence
+ the version number 2.1.]
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+Licenses are intended to guarantee your freedom to share and change
+free software--to make sure the software is free for all its users.
+
+ This license, the Lesser General Public License, applies to some
+specially designated software packages--typically libraries--of the
+Free Software Foundation and other authors who decide to use it. You
+can use it too, but we suggest you first think carefully about whether
+this license or the ordinary General Public License is the better
+strategy to use in any particular case, based on the explanations below.
+
+ When we speak of free software, we are referring to freedom of use,
+not price. Our General Public Licenses are designed to make sure that
+you have the freedom to distribute copies of free software (and charge
+for this service if you wish); that you receive source code or can get
+it if you want it; that you can change the software and use pieces of
+it in new free programs; and that you are informed that you can do
+these things.
+
+ To protect your rights, we need to make restrictions that forbid
+distributors to deny you these rights or to ask you to surrender these
+rights. These restrictions translate to certain responsibilities for
+you if you distribute copies of the library or if you modify it.
+
+ For example, if you distribute copies of the library, whether gratis
+or for a fee, you must give the recipients all the rights that we gave
+you. You must make sure that they, too, receive or can get the source
+code. If you link other code with the library, you must provide
+complete object files to the recipients, so that they can relink them
+with the library after making changes to the library and recompiling
+it. And you must show them these terms so they know their rights.
+
+ We protect your rights with a two-step method: (1) we copyright the
+library, and (2) we offer you this license, which gives you legal
+permission to copy, distribute and/or modify the library.
+
+ To protect each distributor, we want to make it very clear that
+there is no warranty for the free library. Also, if the library is
+modified by someone else and passed on, the recipients should know
+that what they have is not the original version, so that the original
+author's reputation will not be affected by problems that might be
+introduced by others.
+
+ Finally, software patents pose a constant threat to the existence of
+any free program. We wish to make sure that a company cannot
+effectively restrict the users of a free program by obtaining a
+restrictive license from a patent holder. Therefore, we insist that
+any patent license obtained for a version of the library must be
+consistent with the full freedom of use specified in this license.
+
+ Most GNU software, including some libraries, is covered by the
+ordinary GNU General Public License. This license, the GNU Lesser
+General Public License, applies to certain designated libraries, and
+is quite different from the ordinary General Public License. We use
+this license for certain libraries in order to permit linking those
+libraries into non-free programs.
+
+ When a program is linked with a library, whether statically or using
+a shared library, the combination of the two is legally speaking a
+combined work, a derivative of the original library. The ordinary
+General Public License therefore permits such linking only if the
+entire combination fits its criteria of freedom. The Lesser General
+Public License permits more lax criteria for linking other code with
+the library.
+
+ We call this license the "Lesser" General Public License because it
+does Less to protect the user's freedom than the ordinary General
+Public License. It also provides other free software developers Less
+of an advantage over competing non-free programs. These disadvantages
+are the reason we use the ordinary General Public License for many
+libraries. However, the Lesser license provides advantages in certain
+special circumstances.
+
+ For example, on rare occasions, there may be a special need to
+encourage the widest possible use of a certain library, so that it becomes
+a de-facto standard. To achieve this, non-free programs must be
+allowed to use the library. A more frequent case is that a free
+library does the same job as widely used non-free libraries. In this
+case, there is little to gain by limiting the free library to free
+software only, so we use the Lesser General Public License.
+
+ In other cases, permission to use a particular library in non-free
+programs enables a greater number of people to use a large body of
+free software. For example, permission to use the GNU C Library in
+non-free programs enables many more people to use the whole GNU
+operating system, as well as its variant, the GNU/Linux operating
+system.
+
+ Although the Lesser General Public License is Less protective of the
+users' freedom, it does ensure that the user of a program that is
+linked with the Library has the freedom and the wherewithal to run
+that program using a modified version of the Library.
+
+ The precise terms and conditions for copying, distribution and
+modification follow. Pay close attention to the difference between a
+"work based on the library" and a "work that uses the library". The
+former contains code derived from the library, whereas the latter must
+be combined with the library in order to run.
+
+ GNU LESSER GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License Agreement applies to any software library or other
+program which contains a notice placed by the copyright holder or
+other authorized party saying it may be distributed under the terms of
+this Lesser General Public License (also called "this License").
+Each licensee is addressed as "you".
+
+ A "library" means a collection of software functions and/or data
+prepared so as to be conveniently linked with application programs
+(which use some of those functions and data) to form executables.
+
+ The "Library", below, refers to any such software library or work
+which has been distributed under these terms. A "work based on the
+Library" means either the Library or any derivative work under
+copyright law: that is to say, a work containing the Library or a
+portion of it, either verbatim or with modifications and/or translated
+straightforwardly into another language. (Hereinafter, translation is
+included without limitation in the term "modification".)
+
+ "Source code" for a work means the preferred form of the work for
+making modifications to it. For a library, complete source code means
+all the source code for all modules it contains, plus any associated
+interface definition files, plus the scripts used to control compilation
+and installation of the library.
+
+ Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running a program using the Library is not restricted, and output from
+such a program is covered only if its contents constitute a work based
+on the Library (independent of the use of the Library in a tool for
+writing it). Whether that is true depends on what the Library does
+and what the program that uses the Library does.
+
+ 1. You may copy and distribute verbatim copies of the Library's
+complete source code as you receive it, in any medium, provided that
+you conspicuously and appropriately publish on each copy an
+appropriate copyright notice and disclaimer of warranty; keep intact
+all the notices that refer to this License and to the absence of any
+warranty; and distribute a copy of this License along with the
+Library.
+
+ You may charge a fee for the physical act of transferring a copy,
+and you may at your option offer warranty protection in exchange for a
+fee.
+
+ 2. You may modify your copy or copies of the Library or any portion
+of it, thus forming a work based on the Library, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) The modified work must itself be a software library.
+
+ b) You must cause the files modified to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ c) You must cause the whole of the work to be licensed at no
+ charge to all third parties under the terms of this License.
+
+ d) If a facility in the modified Library refers to a function or a
+ table of data to be supplied by an application program that uses
+ the facility, other than as an argument passed when the facility
+ is invoked, then you must make a good faith effort to ensure that,
+ in the event an application does not supply such function or
+ table, the facility still operates, and performs whatever part of
+ its purpose remains meaningful.
+
+ (For example, a function in a library to compute square roots has
+ a purpose that is entirely well-defined independent of the
+ application. Therefore, Subsection 2d requires that any
+ application-supplied function or table used by this function must
+ be optional: if the application does not supply it, the square
+ root function must still compute square roots.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Library,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Library, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote
+it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Library.
+
+In addition, mere aggregation of another work not based on the Library
+with the Library (or with a work based on the Library) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may opt to apply the terms of the ordinary GNU General Public
+License instead of this License to a given copy of the Library. To do
+this, you must alter all the notices that refer to this License, so
+that they refer to the ordinary GNU General Public License, version 2,
+instead of to this License. (If a newer version than version 2 of the
+ordinary GNU General Public License has appeared, then you can specify
+that version instead if you wish.) Do not make any other change in
+these notices.
+
+ Once this change is made in a given copy, it is irreversible for
+that copy, so the ordinary GNU General Public License applies to all
+subsequent copies and derivative works made from that copy.
+
+ This option is useful when you wish to copy part of the code of
+the Library into a program that is not a library.
+
+ 4. You may copy and distribute the Library (or a portion or
+derivative of it, under Section 2) in object code or executable form
+under the terms of Sections 1 and 2 above provided that you accompany
+it with the complete corresponding machine-readable source code, which
+must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange.
+
+ If distribution of object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the
+source code from the same place satisfies the requirement to
+distribute the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 5. A program that contains no derivative of any portion of the
+Library, but is designed to work with the Library by being compiled or
+linked with it, is called a "work that uses the Library". Such a
+work, in isolation, is not a derivative work of the Library, and
+therefore falls outside the scope of this License.
+
+ However, linking a "work that uses the Library" with the Library
+creates an executable that is a derivative of the Library (because it
+contains portions of the Library), rather than a "work that uses the
+library". The executable is therefore covered by this License.
+Section 6 states terms for distribution of such executables.
+
+ When a "work that uses the Library" uses material from a header file
+that is part of the Library, the object code for the work may be a
+derivative work of the Library even though the source code is not.
+Whether this is true is especially significant if the work can be
+linked without the Library, or if the work is itself a library. The
+threshold for this to be true is not precisely defined by law.
+
+ If such an object file uses only numerical parameters, data
+structure layouts and accessors, and small macros and small inline
+functions (ten lines or less in length), then the use of the object
+file is unrestricted, regardless of whether it is legally a derivative
+work. (Executables containing this object code plus portions of the
+Library will still fall under Section 6.)
+
+ Otherwise, if the work is a derivative of the Library, you may
+distribute the object code for the work under the terms of Section 6.
+Any executables containing that work also fall under Section 6,
+whether or not they are linked directly with the Library itself.
+
+ 6. As an exception to the Sections above, you may also combine or
+link a "work that uses the Library" with the Library to produce a
+work containing portions of the Library, and distribute that work
+under terms of your choice, provided that the terms permit
+modification of the work for the customer's own use and reverse
+engineering for debugging such modifications.
+
+ You must give prominent notice with each copy of the work that the
+Library is used in it and that the Library and its use are covered by
+this License. You must supply a copy of this License. If the work
+during execution displays copyright notices, you must include the
+copyright notice for the Library among them, as well as a reference
+directing the user to the copy of this License. Also, you must do one
+of these things:
+
+ a) Accompany the work with the complete corresponding
+ machine-readable source code for the Library including whatever
+ changes were used in the work (which must be distributed under
+ Sections 1 and 2 above); and, if the work is an executable linked
+ with the Library, with the complete machine-readable "work that
+ uses the Library", as object code and/or source code, so that the
+ user can modify the Library and then relink to produce a modified
+ executable containing the modified Library. (It is understood
+ that the user who changes the contents of definitions files in the
+ Library will not necessarily be able to recompile the application
+ to use the modified definitions.)
+
+ b) Use a suitable shared library mechanism for linking with the
+ Library. A suitable mechanism is one that (1) uses at run time a
+ copy of the library already present on the user's computer system,
+ rather than copying library functions into the executable, and (2)
+ will operate properly with a modified version of the library, if
+ the user installs one, as long as the modified version is
+ interface-compatible with the version that the work was made with.
+
+ c) Accompany the work with a written offer, valid for at
+ least three years, to give the same user the materials
+ specified in Subsection 6a, above, for a charge no more
+ than the cost of performing this distribution.
+
+ d) If distribution of the work is made by offering access to copy
+ from a designated place, offer equivalent access to copy the above
+ specified materials from the same place.
+
+ e) Verify that the user has already received a copy of these
+ materials or that you have already sent this user a copy.
+
+ For an executable, the required form of the "work that uses the
+Library" must include any data and utility programs needed for
+reproducing the executable from it. However, as a special exception,
+the materials to be distributed need not include anything that is
+normally distributed (in either source or binary form) with the major
+components (compiler, kernel, and so on) of the operating system on
+which the executable runs, unless that component itself accompanies
+the executable.
+
+ It may happen that this requirement contradicts the license
+restrictions of other proprietary libraries that do not normally
+accompany the operating system. Such a contradiction means you cannot
+use both them and the Library together in an executable that you
+distribute.
+
+ 7. You may place library facilities that are a work based on the
+Library side-by-side in a single library together with other library
+facilities not covered by this License, and distribute such a combined
+library, provided that the separate distribution of the work based on
+the Library and of the other library facilities is otherwise
+permitted, and provided that you do these two things:
+
+ a) Accompany the combined library with a copy of the same work
+ based on the Library, uncombined with any other library
+ facilities. This must be distributed under the terms of the
+ Sections above.
+
+ b) Give prominent notice with the combined library of the fact
+ that part of it is a work based on the Library, and explaining
+ where to find the accompanying uncombined form of the same work.
+
+ 8. You may not copy, modify, sublicense, link with, or distribute
+the Library except as expressly provided under this License. Any
+attempt otherwise to copy, modify, sublicense, link with, or
+distribute the Library is void, and will automatically terminate your
+rights under this License. However, parties who have received copies,
+or rights, from you under this License will not have their licenses
+terminated so long as such parties remain in full compliance.
+
+ 9. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Library or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Library (or any work based on the
+Library), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Library or works based on it.
+
+ 10. Each time you redistribute the Library (or any work based on the
+Library), the recipient automatically receives a license from the
+original licensor to copy, distribute, link with or modify the Library
+subject to these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties with
+this License.
+
+ 11. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Library at all. For example, if a patent
+license would not permit royalty-free redistribution of the Library by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Library.
+
+If any portion of this section is held invalid or unenforceable under any
+particular circumstance, the balance of the section is intended to apply,
+and the section as a whole is intended to apply in other circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 12. If the distribution and/or use of the Library is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Library under this License may add
+an explicit geographical distribution limitation excluding those countries,
+so that distribution is permitted only in or among countries not thus
+excluded. In such case, this License incorporates the limitation as if
+written in the body of this License.
+
+ 13. The Free Software Foundation may publish revised and/or new
+versions of the Lesser General Public License from time to time.
+Such new versions will be similar in spirit to the present version,
+but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Library
+specifies a version number of this License which applies to it and
+"any later version", you have the option of following the terms and
+conditions either of that version or of any later version published by
+the Free Software Foundation. If the Library does not specify a
+license version number, you may choose any version ever published by
+the Free Software Foundation.
+
+ 14. If you wish to incorporate parts of the Library into other free
+programs whose distribution conditions are incompatible with these,
+write to the author to ask for permission. For software which is
+copyrighted by the Free Software Foundation, write to the Free
+Software Foundation; we sometimes make exceptions for this. Our
+decision will be guided by the two goals of preserving the free status
+of all derivatives of our free software and of promoting the sharing
+and reuse of software generally.
+
+ NO WARRANTY
+
+ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Libraries
+
+ If you develop a new library, and you want it to be of the greatest
+possible use to the public, we recommend making it free software that
+everyone can redistribute and change. You can do so by permitting
+redistribution under these terms (or, alternatively, under the terms of the
+ordinary General Public License).
+
+ To apply these terms, attach the following notices to the library. It is
+safest to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least the
+"copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the library's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Also add information on how to contact you by electronic and paper mail.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the library, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the
+ library `Frob' (a library for tweaking knobs) written by James Random Hacker.
+
+ <signature of Ty Coon>, 1 April 1990
+ Ty Coon, President of Vice
+
+That's all there is to it!
+
+
diff --git a/msd/msd2D/main.cpp b/msd/msd2D/main.cpp
new file mode 100644
index 0000000..4539810
--- /dev/null
+++ b/msd/msd2D/main.cpp
@@ -0,0 +1,3 @@
+#include "../msd.h"
+
+MSD("msd2D",msd2D,2)
diff --git a/msd/msd2D/make_anim.pd b/msd/msd2D/make_anim.pd
new file mode 100644
index 0000000..c29fc3f
--- /dev/null
+++ b/msd/msd2D/make_anim.pd
@@ -0,0 +1,204 @@
+#N struct mass float x float y float mid float mob;
+#N struct fixmass float x float y float mid;
+#N canvas 445 254 669 506 10;
+#X obj 352 260 pointer;
+#X obj 86 83 spigot;
+#X obj 400 20 bng 15 250 50 0 \$0-create empty Create 22 6 0 10 -258113
+-1 -1;
+#X obj 316 76 r \$0-create;
+#X obj 123 50 r \$0-listen;
+#X obj 533 184 s \$0-listen;
+#X msg 533 159 1;
+#X obj 316 98 t b b b b b;
+#X obj 199 217 s \$0-listen;
+#X msg 199 191 0;
+#N canvas 0 22 870 770 \$0-anim 0;
+#X scalar mass 501.859 143.462 2 0 \;;
+#X scalar mass 385.528 207.845 3 0 \;;
+#X scalar mass 563.885 96.7994 4 0 \;;
+#X scalar mass 436.681 183.23 5 0 \;;
+#X scalar mass 677.97 25.7242 6 0 \;;
+#X scalar mass 635.854 51.7641 7 0 \;;
+#X scalar fixmass 287 68 0 \;;
+#X scalar fixmass 56 223 1 \;;
+#X restore 220 25 pd \$0-anim;
+#X obj 446 329 makefilename pd-%s;
+#X obj 446 283 loadbang;
+#X msg 446 261 bang;
+#X obj 446 353 s \$0-cnv;
+#X obj 400 137 symbol;
+#X obj 407 98 r \$0-cnv;
+#X obj 352 137 symbol;
+#X msg 352 228 traverse \$1 \, bang;
+#X obj 86 27 inlet;
+#X obj 400 35 tgl 15 0 empty empty poll 22 6 0 10 -262144 -1 -1 1 1
+;
+#X msg 400 160 \; \$1 clear \;;
+#X obj 464 376 r \$0-cnv;
+#X obj 413 403 pack 0 s;
+#X msg 413 434 \; \$2 vis \$1;
+#X obj 59 376 metro 40;
+#X obj 59 401 s \$0-create;
+#X obj 284 221 outlet;
+#X obj 446 305 symbol \$1;
+#N canvas 683 281 568 586 make_link 0;
+#X obj 165 35 inlet;
+#X obj 367 438 inlet;
+#X obj 236 135 s \$0-mass2;
+#X obj 334 305 r \$0-mass2;
+#X obj 293 283 r \$0-mass1;
+#X obj 203 159 s \$0-mass1;
+#N canvas 0 22 591 644 look4mass2 0;
+#X msg 228 199 next;
+#X obj 228 463 spigot;
+#X obj 228 386 pack 0 0;
+#X obj 228 508 unpack 0 0;
+#X obj 295 411 r \$0-mass2;
+#X obj 228 562 outlet;
+#X obj 293 564 outlet;
+#X obj 228 68 inlet;
+#X obj 228 90 t b b;
+#X obj 437 327 select 0;
+#X obj 137 319 get mass x y mid;
+#X obj 281 317 get fixmass x y mid;
+#X obj 265 437 == -1;
+#X obj 367 247 print lookmass1;
+#X msg 404 136 traverse pd-data \, next;
+#X obj 228 229 pointer;
+#X connect 0 0 15 0;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 5 0;
+#X connect 3 1 6 0;
+#X connect 4 0 12 1;
+#X connect 7 0 8 0;
+#X connect 8 0 0 0;
+#X connect 8 1 14 0;
+#X connect 9 0 0 0;
+#X connect 10 0 2 0;
+#X connect 10 1 2 1;
+#X connect 10 2 12 0;
+#X connect 11 0 2 0;
+#X connect 11 1 2 1;
+#X connect 11 2 12 0;
+#X connect 12 0 1 1;
+#X connect 12 0 9 0;
+#X connect 14 0 15 0;
+#X connect 15 0 10 0;
+#X connect 15 0 11 0;
+#X connect 15 1 13 0;
+#X restore 184 267 pd look4mass2;
+#X obj 165 67 t b b a a;
+#X msg 203 113 \$3;
+#X msg 236 113 \$4;
+#N canvas 0 22 591 644 look4mass1 0;
+#X msg 228 199 next;
+#X obj 228 463 spigot;
+#X obj 228 386 pack 0 0;
+#X obj 228 508 unpack 0 0;
+#X obj 228 562 outlet;
+#X obj 293 564 outlet;
+#X obj 228 68 inlet;
+#X obj 228 90 t b b;
+#X obj 437 327 select 0;
+#X obj 228 229 pointer mass fixmass;
+#X obj 137 319 get mass x y mid;
+#X obj 281 317 get fixmass x y mid;
+#X obj 295 384 r \$0-mass1;
+#X obj 265 437 == -1;
+#X msg 404 136 traverse pd-data \, bang;
+#X connect 0 0 9 0;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 3 1 5 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X connect 7 1 14 0;
+#X connect 8 0 0 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 10 0 2 0;
+#X connect 10 1 2 1;
+#X connect 10 2 13 0;
+#X connect 11 0 2 0;
+#X connect 11 1 2 1;
+#X connect 11 2 13 0;
+#X connect 12 0 13 1;
+#X connect 13 0 1 1;
+#X connect 13 0 8 0;
+#X connect 14 0 9 0;
+#X restore 160 241 pd look4mass1;
+#X obj 121 463 append liaison x1 y1 x2 y2 mid1 mid2;
+#X obj 159 358 pack 0 0 0 0 0 0;
+#X obj 167 417 print linklist;
+#X connect 0 0 7 0;
+#X connect 1 0 11 6;
+#X connect 3 0 12 5;
+#X connect 4 0 12 4;
+#X connect 6 0 12 2;
+#X connect 6 1 12 3;
+#X connect 7 0 10 0;
+#X connect 7 1 6 0;
+#X connect 7 2 8 0;
+#X connect 7 3 9 0;
+#X connect 8 0 5 0;
+#X connect 9 0 2 0;
+#X connect 10 0 12 0;
+#X connect 10 1 12 1;
+#X connect 12 0 11 0;
+#X connect 12 0 13 0;
+#X restore 273 411 pd make_link;
+#X text 216 384 LATER:;
+#X obj 86 113 route Mass linksPos;
+#X msg 284 198 infosL \, get linksPos;
+#X obj 192 345 append liaison x1 y1 x2 y2;
+#X msg 195 325 \$2 \$3 \$4 \$5;
+#X obj 141 257 append mass mid x y;
+#X msg 141 168 \$1 \$5 \$6;
+#X obj 86 142 t a a;
+#X msg 62 166 \$3;
+#X obj 62 283 set mass mob;
+#X obj 62 229 * 0;
+#X obj 400 50 tgl 15 0 empty empty view 22 6 0 10 -262144 -1 -1 0 1
+;
+#X connect 0 0 29 1;
+#X connect 0 0 33 4;
+#X connect 0 0 35 3;
+#X connect 1 0 31 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 1;
+#X connect 6 0 5 0;
+#X connect 7 0 9 0;
+#X connect 7 1 32 0;
+#X connect 7 2 17 0;
+#X connect 7 3 15 0;
+#X connect 7 4 6 0;
+#X connect 7 4 13 0;
+#X connect 9 0 8 0;
+#X connect 11 0 14 0;
+#X connect 12 0 28 0;
+#X connect 13 0 28 0;
+#X connect 15 0 21 0;
+#X connect 16 0 15 1;
+#X connect 16 0 17 1;
+#X connect 17 0 18 0;
+#X connect 18 0 0 0;
+#X connect 19 0 1 0;
+#X connect 20 0 25 0;
+#X connect 22 0 23 1;
+#X connect 23 0 24 0;
+#X connect 25 0 26 0;
+#X connect 28 0 11 0;
+#X connect 31 0 37 0;
+#X connect 31 1 34 0;
+#X connect 32 0 27 0;
+#X connect 34 0 33 0;
+#X connect 35 0 39 1;
+#X connect 36 0 35 0;
+#X connect 37 0 38 0;
+#X connect 37 1 36 0;
+#X connect 38 0 40 0;
+#X connect 40 0 39 0;
+#X connect 41 0 23 0;
+#X coords 0 -1 1 1 120 65 1 400 0;
diff --git a/msd/msd2D/msd2D-help.pd b/msd/msd2D/msd2D-help.pd
new file mode 100644
index 0000000..9433767
--- /dev/null
+++ b/msd/msd2D/msd2D-help.pd
@@ -0,0 +1,582 @@
+#N canvas 335 73 553 632 10;
+#X obj 4 369 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 723 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 389 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 584 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 527 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 4 562 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 673 cnv 15 550 20 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 693 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#N canvas 76 31 921 714 More_Info 0;
+#X text 96 12 MSD : mass - spring - damper model;
+#X text 27 155 Be careful : if masses are deleted \, lists messages
+won't work;
+#X text 27 60 It is designed to implement particules physical model
+in PD.The model is based on two elements type : mass and link. The
+msd masses are the principals objects of the model. They got only one
+physical parameter \, the value of their mass. They can be mobile or
+fixed \, in this case forces applied on them automatically \, by links
+\, or manually \, by messages \, don't do anything.;
+#X obj 456 -5 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 456 294 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity1 4 float 1;
+#A 0 -1 0 1 2;
+#X array zero 4 float 1;
+#A 0 0 0 0 0;
+#X coords 0 3 3 -3 200 150 1;
+#X restore 121 328 graph;
+#X text 179 485 L0;
+#N canvas 438 87 956 727 figure 0;
+#X obj 284 53 loadbang;
+#X msg 293 125 \; rigidity1 resize 1 \; rigidity1 resize 4 \; rigidity1
+bounds 0 3 3 -3 \; rigidity1 0 -1 0 1 2 \; rigidity1 ylabel -0.5 \;
+rigidity1 xlabel -3.5 \; rigidity1 xticks 0 1 1 \; rigidity1 yticks
+0 0.1 5;
+#X obj 388 574 sqrt;
+#X obj 316 651 tabwrite rigidity3;
+#X obj 343 464 - 20;
+#X obj 316 609 f;
+#X obj 316 579 t b f;
+#X obj 343 494 moses 0;
+#X obj 343 517 * -1;
+#X obj 343 538 sqrt;
+#X obj 343 559 * -1;
+#X obj 481 479 - 20;
+#X obj 453 662 f;
+#X obj 453 632 t b f;
+#X obj 481 509 moses 0;
+#X obj 481 532 * -1;
+#X obj 480 612 * -1;
+#X obj 528 622 *;
+#X obj 480 591 *;
+#X obj 525 590 t f f;
+#X obj 480 564 t f f;
+#X obj 453 683 tabwrite rigidity4;
+#X obj 181 235 t b b;
+#X obj 620 552 f;
+#X obj 620 522 t b f;
+#X obj 620 623 tabwrite rigidity2;
+#X msg 763 574 0;
+#X obj 679 437 - 50;
+#X obj 751 491 moses 40;
+#X obj 681 510 moses -40;
+#X obj 620 586 * 1.5;
+#X obj 680 462 moses 10;
+#X obj 680 488 moses -10;
+#X msg 55 419 \; rigidity2 resize 101 \; rigidity2 xticks 1 10 5 \;
+rigidity2 yticks 0 5 5 \; rigidity3 resize 51 \; rigidity3 xticks 0
+1 5 \; rigidity3 yticks 0 1 5 \; rigidity4 resize 51 \; rigidity4 xticks
+0 1 5 \; rigidity4 yticks 0 100 5;
+#X obj 631 315 f;
+#X obj 648 394 + 1;
+#X obj 632 367 t f f;
+#X obj 375 333 f;
+#X obj 375 360 moses 50.5;
+#X obj 392 411 + 1;
+#X obj 376 384 t f f;
+#X obj 176 141 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 371 310 0;
+#X msg 627 286 0;
+#X obj 631 343 moses 100.5;
+#X connect 0 0 1 0;
+#X connect 0 0 22 0;
+#X connect 2 0 5 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X connect 6 1 3 1;
+#X connect 7 0 8 0;
+#X connect 7 1 2 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 5 1;
+#X connect 11 0 14 0;
+#X connect 12 0 21 0;
+#X connect 13 0 12 0;
+#X connect 13 1 21 1;
+#X connect 14 0 15 0;
+#X connect 14 1 19 0;
+#X connect 15 0 20 0;
+#X connect 16 0 12 1;
+#X connect 17 0 12 1;
+#X connect 18 0 16 0;
+#X connect 19 0 17 0;
+#X connect 19 1 17 1;
+#X connect 20 0 18 0;
+#X connect 20 1 18 1;
+#X connect 22 0 42 0;
+#X connect 22 1 33 0;
+#X connect 22 1 43 0;
+#X connect 23 0 30 0;
+#X connect 24 0 23 0;
+#X connect 24 1 25 1;
+#X connect 26 0 23 1;
+#X connect 27 0 31 0;
+#X connect 28 0 23 1;
+#X connect 28 1 26 0;
+#X connect 29 0 26 0;
+#X connect 29 1 23 1;
+#X connect 30 0 25 0;
+#X connect 31 0 32 0;
+#X connect 31 1 28 0;
+#X connect 32 0 29 0;
+#X connect 32 1 26 0;
+#X connect 34 0 44 0;
+#X connect 35 0 34 0;
+#X connect 36 0 35 0;
+#X connect 36 1 27 0;
+#X connect 36 1 24 0;
+#X connect 37 0 38 0;
+#X connect 38 0 40 0;
+#X connect 39 0 37 0;
+#X connect 40 0 39 0;
+#X connect 40 1 4 0;
+#X connect 40 1 6 0;
+#X connect 40 1 13 0;
+#X connect 40 1 11 0;
+#X connect 41 0 22 0;
+#X connect 42 0 37 0;
+#X connect 43 0 34 0;
+#X connect 44 0 36 0;
+#X restore 403 659 pd figure;
+#X text 125 307 Rigidity;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity2 101 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 -60 -58.5 -57 -55.5 -54 -52.5 -51 -49.5 -48
+-46.5 -45 -43.5 -42 -40.5 -39 -37.5 -36 -34.5 -33 -31.5 -30 -28.5 -27
+-25.5 -24 -22.5 -21 -19.5 -18 -16.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 15 16.5 18 19.5 21 22.5 24 25.5 27 28.5 30 31.5 33 34.5 36
+37.5 39 40.5 42 43.5 45 46.5 48 49.5 51 52.5 54 55.5 57 58.5 0 0 0
+0 0 0 0 0 0 0 0;
+#X array zero 101 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 60 100 -60 200 150 1;
+#X restore 565 327 graph;
+#X text 657 482 L0;
+#X text 569 304 Rigidity with Lmin and Lmax;
+#X text 673 482 Lmin;
+#X text 735 481 Lmax;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity3 51 float 1;
+#A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555
+-3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2
+-1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575
+2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311
+4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615
+5.2915 5.38516 5.47723;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 6 50 -6 200 150 1;
+#X restore 119 526 graph;
+#X text 192 679 L0;
+#X text 126 505 Rigidity with power = 1/2;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity4 51 float 1;
+#A 0 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64
+-49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169
+196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 1000 50 -1000 200 150 1;
+#X restore 566 530 graph;
+#X text 639 684 L0;
+#X text 571 508 Rigidity with power = 2;
+#X text 571 12 The equations are :;
+#X text 497 36 if Lmin<|L[n]-L[0]|<Lmax;
+#X text 496 75 else;
+#X text 496 95 F[n] = D(L[n]-L[n-1]);
+#X text 496 54 F[n] = K(L[n] - L[0])^P + D(L[n] - L[n-1]);
+#X text 28 187 Links connect masses two by two. They got 4 physicals
+parameters : length \, rigidity \, damping and power.;
+#X text 27 216 Rigidity \, damping and power are defined by the creation
+message. The lenght is initialised to the distance between the two
+masses at the creation.;
+#X text 495 124 For oriented links \, the force F[n] is projected onto
+a vector which is given during the creation of the link using x1y1
+coordinates.;
+#X text 495 169 For normal vector \, the direction is calculated using
+the scalar product :;
+#X text 495 248 You can build specific links using different links
+messages defining the characteristic step by step.;
+#X text 496 206 x1x2 + y1y2 = 0;
+#X text 27 257 Links can be created in one shot between mutiples masses
+\, instead of creation number \, the masses linked are defined with
+their Id.;
+#X text 28 41 MSD is the 2D object of the msd objects collection.;
+#X connect 3 0 4 0;
+#X restore 16 731 pd More_Info;
+#X text 12 76 Examples:;
+#X text 9 369 Inlets:;
+#X text 19 388 - Left:;
+#X text 10 526 Arguments:;
+#X text 11 562 Outlets:;
+#X text 19 675 See Also:;
+#X text 74 48 Full Name:;
+#N canvas 58 22 262 70 Related_Objects 0;
+#X obj 3 10 cnv 15 250 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 3 30 cnv 15 250 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 5 10 Externals and libraries;
+#X obj 141 38 msd3D;
+#X obj 44 37 msd;
+#X restore 122 731 pd Related_Objects;
+#N canvas 257 262 759 345 init 0;
+#X obj 89 215 t a;
+#X obj 89 33 loadbang;
+#X obj 89 241 s \$0-in;
+#X obj 89 59 t b b b b b;
+#X msg 161 80 reset;
+#X obj 44 13 inlet;
+#X msg 143 100 mass fix 0 10 0 0;
+#X msg 89 187 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
+#X msg 125 120 mass mob 1 100 0 -2 \, mass mob 1 100 2 0 \, mass mob
+1 100 0 2 \, mass mob 1 100 -2 0;
+#X msg 107 161 link souple fix mob 10 10 \, link souple mob mob 10
+10;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 3 0 7 0;
+#X connect 3 1 9 0;
+#X connect 3 2 8 0;
+#X connect 3 3 6 0;
+#X connect 3 4 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 0 0;
+#X restore 17 156 pd init;
+#X obj 18 321 s \$0-out;
+#X obj 18 272 r \$0-in;
+#X obj 393 317 s \$0-in;
+#N canvas 565 515 355 193 compute 0;
+#X obj 27 29 inlet;
+#X obj 27 127 s \$0-in;
+#X msg 27 96 bang \, get massesPos \, get linksPos;
+#X obj 27 66 gemhead;
+#X obj 160 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X restore 17 209 pd compute;
+#X obj 17 181 tgl 15 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
+0 1;
+#X obj 172 270 r \$0-out;
+#X obj 17 126 bng 15 250 50 0 empty empty reset 25 10 1 10 -262144
+-1 -1;
+#X text 101 388 Bang - A bang at the left inlet compute the new model
+state based on previous instant.;
+#X text 158 478 To set the model parameters after creation.;
+#X text 158 456 To create the model masses and links.;
+#X text 158 501 To get the model parameters;
+#N canvas 8 28 967 626 creation________ 0;
+#X obj 5 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 450 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 7 2 CREATION Messages;
+#X obj 4 137 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 3 351 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X msg 32 104 reset;
+#X text 202 167 Add a mass;
+#X text 57 191 \$1 : Id (symbol);
+#X text 57 211 \$2 : fixed or mobile (0/1);
+#X text 57 229 \$3 : mass;
+#X msg 32 286 deleteMass \$1;
+#X text 194 288 Delete a mass and associated links;
+#X text 54 309 \$1 : Creation No of mass;
+#X text 7 137 Masses :;
+#X text 7 74 Reset :;
+#X text 129 105 Delete all masses \, links and internal variables;
+#X text 6 351 Links :;
+#X text 49 406 \$1 : Id (symbol);
+#X text 49 459 \$4 : rigidity;
+#X msg 30 555 deleteLink \$1;
+#X text 166 557 Delete a link;
+#X text 47 578 \$1 : Creation No of link;
+#X text 49 406 \$1 : Id (symbol);
+#X text 49 459 \$4 : rigidity;
+#X text 49 424 \$2 : creation No/Id of mass1;
+#X text 49 442 \$3 : creation No/Id of mass2;
+#X text 266 384 Add link(s);
+#X text 49 477 \$5 : damping;
+#X text 10 28 Creation messages are used to define the structure of
+the model. Messages create links and masses or destroy them.;
+#X msg 30 384 link \$1 \$2 \$3 \$4 \$5 (\$6 \$7 \$8);
+#X msg 32 167 mass \$1 \$2 \$3 \$4 \$5;
+#X text 57 247 \$4 \, \$5 : initial position;
+#X text 46 495 (\$6) : Power of the rigidity distance;
+#X text 46 514 (\$7) : minimum lenght of link;
+#X text 46 531 (\$8) : maximum lenght of link;
+#X obj 471 75 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 501 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 471 578 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 527 180 \$1 : Id (symbol);
+#X text 527 233 \$4 : rigidity;
+#X text 527 180 \$1 : Id (symbol);
+#X text 527 233 \$4 : rigidity;
+#X text 527 198 \$2 : creation No/Id of mass1;
+#X text 527 216 \$3 : creation No/Id of mass2;
+#X text 527 251 \$5 : damping;
+#X text 790 152 Add tangential link(s);
+#X text 524 289 (\$8) : Power of the rigidity distance;
+#X text 524 308 (\$9) : minimum lenght of link;
+#X text 524 325 (\$10) : maximum lenght of link;
+#X msg 508 153 tLink \$1 \$2 \$3 \$4 \$5 \$6 \$7 (\$8 \$9 \$10);
+#X text 504 75 Oriented links :;
+#X text 506 102 In 2D (and 3D) there are two specials links : oriented
+links. They works as general links excepts their calculation is made
+following a vector.;
+#X text 526 270 \$6 \, \$7 : tangential vector (x \, y);
+#X connect 35 0 37 0;
+#X restore 12 457 pd creation________;
+#X text 103 542 None;
+#X text 18 583 - Left:;
+#X text 101 584 Outputs the model parameters asked with the attributes
+messages.;
+#X obj 13 629 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 17 628 - Right:;
+#X text 100 629 Outputs information on model when creation messages
+are send or with the special message [infosL( which dump the complete
+state of the model.;
+#X text 101 420 Messages - Different messages are used to control the
+msd object. They are of three types :;
+#X text 9 697 CATEGORY: control;
+#N canvas 354 125 558 582 dynamic 0;
+#X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 85 cnv 15 150 270 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 402 cnv 15 130 180 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 3 378 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 62 Masses :;
+#X text 6 378 Links :;
+#X text 7 2 DYNAMIC SETTINGS Messages;
+#X msg 31 96 posX \$1 \$2;
+#X text 190 144 Add force on mass(es);
+#X msg 30 143 forceX \$1 \$2;
+#X text 192 216 \$1 : Value;
+#X text 193 107 \$1 : Id (symbol) or No;
+#X text 193 161 \$1 : Id (symbol) or No;
+#X msg 30 195 Xmin \$1;
+#X msg 89 195 Xmax \$1;
+#X msg 29 244 setMobile \$1;
+#X msg 29 265 setFixed \$1;
+#X text 193 89 Set position of fixed mass(es);
+#X text 193 125 \$2 : Value;
+#X text 193 179 \$2 : Value;
+#X text 189 200 Set minimimum and maximum position of all masses;
+#X text 188 244 Set mass to mobile or fixed;
+#X msg 29 466 setD \$1 \$2;
+#X text 184 452 \$2 : New value;
+#X msg 29 415 setK \$1 \$2;
+#X text 184 508 \$2 : New value;
+#X text 184 561 \$2 : New value;
+#X text 178 416 Set rigidity of link(s);
+#X text 178 472 Set damping of link(s);
+#X msg 29 521 setL \$1 \$2;
+#X text 178 525 Set initial lenght of link(s);
+#X text 184 434 \$1 : Id (symbol) or No;
+#X text 184 490 \$1 : Id (symbol) or No;
+#X text 184 543 \$1 : Id (symbol) or No;
+#X text 191 261 \$1 : Id (symbol) or No;
+#X text 10 25 Dynamic settings messages allows the user to redefine
+internal parameters of links and masses.;
+#X msg 29 301 grabMass \$1 \$2 \$3;
+#X text 186 301 Grab nearest mass;
+#X text 191 317 \$1 \, \$2 : position;
+#X text 190 334 \$3 : grab or not (0/1);
+#X msg 31 117 posY \$1 \$2;
+#X msg 30 164 forceY \$1 \$2;
+#X msg 30 217 Ymin \$1;
+#X msg 89 217 Ymax \$1;
+#X restore 12 478 pd dynamic settings;
+#N canvas 382 95 601 681 attributes______ 0;
+#X obj 11 95 cnv 15 100 35 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 5 75 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 158 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 137 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 9 305 cnv 15 110 330 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 3 281 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 74 General :;
+#X text 7 2 ATTRIBUTES Messages;
+#X text 7 137 Lists :;
+#X msg 33 104 infosL;
+#X text 136 104 Get infos on all masses and links on right outlet;
+#X msg 32 170 massesPosL;
+#X msg 32 239 massesForcesL;
+#X text 170 170 Output all masses positions in a list on outlet No
+1;
+#X text 139 321 Get specific attribute on specific element;
+#X msg 19 319 get \$1 (\$2);
+#X text 6 281 Specific :;
+#X text 139 416 The get message return the asked attribute preceded
+by an identifier and the creation No of the element. The identifier
+is made of the asked parameter and the way you asked for it.;
+#X text 140 492 message;
+#X text 380 492 response;
+#X text 139 473 Examples with 3 masses numbered 0 \, 1 and 2 and named
+mas:;
+#X text 15 30 The attributes messages ask the object to output some
+of his internal parameters. They can be output by lists for positions
+and forces of masses.;
+#X text 169 240 Output all forces applied on masses in a list on outlet
+No 1;
+#X text 139 383 (\$2) : - If not defined all the attributes are send
+for all the elements. - Ids or/and creations No;
+#X msg 32 192 massesPosXL;
+#X text 170 202 Output all masses x or y in a list on outlet No 1;
+#X msg 32 213 massesPosYL;
+#X text 138 340 \$1 : Attribute type ( massesPos / massesPosName /
+massesSpeeds / massesSpeedsName / massesForces / massesForces / linksPos
+/ linksPos );
+#X text 173 511 [get massesPos( -----> [massesPos 0 x0 y0(;
+#X text 334 525 [massesPos 2 x2 y2(;
+#X text 334 539 [massesPos 1 x1 y1(;
+#X text 159 561 [get massesPos 1( -----> [massesPosNo 1 x1 y1(;
+#X text 145 582 [get massesPos mas( -----> [massesPosId 0 x0 y0(;
+#X text 334 597 [massesPosId 2 x2 y2(;
+#X text 334 612 [massesPosId 1 x1 y1(;
+#X text 145 633 [get massesPosName( -----> [massesPosName name_0 x0
+y0(;
+#X text 335 648 [massesPosName name_2 x2 y2(;
+#X text 335 663 [massesPosName name_1 x1 y1(;
+#X restore 12 499 pd attributes______;
+#X text 9 707 KEYWORDS: physical model mass spring damper link;
+#X text 267 732 - Nicolas Montgermont \, May 12 \, 2005;
+#X text 12 8 HELP: msd2D;
+#X text 12 18 DESCRIPTION: Mass spring damper physical modeling in
+2D.;
+#X obj 157 48 msd2D;
+#X text 257 676 editor/msd2d-editor.pd;
+#X text 112 676 01_msd2Dtest.pd;
+#X obj 18 296 msd2D;
+#X obj 172 294 route massesPos linksPos;
+#N canvas 731 296 450 300 gemmouse 0;
+#X obj 189 77 gemmouse;
+#X obj 189 184 pack f f;
+#X obj 189 218 spigot;
+#X obj 109 243 outlet;
+#X obj 109 36 inlet;
+#X obj 109 98 t b;
+#X obj 238 131 + 4;
+#X msg 57 182 posX fix \$1;
+#X msg 57 203 posY fix \$2;
+#X obj 189 108 / 62.5;
+#X obj 237 107 / -62.5;
+#X obj 189 131 - 4;
+#X obj 109 125 list 0 0;
+#X connect 0 0 9 0;
+#X connect 0 1 10 0;
+#X connect 0 2 2 1;
+#X connect 1 0 2 0;
+#X connect 2 0 12 1;
+#X connect 4 0 5 0;
+#X connect 5 0 12 0;
+#X connect 6 0 1 1;
+#X connect 7 0 3 0;
+#X connect 8 0 3 0;
+#X connect 9 0 11 0;
+#X connect 10 0 6 0;
+#X connect 11 0 1 0;
+#X connect 12 0 7 0;
+#X connect 12 0 8 0;
+#X restore 393 295 pd gemmouse;
+#X obj 393 274 gemhead;
+#X obj 336 216 gemwin;
+#X msg 336 194 0 \, destroy;
+#N canvas 472 258 550 319 gemrender 0;
+#X obj 48 203 translateXYZ;
+#X obj 48 229 sphere 0.1;
+#X obj 127 24 inlet;
+#X obj 360 32 inlet;
+#X obj 275 232 curve 2;
+#X msg 431 81 \$4 \$5 0;
+#X msg 359 77 \$2 \$3 0;
+#X obj 359 105 t b a;
+#X obj 127 62 unpack f f f;
+#X obj 166 88 t b f;
+#X msg 48 110 0;
+#X obj 48 77 loadbang;
+#X obj 48 137 gemhead;
+#X msg 275 160 0;
+#X obj 275 127 loadbang;
+#X obj 275 187 gemhead;
+#X connect 0 0 1 0;
+#X connect 2 0 8 0;
+#X connect 3 0 5 0;
+#X connect 3 0 6 0;
+#X connect 5 0 4 2;
+#X connect 6 0 7 0;
+#X connect 7 0 15 0;
+#X connect 7 1 4 1;
+#X connect 8 1 9 0;
+#X connect 8 2 0 2;
+#X connect 9 0 12 0;
+#X connect 9 1 0 1;
+#X connect 10 0 12 0;
+#X connect 11 0 10 0;
+#X connect 12 0 0 0;
+#X connect 13 0 15 0;
+#X connect 14 0 13 0;
+#X connect 15 0 4 0;
+#X restore 172 320 pd gemrender;
+#X msg 336 129 reset \, create \, 1;
+#X text 135 98 Sorry \, you need GEM for this example...;
+#X text 169 132 1 Create window -->;
+#X text 169 163 2 Drag the structure with the mouse;
+#X text 169 195 3 Destroy the window -->;
+#X connect 21 0 49 0;
+#X connect 24 0 23 0;
+#X connect 25 0 50 0;
+#X connect 26 0 19 0;
+#X connect 49 0 20 0;
+#X connect 50 0 55 0;
+#X connect 50 1 55 1;
+#X connect 51 0 22 0;
+#X connect 52 0 51 0;
+#X connect 54 0 53 0;
+#X connect 56 0 53 0;
diff --git a/msd/msd2D/package.txt b/msd/msd2D/package.txt
new file mode 100644
index 0000000..fc47d72
--- /dev/null
+++ b/msd/msd2D/package.txt
@@ -0,0 +1,4 @@
+NAME=msd2D
+SRCS=main.cpp
+HDRS=../msd.h
+
diff --git a/msd/msd2D/sound_sable.pd b/msd/msd2D/sound_sable.pd
new file mode 100644
index 0000000..75f48a6
--- /dev/null
+++ b/msd/msd2D/sound_sable.pd
@@ -0,0 +1,67 @@
+#N canvas 420 100 846 647 10;
+#X obj 62 56 inlet;
+#X obj 179 112 outlet;
+#X obj 63 159 unpack f f;
+#X obj 63 231 +;
+#X obj 63 182 t f f;
+#X obj 63 205 *;
+#X obj 128 181 t f f;
+#X obj 128 204 *;
+#X obj 65 453 line~;
+#X obj 66 543 *~;
+#X obj 143 412 random 1000;
+#X obj 142 479 osc~;
+#X obj 66 571 outlet~;
+#X obj 65 404 min 0.1;
+#X obj 181 162 unpack f f;
+#X obj 181 234 +;
+#X obj 181 185 t f f;
+#X obj 181 208 *;
+#X obj 246 184 t f f;
+#X obj 246 207 *;
+#X obj 61 289 max;
+#X obj 143 434 / 3;
+#X obj 65 87 route \$1 \$2;
+#X obj 60 332 max 0;
+#X obj 63 252 * 1e+06;
+#X obj 180 255 * 1e+06;
+#X msg 64 430 \$1 0.5;
+#X obj 142 457 + 300;
+#X obj 143 390 lb;
+#X obj 60 312 - 0.009;
+#X connect 0 0 22 0;
+#X connect 2 0 4 0;
+#X connect 2 1 6 0;
+#X connect 3 0 24 0;
+#X connect 4 0 5 0;
+#X connect 4 1 5 1;
+#X connect 5 0 3 0;
+#X connect 6 0 7 0;
+#X connect 6 1 7 1;
+#X connect 7 0 3 1;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 21 0;
+#X connect 11 0 9 1;
+#X connect 13 0 26 0;
+#X connect 14 0 16 0;
+#X connect 14 1 18 0;
+#X connect 15 0 25 0;
+#X connect 16 0 17 0;
+#X connect 16 1 17 1;
+#X connect 17 0 15 0;
+#X connect 18 0 19 0;
+#X connect 18 1 19 1;
+#X connect 19 0 15 1;
+#X connect 20 0 29 0;
+#X connect 21 0 27 0;
+#X connect 22 0 2 0;
+#X connect 22 1 14 0;
+#X connect 22 2 1 0;
+#X connect 23 0 13 0;
+#X connect 24 0 20 0;
+#X connect 25 0 20 1;
+#X connect 26 0 8 0;
+#X connect 27 0 11 0;
+#X connect 28 0 10 0;
+#X connect 29 0 23 0;
diff --git a/msd/msd2D/structures.pd b/msd/msd2D/structures.pd
new file mode 100644
index 0000000..c19074e
--- /dev/null
+++ b/msd/msd2D/structures.pd
@@ -0,0 +1,27 @@
+#N canvas 752 10 450 300 10;
+#N canvas 389 332 664 321 mass 0;
+#X obj 62 182 drawnumber mid 0 -18 0 m;
+#X obj 64 72 struct mass float x float y float mid float mob;
+#X obj 61 136 filledpolygon mob mob 1 -5 0 -4 4 0 5 4 4 5 0 4 -4 0
+-5 -4 -4;
+#X restore 132 125 pd mass;
+#N canvas 73 302 487 201 liaison 0;
+#X obj 19 25 struct liaison float x1 float y1 float x2 float y2 float
+mid1 float mid2 float lid;
+#X obj 23 73 drawpolygon lid 2 x1 y1 x2 y2;
+#X restore 132 169 pd liaison;
+#N canvas 0 0 450 300 model 0;
+#X obj 50 102 plot m 0 0 0 0;
+#X obj 51 135 plot l 0 0 0 0;
+#X obj 45 72 struct model float x1 array m mass array l liaison;
+#X restore 132 147 pd model;
+#N canvas 389 332 664 321 fixmass 0;
+#X obj 64 72 struct fixmass float x float y float mid;
+#X obj 61 136 filledpolygon 900 900 1 -5 0 -4 4 0 5 4 4 5 0 4 -4 0
+-5 -4 -4;
+#X obj 51 203 drawnumber mid 0 -18 900 m;
+#X restore 132 191 pd fixmass;
+#N canvas 0 0 450 300 fixed 0;
+#X obj 50 97 plot f 0 0 0 0;
+#X obj 49 56 struct fixed float x float y array f fixmass;
+#X restore 132 213 pd fixed;
diff --git a/msd/msd3D/01_msd3Dtest.pd b/msd/msd3D/01_msd3Dtest.pd
new file mode 100644
index 0000000..744adf2
--- /dev/null
+++ b/msd/msd3D/01_msd3Dtest.pd
@@ -0,0 +1,192 @@
+#N canvas 499 22 653 522 10;
+#X obj 27 26 loadbang;
+#X obj 127 419 print msd;
+#X obj 263 104 gemwin;
+#X msg 278 81 0 \, destroy;
+#X text 260 26 2 DRAG THE STRUCTURE WITH THE MOUSE;
+#X obj 87 27 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 90 76 reset;
+#X obj 27 47 t b b b b b;
+#X msg 42 186 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0;
+#X obj 53 300 gemhead;
+#X obj 53 323 t b;
+#X msg 53 345 bang \, get massesPos \, get linksPos;
+#N canvas 643 123 308 285 massrender 0;
+#X obj 127 22 inlet;
+#X obj 48 203 translateXYZ;
+#X obj 127 86 / 12.5;
+#X obj 127 109 - 4;
+#X obj 192 87 / 12.5;
+#X obj 192 110 - 4;
+#X obj 48 177 separator;
+#X obj 125 136 t b f;
+#X obj 48 141 gemhead 45;
+#X msg 48 104 0;
+#X obj 47 58 loadbang;
+#X obj 127 57 unpack f f f f;
+#X obj 238 88 / 12.5;
+#X obj 238 111 - 4;
+#X obj 48 229 sphere 0.1;
+#X connect 0 0 11 0;
+#X connect 1 0 14 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 2;
+#X connect 6 0 1 0;
+#X connect 7 0 8 0;
+#X connect 7 1 1 1;
+#X connect 8 0 6 0;
+#X connect 9 0 8 0;
+#X connect 10 0 9 0;
+#X connect 11 1 2 0;
+#X connect 11 2 4 0;
+#X connect 11 3 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 1 3;
+#X restore 436 267 pd massrender;
+#X obj 366 244 route linksPos massesPos;
+#N canvas 731 296 458 308 gemmouse 0;
+#X obj 189 77 gemmouse;
+#X obj 189 184 pack f f;
+#X obj 189 218 spigot;
+#X obj 103 244 outlet;
+#X obj 189 131 - 0;
+#X obj 216 131 + 100;
+#X obj 189 108 / 5;
+#X obj 216 108 / -5;
+#X obj 79 51 inlet;
+#X obj 109 98 t b;
+#X obj 141 120 list;
+#X obj 141 41 r mouse_init;
+#X connect 0 0 6 0;
+#X connect 0 1 7 0;
+#X connect 0 2 2 1;
+#X connect 1 0 2 0;
+#X connect 2 0 10 1;
+#X connect 4 0 1 0;
+#X connect 5 0 1 1;
+#X connect 6 0 4 0;
+#X connect 7 0 5 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 3 0;
+#X connect 11 0 10 1;
+#X restore 366 356 pd gemmouse;
+#X obj 366 335 gemhead;
+#X msg 366 377 posX fix \$1;
+#X msg 366 398 posY fix \$2;
+#N canvas 0 22 454 304 linkrender 0;
+#X obj 127 22 inlet;
+#X obj 128 86 / 12.5;
+#X obj 128 109 - 4;
+#X obj 183 87 / 12.5;
+#X obj 183 110 - 4;
+#X obj 48 177 separator;
+#X obj 128 136 t b f;
+#X obj 262 88 / 12.5;
+#X obj 262 111 - 4;
+#X obj 290 112 / 12.5;
+#X obj 290 135 - 4;
+#X obj 48 222 curve 2;
+#X obj 155 189 pack f f 0;
+#X obj 262 192 pack f f 0;
+#X obj 48 130 gemhead 45;
+#X obj 47 44 loadbang;
+#X msg 47 68 0;
+#X obj 127 57 unpack f f f f f f f;
+#X obj 212 112 / 12.5;
+#X obj 212 135 - 4;
+#X obj 319 135 / 12.5;
+#X obj 319 158 - 4;
+#X connect 0 0 17 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 4 0 12 1;
+#X connect 5 0 11 0;
+#X connect 6 0 14 0;
+#X connect 6 1 12 0;
+#X connect 7 0 8 0;
+#X connect 8 0 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 13 1;
+#X connect 12 0 11 1;
+#X connect 13 0 11 2;
+#X connect 14 0 5 0;
+#X connect 15 0 16 0;
+#X connect 16 0 14 0;
+#X connect 17 1 1 0;
+#X connect 17 2 3 0;
+#X connect 17 3 18 0;
+#X connect 17 4 7 0;
+#X connect 17 5 9 0;
+#X connect 17 6 20 0;
+#X connect 18 0 19 0;
+#X connect 19 0 12 2;
+#X connect 20 0 21 0;
+#X connect 21 0 13 2;
+#X restore 366 289 pd linkrender;
+#X msg 206 139 50 50;
+#X msg 58 118 40 60 \, 60 60 \, 60 40 \, 40 40;
+#X obj 206 162 s mouse_init;
+#X msg 27 207 link souple mob mob 10 5;
+#X msg 27 230 link souple fix mob 10 5;
+#X text 25 1 creation : 5 masses and 20 links;
+#X text 52 281 compute and get masses and links positions;
+#X text 364 315 move mass to mouse position;
+#X text 365 197 display masses with gem;
+#X text 261 6 1 CREATE WINDOW;
+#X text 108 26 reset struct;
+#X obj 90 259 s \$0-msdin;
+#X obj 84 373 r \$0-msdin;
+#X obj 52 419 s \$0-msdout;
+#X obj 365 423 s \$0-msdin;
+#X obj 366 218 r \$0-msdout;
+#X msg 74 96 mass fix 0 100 50 50 50;
+#X msg 58 139 mass mob 1 100 \$1 \$2 50;
+#X obj 53 397 msd3D;
+#X obj 368 177 s \$0-msdin;
+#X msg 369 129 forceZ mob 200;
+#X msg 368 153 forceZ mob 200;
+#X text 367 108 send vertical forces;
+#X msg 263 58 reset \, create \, lighting 1 \, 1;
+#X obj 51 454 gemhead;
+#X obj 51 476 world_light;
+#X connect 0 0 7 0;
+#X connect 3 0 2 0;
+#X connect 5 0 7 0;
+#X connect 6 0 30 0;
+#X connect 7 0 22 0;
+#X connect 7 1 19 0;
+#X connect 7 1 8 0;
+#X connect 7 2 20 0;
+#X connect 7 3 35 0;
+#X connect 7 4 6 0;
+#X connect 8 0 30 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 37 0;
+#X connect 13 0 18 0;
+#X connect 13 1 12 0;
+#X connect 14 0 16 0;
+#X connect 14 0 17 0;
+#X connect 15 0 14 0;
+#X connect 16 0 33 0;
+#X connect 17 0 33 0;
+#X connect 19 0 21 0;
+#X connect 20 0 36 0;
+#X connect 22 0 23 0;
+#X connect 22 0 30 0;
+#X connect 23 0 30 0;
+#X connect 31 0 37 0;
+#X connect 34 0 13 0;
+#X connect 35 0 30 0;
+#X connect 36 0 30 0;
+#X connect 37 0 32 0;
+#X connect 37 1 1 0;
+#X connect 39 0 38 0;
+#X connect 40 0 38 0;
+#X connect 42 0 2 0;
+#X connect 43 0 44 0;
diff --git a/msd/msd3D/02_msd3Dperf.pd b/msd/msd3D/02_msd3Dperf.pd
new file mode 100644
index 0000000..0d87f9d
--- /dev/null
+++ b/msd/msd3D/02_msd3Dperf.pd
@@ -0,0 +1,214 @@
+#N canvas 652 25 483 246 10;
+#X obj 20 12 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 43 12 reset;
+#X text 323 102 <-- Move masses;
+#X obj 83 13 nbx 5 14 200 20000 1 0 empty empty empty 0 -6 0 10 -262144
+-1 -1 347.56 1000;
+#X msg 206 45 forceX mob 10;
+#X msg 206 69 forceX mob -10;
+#X msg 225 95 forceY mob 10;
+#X msg 224 119 forceY mob -10;
+#X msg 238 143 forceZ mob 10;
+#X msg 237 167 forceZ mob -10;
+#N canvas 0 22 659 390 creation 0;
+#X obj 159 5 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X msg 231 60 reset;
+#X obj 37 10 loadbang;
+#X text 182 5 reset;
+#X obj 159 27 t b b b b b;
+#X msg 213 116 mass fix 0 100 50 50 0;
+#N canvas 557 309 632 363 masses 0;
+#X msg 417 145 seed 1;
+#X msg 342 144 seed 2;
+#X msg 239 126 seed 3;
+#X obj 42 14 inlet;
+#X obj 212 307 outlet;
+#X obj 268 47 loadbang;
+#X text 284 101 M;
+#X text 356 106 X;
+#X text 437 106 Y;
+#X obj 223 68 t b b;
+#X obj 42 45 until;
+#X obj 42 78 f;
+#X obj 72 78 + 1;
+#X obj 72 100 mod 30;
+#X obj 90 45 sel 0;
+#X obj 164 15 inlet;
+#X obj 342 165 random 800;
+#X obj 418 165 random 800;
+#X obj 239 146 random 800;
+#X obj 342 186 / 100;
+#X obj 339 206 - 4;
+#X obj 407 193 / 100;
+#X obj 404 213 - 4;
+#X obj 239 166 + 800;
+#X obj 502 161 random 800;
+#X obj 491 189 / 100;
+#X obj 488 209 - 4;
+#X text 505 107 Z;
+#X msg 501 141 seed 10;
+#X obj 211 218 pack f f f f;
+#X msg 211 239 mass mob 1 \$1 \$2 \$3 \$4;
+#X obj 235 186 / 4;
+#X connect 0 0 17 0;
+#X connect 1 0 16 0;
+#X connect 2 0 18 0;
+#X connect 3 0 10 0;
+#X connect 5 0 2 0;
+#X connect 5 0 1 0;
+#X connect 5 0 0 0;
+#X connect 5 0 28 0;
+#X connect 9 0 18 0;
+#X connect 9 1 16 0;
+#X connect 9 1 17 0;
+#X connect 9 1 24 0;
+#X connect 10 0 11 0;
+#X connect 11 0 12 0;
+#X connect 11 0 9 0;
+#X connect 12 0 13 0;
+#X connect 13 0 11 1;
+#X connect 13 0 14 0;
+#X connect 14 0 10 1;
+#X connect 15 0 13 1;
+#X connect 16 0 19 0;
+#X connect 17 0 21 0;
+#X connect 18 0 23 0;
+#X connect 19 0 20 0;
+#X connect 20 0 29 1;
+#X connect 21 0 22 0;
+#X connect 22 0 29 2;
+#X connect 23 0 31 0;
+#X connect 24 0 25 0;
+#X connect 25 0 26 0;
+#X connect 26 0 29 3;
+#X connect 28 0 24 0;
+#X connect 29 0 30 0;
+#X connect 30 0 4 0;
+#X connect 31 0 29 0;
+#X restore 195 146 pd masses;
+#N canvas 0 22 450 300 links 0;
+#X obj 136 72 t b;
+#X obj 136 116 + 1;
+#X obj 130 191 f;
+#X obj 92 171 t f b;
+#X obj 91 211 pack f f;
+#X msg 91 233 link souple \$1 \$2 10 0.5;
+#X obj 136 23 inlet;
+#X obj 91 260 outlet;
+#X obj 136 48 until;
+#X obj 202 112 sel 0;
+#X obj 184 154 mod 29;
+#X obj 136 93 f 0;
+#X obj 311 32 inlet;
+#X connect 0 0 11 0;
+#X connect 1 0 10 0;
+#X connect 1 0 2 1;
+#X connect 2 0 4 1;
+#X connect 3 0 4 0;
+#X connect 3 1 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 6 0 8 0;
+#X connect 8 0 0 0;
+#X connect 9 0 8 1;
+#X connect 10 0 9 0;
+#X connect 10 0 11 1;
+#X connect 11 0 1 0;
+#X connect 11 0 3 0;
+#X connect 12 0 10 1;
+#X restore 159 191 pd links;
+#X msg 177 228 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 4 \,
+Zmin -4;
+#X obj 386 54 inlet;
+#X obj 232 7 inlet;
+#X obj 159 280 s \$0-msdin;
+#X connect 0 0 4 0;
+#X connect 1 0 11 0;
+#X connect 2 0 4 0;
+#X connect 4 0 7 0;
+#X connect 4 1 8 0;
+#X connect 4 2 6 0;
+#X connect 4 3 5 0;
+#X connect 4 4 1 0;
+#X connect 5 0 11 0;
+#X connect 6 0 11 0;
+#X connect 7 0 11 0;
+#X connect 8 0 11 0;
+#X connect 9 0 6 1;
+#X connect 9 0 7 1;
+#X connect 10 0 4 0;
+#X restore 20 32 pd creation;
+#X text 148 11 <-- Number of masses (change and reset);
+#N canvas 0 22 450 300 compute 0;
+#X obj 52 50 t b;
+#N canvas 643 123 617 602 massrender 0;
+#X obj 127 22 inlet;
+#X obj 48 203 translateXYZ;
+#X obj 48 153 gemhead;
+#X obj 48 177 separator;
+#X obj 125 136 t b f;
+#X obj 127 57 unpack f f f f;
+#X obj 48 229 cube 0.03;
+#X obj 48 99 loadbang;
+#X msg 48 127 0;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 3 0;
+#X connect 3 0 1 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 1;
+#X connect 5 1 4 0;
+#X connect 5 2 1 2;
+#X connect 5 3 1 3;
+#X connect 7 0 8 0;
+#X connect 8 0 2 0;
+#X restore 52 209 pd massrender;
+#X obj 52 27 gemhead;
+#X obj 52 188 route massesPos;
+#X msg 52 84 bang \, get massesPos;
+#X obj 52 165 msd3D;
+#X obj 79 132 r \$0-msdin;
+#X connect 0 0 4 0;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X restore 20 53 pd compute;
+#X obj 206 196 s \$0-msdin;
+#N canvas 0 22 450 300 gem 0;
+#X msg 106 118 0 \, destroy;
+#X obj 86 173 gemhead;
+#X obj 86 218 world_light;
+#X msg 86 58 reset \, create \, lighting 1 \, 1;
+#X obj 86 138 gemwin;
+#X msg 86 98 view 8 0 0.5 0 0 0 0 0 1;
+#X obj 86 77 t b;
+#X obj 86 195 rotateXYZ 30 30 0;
+#X obj 83 10 inlet;
+#X obj 85 32 sel 1 0;
+#X connect 0 0 4 0;
+#X connect 1 0 7 0;
+#X connect 3 0 4 0;
+#X connect 3 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 5 0;
+#X connect 7 0 2 0;
+#X connect 8 0 9 0;
+#X connect 9 0 3 0;
+#X connect 9 1 0 0;
+#X restore 20 92 pd gem;
+#X obj 20 74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 41 73 gem on/off;
+#X connect 0 0 10 0;
+#X connect 3 0 10 1;
+#X connect 4 0 13 0;
+#X connect 5 0 13 0;
+#X connect 6 0 13 0;
+#X connect 7 0 13 0;
+#X connect 8 0 13 0;
+#X connect 9 0 13 0;
+#X connect 15 0 14 0;
diff --git a/msd/msd3D/03_msd3Dmemb.pd b/msd/msd3D/03_msd3Dmemb.pd
new file mode 100644
index 0000000..66309af
--- /dev/null
+++ b/msd/msd3D/03_msd3Dmemb.pd
@@ -0,0 +1,207 @@
+#N canvas 807 173 535 198 10;
+#X obj 26 16 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 50 15 reset;
+#X text 182 65 Add a constant force;
+#X msg 338 127 posZ fix \$1;
+#X text 337 86 Change altitude of corners;
+#N canvas 0 22 616 405 creation 0;
+#X obj 32 13 loadbang;
+#X obj 129 18 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
+-1;
+#X msg 202 59 reset;
+#X text 167 19 reset;
+#X msg 148 229 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0 \, Zmax 70
+\, Zmin 0;
+#X msg 130 255 0 4 \, 4 5 \, 5 6 \, 6 1 \, 7 8 \, 8 9 \, 9 10 \, 10
+11 \, 12 13 \, 13 14 \, 14 15 \, 15 16 \, 17 18 \, 18 19 \, 19 20 \,
+20 21 \, 2 22 \, 22 23 \, 23 24 \, 24 3 \, 0 7 \, 4 8 \, 5 9 \, 6 10
+\, 1 11 \, 7 12 \, 8 13 \, 9 14 \, 10 15 \, 11 16 \, 12 17 \, 13 18
+\, 14 19 \, 15 20 \, 16 21 \, 2 17 \, 18 22 \, 19 23 \, 20 24 \, 21
+3;
+#X msg 166 130 30 40 40 \, 30 50 40 \, 30 60 40 \, 40 30 40 \, 40 40
+40 \, 40 50 40 \, 40 60 40 \, 40 70 40 \, 50 30 40 \, 50 40 40 \, 50
+50 40 \, 50 60 40 \, 50 70 40 \, 60 30 40 \, 60 40 40 \, 60 50 40 \,
+60 60 40 \, 60 70 40 \, 70 40 40 \, 70 50 40 \, 70 60 40;
+#X msg 184 82 mass fix 0 100 30 30 40 \, mass fix 0 100 30 70 40 \,
+mass fix 0 100 70 30 40 \, mass fix 0 100 70 70 40;
+#X obj 130 38 t b b b b b;
+#X msg 166 193 mass mob 1 70 \$1 \$2 \$3;
+#X msg 130 335 link souple \$1 \$2 2 10;
+#X msg 71 72 posZ fix 70;
+#X obj 130 361 s \$0-msdin;
+#X obj 204 14 inlet;
+#X connect 0 0 8 0;
+#X connect 1 0 8 0;
+#X connect 2 0 12 0;
+#X connect 4 0 12 0;
+#X connect 5 0 10 0;
+#X connect 6 0 9 0;
+#X connect 7 0 12 0;
+#X connect 8 0 5 0;
+#X connect 8 0 11 0;
+#X connect 8 1 4 0;
+#X connect 8 2 6 0;
+#X connect 8 3 7 0;
+#X connect 8 4 2 0;
+#X connect 9 0 12 0;
+#X connect 10 0 12 0;
+#X connect 11 0 12 0;
+#X connect 13 0 8 0;
+#X restore 26 36 pd creation;
+#N canvas 0 22 450 300 compute 0;
+#N canvas 613 332 591 562 linkrender 0;
+#X obj 93 25 inlet;
+#X obj 93 117 / 12.5;
+#X obj 93 140 - 4;
+#X obj 147 118 / 12.5;
+#X obj 147 141 - 4;
+#X obj 42 266 separator;
+#X obj 63 163 t b f;
+#X obj 266 117 / 12.5;
+#X obj 266 140 - 4;
+#X obj 320 118 / 12.5;
+#X obj 320 141 - 4;
+#X obj 197 117 / 12.5;
+#X obj 197 142 - 4;
+#X obj 123 194 pack f f f;
+#X msg 123 217 \$1 \$2 \$3;
+#X obj 371 118 / 12.5;
+#X obj 371 141 - 4;
+#X obj 266 189 pack f f f;
+#X msg 266 212 \$1 \$2 \$3;
+#X obj 93 69 unpack f f f f f f f;
+#X obj 136 297 sel 0;
+#X obj 354 24 inlet;
+#X msg 132 418 \$1 \$1 \$1;
+#X obj 139 333 counter 0 2;
+#X obj 44 310 curve2;
+#X obj 133 363 / 2;
+#X msg 268 24 reset;
+#X obj 434 26 inlet;
+#X obj 437 52 t b;
+#X obj 31 196 gemhead 5;
+#X obj 31 222 color 1 1 1;
+#X obj 31 100 loadbang;
+#X msg 31 128 0;
+#X connect 0 0 19 0;
+#X connect 1 0 2 0;
+#X connect 2 0 13 0;
+#X connect 3 0 4 0;
+#X connect 4 0 13 1;
+#X connect 5 0 24 0;
+#X connect 6 0 29 0;
+#X connect 6 1 20 0;
+#X connect 7 0 8 0;
+#X connect 8 0 17 0;
+#X connect 9 0 10 0;
+#X connect 10 0 17 1;
+#X connect 11 0 12 0;
+#X connect 12 0 13 2;
+#X connect 13 0 14 0;
+#X connect 14 0 24 1;
+#X connect 15 0 16 0;
+#X connect 16 0 17 2;
+#X connect 17 0 18 0;
+#X connect 18 0 24 2;
+#X connect 19 0 6 0;
+#X connect 19 1 1 0;
+#X connect 19 2 3 0;
+#X connect 19 3 11 0;
+#X connect 19 4 7 0;
+#X connect 19 5 9 0;
+#X connect 19 6 15 0;
+#X connect 20 0 23 0;
+#X connect 21 0 23 3;
+#X connect 21 0 25 1;
+#X connect 23 0 25 0;
+#X connect 25 0 22 0;
+#X connect 26 0 23 0;
+#X connect 27 0 28 0;
+#X connect 28 0 26 0;
+#X connect 29 0 30 0;
+#X connect 30 0 5 0;
+#X connect 31 0 32 0;
+#X connect 32 0 29 0;
+#X restore 33 225 pd linkrender;
+#X obj 33 200 route linksPos;
+#X text 98 93 Multiple draw;
+#X obj 33 64 gemhead 15;
+#X msg 33 127 bang \, get linksPos;
+#X obj 33 92 t b b b b;
+#X obj 33 175 msd3D;
+#X obj 75 148 r \$0-msdin;
+#X connect 1 0 0 0;
+#X connect 3 0 5 0;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 5 1 4 0;
+#X connect 5 2 4 0;
+#X connect 5 3 4 0;
+#X connect 6 0 1 0;
+#X connect 7 0 6 0;
+#X restore 26 59 pd compute;
+#X text 182 23 membrane with a multiple drawing;
+#N canvas 0 22 450 300 constant 0;
+#X obj 122 129 f;
+#X msg 122 154 forceZ mob \$1;
+#X obj 122 73 metro 65;
+#X obj 122 25 inlet;
+#X obj 225 25 inlet;
+#X obj 122 180 s \$0-msdin;
+#X connect 0 0 1 0;
+#X connect 1 0 5 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 4 0 0 1;
+#X restore 183 126 pd constant;
+#X obj 183 83 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
+;
+#X text 221 82 on/off;
+#X floatatom 183 104 5 0 0 0 - - -;
+#N canvas 583 304 450 300 gem 0;
+#X obj 101 220 gemwin;
+#X msg 120 102 0 \, destroy;
+#X obj 13 211 gemhead;
+#X obj 13 234 world_light;
+#X msg 219 198 view 0 4 0 0 0 0 0 0 1;
+#X msg 219 156 view 4 0 0.5 0 0 0 0 0 1;
+#X msg 219 177 view 0 0 4 0 0 0 0 1 0;
+#X text -3 77 Create window;
+#X text 9 126 Change view;
+#X msg 101 80 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
+#X obj 101 17 inlet;
+#X obj 101 47 sel 1 0;
+#X obj 219 104 inlet;
+#X obj 219 134 sel 2 1 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 4 0 0 0;
+#X connect 5 0 0 0;
+#X connect 6 0 0 0;
+#X connect 9 0 0 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X connect 11 1 1 0;
+#X connect 12 0 13 0;
+#X connect 13 0 5 0;
+#X connect 13 1 6 0;
+#X connect 13 2 4 0;
+#X restore 26 135 pd gem;
+#X obj 26 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 79 84 gem on/off;
+#X obj 26 111 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
+-1 1;
+#X text 79 110 change view;
+#X obj 341 107 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 221 103 amplitude;
+#X obj 338 150 s \$0-msdin;
+#X connect 0 0 5 0;
+#X connect 3 0 19 0;
+#X connect 9 0 8 0;
+#X connect 11 0 8 1;
+#X connect 13 0 12 0;
+#X connect 15 0 12 1;
+#X connect 17 0 3 0;
diff --git a/msd/msd3D/04_msd3Dfilet.pd b/msd/msd3D/04_msd3Dfilet.pd
new file mode 100644
index 0000000..03c5b64
--- /dev/null
+++ b/msd/msd3D/04_msd3Dfilet.pd
@@ -0,0 +1,188 @@
+#N canvas 719 216 416 177 10;
+#X obj 26 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 47 31 reset;
+#N canvas 530 297 450 300 gem 0;
+#X obj 101 220 gemwin;
+#X msg 120 102 0 \, destroy;
+#X obj 13 211 gemhead;
+#X obj 13 234 world_light;
+#X msg 101 80 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
+#X obj 101 17 inlet;
+#X obj 101 47 sel 1 0;
+#X obj 219 104 inlet;
+#X obj 219 134 sel 2 1 0;
+#X msg 219 177 view 0 0 2 0 0 0 0 1 0;
+#X msg 219 198 view 0 4 4 0 0 0 0 0 1;
+#X msg 219 156 view 2 0 3.5 0 0 0 0 0 1;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 4 0 0 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 6 1 1 0;
+#X connect 7 0 8 0;
+#X connect 8 0 11 0;
+#X connect 8 1 9 0;
+#X connect 8 2 10 0;
+#X connect 9 0 0 0;
+#X connect 10 0 0 0;
+#X connect 11 0 0 0;
+#X restore 26 135 pd gem;
+#X obj 26 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 79 84 gem on/off;
+#X obj 26 111 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
+-1 0;
+#X text 79 110 change view;
+#N canvas 0 22 584 305 creation 0;
+#X msg 203 63 reset;
+#X msg 203 83 symbol reset;
+#X msg 145 173 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0 \, Zmax 70
+\, Zmin -40;
+#X msg 164 140 setFixed 62 \, setFixed 87 \, setFixed 512 \, setFixed
+537;
+#X obj 183 113 filet 20 30 2 2 20 30;
+#X obj 145 38 t b b b b;
+#X text 383 114 Filet abstraction : x0 y0 stepx stepy ny nx;
+#X obj 94 15 loadbang;
+#X obj 150 14 inlet;
+#X obj 145 205 s \$0-msdin;
+#X connect 0 0 9 0;
+#X connect 1 0 4 1;
+#X connect 2 0 9 0;
+#X connect 3 0 9 0;
+#X connect 4 0 9 0;
+#X connect 5 0 2 0;
+#X connect 5 1 3 0;
+#X connect 5 2 4 0;
+#X connect 5 3 0 0;
+#X connect 5 3 1 0;
+#X connect 7 0 5 0;
+#X connect 8 0 5 0;
+#X restore 26 52 pd creation;
+#N canvas 0 22 563 472 compute 0;
+#X obj 33 28 gemhead;
+#X obj 33 51 t b;
+#X msg 33 73 bang \, get massesPos \, get linksPos;
+#N canvas 643 123 613 598 massrender 0;
+#X obj 130 9 inlet;
+#X obj 48 203 translateXYZ;
+#X obj 48 229 sphere 0.1;
+#X obj 130 73 / 12.5;
+#X obj 130 96 - 4;
+#X obj 195 74 / 12.5;
+#X obj 195 97 - 4;
+#X obj 48 156 gemhead;
+#X obj 48 177 separator;
+#X obj 128 123 t b f;
+#X obj 249 75 / 12.5;
+#X obj 249 98 - 4;
+#X obj 130 44 unpack f f f f;
+#X obj 48 90 loadbang;
+#X msg 48 118 0;
+#X connect 0 0 12 0;
+#X connect 1 0 2 0;
+#X connect 3 0 4 0;
+#X connect 4 0 9 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 2;
+#X connect 7 0 8 0;
+#X connect 8 0 1 0;
+#X connect 9 0 7 0;
+#X connect 9 1 1 1;
+#X connect 10 0 11 0;
+#X connect 11 0 1 3;
+#X connect 12 1 3 0;
+#X connect 12 2 5 0;
+#X connect 12 3 10 0;
+#X connect 13 0 14 0;
+#X connect 14 0 7 0;
+#X restore 114 359 pd massrender;
+#N canvas 284 227 595 566 linkrender 0;
+#X obj 93 25 inlet;
+#X obj 93 117 / 12.5;
+#X obj 93 140 - 4;
+#X obj 147 118 / 12.5;
+#X obj 147 141 - 4;
+#X obj 44 194 gemhead;
+#X obj 44 222 separator;
+#X obj 93 164 t b f;
+#X obj 266 117 / 12.5;
+#X obj 266 140 - 4;
+#X obj 320 118 / 12.5;
+#X obj 320 141 - 4;
+#X obj 197 117 / 12.5;
+#X obj 197 142 - 4;
+#X obj 123 194 pack f f f;
+#X msg 123 217 \$1 \$2 \$3;
+#X obj 371 118 / 12.5;
+#X obj 371 141 - 4;
+#X obj 266 189 pack f f f;
+#X msg 266 212 \$1 \$2 \$3;
+#X obj 44 265 curve 2;
+#X obj 93 69 unpack f f f f f f f;
+#X obj 44 90 loadbang;
+#X msg 44 118 0;
+#X connect 0 0 21 0;
+#X connect 1 0 2 0;
+#X connect 2 0 7 0;
+#X connect 3 0 4 0;
+#X connect 4 0 14 1;
+#X connect 5 0 6 0;
+#X connect 6 0 20 0;
+#X connect 7 0 5 0;
+#X connect 7 1 14 0;
+#X connect 8 0 9 0;
+#X connect 9 0 18 0;
+#X connect 10 0 11 0;
+#X connect 11 0 18 1;
+#X connect 12 0 13 0;
+#X connect 13 0 14 2;
+#X connect 14 0 15 0;
+#X connect 15 0 20 1;
+#X connect 16 0 17 0;
+#X connect 17 0 18 2;
+#X connect 18 0 19 0;
+#X connect 19 0 20 2;
+#X connect 21 1 1 0;
+#X connect 21 2 3 0;
+#X connect 21 3 12 0;
+#X connect 21 4 8 0;
+#X connect 21 5 10 0;
+#X connect 21 6 16 0;
+#X connect 22 0 23 0;
+#X connect 23 0 5 0;
+#X restore 33 380 pd linkrender;
+#X obj 33 269 route linksPos massesPos;
+#X msg 46 145 forceZ filet -0.2;
+#X text 61 122 Ambient force;
+#X obj 47 188 r \$0-msdin;
+#X obj 147 296 inlet;
+#X obj 114 337 spigot;
+#X obj 33 341 spigot 1;
+#X obj 78 318 == 0;
+#X obj 33 227 msd3D;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 0 13 0;
+#X connect 5 0 11 0;
+#X connect 5 1 10 0;
+#X connect 6 0 13 0;
+#X connect 8 0 13 0;
+#X connect 9 0 10 1;
+#X connect 9 0 12 0;
+#X connect 10 0 3 0;
+#X connect 11 0 4 0;
+#X connect 12 0 11 1;
+#X connect 13 0 5 0;
+#X restore 204 131 pd compute;
+#X obj 204 106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X text 225 105 display links or masses;
+#X text 201 27 grid in a gravity field;
+#X connect 0 0 7 0;
+#X connect 3 0 2 0;
+#X connect 5 0 2 1;
+#X connect 9 0 8 0;
diff --git a/msd/msd3D/05_msd3Dvline.pd b/msd/msd3D/05_msd3Dvline.pd
new file mode 100644
index 0000000..e500868
--- /dev/null
+++ b/msd/msd3D/05_msd3Dvline.pd
@@ -0,0 +1,312 @@
+#N canvas 600 228 703 389 10;
+#N canvas 530 297 450 300 gem 0;
+#X obj 101 220 gemwin;
+#X msg 120 102 0 \, destroy;
+#X obj 13 211 gemhead;
+#X obj 13 234 world_light;
+#X msg 101 80 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
+#X obj 101 17 inlet;
+#X obj 101 47 sel 1 0;
+#X msg 219 156 view 0 0 11 0 0 0 1 0 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 4 0 0 0;
+#X connect 4 0 7 0;
+#X connect 5 0 6 0;
+#X connect 6 0 4 0;
+#X connect 6 1 1 0;
+#X connect 7 0 0 0;
+#X restore 14 85 pd gem;
+#X obj 14 62 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X text 33 60 gem on/off;
+#N canvas 0 22 563 316 creation 0;
+#X obj 32 13 loadbang;
+#X msg 204 68 reset;
+#X msg 204 88 symbol reset;
+#X obj 146 42 t b b b b;
+#X msg 165 139 setFixed 0 \, setFixed 29 \, setFixed 420 \, setFixed
+449;
+#X obj 184 115 filet -3.2 -3.2 0.22068 0.45714 15 30;
+#X msg 146 173 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 9 \,
+Zmin -6;
+#X obj 146 205 s \$0-msdin;
+#X obj 147 19 inlet;
+#X connect 0 0 3 0;
+#X connect 1 0 7 0;
+#X connect 2 0 5 1;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 3 2 5 0;
+#X connect 3 3 1 0;
+#X connect 3 3 2 0;
+#X connect 4 0 7 0;
+#X connect 5 0 7 0;
+#X connect 6 0 7 0;
+#X connect 8 0 3 0;
+#X restore 14 38 pd creation;
+#X text 34 17 reset;
+#X obj 14 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#N canvas 0 22 450 300 compute 0;
+#X obj 33 23 gemhead;
+#X obj 33 201 msd3D --------------------------------;
+#N canvas 646 294 504 533 getmmasses 0;
+#X obj 154 13 inlet;
+#X obj 152 238 outlet;
+#X obj 154 45 t b b;
+#X obj 156 162 f 0;
+#X obj 156 186 + 1;
+#X msg 242 154 0;
+#X obj 154 129 repeat 450;
+#X connect 0 0 2 0;
+#X connect 2 0 6 0;
+#X connect 2 1 5 0;
+#X connect 3 0 4 0;
+#X connect 3 0 1 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 1;
+#X connect 6 0 3 0;
+#X restore 60 116 pd getmmasses;
+#N canvas 446 323 942 390 massrender 0;
+#X obj 286 2 inlet;
+#X obj 306 144 pack f f f f;
+#X obj 306 99 % 30;
+#X obj 56 247 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
+19 20 21 22 23 24 25 26 27 28 29;
+#X obj 44 288 curve16 ---------------------------------------------
+;
+#X obj 325 41 unpack f f f f;
+#X obj 261 125 sel 29;
+#X obj 559 210 pack f f f f;
+#X obj 430 147 moses 240;
+#X obj 432 177 moses 210;
+#X text 669 215 Get middle masses;
+#X obj 555 295 outlet;
+#X obj 44 197 gemhead 45;
+#X obj 44 128 loadbang;
+#X msg 44 156 0;
+#X connect 0 0 5 0;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 1;
+#X connect 3 1 4 2;
+#X connect 3 2 4 3;
+#X connect 3 3 4 4;
+#X connect 3 4 4 5;
+#X connect 3 5 4 6;
+#X connect 3 6 4 7;
+#X connect 3 7 4 8;
+#X connect 3 8 4 9;
+#X connect 3 9 4 10;
+#X connect 3 10 4 11;
+#X connect 3 11 4 12;
+#X connect 3 12 4 13;
+#X connect 3 13 4 14;
+#X connect 3 14 4 15;
+#X connect 3 15 4 16;
+#X connect 3 16 4 17;
+#X connect 3 17 4 18;
+#X connect 3 18 4 19;
+#X connect 3 19 4 20;
+#X connect 3 20 4 21;
+#X connect 3 21 4 22;
+#X connect 3 22 4 23;
+#X connect 3 23 4 24;
+#X connect 3 24 4 25;
+#X connect 3 25 4 26;
+#X connect 3 26 4 27;
+#X connect 3 27 4 28;
+#X connect 3 28 4 29;
+#X connect 3 29 4 30;
+#X connect 5 0 2 0;
+#X connect 5 0 8 0;
+#X connect 5 1 1 1;
+#X connect 5 1 7 1;
+#X connect 5 2 1 2;
+#X connect 5 2 7 2;
+#X connect 5 3 1 3;
+#X connect 5 3 7 3;
+#X connect 6 0 12 0;
+#X connect 7 0 11 0;
+#X connect 8 0 9 0;
+#X connect 9 1 7 0;
+#X connect 12 0 4 0;
+#X connect 13 0 14 0;
+#X connect 14 0 12 0;
+#X restore 33 253 pd massrender;
+#X msg 60 140 get massesPos \$1;
+#X obj 33 47 t b b;
+#X msg 33 75 bang;
+#X text 154 155 Get masses in order;
+#X obj 33 227 route massesPosNo;
+#X obj 60 162 r \$0-msdin;
+#X connect 0 0 5 0;
+#X connect 1 0 8 0;
+#X connect 2 0 4 0;
+#X connect 4 0 1 0;
+#X connect 5 0 2 0;
+#X connect 5 0 6 0;
+#X connect 5 1 2 0;
+#X connect 5 1 6 0;
+#X connect 6 0 1 0;
+#X connect 8 0 3 0;
+#X connect 9 0 1 0;
+#X restore 14 106 pd compute;
+#N canvas 0 22 450 300 sinus 0;
+#X msg 206 243 forceZ filet \$1;
+#X obj 116 165 sin;
+#X obj 116 185 *;
+#X obj 116 105 counter 0 360;
+#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 0.23622
+;
+#X obj 116 125 / 3.6;
+#X obj 116 145 * 6.28319;
+#X obj 116 82 metro 35;
+#X obj 93 69 vsl 15 128 0 30 0 0 empty empty empty 0 -8 0 8 -262131
+-1 -1 0 1;
+#X text 64 215 Get masses in order;
+#X obj 206 264 s \$0-msdin;
+#X obj 163 51 inlet;
+#X connect 0 0 10 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
+#X connect 3 0 5 0;
+#X connect 4 0 7 0;
+#X connect 5 0 6 0;
+#X connect 6 0 1 0;
+#X connect 7 0 3 0;
+#X connect 8 0 4 0;
+#X connect 11 0 2 1;
+#X connect 11 0 4 0;
+#X restore 190 146 pd sinus;
+#X obj 193 125 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 189 106 add sinusoidal force;
+#X text 330 107 add constant force;
+#N canvas 0 22 450 300 constant 0;
+#X msg 176 111 forceZ filet \$1;
+#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 1
+;
+#X obj 176 84 f;
+#X obj 176 60 metro 65;
+#X obj 176 132 s \$0-msdin;
+#X obj 225 28 inlet;
+#X connect 0 0 4 0;
+#X connect 1 0 3 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 5 0 1 0;
+#X connect 5 0 2 1;
+#X restore 332 145 pd constant;
+#X obj 335 125 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 151 26 vertical lines under various forces;
+#N canvas 0 22 450 300 sinus 0;
+#X obj 116 195 sin;
+#X obj 116 215 *;
+#X obj 116 135 counter 0 360;
+#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 8
+;
+#X obj 116 155 / 3.6;
+#X obj 116 175 * 6.28319;
+#X obj 116 112 metro 35;
+#X obj 116 264 s \$0-msdin;
+#X obj 163 51 inlet;
+#X msg 116 243 forceX filet \$1;
+#X obj 163 83 / 30;
+#X connect 0 0 1 0;
+#X connect 1 0 9 0;
+#X connect 2 0 4 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 0;
+#X connect 6 0 2 0;
+#X connect 8 0 3 0;
+#X connect 8 0 10 0;
+#X connect 9 0 7 0;
+#X connect 10 0 1 1;
+#X restore 190 216 pd sinus;
+#X obj 193 195 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 189 176 add sinusoidal force;
+#X text 330 177 add constant force;
+#N canvas 0 22 450 300 constant 0;
+#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 10
+;
+#X obj 176 84 f;
+#X obj 176 60 metro 65;
+#X obj 176 152 s \$0-msdin;
+#X obj 225 28 inlet;
+#X msg 176 131 forceX filet \$1;
+#X obj 176 107 / 100;
+#X connect 0 0 2 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 4 0 0 0;
+#X connect 4 0 1 1;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X restore 332 215 pd constant;
+#X obj 335 195 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 128 120 on Z;
+#X text 128 193 on Y;
+#N canvas 0 22 450 300 sinus 0;
+#X obj 116 205 sin;
+#X obj 116 225 *;
+#X obj 116 145 counter 0 360;
+#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 3
+;
+#X obj 116 165 / 3.6;
+#X obj 116 185 * 6.28319;
+#X obj 116 122 metro 35;
+#X obj 116 287 s \$0-msdin;
+#X obj 163 51 inlet;
+#X msg 116 266 forceY filet \$1;
+#X obj 163 78 / 30;
+#X connect 0 0 1 0;
+#X connect 1 0 9 0;
+#X connect 2 0 4 0;
+#X connect 3 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 0;
+#X connect 6 0 2 0;
+#X connect 8 0 3 0;
+#X connect 8 0 10 0;
+#X connect 9 0 7 0;
+#X connect 10 0 1 1;
+#X restore 190 276 pd sinus;
+#X obj 193 255 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 189 236 add sinusoidal force;
+#X text 330 237 add constant force;
+#N canvas 0 22 450 300 constant 0;
+#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 12
+;
+#X obj 176 84 f;
+#X obj 176 60 metro 65;
+#X obj 176 172 s \$0-msdin;
+#X obj 225 28 inlet;
+#X msg 176 151 forceY filet \$1;
+#X obj 176 113 / 127;
+#X connect 0 0 2 0;
+#X connect 1 0 6 0;
+#X connect 2 0 1 0;
+#X connect 4 0 0 0;
+#X connect 4 0 1 1;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X restore 332 275 pd constant;
+#X obj 335 255 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
+-1 -1 0 1;
+#X text 128 253 on X;
+#X connect 1 0 0 0;
+#X connect 5 0 3 0;
+#X connect 8 0 7 0;
+#X connect 12 0 11 0;
+#X connect 15 0 14 0;
+#X connect 19 0 18 0;
+#X connect 23 0 22 0;
+#X connect 27 0 26 0;
diff --git a/msd/msd3D/Makefile.am b/msd/msd3D/Makefile.am
new file mode 100644
index 0000000..59a3dff
--- /dev/null
+++ b/msd/msd3D/Makefile.am
@@ -0,0 +1,51 @@
+#
+# automake template
+# added by tim blechmann
+#
+
+NAME = msd2
+
+BUILT_SOURCES = main.cpp
+
+EXTRA_DIST = main.cpp \
+ $(NAME).mcp \
+ $(NAME).vcproj
+
+CXXFLAGS = @CXXFLAGS@ \
+ @OPT_FLAGS@ \
+ @INCLUDEDIR@ \
+ -I../../source \
+ $(DEFS) \
+ -DFLEXT_SHARED
+
+LDFLAGS = @DYNAMIC_LDFLAGS@ @LDFLAGS@ \
+ $(patsubst %,-framework %,$(FRAMEWORKS))
+
+LIBS = @LIBS@ -lflext-pd
+
+FRAMEWORKS = @FRAMEWORKS@
+
+TARGETDIR = @TARGETDIR@
+
+TARGET =$(NAME).@EXTENSION@
+
+OBJECTS = $(patsubst %.cpp,./%.@OBJEXT@,$(BUILT_SOURCES))
+
+SYSDIR = @SYSDIR@
+
+
+# ----------------------------- targets --------------------------------
+
+all-local: $(OBJECTS)
+ $(CXX) $(LDFLAGS) ./*.@OBJEXT@ $(LIBS) -o ../$(TARGETDIR)/$(TARGET)
+ strip --strip-unneeded ../$(TARGETDIR)/$(TARGET)
+
+./%.@OBJEXT@ : %.cpp
+ $(CXX) -c $(CXXFLAGS) $< -o $@
+
+clean-local:
+ rm -f ../$(TARGETDIR)/$(TARGET)
+ rm -f ./$(OBJECTS)
+
+install-exec-local:
+ install ../$(TARGET) $(SYSDIR)extra
diff --git a/msd/msd3D/curve16.pd b/msd/msd3D/curve16.pd
new file mode 100644
index 0000000..cdf10c6
--- /dev/null
+++ b/msd/msd3D/curve16.pd
@@ -0,0 +1,133 @@
+#N canvas 8 35 1142 910 10;
+#X obj 31 123 GEMglBegin;
+#X obj 86 100 GLdefine GL_LINE_STRIP;
+#X obj 31 13 inlet;
+#X obj 86 77 loadbang;
+#X obj 159 13 inlet;
+#X obj 200 13 inlet;
+#X obj 25 865 GEMglEnd;
+#X obj 31 151 GEMglVertex3fv;
+#X obj 31 175 GEMglVertex3fv;
+#X obj 241 13 inlet;
+#X obj 280 12 inlet;
+#X obj 29 202 GEMglVertex3fv;
+#X obj 29 226 GEMglVertex3fv;
+#X obj 319 12 inlet;
+#X obj 359 12 inlet;
+#X obj 161 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 29 252 GEMglVertex3fv;
+#X obj 29 276 GEMglVertex3fv;
+#X obj 29 300 GEMglVertex3fv;
+#X obj 29 324 GEMglVertex3fv;
+#X obj 28 346 GEMglVertex3fv;
+#X obj 28 370 GEMglVertex3fv;
+#X obj 28 394 GEMglVertex3fv;
+#X obj 28 418 GEMglVertex3fv;
+#X obj 403 12 inlet;
+#X obj 444 12 inlet;
+#X obj 485 12 inlet;
+#X obj 524 11 inlet;
+#X obj 563 11 inlet;
+#X obj 603 11 inlet;
+#X obj 28 441 GEMglVertex3fv;
+#X obj 28 465 GEMglVertex3fv;
+#X obj 28 489 GEMglVertex3fv;
+#X obj 27 511 GEMglVertex3fv;
+#X obj 27 535 GEMglVertex3fv;
+#X obj 27 559 GEMglVertex3fv;
+#X obj 27 583 GEMglVertex3fv;
+#X obj 643 13 inlet;
+#X obj 683 13 inlet;
+#X obj 727 13 inlet;
+#X obj 768 13 inlet;
+#X obj 809 13 inlet;
+#X obj 848 12 inlet;
+#X obj 887 12 inlet;
+#X obj 927 12 inlet;
+#X obj 27 605 GEMglVertex3fv;
+#X obj 26 625 GEMglVertex3fv;
+#X obj 26 649 GEMglVertex3fv;
+#X obj 26 672 GEMglVertex3fv;
+#X obj 26 696 GEMglVertex3fv;
+#X obj 26 720 GEMglVertex3fv;
+#X obj 25 742 GEMglVertex3fv;
+#X obj 25 766 GEMglVertex3fv;
+#X obj 25 790 GEMglVertex3fv;
+#X obj 25 814 GEMglVertex3fv;
+#X obj 25 836 GEMglVertex3fv;
+#X obj 970 13 inlet;
+#X obj 1010 13 inlet;
+#X obj 1050 15 inlet;
+#X obj 1090 15 inlet;
+#X obj 1134 15 inlet;
+#X obj 1175 15 inlet;
+#X obj 1216 15 inlet;
+#X obj 1255 14 inlet;
+#X obj 1294 14 inlet;
+#X obj 1334 14 inlet;
+#X connect 0 0 7 0;
+#X connect 1 0 0 1;
+#X connect 2 0 0 0;
+#X connect 3 0 1 0;
+#X connect 4 0 7 1;
+#X connect 5 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 11 0;
+#X connect 9 0 11 1;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 12 0 16 0;
+#X connect 13 0 16 1;
+#X connect 14 0 17 1;
+#X connect 15 0 1 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 23 0 30 0;
+#X connect 24 0 18 1;
+#X connect 25 0 19 1;
+#X connect 26 0 20 1;
+#X connect 27 0 21 1;
+#X connect 28 0 22 1;
+#X connect 29 0 23 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X connect 32 0 33 0;
+#X connect 33 0 34 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 45 0;
+#X connect 37 0 30 1;
+#X connect 38 0 31 1;
+#X connect 39 0 32 1;
+#X connect 40 0 33 1;
+#X connect 41 0 34 1;
+#X connect 42 0 35 1;
+#X connect 43 0 36 1;
+#X connect 44 0 45 1;
+#X connect 45 0 46 0;
+#X connect 46 0 47 0;
+#X connect 47 0 48 0;
+#X connect 48 0 49 0;
+#X connect 49 0 50 0;
+#X connect 50 0 51 0;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X connect 53 0 54 0;
+#X connect 54 0 55 0;
+#X connect 55 0 6 0;
+#X connect 56 0 46 1;
+#X connect 57 0 47 1;
+#X connect 58 0 48 1;
+#X connect 59 0 49 1;
+#X connect 60 0 50 1;
+#X connect 61 0 51 1;
+#X connect 62 0 52 1;
+#X connect 63 0 53 1;
+#X connect 64 0 54 1;
+#X connect 65 0 55 1;
diff --git a/msd/msd3D/curve2.pd b/msd/msd3D/curve2.pd
new file mode 100644
index 0000000..7fb277b
--- /dev/null
+++ b/msd/msd3D/curve2.pd
@@ -0,0 +1,23 @@
+#N canvas 0 25 1255 894 10;
+#X obj 30 164 GEMglBegin;
+#X obj 86 100 GLdefine GL_LINE_STRIP;
+#X obj 31 13 inlet;
+#X obj 86 77 loadbang;
+#X obj 159 13 inlet;
+#X obj 200 13 inlet;
+#X obj 27 241 GEMglEnd;
+#X obj 30 188 GEMglVertex3fv;
+#X obj 30 212 GEMglVertex3fv;
+#X obj 161 76 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 30 138 GEMglNormal3fv 0 0 1;
+#X connect 0 0 7 0;
+#X connect 1 0 0 1;
+#X connect 2 0 10 0;
+#X connect 3 0 1 0;
+#X connect 4 0 7 1;
+#X connect 5 0 8 1;
+#X connect 7 0 8 0;
+#X connect 8 0 6 0;
+#X connect 9 0 1 0;
+#X connect 10 0 0 0;
diff --git a/msd/msd3D/filet.pd b/msd/msd3D/filet.pd
new file mode 100644
index 0000000..fb67b80
--- /dev/null
+++ b/msd/msd3D/filet.pd
@@ -0,0 +1,106 @@
+#N canvas 543 268 669 547 10;
+#X obj 54 407 outlet;
+#X obj 152 71 f \$5;
+#X obj 188 72 f \$6;
+#X obj 115 17 loadbang;
+#X obj 46 134 repeat 0;
+#X obj 172 101 *;
+#X obj 130 45 t b b b b;
+#X obj 46 164 f -1;
+#X obj 46 188 + 1;
+#X msg 297 77 -1;
+#X obj 46 211 t f f;
+#X obj 150 323 pack f f;
+#X obj 46 50 inlet;
+#X obj 297 28 select reset;
+#X obj 297 5 inlet;
+#X obj 46 89 t b b;
+#X obj 330 175 repeat 0;
+#X obj 330 197 f -1;
+#X obj 330 218 + 1;
+#X obj 381 153 - 1;
+#X obj 387 340 moses;
+#X obj 46 280 + \$1;
+#X obj 176 278 + \$2;
+#X obj 46 234 mod \$6;
+#X obj 176 234 div \$6;
+#X text 445 35 x0 y0 xstep ystep M N;
+#X obj 414 314 - 1;
+#X obj 357 297 mod \$6;
+#X obj 474 300 div \$6;
+#X obj 366 396 + 1;
+#X obj 336 432 pack f f;
+#X obj 344 59 t b b;
+#X obj 375 370 t b;
+#X obj 334 391 f;
+#X obj 330 253 t f f f f;
+#X obj 494 339 moses;
+#X obj 443 431 pack f f;
+#X obj 482 369 t b;
+#X obj 441 390 f;
+#X obj 473 395 + \$6;
+#X obj 521 313 - 1;
+#X obj 46 257 * \$3;
+#X obj 176 256 * \$4;
+#X msg 335 468 link fil \$1 \$2 10 25;
+#X msg 54 359 mass filet 1 180 \$1 \$2 0;
+#X connect 1 0 5 0;
+#X connect 1 0 40 0;
+#X connect 2 0 5 1;
+#X connect 2 0 26 0;
+#X connect 3 0 6 0;
+#X connect 4 0 7 0;
+#X connect 5 0 4 1;
+#X connect 5 0 19 0;
+#X connect 6 2 1 0;
+#X connect 6 3 2 0;
+#X connect 6 3 9 0;
+#X connect 7 0 8 0;
+#X connect 8 0 7 1;
+#X connect 8 0 10 0;
+#X connect 9 0 7 1;
+#X connect 9 0 17 1;
+#X connect 10 0 23 0;
+#X connect 10 1 24 0;
+#X connect 11 0 44 0;
+#X connect 12 0 15 0;
+#X connect 13 0 9 0;
+#X connect 13 0 31 0;
+#X connect 14 0 13 0;
+#X connect 15 0 16 0;
+#X connect 15 1 4 0;
+#X connect 16 0 17 0;
+#X connect 17 0 18 0;
+#X connect 18 0 17 1;
+#X connect 18 0 34 0;
+#X connect 19 0 16 1;
+#X connect 20 0 32 0;
+#X connect 21 0 11 0;
+#X connect 22 0 11 1;
+#X connect 23 0 41 0;
+#X connect 24 0 42 0;
+#X connect 26 0 20 1;
+#X connect 27 0 20 0;
+#X connect 28 0 35 0;
+#X connect 29 0 30 1;
+#X connect 30 0 43 0;
+#X connect 31 0 1 0;
+#X connect 31 1 2 0;
+#X connect 32 0 33 0;
+#X connect 33 0 30 0;
+#X connect 34 0 27 0;
+#X connect 34 1 29 0;
+#X connect 34 1 33 1;
+#X connect 34 2 28 0;
+#X connect 34 3 39 0;
+#X connect 34 3 38 1;
+#X connect 35 0 37 0;
+#X connect 36 0 43 0;
+#X connect 37 0 38 0;
+#X connect 38 0 36 0;
+#X connect 39 0 36 1;
+#X connect 40 0 35 1;
+#X connect 41 0 21 0;
+#X connect 42 0 22 0;
+#X connect 43 0 0 0;
+#X connect 44 0 0 0;
diff --git a/msd/msd3D/license.txt b/msd/msd3D/license.txt
new file mode 100644
index 0000000..b1e3f5a
--- /dev/null
+++ b/msd/msd3D/license.txt
@@ -0,0 +1,504 @@
+ GNU LESSER GENERAL PUBLIC LICENSE
+ Version 2.1, February 1999
+
+ Copyright (C) 1991, 1999 Free Software Foundation, Inc.
+ 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+[This is the first released version of the Lesser GPL. It also counts
+ as the successor of the GNU Library Public License, version 2, hence
+ the version number 2.1.]
+
+ Preamble
+
+ The licenses for most software are designed to take away your
+freedom to share and change it. By contrast, the GNU General Public
+Licenses are intended to guarantee your freedom to share and change
+free software--to make sure the software is free for all its users.
+
+ This license, the Lesser General Public License, applies to some
+specially designated software packages--typically libraries--of the
+Free Software Foundation and other authors who decide to use it. You
+can use it too, but we suggest you first think carefully about whether
+this license or the ordinary General Public License is the better
+strategy to use in any particular case, based on the explanations below.
+
+ When we speak of free software, we are referring to freedom of use,
+not price. Our General Public Licenses are designed to make sure that
+you have the freedom to distribute copies of free software (and charge
+for this service if you wish); that you receive source code or can get
+it if you want it; that you can change the software and use pieces of
+it in new free programs; and that you are informed that you can do
+these things.
+
+ To protect your rights, we need to make restrictions that forbid
+distributors to deny you these rights or to ask you to surrender these
+rights. These restrictions translate to certain responsibilities for
+you if you distribute copies of the library or if you modify it.
+
+ For example, if you distribute copies of the library, whether gratis
+or for a fee, you must give the recipients all the rights that we gave
+you. You must make sure that they, too, receive or can get the source
+code. If you link other code with the library, you must provide
+complete object files to the recipients, so that they can relink them
+with the library after making changes to the library and recompiling
+it. And you must show them these terms so they know their rights.
+
+ We protect your rights with a two-step method: (1) we copyright the
+library, and (2) we offer you this license, which gives you legal
+permission to copy, distribute and/or modify the library.
+
+ To protect each distributor, we want to make it very clear that
+there is no warranty for the free library. Also, if the library is
+modified by someone else and passed on, the recipients should know
+that what they have is not the original version, so that the original
+author's reputation will not be affected by problems that might be
+introduced by others.
+
+ Finally, software patents pose a constant threat to the existence of
+any free program. We wish to make sure that a company cannot
+effectively restrict the users of a free program by obtaining a
+restrictive license from a patent holder. Therefore, we insist that
+any patent license obtained for a version of the library must be
+consistent with the full freedom of use specified in this license.
+
+ Most GNU software, including some libraries, is covered by the
+ordinary GNU General Public License. This license, the GNU Lesser
+General Public License, applies to certain designated libraries, and
+is quite different from the ordinary General Public License. We use
+this license for certain libraries in order to permit linking those
+libraries into non-free programs.
+
+ When a program is linked with a library, whether statically or using
+a shared library, the combination of the two is legally speaking a
+combined work, a derivative of the original library. The ordinary
+General Public License therefore permits such linking only if the
+entire combination fits its criteria of freedom. The Lesser General
+Public License permits more lax criteria for linking other code with
+the library.
+
+ We call this license the "Lesser" General Public License because it
+does Less to protect the user's freedom than the ordinary General
+Public License. It also provides other free software developers Less
+of an advantage over competing non-free programs. These disadvantages
+are the reason we use the ordinary General Public License for many
+libraries. However, the Lesser license provides advantages in certain
+special circumstances.
+
+ For example, on rare occasions, there may be a special need to
+encourage the widest possible use of a certain library, so that it becomes
+a de-facto standard. To achieve this, non-free programs must be
+allowed to use the library. A more frequent case is that a free
+library does the same job as widely used non-free libraries. In this
+case, there is little to gain by limiting the free library to free
+software only, so we use the Lesser General Public License.
+
+ In other cases, permission to use a particular library in non-free
+programs enables a greater number of people to use a large body of
+free software. For example, permission to use the GNU C Library in
+non-free programs enables many more people to use the whole GNU
+operating system, as well as its variant, the GNU/Linux operating
+system.
+
+ Although the Lesser General Public License is Less protective of the
+users' freedom, it does ensure that the user of a program that is
+linked with the Library has the freedom and the wherewithal to run
+that program using a modified version of the Library.
+
+ The precise terms and conditions for copying, distribution and
+modification follow. Pay close attention to the difference between a
+"work based on the library" and a "work that uses the library". The
+former contains code derived from the library, whereas the latter must
+be combined with the library in order to run.
+
+ GNU LESSER GENERAL PUBLIC LICENSE
+ TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. This License Agreement applies to any software library or other
+program which contains a notice placed by the copyright holder or
+other authorized party saying it may be distributed under the terms of
+this Lesser General Public License (also called "this License").
+Each licensee is addressed as "you".
+
+ A "library" means a collection of software functions and/or data
+prepared so as to be conveniently linked with application programs
+(which use some of those functions and data) to form executables.
+
+ The "Library", below, refers to any such software library or work
+which has been distributed under these terms. A "work based on the
+Library" means either the Library or any derivative work under
+copyright law: that is to say, a work containing the Library or a
+portion of it, either verbatim or with modifications and/or translated
+straightforwardly into another language. (Hereinafter, translation is
+included without limitation in the term "modification".)
+
+ "Source code" for a work means the preferred form of the work for
+making modifications to it. For a library, complete source code means
+all the source code for all modules it contains, plus any associated
+interface definition files, plus the scripts used to control compilation
+and installation of the library.
+
+ Activities other than copying, distribution and modification are not
+covered by this License; they are outside its scope. The act of
+running a program using the Library is not restricted, and output from
+such a program is covered only if its contents constitute a work based
+on the Library (independent of the use of the Library in a tool for
+writing it). Whether that is true depends on what the Library does
+and what the program that uses the Library does.
+
+ 1. You may copy and distribute verbatim copies of the Library's
+complete source code as you receive it, in any medium, provided that
+you conspicuously and appropriately publish on each copy an
+appropriate copyright notice and disclaimer of warranty; keep intact
+all the notices that refer to this License and to the absence of any
+warranty; and distribute a copy of this License along with the
+Library.
+
+ You may charge a fee for the physical act of transferring a copy,
+and you may at your option offer warranty protection in exchange for a
+fee.
+
+ 2. You may modify your copy or copies of the Library or any portion
+of it, thus forming a work based on the Library, and copy and
+distribute such modifications or work under the terms of Section 1
+above, provided that you also meet all of these conditions:
+
+ a) The modified work must itself be a software library.
+
+ b) You must cause the files modified to carry prominent notices
+ stating that you changed the files and the date of any change.
+
+ c) You must cause the whole of the work to be licensed at no
+ charge to all third parties under the terms of this License.
+
+ d) If a facility in the modified Library refers to a function or a
+ table of data to be supplied by an application program that uses
+ the facility, other than as an argument passed when the facility
+ is invoked, then you must make a good faith effort to ensure that,
+ in the event an application does not supply such function or
+ table, the facility still operates, and performs whatever part of
+ its purpose remains meaningful.
+
+ (For example, a function in a library to compute square roots has
+ a purpose that is entirely well-defined independent of the
+ application. Therefore, Subsection 2d requires that any
+ application-supplied function or table used by this function must
+ be optional: if the application does not supply it, the square
+ root function must still compute square roots.)
+
+These requirements apply to the modified work as a whole. If
+identifiable sections of that work are not derived from the Library,
+and can be reasonably considered independent and separate works in
+themselves, then this License, and its terms, do not apply to those
+sections when you distribute them as separate works. But when you
+distribute the same sections as part of a whole which is a work based
+on the Library, the distribution of the whole must be on the terms of
+this License, whose permissions for other licensees extend to the
+entire whole, and thus to each and every part regardless of who wrote
+it.
+
+Thus, it is not the intent of this section to claim rights or contest
+your rights to work written entirely by you; rather, the intent is to
+exercise the right to control the distribution of derivative or
+collective works based on the Library.
+
+In addition, mere aggregation of another work not based on the Library
+with the Library (or with a work based on the Library) on a volume of
+a storage or distribution medium does not bring the other work under
+the scope of this License.
+
+ 3. You may opt to apply the terms of the ordinary GNU General Public
+License instead of this License to a given copy of the Library. To do
+this, you must alter all the notices that refer to this License, so
+that they refer to the ordinary GNU General Public License, version 2,
+instead of to this License. (If a newer version than version 2 of the
+ordinary GNU General Public License has appeared, then you can specify
+that version instead if you wish.) Do not make any other change in
+these notices.
+
+ Once this change is made in a given copy, it is irreversible for
+that copy, so the ordinary GNU General Public License applies to all
+subsequent copies and derivative works made from that copy.
+
+ This option is useful when you wish to copy part of the code of
+the Library into a program that is not a library.
+
+ 4. You may copy and distribute the Library (or a portion or
+derivative of it, under Section 2) in object code or executable form
+under the terms of Sections 1 and 2 above provided that you accompany
+it with the complete corresponding machine-readable source code, which
+must be distributed under the terms of Sections 1 and 2 above on a
+medium customarily used for software interchange.
+
+ If distribution of object code is made by offering access to copy
+from a designated place, then offering equivalent access to copy the
+source code from the same place satisfies the requirement to
+distribute the source code, even though third parties are not
+compelled to copy the source along with the object code.
+
+ 5. A program that contains no derivative of any portion of the
+Library, but is designed to work with the Library by being compiled or
+linked with it, is called a "work that uses the Library". Such a
+work, in isolation, is not a derivative work of the Library, and
+therefore falls outside the scope of this License.
+
+ However, linking a "work that uses the Library" with the Library
+creates an executable that is a derivative of the Library (because it
+contains portions of the Library), rather than a "work that uses the
+library". The executable is therefore covered by this License.
+Section 6 states terms for distribution of such executables.
+
+ When a "work that uses the Library" uses material from a header file
+that is part of the Library, the object code for the work may be a
+derivative work of the Library even though the source code is not.
+Whether this is true is especially significant if the work can be
+linked without the Library, or if the work is itself a library. The
+threshold for this to be true is not precisely defined by law.
+
+ If such an object file uses only numerical parameters, data
+structure layouts and accessors, and small macros and small inline
+functions (ten lines or less in length), then the use of the object
+file is unrestricted, regardless of whether it is legally a derivative
+work. (Executables containing this object code plus portions of the
+Library will still fall under Section 6.)
+
+ Otherwise, if the work is a derivative of the Library, you may
+distribute the object code for the work under the terms of Section 6.
+Any executables containing that work also fall under Section 6,
+whether or not they are linked directly with the Library itself.
+
+ 6. As an exception to the Sections above, you may also combine or
+link a "work that uses the Library" with the Library to produce a
+work containing portions of the Library, and distribute that work
+under terms of your choice, provided that the terms permit
+modification of the work for the customer's own use and reverse
+engineering for debugging such modifications.
+
+ You must give prominent notice with each copy of the work that the
+Library is used in it and that the Library and its use are covered by
+this License. You must supply a copy of this License. If the work
+during execution displays copyright notices, you must include the
+copyright notice for the Library among them, as well as a reference
+directing the user to the copy of this License. Also, you must do one
+of these things:
+
+ a) Accompany the work with the complete corresponding
+ machine-readable source code for the Library including whatever
+ changes were used in the work (which must be distributed under
+ Sections 1 and 2 above); and, if the work is an executable linked
+ with the Library, with the complete machine-readable "work that
+ uses the Library", as object code and/or source code, so that the
+ user can modify the Library and then relink to produce a modified
+ executable containing the modified Library. (It is understood
+ that the user who changes the contents of definitions files in the
+ Library will not necessarily be able to recompile the application
+ to use the modified definitions.)
+
+ b) Use a suitable shared library mechanism for linking with the
+ Library. A suitable mechanism is one that (1) uses at run time a
+ copy of the library already present on the user's computer system,
+ rather than copying library functions into the executable, and (2)
+ will operate properly with a modified version of the library, if
+ the user installs one, as long as the modified version is
+ interface-compatible with the version that the work was made with.
+
+ c) Accompany the work with a written offer, valid for at
+ least three years, to give the same user the materials
+ specified in Subsection 6a, above, for a charge no more
+ than the cost of performing this distribution.
+
+ d) If distribution of the work is made by offering access to copy
+ from a designated place, offer equivalent access to copy the above
+ specified materials from the same place.
+
+ e) Verify that the user has already received a copy of these
+ materials or that you have already sent this user a copy.
+
+ For an executable, the required form of the "work that uses the
+Library" must include any data and utility programs needed for
+reproducing the executable from it. However, as a special exception,
+the materials to be distributed need not include anything that is
+normally distributed (in either source or binary form) with the major
+components (compiler, kernel, and so on) of the operating system on
+which the executable runs, unless that component itself accompanies
+the executable.
+
+ It may happen that this requirement contradicts the license
+restrictions of other proprietary libraries that do not normally
+accompany the operating system. Such a contradiction means you cannot
+use both them and the Library together in an executable that you
+distribute.
+
+ 7. You may place library facilities that are a work based on the
+Library side-by-side in a single library together with other library
+facilities not covered by this License, and distribute such a combined
+library, provided that the separate distribution of the work based on
+the Library and of the other library facilities is otherwise
+permitted, and provided that you do these two things:
+
+ a) Accompany the combined library with a copy of the same work
+ based on the Library, uncombined with any other library
+ facilities. This must be distributed under the terms of the
+ Sections above.
+
+ b) Give prominent notice with the combined library of the fact
+ that part of it is a work based on the Library, and explaining
+ where to find the accompanying uncombined form of the same work.
+
+ 8. You may not copy, modify, sublicense, link with, or distribute
+the Library except as expressly provided under this License. Any
+attempt otherwise to copy, modify, sublicense, link with, or
+distribute the Library is void, and will automatically terminate your
+rights under this License. However, parties who have received copies,
+or rights, from you under this License will not have their licenses
+terminated so long as such parties remain in full compliance.
+
+ 9. You are not required to accept this License, since you have not
+signed it. However, nothing else grants you permission to modify or
+distribute the Library or its derivative works. These actions are
+prohibited by law if you do not accept this License. Therefore, by
+modifying or distributing the Library (or any work based on the
+Library), you indicate your acceptance of this License to do so, and
+all its terms and conditions for copying, distributing or modifying
+the Library or works based on it.
+
+ 10. Each time you redistribute the Library (or any work based on the
+Library), the recipient automatically receives a license from the
+original licensor to copy, distribute, link with or modify the Library
+subject to these terms and conditions. You may not impose any further
+restrictions on the recipients' exercise of the rights granted herein.
+You are not responsible for enforcing compliance by third parties with
+this License.
+
+ 11. If, as a consequence of a court judgment or allegation of patent
+infringement or for any other reason (not limited to patent issues),
+conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License. If you cannot
+distribute so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you
+may not distribute the Library at all. For example, if a patent
+license would not permit royalty-free redistribution of the Library by
+all those who receive copies directly or indirectly through you, then
+the only way you could satisfy both it and this License would be to
+refrain entirely from distribution of the Library.
+
+If any portion of this section is held invalid or unenforceable under any
+particular circumstance, the balance of the section is intended to apply,
+and the section as a whole is intended to apply in other circumstances.
+
+It is not the purpose of this section to induce you to infringe any
+patents or other property right claims or to contest validity of any
+such claims; this section has the sole purpose of protecting the
+integrity of the free software distribution system which is
+implemented by public license practices. Many people have made
+generous contributions to the wide range of software distributed
+through that system in reliance on consistent application of that
+system; it is up to the author/donor to decide if he or she is willing
+to distribute software through any other system and a licensee cannot
+impose that choice.
+
+This section is intended to make thoroughly clear what is believed to
+be a consequence of the rest of this License.
+
+ 12. If the distribution and/or use of the Library is restricted in
+certain countries either by patents or by copyrighted interfaces, the
+original copyright holder who places the Library under this License may add
+an explicit geographical distribution limitation excluding those countries,
+so that distribution is permitted only in or among countries not thus
+excluded. In such case, this License incorporates the limitation as if
+written in the body of this License.
+
+ 13. The Free Software Foundation may publish revised and/or new
+versions of the Lesser General Public License from time to time.
+Such new versions will be similar in spirit to the present version,
+but may differ in detail to address new problems or concerns.
+
+Each version is given a distinguishing version number. If the Library
+specifies a version number of this License which applies to it and
+"any later version", you have the option of following the terms and
+conditions either of that version or of any later version published by
+the Free Software Foundation. If the Library does not specify a
+license version number, you may choose any version ever published by
+the Free Software Foundation.
+
+ 14. If you wish to incorporate parts of the Library into other free
+programs whose distribution conditions are incompatible with these,
+write to the author to ask for permission. For software which is
+copyrighted by the Free Software Foundation, write to the Free
+Software Foundation; we sometimes make exceptions for this. Our
+decision will be guided by the two goals of preserving the free status
+of all derivatives of our free software and of promoting the sharing
+and reuse of software generally.
+
+ NO WARRANTY
+
+ 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
+WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
+KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
+LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
+THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+ 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
+FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
+SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+DAMAGES.
+
+ END OF TERMS AND CONDITIONS
+
+ How to Apply These Terms to Your New Libraries
+
+ If you develop a new library, and you want it to be of the greatest
+possible use to the public, we recommend making it free software that
+everyone can redistribute and change. You can do so by permitting
+redistribution under these terms (or, alternatively, under the terms of the
+ordinary General Public License).
+
+ To apply these terms, attach the following notices to the library. It is
+safest to attach them to the start of each source file to most effectively
+convey the exclusion of warranty; and each file should have at least the
+"copyright" line and a pointer to where the full notice is found.
+
+ <one line to give the library's name and a brief idea of what it does.>
+ Copyright (C) <year> <name of author>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with this library; if not, write to the Free Software
+ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+Also add information on how to contact you by electronic and paper mail.
+
+You should also get your employer (if you work as a programmer) or your
+school, if any, to sign a "copyright disclaimer" for the library, if
+necessary. Here is a sample; alter the names:
+
+ Yoyodyne, Inc., hereby disclaims all copyright interest in the
+ library `Frob' (a library for tweaking knobs) written by James Random Hacker.
+
+ <signature of Ty Coon>, 1 April 1990
+ Ty Coon, President of Vice
+
+That's all there is to it!
+
+
diff --git a/msd/msd3D/main.cpp b/msd/msd3D/main.cpp
new file mode 100644
index 0000000..79010f5
--- /dev/null
+++ b/msd/msd3D/main.cpp
@@ -0,0 +1,3 @@
+#include "../msd.h"
+
+MSD("msd3D",msd3D,3)
diff --git a/msd/msd3D/msd3D-help.pd b/msd/msd3D/msd3D-help.pd
new file mode 100644
index 0000000..264828c
--- /dev/null
+++ b/msd/msd3D/msd3D-help.pd
@@ -0,0 +1,567 @@
+#N canvas 385 87 553 632 10;
+#X obj 4 369 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 729 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 389 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 14 584 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 527 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 4 562 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 679 cnv 15 550 20 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 699 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#N canvas 76 31 967 770 More_Info 0;
+#X text 123 27 MSD : mass - spring - damper model;
+#X text 53 170 Be careful : if masses are deleted \, lists messages
+won't work;
+#X text 54 75 It is designed to implement particules physical model
+in PD.The model is based on two elements type : mass and link. The
+msd masses are the principals objects of the model. They got only one
+physical parameter \, the value of their mass. They can be mobile or
+fixed \, in this case forces applied on them automatically \, by links
+\, or manually \, by messages \, don't do anything.;
+#X obj 476 19 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 476 318 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity1 4 float 1;
+#A 0 -1 0 1 2;
+#X array zero 4 float 1;
+#A 0 0 0 0 0;
+#X coords 0 3 3 -3 200 150 1;
+#X restore 163 345 graph;
+#X text 221 498 L0;
+#N canvas 127 141 956 727 figure 0;
+#X obj 182 108 loadbang;
+#X msg 191 180 \; rigidity1 resize 1 \; rigidity1 resize 4 \; rigidity1
+bounds 0 3 3 -3 \; rigidity1 0 -1 0 1 2 \; rigidity1 ylabel -0.5 \;
+rigidity1 xlabel -3.5 \; rigidity1 xticks 0 1 1 \; rigidity1 yticks
+0 0.1 5;
+#X obj 388 574 sqrt;
+#X obj 316 651 tabwrite rigidity3;
+#X obj 343 464 - 20;
+#X obj 316 609 f;
+#X obj 316 579 t b f;
+#X obj 343 494 moses 0;
+#X obj 343 517 * -1;
+#X obj 343 538 sqrt;
+#X obj 343 559 * -1;
+#X obj 481 479 - 20;
+#X obj 453 662 f;
+#X obj 453 632 t b f;
+#X obj 481 509 moses 0;
+#X obj 481 532 * -1;
+#X obj 480 612 * -1;
+#X obj 528 622 *;
+#X obj 480 591 *;
+#X obj 525 590 t f f;
+#X obj 480 564 t f f;
+#X obj 453 683 tabwrite rigidity4;
+#X obj 255 350 t b b;
+#X obj 620 552 f;
+#X obj 620 522 t b f;
+#X obj 620 623 tabwrite rigidity2;
+#X msg 763 574 0;
+#X obj 679 437 - 50;
+#X obj 751 491 moses 40;
+#X obj 681 510 moses -40;
+#X obj 620 586 * 1.5;
+#X obj 680 462 moses 10;
+#X obj 680 488 moses -10;
+#X msg 55 419 \; rigidity2 resize 101 \; rigidity2 xticks 1 10 5 \;
+rigidity2 yticks 0 5 5 \; rigidity3 resize 51 \; rigidity3 xticks 0
+1 5 \; rigidity3 yticks 0 1 5 \; rigidity4 resize 51 \; rigidity4 xticks
+0 1 5 \; rigidity4 yticks 0 100 5;
+#X msg 405 333 0;
+#X obj 405 361 f;
+#X obj 405 390 moses 50.5;
+#X obj 407 418 t f f;
+#X obj 408 446 + 1;
+#X msg 598 314 0;
+#X obj 598 342 f;
+#X obj 600 399 t f f;
+#X obj 601 427 + 1;
+#X obj 598 370 moses 100.5;
+#X obj 267 322 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X connect 0 0 1 0;
+#X connect 0 0 22 0;
+#X connect 2 0 5 1;
+#X connect 4 0 7 0;
+#X connect 5 0 3 0;
+#X connect 6 0 5 0;
+#X connect 6 1 3 1;
+#X connect 7 0 8 0;
+#X connect 7 1 2 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 5 1;
+#X connect 11 0 14 0;
+#X connect 12 0 21 0;
+#X connect 13 0 12 0;
+#X connect 13 1 21 1;
+#X connect 14 0 15 0;
+#X connect 14 1 19 0;
+#X connect 15 0 20 0;
+#X connect 16 0 12 1;
+#X connect 17 0 12 1;
+#X connect 18 0 16 0;
+#X connect 19 0 17 0;
+#X connect 19 1 17 1;
+#X connect 20 0 18 0;
+#X connect 20 1 18 1;
+#X connect 22 0 34 0;
+#X connect 22 1 33 0;
+#X connect 22 1 39 0;
+#X connect 23 0 30 0;
+#X connect 24 0 23 0;
+#X connect 24 1 25 1;
+#X connect 26 0 23 1;
+#X connect 27 0 31 0;
+#X connect 28 0 23 1;
+#X connect 28 1 26 0;
+#X connect 29 0 26 0;
+#X connect 29 1 23 1;
+#X connect 30 0 25 0;
+#X connect 31 0 32 0;
+#X connect 31 1 28 0;
+#X connect 32 0 29 0;
+#X connect 32 1 26 0;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 37 0 38 0;
+#X connect 37 1 4 0;
+#X connect 37 1 6 0;
+#X connect 37 1 13 0;
+#X connect 37 1 11 0;
+#X connect 38 0 35 0;
+#X connect 39 0 40 0;
+#X connect 40 0 43 0;
+#X connect 41 0 42 0;
+#X connect 41 1 27 0;
+#X connect 41 1 24 0;
+#X connect 42 0 40 0;
+#X connect 43 0 41 0;
+#X connect 44 0 22 0;
+#X restore 439 721 pd figure;
+#X text 167 322 Rigidity;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity2 101 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 -60 -58.5 -57 -55.5 -54 -52.5 -51 -49.5 -48
+-46.5 -45 -43.5 -42 -40.5 -39 -37.5 -36 -34.5 -33 -31.5 -30 -28.5 -27
+-25.5 -24 -22.5 -21 -19.5 -18 -16.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 15 16.5 18 19.5 21 22.5 24 25.5 27 28.5 30 31.5 33 34.5 36
+37.5 39 40.5 42 43.5 45 46.5 48 49.5 51 52.5 54 55.5 57 58.5 0 0 0
+0 0 0 0 0 0 0 0;
+#X array zero 101 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 60 100 -60 200 150 1;
+#X restore 578 341 graph;
+#X text 670 496 L0;
+#X text 583 318 Rigidity with Lmin and Lmax;
+#X text 686 496 Lmin;
+#X text 748 496 Lmax;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity3 51 float 1;
+#A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555
+-3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2
+-1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575
+2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311
+4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615
+5.2915 5.38516 5.47723;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 6 50 -6 200 150 1;
+#X restore 162 547 graph;
+#X text 235 700 L0;
+#X text 167 525 Rigidity with power = 1/2;
+#N canvas 0 22 450 300 (subpatch) 0;
+#X array rigidity4 51 float 1;
+#A 0 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64
+-49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169
+196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841;
+#X array zero 51 float 1;
+#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 1000 50 -1000 200 150 1;
+#X restore 575 551 graph;
+#X text 648 705 L0;
+#X text 582 529 Rigidity with power = 2;
+#X text 601 26 The equations are :;
+#X text 525 50 if Lmin<|L[n]-L[0]|<Lmax;
+#X text 524 89 else;
+#X text 533 109 F[n] = D(L[n]-L[n-1]);
+#X text 533 69 F[n] = K(L[n] - L[0])^P + D(L[n] - L[n-1]);
+#X text 53 202 Links connect masses two by two. They got 4 physicals
+parameters : length \, rigidity \, damping and power.;
+#X text 52 231 Rigidity \, damping and power are defined by the creation
+message. The lenght is initialised to the distance between the two
+masses at the creation.;
+#X text 524 284 You can build specific links using different links
+messages defining the characteristic step by step.;
+#X text 51 272 Links can be created in one shot between mutiples masses
+\, instead of creation number \, the masses linked are defined with
+their Id.;
+#X text 533 250 x1x2 + y1y2 + z1z2 = 0;
+#X text 525 138 For oriented links \, the force F[n] is projected using
+a vector which is given during the creation of the link using x1y1z1
+coordinates.;
+#X text 524 179 For tangentials links \, the force is projected onto
+the given vector x1y1z1.;
+#X text 533 266 x1x3 + y1y3 + z1z3 = 0;
+#X text 524 209 For normals links \, the force is projected onto a
+plane define with x2y2z2 and x3y3z3 calculated with the scalar products
+:;
+#X text 55 56 MSD is the 3D object of the msd objects collection.;
+#X connect 3 0 4 0;
+#X restore 16 735 pd More_Info;
+#X text 12 76 Examples:;
+#X text 9 369 Inlets:;
+#X text 19 388 - Left:;
+#X text 10 526 Arguments:;
+#X text 11 562 Outlets:;
+#X text 19 679 See Also:;
+#X text 74 48 Full Name:;
+#N canvas 58 22 262 70 Related_Objects 0;
+#X obj 3 10 cnv 15 250 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 3 30 cnv 15 250 30 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 5 10 Externals and libraries;
+#X obj 44 37 msd;
+#X obj 141 38 msd2D;
+#X restore 122 735 pd Related_Objects;
+#N canvas 257 262 759 345 init 0;
+#X obj 89 215 t a;
+#X obj 89 33 loadbang;
+#X obj 89 241 s \$0-in;
+#X obj 89 59 t b b b b b;
+#X msg 161 80 reset;
+#X obj 44 13 inlet;
+#X msg 107 161 link souple fix mob 10 10 \, link souple mob mob 10
+10;
+#X msg 125 120 mass mob 1 100 0 -2 0 \, mass mob 1 100 2 0 0 \, mass
+mob 1 100 0 2 0 \, mass mob 1 100 -2 0 0;
+#X msg 89 187 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 4 \, Zmin
+-4;
+#X msg 143 100 mass fix 0 10 0 0 0;
+#X connect 0 0 2 0;
+#X connect 1 0 3 0;
+#X connect 3 0 8 0;
+#X connect 3 1 6 0;
+#X connect 3 2 7 0;
+#X connect 3 3 9 0;
+#X connect 3 4 4 0;
+#X connect 4 0 0 0;
+#X connect 5 0 3 0;
+#X connect 6 0 0 0;
+#X connect 7 0 0 0;
+#X connect 8 0 0 0;
+#X connect 9 0 0 0;
+#X restore 17 156 pd init;
+#X obj 18 321 s \$0-out;
+#X obj 18 272 r \$0-in;
+#X obj 393 317 s \$0-in;
+#N canvas 565 515 355 193 compute 0;
+#X obj 27 29 inlet;
+#X obj 27 127 s \$0-in;
+#X msg 27 96 bang \, get massesPos \, get linksPos;
+#X obj 27 66 gemhead;
+#X obj 160 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X connect 0 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X restore 17 209 pd compute;
+#X obj 17 181 tgl 15 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
+0 1;
+#X obj 172 270 r \$0-out;
+#X obj 17 126 bng 15 250 50 0 empty empty reset 25 10 1 10 -262144
+-1 -1;
+#X text 101 388 Bang - A bang at the left inlet compute the new model
+state based on previous instant.;
+#X text 158 478 To set the model parameters after creation.;
+#X text 158 456 To create the model masses and links.;
+#X text 158 501 To get the model parameters;
+#N canvas 8 28 963 606 creation________ 0;
+#X obj 5 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 450 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 7 2 CREATION Messages;
+#X obj 4 137 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 3 329 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X msg 32 104 reset;
+#X text 245 168 Add a mass;
+#X text 70 191 \$1 : Id (symbol);
+#X text 69 211 \$2 : fixed or mobile (0/1);
+#X text 69 229 \$3 : mass;
+#X msg 32 277 deleteMass \$1;
+#X text 171 276 Delete a mass and associated links;
+#X text 66 302 \$1 : Creation No of mass;
+#X text 7 137 Masses :;
+#X text 7 74 Reset :;
+#X text 100 105 Delete all masses \, links and internal variables;
+#X text 6 329 Links :;
+#X text 62 388 \$1 : Id (symbol);
+#X text 62 441 \$4 : rigidity;
+#X msg 30 542 deleteLink \$1;
+#X text 164 542 Delete a link;
+#X text 57 570 \$1 : Creation No of link;
+#X text 62 388 \$1 : Id (symbol);
+#X text 62 441 \$4 : rigidity;
+#X text 62 406 \$2 : creation No/Id of mass1;
+#X text 62 424 \$3 : creation No/Id of mass2;
+#X text 281 363 Add link(s);
+#X text 62 459 \$5 : damping;
+#X text 10 28 Creation messages are used to define the structure of
+the model. Messages create links and masses or destroy them.;
+#X msg 30 362 link \$1 \$2 \$3 \$4 \$5 (\$6 \$7 \$8);
+#X text 59 477 (\$6) : Power of the rigidity distance;
+#X text 59 496 (\$7) : minimum lenght of link;
+#X text 59 513 (\$8) : maximum lenght of link;
+#X obj 461 3 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 482 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 461 572 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X text 519 197 \$1 : Id (symbol);
+#X text 519 250 \$4 : rigidity;
+#X text 519 197 \$1 : Id (symbol);
+#X text 519 250 \$4 : rigidity;
+#X text 519 215 \$2 : creation No/Id of mass1;
+#X text 519 233 \$3 : creation No/Id of mass2;
+#X text 519 268 \$5 : damping;
+#X text 799 169 Add tangential link(s);
+#X text 516 306 (\$8) : Power of the rigidity distance;
+#X text 516 325 (\$9) : minimum lenght of link;
+#X text 516 342 (\$10) : maximum lenght of link;
+#X text 485 75 Oriented links :;
+#X msg 32 167 mass \$1 \$2 \$3 \$4 \$5 \$6;
+#X msg 489 168 tLink \$1 \$2 \$3 \$4 \$5 \$6 \$7 \$8 (\$9 \$10 \$11)
+;
+#X text 69 247 \$4 \, \$5 \, \$8 : initial position;
+#X text 487 102 In 2D (and 3D) there are two specials links : oriented
+links. They works as general links excepts their calculation is made
+following a vector for tangentials links or a plane for normals links.
+;
+#X text 518 287 \$6 \, \$7 \, \$8 : tangential vector (x \, y \, z)
+;
+#X connect 33 0 35 0;
+#X restore 12 457 pd creation________;
+#X text 103 542 None;
+#X text 18 583 - Left:;
+#X text 101 584 Outputs the model parameters asked with the attributes
+messages.;
+#X obj 13 629 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X text 17 628 - Right:;
+#X text 100 629 Outputs information on model when creation messages
+are send or with the special message [infosL( which dump the complete
+state of the model.;
+#X text 101 420 Messages - Different messages are used to control the
+msd object. They are of three types :;
+#X text 9 701 CATEGORY: control;
+#N canvas 354 125 579 668 dynamic 0;
+#X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 85 cnv 15 150 300 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 420 cnv 15 130 180 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 3 396 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 62 Masses :;
+#X text 6 396 Links :;
+#X text 7 2 DYNAMIC SETTINGS Messages;
+#X msg 30 88 posX \$1 \$2;
+#X text 190 148 Add force on mass(es);
+#X msg 30 151 forceX \$1 \$2;
+#X text 192 232 \$1 : Value;
+#X text 193 107 \$1 : Id (symbol) or No;
+#X text 193 165 \$1 : Id (symbol) or No;
+#X msg 30 215 Xmin \$1;
+#X msg 88 215 Xmax \$1;
+#X msg 30 278 setMobile \$1;
+#X msg 30 299 setFixed \$1;
+#X text 193 89 Set position of fixed mass(es);
+#X text 193 125 \$2 : Value;
+#X text 193 183 \$2 : Value;
+#X text 189 216 Set minimimum and maximum position of all masses;
+#X text 189 278 Set mass to mobile or fixed;
+#X msg 29 484 setD \$1 \$2;
+#X text 184 470 \$2 : New value;
+#X msg 29 433 setK \$1 \$2;
+#X text 184 526 \$2 : New value;
+#X text 184 579 \$2 : New value;
+#X text 178 434 Set rigidity of link(s);
+#X text 178 490 Set damping of link(s);
+#X msg 29 539 setL \$1 \$2;
+#X text 178 543 Set initial lenght of link(s);
+#X text 184 452 \$1 : Id (symbol) or No;
+#X text 184 508 \$1 : Id (symbol) or No;
+#X text 184 561 \$1 : Id (symbol) or No;
+#X text 192 295 \$1 : Id (symbol) or No;
+#X text 10 25 Dynamic settings messages allows the user to redefine
+internal parameters of links and masses.;
+#X msg 30 329 grabMass \$1 \$2 \$3;
+#X text 187 329 Grab nearest mass;
+#X text 192 345 \$1 \, \$2 : position;
+#X text 191 362 \$3 : grab or not (0/1);
+#X msg 30 234 Ymin \$1;
+#X msg 89 234 Ymax \$1;
+#X msg 30 107 posY \$1 \$2;
+#X msg 30 171 forceY \$1 \$2;
+#X msg 30 126 posZ \$1 \$2;
+#X msg 30 191 forceZ \$1 \$2;
+#X msg 30 253 Zmin \$1;
+#X msg 89 253 Zmax \$1;
+#X restore 12 478 pd dynamic settings;
+#N canvas 675 41 600 721 attributes______ 0;
+#X obj 11 95 cnv 15 100 35 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 5 75 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 10 158 cnv 15 150 130 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 137 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X obj 10 314 cnv 15 110 330 empty empty empty 20 12 0 14 -233017 -66577
+0;
+#X obj 4 290 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
+0;
+#X text 7 74 General :;
+#X text 7 2 ATTRIBUTES Messages;
+#X text 7 137 Lists :;
+#X msg 33 104 infosL;
+#X text 136 104 Get infos on all masses and links on right outlet;
+#X msg 32 170 massesPosL;
+#X msg 31 255 massesForcesL;
+#X text 171 170 Output all masses positions in a list on outlet No
+1;
+#X text 140 330 Get specific attribute on specific element;
+#X msg 20 328 get \$1 (\$2);
+#X text 7 290 Specific :;
+#X text 140 425 The get message return the asked attribute preceded
+by an identifier and the creation No of the element. The identifier
+is made of the asked parameter and the way you asked for it.;
+#X text 141 501 message;
+#X text 381 501 response;
+#X text 140 482 Examples with 3 masses numbered 0 \, 1 and 2 and named
+mas:;
+#X text 15 30 The attributes messages ask the object to output some
+of his internal parameters. They can be output by lists for positions
+and forces of masses.;
+#X text 171 256 Output all forces applied on masses in a list on outlet
+No 1;
+#X text 140 392 (\$2) : - If not defined all the attributes are send
+for all the elements. - Ids or/and creations No;
+#X text 174 520 [get massesPos( -----> [massesPos 0 x0 y0 z0(;
+#X text 335 534 [massesPos 2 x2 y2 z2(;
+#X text 335 548 [massesPos 1 x1 y1 z1(;
+#X text 160 570 [get massesPos 1( -----> [massesPosNo 1 x1 y1 z1(;
+#X text 146 591 [get massesPos mas( -----> [massesPosId 0 x0 y0 z0(
+;
+#X text 335 606 [massesPosId 2 x2 y2 z2(;
+#X text 335 621 [massesPosId 1 x1 y1 z1(;
+#X msg 32 194 massesPosXL;
+#X msg 32 215 massesPosYL;
+#X msg 32 234 massesPosZL;
+#X text 171 215 Output all masses x \, y or z in a list on outlet No
+1;
+#X text 141 349 \$1 : Attribute type ( massesPos / massesPosName /
+massesSpeeds / massesSpeedsName / massesForces / massesForces / linksPos
+/ linksPos );
+#X text 147 645 [get massesPosName( -----> [massesPosName name_0 x0
+y0 z0(;
+#X text 337 660 [massesPosName name_2 x2 y2 z2(;
+#X text 337 675 [massesPosName name_1 x1 y1 z1(;
+#X restore 12 499 pd attributes______;
+#X text 9 711 KEYWORDS: physical model mass spring damper link;
+#X text 267 736 - Nicolas Montgermont \, May 12 \, 2005;
+#X obj 172 294 route massesPos linksPos;
+#X obj 336 216 gemwin;
+#X msg 336 194 0 \, destroy;
+#N canvas 363 318 550 319 gemrender 0;
+#X obj 48 203 translateXYZ;
+#X obj 48 229 sphere 0.1;
+#X obj 127 24 inlet;
+#X obj 390 13 inlet;
+#X obj 303 213 curve 2;
+#X obj 125 136 t b f;
+#X obj 127 62 unpack f f f f;
+#X msg 390 58 \$2 \$3 \$4;
+#X msg 462 62 \$5 \$6 \$7;
+#X obj 48 167 gemhead;
+#X msg 48 143 0;
+#X obj 48 115 loadbang;
+#X obj 303 147 gemhead;
+#X msg 303 123 0;
+#X obj 303 95 loadbang;
+#X obj 390 86 t b l;
+#X connect 0 0 1 0;
+#X connect 2 0 6 0;
+#X connect 3 0 8 0;
+#X connect 3 0 7 0;
+#X connect 5 0 9 0;
+#X connect 5 1 0 1;
+#X connect 6 1 5 0;
+#X connect 6 2 0 2;
+#X connect 6 3 0 3;
+#X connect 7 0 15 0;
+#X connect 8 0 4 2;
+#X connect 9 0 0 0;
+#X connect 10 0 9 0;
+#X connect 11 0 10 0;
+#X connect 12 0 4 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 0;
+#X connect 15 0 12 0;
+#X connect 15 1 4 1;
+#X restore 172 321 pd gemrender;
+#X msg 336 129 reset \, create \, 1;
+#X text 12 8 HELP: msd3D;
+#X text 12 18 DESCRIPTION: Mass spring damper physical modeling in
+3D.;
+#X obj 157 48 msd3D;
+#X text 112 680 01_msd3Dtest.pd;
+#X obj 18 296 msd3D;
+#X msg 393 271 forceZ mob -10;
+#X msg 393 293 forceZ mob 10;
+#X text 392 246 2 Send forces;
+#X text 170 132 1 Create window -->;
+#X text 170 195 3 And destroy it -->;
+#X connect 21 0 53 0;
+#X connect 24 0 23 0;
+#X connect 25 0 44 0;
+#X connect 26 0 19 0;
+#X connect 44 0 47 0;
+#X connect 44 1 47 1;
+#X connect 46 0 45 0;
+#X connect 48 0 45 0;
+#X connect 53 0 20 0;
+#X connect 54 0 22 0;
+#X connect 55 0 22 0;
diff --git a/msd/msd3D/package.txt b/msd/msd3D/package.txt
new file mode 100644
index 0000000..9d8a8db
--- /dev/null
+++ b/msd/msd3D/package.txt
@@ -0,0 +1,4 @@
+NAME=msd3D
+SRCS=main.cpp
+HDRS=../msd.h
+
diff --git a/msd/msd3D/partiel.pd b/msd/msd3D/partiel.pd
new file mode 100644
index 0000000..f7d89a0
--- /dev/null
+++ b/msd/msd3D/partiel.pd
@@ -0,0 +1,29 @@
+#N canvas 0 0 508 377 10;
+#X obj 136 26 inlet;
+#X obj 133 281 outlet~;
+#X obj 174 189 line~;
+#X obj 134 193 *~;
+#X obj 133 148 osc~ 55;
+#X msg 172 61 \$3;
+#X obj 260 170 mtof;
+#X msg 174 167 \$1 50;
+#X msg 131 60 \$2;
+#X obj 131 119 / 2;
+#X obj 131 88 abs;
+#X obj 174 86 abs;
+#X obj 177 108 * 5;
+#X obj 187 136 + 10;
+#X connect 0 0 8 0;
+#X connect 0 0 5 0;
+#X connect 2 0 3 1;
+#X connect 3 0 1 0;
+#X connect 4 0 3 0;
+#X connect 5 0 11 0;
+#X connect 6 0 4 0;
+#X connect 7 0 2 0;
+#X connect 8 0 10 0;
+#X connect 9 0 7 0;
+#X connect 10 0 9 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
+#X connect 13 0 6 0;