add delMass and delLink messages ((they are a bit slow for real time use if to much things to destroy, but can still be usefull)

svn path=/trunk/externals/pmpd/; revision=17252

1 files changed, 66 insertions, 0 deletions

diff --git a/pmpd_core.c b/pmpd_core.c
index f6eaa2f..9e91d8d 100644
--- a/pmpd_core.c
+++ b/pmpd_core.c
@@ -319,3 +319,69 @@ void pmpd_tabLink(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
     }
 }
 
+
+void pmpd_delLink_int(t_pmpd *x, int dellink)
+{
+	int i;
+	if ( ( dellink < x->nb_link ) && ( dellink >= 0) )
+	{
+		x->nb_link--;
+		for (i=dellink; i < x->nb_link; i++)
+		x->link[i]=x->link[i+1]; 
+	}
+}
+
+void pmpd_delLink(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i;
+	if ( (argc > 0) && ( argv[0].a_type == A_FLOAT ) )
+		pmpd2d_delLink_int(x, atom_getfloatarg(0, argc, argv));
+	if ( (argc > 0) && ( argv[0].a_type == A_SYMBOL ) )
+		for (i=0; i<x->nb_link; )
+			if ( atom_getsymbolarg(0,argc,argv) == x->link[i].Id )
+				pmpd2d_delLink_int(x, i);
+			else i++;
+
+}
+
+void pmpd_delMass_int(t_pmpd *x, int delmass)
+{
+	int i;
+
+	if ( ( delmass < x->nb_mass ) && ( delmass >= 0) )
+	{
+		for (i=0; i < x->nb_link; ) // delete link connected to the mass to delete
+		{
+			if ( (x->link[i].mass1->num == delmass) || (x->link[i].mass2->num == delmass) )
+			pmpd2d_delLink_int(x, i);
+			else i++;
+			// post("loop %d sur %d", i, x->nb_link);
+		}
+		for (i=0; i < x->nb_link; i++) // change pointer to mass that index moved
+		{
+			if (x->link[i].mass1->num > delmass )
+			{ x->link[i].mass1 = &x->mass[x->link[i].mass1->num-1]; }
+			if (x->link[i].mass2->num > delmass )
+			{ x->link[i].mass2 = &x->mass[x->link[i].mass2->num-1]; }
+		}
+		x->nb_mass--;
+		for (i=delmass; i < x->nb_mass; i++)
+		{
+			x->mass[i]=x->mass[i+1];
+			x->mass[i].num=i;
+		}
+	}
+}
+
+void pmpd_delMass(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+	int i, delmass;
+	if ( (argc > 0) && ( argv[0].a_type == A_FLOAT ) )
+		pmpd2d_delMass_int(x, atom_getfloatarg(0, argc, argv));
+	if ( (argc > 0) && ( argv[0].a_type == A_SYMBOL ) )
+		for (i=0; i<x->nb_mass; )
+			if ( atom_getsymbolarg(0,argc,argv) == x->mass[i].Id )
+				pmpd2d_delMass_int(x, i);
+			else i++;
+
+}