diff options
Diffstat (limited to 'stksitar~/stksitar~.cc')
-rw-r--r-- | stksitar~/stksitar~.cc | 119 |
1 files changed, 119 insertions, 0 deletions
diff --git a/stksitar~/stksitar~.cc b/stksitar~/stksitar~.cc new file mode 100644 index 0000000..bd47817 --- /dev/null +++ b/stksitar~/stksitar~.cc @@ -0,0 +1,119 @@ +/* stksitar~ -- STK-based sitar synthesis + * requires STK library + * Copyleft 2001 Yves Degoyon. + * Permission is granted to use this software for any purpose provided you + * keep this copyright notice intact. + * + * THE AUTHOR AND HIS EXPLOITERS MAKE NO WARRANTY, EXPRESS OR IMPLIED, + * IN CONNECTION WITH THIS SOFTWARE. + * +*/ + +#include "m_pd.h" +#include "sitar.h" + +#define DEFAULT_FREQ 250.0 +#define DEFAULT_PLUCK 0.25 + +typedef struct _stksitar +{ + t_object x_obj; + sitar *x_stksitar; + t_int x_on; + t_float x_freq; + t_float x_pluck; +} t_stksitar; + +static t_class *stksitar_class; + +static void *stksitar_new(void) +{ + t_stksitar *x = (t_stksitar *)pd_new(stksitar_class); + x->x_freq = DEFAULT_FREQ; + x->x_pluck = DEFAULT_PLUCK; + outlet_new(&x->x_obj, &s_signal); + inlet_new( &x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("freq") ); + inlet_new( &x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("pluck") ); + if( (x->x_stksitar = new sitar( 50.0 )) == NULL ) { + post( "stksitar~: cannot build sitar instrument from STK" ); + return NULL; + } else { + return (x); + } +} + +static void stksitar_freq(t_stksitar* x, t_float ffreq) +{ + if ( ffreq < 50.0 ) + { + post("stksitar~ : wrong frequency" ); + return; + } + x->x_stksitar->setFreq( (MY_FLOAT) ffreq ); + x->x_freq = ffreq; +} + +static void stksitar_pluck(t_stksitar* x, t_float fpluck) +{ + if ( fpluck < 0.05 || fpluck > 0.35 ) + { + post("stksitar~ : wrong pluck argument" ); + return; + } + x->x_stksitar->pluck( (MY_FLOAT) fpluck ); + x->x_pluck = fpluck; +} + +static void stksitar_play(t_stksitar* x) +{ + x->x_on = 1; // activate sound + x->x_stksitar->noteOn( x->x_freq, x->x_pluck ); // start sound +} + +static void stksitar_stop(t_stksitar* x) +{ + x->x_on = 0; // deactivate sound +} + +static t_int *stksitar_perform(t_int *w) +{ + t_float *out = (t_float *)(w[1]); + int n = (int)(w[2]); + t_stksitar* x = (t_stksitar*)(w[3]); + + while ( n-- ) + { + if ( x->x_on ) + { + double dare; + + dare = (float)x->x_stksitar->tick(); + // post( "synthesis : %f", dare ); + *out=dare; + } + else + { + *(out) = 0.0; + } + out++; + } + + return (w+4); +} + +static void stksitar_dsp(t_stksitar *x, t_signal **sp) +{ + dsp_add(stksitar_perform, 3, sp[0]->s_vec, sp[0]->s_n, x); +} + +extern "C" void stksitar_tilde_setup(void) +{ + stksitar_class = class_new(gensym("stksitar~"), (t_newmethod)stksitar_new, 0, + sizeof(t_stksitar), 0, A_NULL); + class_sethelpsymbol(stksitar_class, gensym("help-stksitar~.pd")); + class_addmethod(stksitar_class, (t_method)stksitar_dsp, gensym("dsp"), A_NULL); + class_addmethod(stksitar_class, (t_method)stksitar_play, gensym("play") , A_NULL); + class_addmethod(stksitar_class, (t_method)stksitar_stop, gensym("stop") , A_NULL); + class_addmethod(stksitar_class, (t_method)stksitar_freq, gensym("freq") , A_DEFFLOAT, A_NULL); + class_addmethod(stksitar_class, (t_method)stksitar_pluck, gensym("pluck") , A_DEFFLOAT, A_NULL); +} |