diff options
Diffstat (limited to 'pmpd_get.c')
-rw-r--r-- | pmpd_get.c | 217 |
1 files changed, 217 insertions, 0 deletions
@@ -286,3 +286,220 @@ void pmpd_get(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) error("not get attribute"); } +void pmpd_massPos(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_atom toout[3]; + + if ((argc>0)&&(argv[0].a_type == A_FLOAT)) + { + i = atom_getfloatarg(0, argc, argv); + if ( (i>=0) && (i<x->nb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].posX); + outlet_anything(x->main_outlet, gensym("massPos"), 3, toout); + } + } + else + if ((argc>0)&&(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]), i); + SETFLOAT(&(toout[2]), x->mass[i].posX); + outlet_anything(x->main_outlet, gensym("massPos"), 3, toout); + } + } + } + else + if (argc == 0) + { + for (i=0; i< x->nb_mass; i++) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].posX); + outlet_anything(x->main_outlet, gensym("massPos"), 3, toout); + } + } +} + +void pmpd_massSpeed(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_atom toout[3]; + + if ((argc>0)&&(argv[0].a_type == A_FLOAT)) + { + i = atom_getfloatarg(0, argc, argv); + if ( (i>=0) && (i<x->nb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].speedX); + outlet_anything(x->main_outlet, gensym("massSpeed"), 3, toout); + } + } + else + if ((argc>0)&&(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]), i); + SETFLOAT(&(toout[2]), x->mass[i].speedX); + outlet_anything(x->main_outlet, gensym("massSpeed"), 3, toout); + } + } + } + else + if (argc == 0) + { + for (i=0; i< x->nb_mass; i++) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].speedX); + outlet_anything(x->main_outlet, gensym("massSpeed"), 3, toout); + } + } +} + +void pmpd_massForce(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_atom toout[3]; + + if ((argc>0)&&(argv[0].a_type == A_FLOAT)) + { + i = atom_getfloatarg(0, argc, argv); + if ( (i>=0) && (i<x->nb_mass) ) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].forceX); + outlet_anything(x->main_outlet, gensym("massForce"), 3, toout); + } + } + else + if ((argc>0)&&(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]), i); + SETFLOAT(&(toout[2]), x->mass[i].forceX); + outlet_anything(x->main_outlet, gensym("massForce"), 3, toout); + } + } + } + else + if (argc == 0) + { + for (i=0; i< x->nb_mass; i++) + { + SETSYMBOL(&(toout[0]), x->mass[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->mass[i].forceX); + outlet_anything(x->main_outlet, gensym("massForce"), 3, toout); + } + } +} + +void pmpd_linkEnd(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_atom toout[4]; + + if ((argc>0)&&(argv[0].a_type == A_FLOAT)) + { + i = atom_getfloatarg(0, argc, argv); + if ( (i>=0) && (i<x->nb_link) ) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->link[i].mass1->posX); + SETFLOAT(&(toout[3]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linkEnd"), 4, toout); + } + } + else + if ((argc>0)&&(argv[0].a_type == A_SYMBOL)) + { + SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv)); + for (i=0; i< x->nb_link; i++) + { + if ( atom_getsymbolarg(0,argc,argv) == x->link[i].Id) + { + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->link[i].mass1->posX); + SETFLOAT(&(toout[3]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linkEnd"), 4, toout); + } + } + } + else + if (argc == 0) + { + for (i=0; i< x->nb_link; i++) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), x->link[i].mass1->posX); + SETFLOAT(&(toout[3]), x->link[i].mass2->posX); + outlet_anything(x->main_outlet, gensym("linkEnd"), 4, toout); + } + } +} + +void pmpd_linkPos(t_pmpd *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + t_atom toout[3]; + + if ((argc>0)&&(argv[0].a_type == A_FLOAT)) + { + i = atom_getfloatarg(0, argc, argv); + if ( (i>=0) && (i<x->nb_link) ) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2); + outlet_anything(x->main_outlet, gensym("linkPos"), 3, toout); + } + } + else + if ((argc>0)&&(argv[0].a_type == A_SYMBOL)) + { + SETSYMBOL(&(toout[0]), atom_getsymbolarg(0,argc,argv)); + for (i=0; i< x->nb_link; i++) + { + if ( atom_getsymbolarg(0,argc,argv) == x->link[i].Id) + { + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2); + outlet_anything(x->main_outlet, gensym("linkPos"), 3, toout); + } + } + } + else + if (argc == 0) + { + for (i=0; i< x->nb_link; i++) + { + SETSYMBOL(&(toout[0]), x->link[i].Id); + SETFLOAT(&(toout[1]), i); + SETFLOAT(&(toout[2]), (x->link[i].mass1->posX+x->link[i].mass2->posX)/2); + outlet_anything(x->main_outlet, gensym("linkPos"), 3, toout); + } + } +} |