From fc3d3c0a4f110a23335398c327ac0a4fc949d5cb Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 17 Jun 2002 10:13:57 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r12, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/ggee/; revision=13 --- control/sinh.c | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100755 control/sinh.c (limited to 'control/sinh.c') diff --git a/control/sinh.c b/control/sinh.c new file mode 100755 index 0000000..609ef3f --- /dev/null +++ b/control/sinh.c @@ -0,0 +1,54 @@ +/* (C) Guenter Geiger */ + + +#include +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + +#include + + + +/* ------------------------ sinh ----------------------------- */ + +static t_class *sinh_class; + + +typedef struct _sinh +{ + t_object x_obj; +} t_sinh; + + +void sinh_bang(t_sinh *x) +{ + post("bang"); +} + + +void sinh_float(t_sinh *x,t_floatarg f) +{ + + outlet_float(x->x_obj.ob_outlet,sinh(f)); +} + + +static void *sinh_new() +{ + t_sinh *x = (t_sinh *)pd_new(sinh_class); + + outlet_new(&x->x_obj,&s_float); + return (x); +} + +void sinh_setup(void) +{ + sinh_class = class_new(gensym("sinh"), (t_newmethod)sinh_new, 0, + sizeof(t_sinh), 0,0); + class_addbang(sinh_class,sinh_bang); + class_addfloat(sinh_class,sinh_float); +} + + -- cgit v1.2.1