[PD-dev] trivial question (please help me)

[Javier Jimenez Urbano]

Hi, I'd like to make a question. Is it posible to create an external (dsp 
object) with two independient signal outlets? I'm newbie in externals 
writing and i can't resolve this.

I'm trying to extend the external from the Johannes M Zmölning manual called 
pan~. i want to create a stereopan~ and this is the code: (it don't work as 
it must be). Can anyone help me?

#include "m_pd.h"

static t_class *stereopan_tilde_class;

typedef struct _stereopan_tilde {
t_object x_obj;
t_sample f_pan;
t_sample f;
} t_stereopan_tilde;

t_int *stereopan_tilde_perform(t_int *w)
{
t_stereopan_tilde *x = (t_stereopan_tilde *)(w[1]);
t_sample *in1 = (t_sample *)(w[2]);
t_sample *in2 = (t_sample *)(w[3]);
t_sample *outL = (t_sample *)(w[4]);
t_sample *outR = (t_sample *)(w[5]);
int n = (int)(w[6]);
t_sample f_pan = (x->f_pan<0)?0.0:(x->f_pan>1)?1.0:x->f_pan;
while (n--)
{

	*outL++ = (*in1++)*(1-f_pan);
	*outR++ = (*in2++)*f_pan;

}

return (w+7);
}

void stereopan_tilde_dsp(t_stereopan_tilde *x, t_signal **sp)
{
dsp_add(stereopan_tilde_perform, 6, x, sp[0]->s_vec, sp[1]->s_vec, 
sp[2]->s_vec, sp[3]->s_vec, sp[0]->s_n);
}

void *stereopan_tilde_new(t_floatarg f)
{
t_stereopan_tilde *x = (t_stereopan_tilde *)pd_new(stereopan_tilde_class);
x->f_pan = f;
inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
floatinlet_new (&x->x_obj, &x->f_pan);
outlet_new(&x->x_obj, &s_signal);
outlet_new(&x->x_obj, &s_signal);
return (void *)x;
}

void stereopan_tilde_setup(void) {
stereopan_tilde_class = 
class_new(gensym("stereopan~"),(t_newmethod)stereopan_tilde_new,0, 
sizeof(t_stereopan_tilde),
CLASS_DEFAULT, A_DEFFLOAT, 0);
class_addmethod(stereopan_tilde_class, (t_method)stereopan_tilde_dsp, 
gensym("dsp"), 0);
CLASS_MAINSIGNALIN(stereopan_tilde_class, t_stereopan_tilde, f);
}