#include "m_pd.h"

//Create one input for each channel



static t_class *crossfade_tilde_class;

typedef struct _crossfade_tilde {
  t_object  x_obj;
  t_float mix;   //The mix value (0: input 1, 1:input2)
  int n_in;
  int channels;
  t_sample **in;
  int n_out;
  t_sample **out;
  t_sample f;
  t_sample* buffer;   //Input frame buffer: one sample of every input
} t_crossfade_tilde;



// Perform
static t_int *crossfade_tilde_perform(t_int *w)
{
	
   t_crossfade_tilde *x = (t_crossfade_tilde *)(w[1]);
   int n = (int)(w[2]);
  
  if (x->mix < 0) x->mix = 0;
  if (x->mix > 1) x->mix = 1;
  t_float inv_mix = 1-x->mix;
  
	
 
  int i;
  int j;
  t_sample* out;
 

  for ( j =0; j < n; j++) {
	  
	  // Copy one sample of all the inputs
	  for ( i=0; i < x->n_in;i++ ) {
		  x->buffer[i] = (t_sample) x->in[i][j];
	  }
	  
    for ( i=0; i < x->channels;i++ ) {
     
	  out = (t_sample *)(x->out[i]);
      out[j] = (x->buffer[i] * inv_mix) + (x->buffer[i+x->channels] * x->mix) ; 
    } 
  }
  
  
  
  return (w+3);
   
}


// Annouce signal inputs and outputs to the DSP chain
static void crossfade_tilde_dsp(t_crossfade_tilde *x, t_signal **sp)
{
  
  int n;
  t_sample **dummy=x->in;
  for(n=0;n<x->n_in;n++)*dummy++=sp[n]->s_vec;
  
  dummy=x->out;
  for(n=0;n<x->n_out;n++)*dummy++=sp[n+x->n_in]->s_vec;

  
  dsp_add(crossfade_tilde_perform, 2, x, sp[0]->s_n);
  
}

static void crossfade_tilde_free( t_crossfade_tilde *x) {
	
	 freebytes(x->in, x->n_in * sizeof(t_sample *));
	 freebytes(x->out, x->n_out * sizeof(t_sample *));
	 
	 freebytes(x->buffer,x->n_in * sizeof( * x->buffer));
}

static void *crossfade_tilde_new(t_floatarg f)
{
  t_crossfade_tilde *x = (t_crossfade_tilde *)pd_new(crossfade_tilde_class);


 x->channels = (int) f;
 if ( x->channels  < 1 ) x->channels = 2;

 

  x->n_in =  x->channels * 2;
  x->in = (t_sample **)getbytes(x->n_in * sizeof(t_sample *));
  int i=x->n_in;
  while(i--)x->in[i]=0;

  x->n_out = x->channels;
  x->out = (t_sample **)getbytes(x->n_in * sizeof(t_sample *));
  i=x->n_out;
  while(i--)x->out[i]=0;


  x->buffer = getbytes(x->n_in * sizeof( * x->buffer));



  for (i=0; i < x->n_in - 1; i++) {
	inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal);
  }
  
  for (i=0; i < x->n_out; i++) {
	  outlet_new(&x->x_obj, &s_signal);
  }

  
  floatinlet_new (&x->x_obj, &x->mix);
  

  return (void *)x;
}

 void crossfade_tilde_setup(void) {
	   
  crossfade_tilde_class = class_new(gensym("crossfade~"),
        (t_newmethod)crossfade_tilde_new,
        (t_method)crossfade_tilde_free, sizeof(t_crossfade_tilde),
        0, A_DEFFLOAT, 0);
 
  class_addmethod(crossfade_tilde_class,
        (t_method)crossfade_tilde_dsp, gensym("dsp"), 0);
 // class_addmethod(crossfade_tilde_class, nullfn, gensym("signal"), 0);
  CLASS_MAINSIGNALIN(crossfade_tilde_class, t_crossfade_tilde, f);
}