aboutsummaryrefslogtreecommitdiff
path: root/pmpd_test.c
diff options
context:
space:
mode:
authorCyrille Henry <nusmuk@users.sourceforge.net>2013-05-01 16:51:34 +0000
committerCyrille Henry <nusmuk@users.sourceforge.net>2013-05-01 16:51:34 +0000
commit6232f4f5cb2302ee569f73ebe7528a51ac4277c1 (patch)
tree7937854e0346a6cb33008867af7c6b74340428c4 /pmpd_test.c
parentcbbf1113a6f90d0ab804bae416a2f61550f8b421 (diff)
code refactorisation, and functionality addition
svn path=/trunk/externals/pmpd/; revision=17110
Diffstat (limited to 'pmpd_test.c')
-rw-r--r--pmpd_test.c344
1 files changed, 344 insertions, 0 deletions
diff --git a/pmpd_test.c b/pmpd_test.c
new file mode 100644
index 0000000..7ccfbdc
--- /dev/null
+++ b/pmpd_test.c
@@ -0,0 +1,344 @@
+int test_1d_mass(int i, t_pmpd *x, int argc, t_atom *argv)
+{
+ t_float tmp, tmp2;
+ t_int j = 1;
+ while (j < argc)
+ {
+ if (argv[j].a_type != A_SYMBOL)
+ {
+ j++;
+ }
+ else
+ {
+ if (atom_getsymbolarg(j,argc,argv) == gensym("Id") )
+ {
+ if ( x->mass[i].Id != atom_getsymbolarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("posXSup") )
+ {
+ if ( x->mass[i].posX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("posXInf") )
+ {
+ if ( x->mass[i].posX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("speedXSup") )
+ {
+ if ( x->mass[i].speedX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("speedXInf") )
+ {
+ if ( x->mass[i].speedX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("speedSup") )
+ {
+ if ( x->mass[i].speedX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+= 2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("speedInf") )
+ {
+ if ( x->mass[i].speedX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("distanceInf"))
+ {
+ tmp = sqr(x->mass[i].posX - atom_getfloatarg(j+1,argc,argv));
+ if ( tmp >= sqr(atom_getfloatarg(j+2,argc,argv)) ) { return(0); }
+ j += 3;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("distanceSup"))
+ {
+ tmp = sqr(x->mass[i].posX - atom_getfloatarg(j+1,argc,argv));
+ if ( tmp < sqr(atom_getfloatarg(j+4,argc,argv)) ) { return(0); }
+ j += 3;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("massSup"))
+ {
+ if ( 1/ x->mass[i].invM < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j += 2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("massInf"))
+ {
+ if ( 1/ x->mass[i].invM >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j += 2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("forceSup") )
+ {
+ if ( x->mass[i].forceX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+= 2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("forceInf") )
+ {
+ if ( x->mass[i].forceX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+= 2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("forceXSup") )
+ {
+ if ( x->mass[i].forceX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("forceXInf") )
+ {
+ if ( x->mass[i].forceX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else
+ {
+ post("Option \"%s\" not reconized, stoping test",atom_getsymbolarg(j,argc,argv)->s_name);
+ return(-1);
+ }
+ }
+ }
+ return(1);
+}
+
+int test_1d_link(int i, t_pmpd *x, int argc, t_atom *argv)
+{
+ t_int j;
+ t_float tmp, tmp2;
+ j = 1;
+
+ while (j < argc)
+ {
+ if (argv[j].a_type != A_SYMBOL)
+ {
+ j++;
+ }
+ else
+ {
+ if (atom_getsymbolarg(j,argc,argv) == gensym("Id") )
+ {
+ if ( x->link[i].Id != atom_getsymbolarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("forceXSup") )
+ {
+ if ( x->link[i].forceX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("forceXInf") )
+ {
+ if ( x->link[i].forceX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("forceSup") )
+ {
+ if ( x->link[i].forceX < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("forceInf") )
+ {
+ if ( x->link[i].forceX >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if (atom_getsymbolarg(j,argc,argv) == gensym("lengthSup") )
+ {
+ if ( x->link[i].distance < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("lengthInf") )
+ {
+ if ( x->link[i].distance >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("lengthXInf") )
+ {
+ tmp = fabs(x->link[i].mass1->posX - x->link[i].mass2->posX);
+ if ( tmp >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("lengthXSup") )
+ {
+ tmp = fabs(x->link[i].mass1->posX - x->link[i].mass2->posX);
+ if ( tmp < atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("lengthYInf") )
+ {
+ tmp = fabs(x->link[i].mass1->posY - x->link[i].mass2->posY);
+ if ( tmp >= atom_getfloatarg(j+1,argc,argv) ) { return(0); }
+ j+=2;
+ }
+ else if ( atom_getsymbolarg(j,argc,argv) == gensym("connectedTo") )
+ {
+ if (argv[j+1].a_type == A_SYMBOL)
+ {
+ if (!( (x->link[i].mass1->Id == atom_getsymbolarg(j+1,argc,argv)) || (x->link[i].mass2->Id == atom_getsymbolarg(j+1,argc,argv)) ))
+ { return(0); }
+ j+=2;
+ }
+ else if (argv[j+1].a_type == A_FLOAT)
+ {
+ if (!( (x->link[i].mass1->num == atom_getfloatarg(j+1,argc,argv)) || (x->link[i].mass2->num == atom_getfloatarg(j+1,argc,argv)) ))
+ { return(0); }
+ j+=2;
+ }
+ else
+ {
+ post("bad argument for connectedTo");
+ j+=1;
+ }
+ }
+ else
+ {
+ post("Option \"%s\" not reconized, stoping test",atom_getsymbolarg(j,argc,argv)->s_name);
+ return(-1);
+ }
+ }
+ }
+ return(1);
+}
+
+//----------------------------------------------------------------------
+
+void pmpd_testLink(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ t_int i, tmp;
+ t_atom std_out[2];
+
+ SETSYMBOL(&(std_out[0]),atom_getsymbolarg(0,argc,argv));
+
+ for (i=0; i < x->nb_link; i++)
+ {
+ tmp=test_1d_link(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ else if (tmp)
+ {
+ SETFLOAT(&(std_out[1]),i);
+ outlet_anything(x->main_outlet, gensym("testLink"),2,std_out);
+ }
+ }
+}
+
+void pmpd_testMass(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ t_int i, tmp;
+ t_atom std_out[2];
+
+ SETSYMBOL(&(std_out[0]),atom_getsymbolarg(0,argc,argv));
+
+ for (i=0; i < x->nb_mass; i++)
+ {
+ tmp=test_1d_mass(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ else if (tmp)
+ {
+ SETFLOAT(&(std_out[1]),i);
+ outlet_anything(x->main_outlet, gensym("testMass"),2,std_out);
+ }
+ }
+}
+
+void pmpd_testLinkT(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i, vecsize, tmp;
+ t_garray *a;
+ t_word *vec;
+
+ if (argv[0].a_type == A_SYMBOL)
+ {
+ t_symbol *tab_name = atom_getsymbolarg(0, argc, argv);
+ if (!(a = (t_garray *)pd_findbyclass(tab_name, garray_class)))
+ pd_error(x, "%s: no such array", tab_name->s_name);
+ else if (!garray_getfloatwords(a, &vecsize, &vec))
+ pd_error(x, "%s: bad template for tabwrite", tab_name->s_name);
+ else
+ {
+ int taille_max = x->nb_link;
+ taille_max = min(taille_max, vecsize);
+
+ for (i=0; i < taille_max; i++)
+ {
+ tmp = test_1d_link(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ vec[i].w_float = (t_float)tmp;
+ }
+ garray_redraw(a);
+ }
+ }
+}
+
+void pmpd_testMassT(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i, vecsize, tmp;
+ t_garray *a;
+ t_word *vec;
+
+ if (argv[0].a_type == A_SYMBOL)
+ {
+ t_symbol *tab_name = atom_getsymbolarg(0, argc, argv);
+ if (!(a = (t_garray *)pd_findbyclass(tab_name, garray_class)))
+ pd_error(x, "%s: no such array", tab_name->s_name);
+ else if (!garray_getfloatwords(a, &vecsize, &vec))
+ pd_error(x, "%s: bad template for tabwrite", tab_name->s_name);
+ else
+ {
+ int taille_max = x->nb_mass;
+ taille_max = min(taille_max, vecsize);
+
+ for (i=0; i < taille_max; i++)
+ {
+ tmp = test_1d_mass(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ vec[i].w_float = (t_float)tmp;
+ }
+ garray_redraw(a);
+ }
+ }
+}
+
+void pmpd_testLinkL(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i, tmp;
+ t_atom list[x->nb_link+1];
+
+ for (i=0; i < x->nb_link;)
+ {
+ tmp=test_1d_link(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ SETFLOAT(&(list[i+1]), (t_float)tmp);
+ i++;
+ }
+ SETSYMBOL(&(list[0]),atom_getsymbolarg(0,argc,argv));
+ outlet_anything(x->main_outlet, gensym("testLink"),i+1 , list);
+}
+
+void pmpd_testMassL(t_pmpd *x, t_symbol *s, int argc, t_atom *argv)
+{
+ int i, tmp;
+ t_atom list[x->nb_mass+1];
+
+ for (i=0; i < x->nb_mass;)
+ {
+ tmp=test_1d_mass(i,x,argc,argv);
+ if (tmp == -1)
+ {
+ break;
+ }
+ SETFLOAT(&(list[i+1]), (t_float)tmp);
+ i++;
+ }
+ SETSYMBOL(&(list[0]),atom_getsymbolarg(0,argc,argv));
+ outlet_anything(x->main_outlet, gensym("testMass"),i+1 , list);
+}
+