From 918d61055b634b2210ec213573d489f4570120c5 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 13 Dec 2010 05:02:47 +0000 Subject: split out general functions from d_dac.c to e_dac.c in Pd-extended svn path=/trunk/; revision=14613 --- externals/vanilla/adc~.c | 46 ---------------------------------------------- 1 file changed, 46 deletions(-) (limited to 'externals') diff --git a/externals/vanilla/adc~.c b/externals/vanilla/adc~.c index 831a122c..40aee13e 100644 --- a/externals/vanilla/adc~.c +++ b/externals/vanilla/adc~.c @@ -38,52 +38,6 @@ static void *adc_new(t_symbol *s, int argc, t_atom *argv) return (x); } -t_int *copy_perform(t_int *w) -{ - t_sample *in1 = (t_sample *)(w[1]); - t_sample *out = (t_sample *)(w[2]); - int n = (int)(w[3]); - while (n--) *out++ = *in1++; - return (w+4); -} - -t_int *copy_perf8(t_int *w) -{ - t_sample *in1 = (t_sample *)(w[1]); - t_sample *out = (t_sample *)(w[2]); - int n = (int)(w[3]); - - for (; n; n -= 8, in1 += 8, out += 8) - { - t_sample f0 = in1[0]; - t_sample f1 = in1[1]; - t_sample f2 = in1[2]; - t_sample f3 = in1[3]; - t_sample f4 = in1[4]; - t_sample f5 = in1[5]; - t_sample f6 = in1[6]; - t_sample f7 = in1[7]; - - out[0] = f0; - out[1] = f1; - out[2] = f2; - out[3] = f3; - out[4] = f4; - out[5] = f5; - out[6] = f6; - out[7] = f7; - } - return (w+4); -} - -void dsp_add_copy(t_sample *in, t_sample *out, int n) -{ - if (n&7) - dsp_add(copy_perform, 3, in, out, n); - else - dsp_add(copy_perf8, 3, in, out, n); -} - static void adc_dsp(t_adc *x, t_signal **sp) { t_int i, *ip; -- cgit v1.2.1