From 577ac6e80ff4f436fbd054291ed7dddbc31bd49a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 18 May 2004 21:33:33 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r1738, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/iemlib/; revision=1739 --- src/iemlib1/v2db.c | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100644 src/iemlib1/v2db.c (limited to 'src/iemlib1/v2db.c') diff --git a/src/iemlib1/v2db.c b/src/iemlib1/v2db.c new file mode 100644 index 0000000..b3e342d --- /dev/null +++ b/src/iemlib1/v2db.c @@ -0,0 +1,45 @@ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. + +iemlib1 written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2003 */ + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + + +#include "m_pd.h" +#include "iemlib.h" +#include +#include +#include + +/* ---------------- v2db - value to dB converter. ----------------- */ + +static t_class *v2db_class; + +float v2db(float f) +{ + return (f <= 0 ? -199.9 : 8.6858896381*log(f)); +} + +static void v2db_float(t_object *x, t_float f) +{ + outlet_float(x->ob_outlet, v2db(f)); +} + +static void *v2db_new(void) +{ + t_object *x = (t_object *)pd_new(v2db_class); + outlet_new(x, &s_float); + return (x); +} + +void v2db_setup(void) +{ + v2db_class = class_new(gensym("v2db"), v2db_new, 0, + sizeof(t_object), 0, 0); + class_addfloat(v2db_class, (t_method)v2db_float); + class_sethelpsymbol(v2db_class, gensym("iemhelp/help-v2db")); +} -- cgit v1.2.1