From 563967c7bb1b1b4eb0c09b757c4b2595d3aab97c Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Wed, 1 May 2013 15:03:05 +0000 Subject: pmpd code refactorisation svn path=/trunk/externals/pmpd/; revision=17105 --- pmpd_get.c | 288 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 288 insertions(+) create mode 100644 pmpd_get.c (limited to 'pmpd_get.c') diff --git a/pmpd_get.c b/pmpd_get.c new file mode 100644 index 0000000..325e632 --- /dev/null +++ b/pmpd_get.c @@ -0,0 +1,288 @@ +void pmpd_get(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_symbol *toget; + t_atom toout[3]; + 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) && (inb_mass) ) + { + SETFLOAT(&(toout[0]), i); + SETFLOAT(&(toout[1]), x->mass[i].posX); + outlet_anything(x->main_outlet, gensym("massesPosNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesPosId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesPos"), 2, toout); + } + } + else + if ( (toget == gensym("massesPosName")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), x->mass[i].posX); + outlet_anything(x->main_outlet, gensym("massesPosNameNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesPosNameId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesPosName"), 2, toout); + } + } + else + if ( (toget == gensym("massesSpeeds")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETFLOAT(&(toout[0]), i); + SETFLOAT(&(toout[1]), x->mass[i].speedX); + outlet_anything(x->main_outlet, gensym("massesSpeedsNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesSpeedsId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesSpeeds"), 2, toout); + } + } + else + if ( (toget == gensym("massesSpeedsName")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), x->mass[i].speedX); + outlet_anything(x->main_outlet, gensym("massesSpeedsNameNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesSpeedsNameId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesSpeedsName"), 2, toout); + } + } + else + if ( (toget == gensym("massesForces")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETFLOAT(&(toout[0]), i); + SETFLOAT(&(toout[1]), x->mass[i].forceX); + outlet_anything(x->main_outlet, gensym("massesForcesNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesForcesId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesForces"), 2, toout); + } + } + else + if ( (toget == gensym("massesForcesName")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), x->mass[i].forceX); + outlet_anything(x->main_outlet, gensym("massesForcesNameNo"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesForcesNameId"), 2, 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); + outlet_anything(x->main_outlet, gensym("massesForcesName"), 2, toout); + } + } + else + if ( (toget == gensym("linksPos")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETFLOAT(&(toout[0]), i); + SETFLOAT(&(toout[1]), x->link[i].mass1->posX); + SETFLOAT(&(toout[2]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPosNo"), 3, 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].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPosId"), 3, 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].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPos"), 3, toout); + } + } + else + if ( (toget == gensym("linksPosName")) && (argv[1].a_type == A_FLOAT) ) + { + i = atom_getfloatarg(1, argc, argv); + if ( (i>=0) && (inb_mass) ) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), x->link[i].mass1->posX); + SETFLOAT(&(toout[2]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPosNameNo"), 3, 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) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), x->link[i].mass1->posX); + SETFLOAT(&(toout[2]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPosNameId"), 3, toout); + } + } + } + else + if ( (toget == gensym("linksPosName")) && (argc == 1) ) + { + for (i=0; i< x->nb_link; i++) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), x->link[i].mass1->posX); + SETFLOAT(&(toout[2]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linksPosName"), 3, toout); + } + } + else + error("not get attribute"); +} + -- cgit v1.2.1