From 76fd8bc21e49036a8187e7a6b75c36daa842cbc6 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 31 Dec 2010 03:00:34 +0000 Subject: refactored d_fft.c and d_math.c into separate objectclases svn path=/trunk/; revision=14683 --- externals/vanilla/sqrt~.c | 21 --------------------- 1 file changed, 21 deletions(-) (limited to 'externals/vanilla/sqrt~.c') diff --git a/externals/vanilla/sqrt~.c b/externals/vanilla/sqrt~.c index 65c09581..b6829ab5 100644 --- a/externals/vanilla/sqrt~.c +++ b/externals/vanilla/sqrt~.c @@ -4,8 +4,6 @@ #include "e_sqrt.h" -static float rsqrt_exptab[DUMTAB1SIZE], rsqrt_mantissatab[DUMTAB2SIZE]; - typedef struct sigsqrt { t_object x_obj; @@ -22,25 +20,6 @@ static void *sigsqrt_new(void) return (x); } -t_int *sigsqrt_perform(t_int *w) /* not static; also used in d_fft.c */ -{ - t_sample *in = *(t_sample **)(w+1), *out = *(t_sample **)(w+2); - t_int n = *(t_int *)(w+3); - while (n--) - { - t_sample f = *in; - long l = *(long *)(in++); - if (f < 0) *out++ = 0; - else - { - t_sample g = rsqrt_exptab[(l >> 23) & 0xff] * - rsqrt_mantissatab[(l >> 13) & 0x3ff]; - *out++ = f * (1.5 * g - 0.5 * g * g * g * f); - } - } - return (w + 4); -} - static void sigsqrt_dsp(t_sigsqrt *x, t_signal **sp) { dsp_add(sigsqrt_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n); -- cgit v1.2.1