From e0267013c4de07cf495b4488a66181e4027d88a4 Mon Sep 17 00:00:00 2001
From: Thomas O Fredericks <mrtof@users.sourceforge.net>
Date: Fri, 19 Jun 2009 17:00:34 +0000
Subject: Added a few externals to tof

svn path=/trunk/externals/tof/; revision=11801
---
 src/crossfade~.c | 137 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 137 insertions(+)
 create mode 100644 src/crossfade~.c

(limited to 'src/crossfade~.c')

diff --git a/src/crossfade~.c b/src/crossfade~.c
new file mode 100644
index 0000000..75cd9b6
--- /dev/null
+++ b/src/crossfade~.c
@@ -0,0 +1,137 @@
+#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);
+}
-- 
cgit v1.2.1