[PD-cvs] externals/footils/fluid/fluid main.cpp,1.6,1.7

[Frank Barknecht]

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)
  {