apps/plugins/pdbox/PDa/extra/zerox~.c

   1 #include "../src/m_pd.h"
   2
   3 static t_class *zerox_class;
   4
   5 typedef struct _zerox
   6 {
   7     t_object x_obj;
   8     t_sample x_f;
   9     t_int   x_zeros;
  10 } t_zerox;
  11
  12
  13 static t_int *zerox_perform(t_int *w)
  14 {
  15     t_zerox* x = (t_zerox*)w[1];
  16     t_sample *in = (t_sample *)(w[2]);
  17     int n = (int)(w[3]) ;
  18
  19     if (*in * x->x_f < 0) x->x_zeros++;
  20     n--;
  21     while (n--)
  22     {
  23         float f = *(in++);
  24         x->x_zeros += f * *in < 0;
  25     }
  26     return (w+4);
  27 }
  28
  29 static void zerox_dsp(t_zerox *x, t_signal **sp)
  30 {
  31     dsp_add(zerox_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
  32 }
  33
  34
  35 static void zerox_bang(t_zerox* x)
  36 {
  37     outlet_float(x->x_obj.ob_outlet,x->x_zeros);
  38     x->x_zeros=0;
  39 }
  40
  41 static void *zerox_new(void)
  42 {
  43     t_zerox *x = (t_zerox *)pd_new(zerox_class);
  44     outlet_new(&x->x_obj, gensym("float"));
  45     x->x_f = 0;
  46     x->x_zeros=0;
  47     return (x);
  48 }
  49
  50 void zerox_tilde_setup(void)
  51 {
  52     zerox_class = class_new(gensym("zerox~"), (t_newmethod)zerox_new, 0,
  53         sizeof(t_zerox), 0, A_DEFFLOAT, 0);
  54     CLASS_MAINSIGNALIN(zerox_class, t_zerox, x_f);
  55     class_addmethod(zerox_class, (t_method)zerox_dsp, gensym("dsp"), 0);
  56     class_addbang(zerox_class, (t_method)zerox_bang);
  57 }
  58