From 05a9e3254454715e09b78f7a7ab788b02b2cbe60 Mon Sep 17 00:00:00 2001 From: musil Date: Fri, 8 Dec 2006 07:47:49 +0000 Subject: makefile help repaired spec2_sqrt~ svn path=/trunk/externals/iem/iem_spec2/; revision=6724 --- src/spec2_powtodb~.c | 66 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) create mode 100644 src/spec2_powtodb~.c (limited to 'src/spec2_powtodb~.c') diff --git a/src/spec2_powtodb~.c b/src/spec2_powtodb~.c new file mode 100644 index 0000000..ebb064e --- /dev/null +++ b/src/spec2_powtodb~.c @@ -0,0 +1,66 @@ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. + +iem_spec2 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2006 */ + +#include "m_pd.h" +#include "iemlib.h" +#include + +#define SPEC2LOGTEN 2.302585092994f + +/* ------------------------ spec2_powtodb_tilde~ ------------------------- */ + +static t_class *spec2_powtodb_tilde_class; + +typedef struct _spec2_powtodb_tilde +{ + t_object x_obj; + t_float x_msi; +} t_spec2_powtodb_tilde; + +static t_int *spec2_powtodb_tilde_perform(t_int *w) +{ + t_float *in = (t_float *)(w[1]); + t_float *out = (t_float *)(w[2]); + int n = w[3]+1; + + for(; n--; in++, out++) + { + t_float f = *in; + + if(f <= 0.0f) + *out = 0.0f; + else + { + t_float g = 100.0f + 10.0f/SPEC2LOGTEN * log(f); + *out = (g < 0.0f ? 0.0f : g); + } + } + return(w+4); +} + +static void spec2_powtodb_tilde_dsp(t_spec2_powtodb_tilde *x, t_signal **sp) +{ + int n = (sp[0]->s_n)/2; + + dsp_add(spec2_powtodb_tilde_perform, 3, sp[0]->s_vec, sp[0]->s_vec, n); +} + +static void *spec2_powtodb_tilde_new(void) +{ + t_spec2_powtodb_tilde *x = (t_spec2_powtodb_tilde *)pd_new(spec2_powtodb_tilde_class); + + outlet_new(&x->x_obj, &s_signal); + x->x_msi = 0.0f; + return (x); +} + +void spec2_powtodb_tilde_setup(void) +{ + spec2_powtodb_tilde_class = class_new(gensym("spec2_powtodb~"), (t_newmethod)spec2_powtodb_tilde_new, + 0, sizeof(t_spec2_powtodb_tilde), 0, 0); + CLASS_MAINSIGNALIN(spec2_powtodb_tilde_class, t_spec2_powtodb_tilde, x_msi); + class_addmethod(spec2_powtodb_tilde_class, (t_method)spec2_powtodb_tilde_dsp, gensym("dsp"), 0); + class_sethelpsymbol(spec2_powtodb_tilde_class, gensym("iemhelp2/spec2_powtodb~-help")); +} -- cgit v1.2.1