From 84362956d49e9698e6f23eaf356796e140894399 Mon Sep 17 00:00:00 2001
From: Cyrille Henry <nusmuk@users.sourceforge.net>
Date: Tue, 15 Jan 2013 00:49:30 +0000
Subject: split code in diferents files add gimme to all list message to add
 filters add different message to replace the "get" methode add message to
 adapt link length to a % of curent length, so that force decrease with time
 separate messages for link centrer and links ends certainly various other
 minor things

svn path=/trunk/externals/pmpd/; revision=16864
---
 pmpd3d_get.c | 591 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 591 insertions(+)
 create mode 100644 pmpd3d_get.c

(limited to 'pmpd3d_get.c')

diff --git a/pmpd3d_get.c b/pmpd3d_get.c
new file mode 100644
index 0000000..ba6fdb7
--- /dev/null
+++ b/pmpd3d_get.c
@@ -0,0 +1,591 @@
+void pmpd3d_get(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{
+    int i;
+    t_symbol *toget; 
+    t_atom  toout[7];
+    toget = atom_getsymbolarg(0, argc, argv);
+
+    if ( (toget == gensym("massesPos")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].posX);
+            SETFLOAT(&(toout[2]), x->mass[i].posY);
+            SETFLOAT(&(toout[3]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPosNo"), 4, toout);
+        }  
+    }
+    else
+    if ( (toget == gensym("massesPos")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[0]), i);
+                SETFLOAT(&(toout[1]), x->mass[i].posX);
+                SETFLOAT(&(toout[2]), x->mass[i].posY);
+                SETFLOAT(&(toout[3]), x->mass[i].posZ);
+                outlet_anything(x->main_outlet, gensym("massesPosId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesPos")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].posX);
+            SETFLOAT(&(toout[2]), x->mass[i].posY);
+            SETFLOAT(&(toout[3]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPos"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("massesPosName")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].posX);
+            SETFLOAT(&(toout[2]), x->mass[i].posY);
+            SETFLOAT(&(toout[3]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPosNameNo"), 4, toout);
+        }  
+    }
+    else
+    if ( (toget == gensym("massesPosName")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETSYMBOL(&(toout[0]), x->mass[i].Id);
+                SETFLOAT(&(toout[1]), x->mass[i].posX);
+                SETFLOAT(&(toout[2]), x->mass[i].posY);
+                SETFLOAT(&(toout[3]), x->mass[i].posZ);
+                outlet_anything(x->main_outlet, gensym("massesPosNameId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesPosName")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].posX);
+            SETFLOAT(&(toout[2]), x->mass[i].posY);
+            SETFLOAT(&(toout[3]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPosName"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("massesSpeeds")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].speedX);
+            SETFLOAT(&(toout[2]), x->mass[i].speedY);
+            SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeedsNo"), 4, toout);
+        }  
+    }
+    else
+    if ( (toget == gensym("massesSpeeds")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[0]), i);
+                SETFLOAT(&(toout[1]), x->mass[i].speedX);
+                SETFLOAT(&(toout[2]), x->mass[i].speedY);
+                SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+                outlet_anything(x->main_outlet, gensym("massesSpeedsId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesSpeeds")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].speedX);
+            SETFLOAT(&(toout[2]), x->mass[i].speedY);
+            SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeeds"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("massesSpeedsName")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].speedX);
+            SETFLOAT(&(toout[2]), x->mass[i].speedY);
+            SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeedsNameNo"), 4, toout);
+        }  
+    }
+    else
+    if ( (toget == gensym("massesSpeedsName")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETSYMBOL(&(toout[0]), x->mass[i].Id);
+                SETFLOAT(&(toout[1]), x->mass[i].speedX);
+                SETFLOAT(&(toout[2]), x->mass[i].speedY);
+                SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+                outlet_anything(x->main_outlet, gensym("massesSpeedsNameId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesSpeedsName")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].speedX);
+            SETFLOAT(&(toout[2]), x->mass[i].speedY);
+            SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeedsName"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("massesForces")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].forceX);
+            SETFLOAT(&(toout[2]), x->mass[i].forceY);
+            SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForcesNo"), 4, toout);
+        }  
+    }
+    else
+    if ( (toget == gensym("massesForces")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[0]), i);
+                SETFLOAT(&(toout[1]), x->mass[i].forceX);
+                SETFLOAT(&(toout[2]), x->mass[i].forceY);
+                SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+                outlet_anything(x->main_outlet, gensym("massesForcesId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesForces")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].forceX);
+            SETFLOAT(&(toout[2]), x->mass[i].forceY);
+            SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForces"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("massesForcesName")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].forceX);
+            SETFLOAT(&(toout[2]), x->mass[i].forceY);
+            SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForcesNameNo"), 4, toout);
+        }
+    }
+    else
+    if ( (toget == gensym("massesForcesName")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->mass[i].Id)
+            {
+                SETSYMBOL(&(toout[0]), x->mass[i].Id);
+                SETFLOAT(&(toout[1]), x->mass[i].forceX);
+                SETFLOAT(&(toout[2]), x->mass[i].forceY);
+                SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+                outlet_anything(x->main_outlet, gensym("massesForcesNameId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("massesForcesName")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), x->mass[i].Id);
+            SETFLOAT(&(toout[1]), x->mass[i].forceX);
+            SETFLOAT(&(toout[2]), x->mass[i].forceY);
+            SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForcesName"), 4, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("linksPos")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+        }
+    }
+    else
+    if ( (toget == gensym("linksPos")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->link[i].Id)
+            {
+                SETFLOAT(&(toout[0]), i);
+                SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+                SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+                SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+                SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+                SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+                SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+                outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("linksPos")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+        } 
+    }
+    else
+    if ( (toget == gensym("linksPosName")) && (argv[1].a_type == A_FLOAT) )
+    {
+        i = atom_getfloatarg(1, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[3]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+        }
+    }
+    else
+    if ( (toget == gensym("linksPosName")) && (argv[1].a_type == A_SYMBOL) )
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            if ( atom_getsymbolarg(1,argc,argv) == x->link[i].Id)
+            {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+            }
+        } 
+    }
+    else
+    if ( (toget == gensym("linksPosName")) && (argc == 1) )
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksPosNo"), 7, toout);
+        } 
+    }
+    else
+        error("not get attribute");
+}
+
+void pmpd3d_massesPos(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{
+    int i;
+    t_atom  toout[5];
+
+    if (argv[0].a_type == A_FLOAT) 
+    {
+        i = atom_getfloatarg(0, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].posX);
+            SETFLOAT(&(toout[2]), x->mass[i].posY);
+            SETFLOAT(&(toout[3]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPosNo"), 4, toout);
+        }  
+    }
+    else
+    if (argv[0].a_type == A_SYMBOL)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv));
+            if ( atom_getsymbolarg(0,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[1]), x->mass[i].posX);
+                SETFLOAT(&(toout[2]), x->mass[i].posY);
+                SETFLOAT(&(toout[3]), x->mass[i].posZ);
+                outlet_anything(x->main_outlet, gensym("massesPosId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if (argc == 0)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETSYMBOL(&(toout[1]), x->mass[i].Id);
+            SETFLOAT(&(toout[2]), x->mass[i].posX);
+            SETFLOAT(&(toout[3]), x->mass[i].posY);
+            SETFLOAT(&(toout[4]), x->mass[i].posZ);
+            outlet_anything(x->main_outlet, gensym("massesPos"), 5, toout);
+        } 
+    }
+}
+      
+void pmpd3d_massesSpeeds(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{
+    int i;
+    t_atom  toout[5];
+
+    if (argv[0].a_type == A_FLOAT) 
+    {
+        i = atom_getfloatarg(0, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].speedX);
+            SETFLOAT(&(toout[2]), x->mass[i].speedY);
+            SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeedsNo"), 4, toout);
+        }  
+    }
+    else
+    if (argv[0].a_type == A_SYMBOL)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv));
+            if ( atom_getsymbolarg(0,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[1]), x->mass[i].speedX);
+                SETFLOAT(&(toout[2]), x->mass[i].speedY);
+                SETFLOAT(&(toout[3]), x->mass[i].speedZ);
+                outlet_anything(x->main_outlet, gensym("massesSpeedsId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if (argc == 0)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETSYMBOL(&(toout[1]), x->mass[i].Id);
+            SETFLOAT(&(toout[2]), x->mass[i].speedX);
+            SETFLOAT(&(toout[3]), x->mass[i].speedY);
+            SETFLOAT(&(toout[4]), x->mass[i].speedZ);
+            outlet_anything(x->main_outlet, gensym("massesSpeeds"), 5, toout);
+        } 
+    }
+}
+
+void pmpd3d_massesForces(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{	
+    int i;
+    t_atom  toout[5];
+
+    if (argv[0].a_type == A_FLOAT) 
+    {
+        i = atom_getfloatarg(0, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->mass[i].forceX);
+            SETFLOAT(&(toout[2]), x->mass[i].forceY);
+            SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForcesNo"), 4, toout);
+        }  
+    }
+    else
+    if (argv[0].a_type == A_SYMBOL)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv));
+            if ( atom_getsymbolarg(0,argc,argv) == x->mass[i].Id)
+            {
+                SETFLOAT(&(toout[1]), x->mass[i].forceX);
+                SETFLOAT(&(toout[2]), x->mass[i].forceY);
+                SETFLOAT(&(toout[3]), x->mass[i].forceZ);
+                outlet_anything(x->main_outlet, gensym("massesForcesId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if (argc == 0)
+    {
+        for (i=0; i< x->nb_mass; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETSYMBOL(&(toout[1]), x->mass[i].Id);
+            SETFLOAT(&(toout[2]), x->mass[i].forceX);
+            SETFLOAT(&(toout[3]), x->mass[i].forceY);
+            SETFLOAT(&(toout[4]), x->mass[i].forceZ);
+            outlet_anything(x->main_outlet, gensym("massesForces"), 5, toout);
+        } 
+    }
+}
+
+void pmpd3d_linksEnds(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+    t_atom  toout[8];
+    
+    if (argv[0].a_type == A_FLOAT) 
+    {
+        i = atom_getfloatarg(0, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksEndsNo"), 7, toout);
+        }
+    }
+    else
+    if (argv[0].a_type == A_SYMBOL)
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv));
+            if ( atom_getsymbolarg(0,argc,argv) == x->link[i].Id)
+            {
+                SETFLOAT(&(toout[1]), x->link[i].mass1->posX);
+                SETFLOAT(&(toout[2]), x->link[i].mass1->posY);
+                SETFLOAT(&(toout[3]), x->link[i].mass1->posZ);
+                SETFLOAT(&(toout[4]), x->link[i].mass2->posX);
+                SETFLOAT(&(toout[5]), x->link[i].mass2->posY);
+                SETFLOAT(&(toout[6]), x->link[i].mass2->posZ);
+                outlet_anything(x->main_outlet, gensym("linksEndsId"), 7, toout);
+            }
+        } 
+    }
+    else
+    if (argc == 0) 
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETSYMBOL(&(toout[1]), x->link[i].Id);
+            SETFLOAT(&(toout[2]), x->link[i].mass1->posX);
+            SETFLOAT(&(toout[3]), x->link[i].mass1->posY);
+            SETFLOAT(&(toout[4]), x->link[i].mass1->posZ);
+            SETFLOAT(&(toout[5]), x->link[i].mass2->posX);
+            SETFLOAT(&(toout[6]), x->link[i].mass2->posY);
+            SETFLOAT(&(toout[7]), x->link[i].mass2->posZ);
+            outlet_anything(x->main_outlet, gensym("linksEnds"), 8, toout);
+        } 
+    }
+}
+
+void pmpd3d_linksPos(t_pmpd3d *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+    t_atom  toout[5];
+    
+    if (argv[0].a_type == A_FLOAT) 
+    {
+        i = atom_getfloatarg(0, argc, argv);
+        if ( (i>=0) && (i<x->nb_mass) )
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETFLOAT(&(toout[1]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2);
+            SETFLOAT(&(toout[2]), (x->link[i].mass1->posY+x->link[i].mass2->posY)/2);
+            SETFLOAT(&(toout[3]), (x->link[i].mass1->posZ+x->link[i].mass2->posZ)/2);
+            outlet_anything(x->main_outlet, gensym("linksEndsNo"), 4, toout);
+        }
+    }
+    else
+    if (argv[0].a_type == A_SYMBOL)
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv));
+            if ( atom_getsymbolarg(0,argc,argv) == x->link[i].Id)
+            {
+				SETFLOAT(&(toout[1]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2);
+				SETFLOAT(&(toout[2]), (x->link[i].mass1->posY+x->link[i].mass2->posY)/2);
+				SETFLOAT(&(toout[3]), (x->link[i].mass1->posZ+x->link[i].mass2->posZ)/2);
+                outlet_anything(x->main_outlet, gensym("linksEndsId"), 4, toout);
+            }
+        } 
+    }
+    else
+    if (argc == 0) 
+    {
+        for (i=0; i< x->nb_link; i++)
+        {
+            SETFLOAT(&(toout[0]), i);
+            SETSYMBOL(&(toout[1]), x->link[i].Id);
+			SETFLOAT(&(toout[2]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2);
+			SETFLOAT(&(toout[3]), (x->link[i].mass1->posY+x->link[i].mass2->posY)/2);
+			SETFLOAT(&(toout[4]), (x->link[i].mass1->posZ+x->link[i].mass2->posZ)/2);
+            outlet_anything(x->main_outlet, gensym("linksEnds"), 5, toout);
+        } 
+    }
+}
-- 
cgit v1.2.1