Update of /cvsroot/pure-data/externals/footils/fluid/fluid In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17900/fluid
Modified Files: main.cpp Log Message:
Added "gen" method to allow changes of generators.
Index: main.cpp =================================================================== RCS file: /cvsroot/pure-data/externals/footils/fluid/fluid/main.cpp,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** main.cpp 20 Mar 2004 10:45:15 -0000 1.6 --- main.cpp 22 Nov 2004 11:50:20 -0000 1.7 *************** *** 96,99 **** --- 96,100 ---- FLEXT_CADDMETHOD_(c,0,"bend", fluid_pitch_bend); FLEXT_CADDMETHOD_(c,0,"bank", fluid_bank); + FLEXT_CADDMETHOD_(c,0,"gen", fluid_gen); // list input calls fluid_note(...) *************** *** 132,135 **** --- 133,139 ---- void fluid_bank(int argc, t_atom *argv); + FLEXT_CALLBACK_V(fluid_gen) + void fluid_gen(int argc, t_atom *argv); + FLEXT_CALLBACK_V(fluid_init) void fluid_init(int argc, t_atom *argv); *************** *** 227,230 **** --- 231,249 ---- }
+ void fluid::fluid_gen(int argc, t_atom *argv) + { + if (synth == NULL) return; + if (argc == 3) + { + int chan, param; + float value; + chan = GetAInt(argv[0]); + param = GetAInt(argv[1]); + value = GetAFloat(argv[2]); + fluid_synth_set_gen(synth, chan-1, param, value); + } + } + + void fluid::fluid_init(int argc, t_atom *argv) {