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/iemlib2/wrap.c | 69 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) create mode 100644 src/iemlib2/wrap.c (limited to 'src/iemlib2/wrap.c') diff --git a/src/iemlib2/wrap.c b/src/iemlib2/wrap.c new file mode 100644 index 0000000..b594998 --- /dev/null +++ b/src/iemlib2/wrap.c @@ -0,0 +1,69 @@ +/* For information on usage and redistribution, and for a DISCLAIMER OF ALL +* WARRANTIES, see the file, "LICENSE.txt," in this distribution. + +iemlib2 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 +#include + +/* ---- wrap - float=int or list of float=symbol concaternat to int=float ----- */ + + + +typedef struct _wrap +{ + t_object x_obj; + float x_f; +} t_wrap; + +static t_class *wrap_class; + +static void wrap_bang(t_wrap *x) +{ + outlet_float(x->x_obj.ob_outlet, x->x_f); +} + +static void wrap_float(t_wrap *x, t_float f) +{ + int i=(int)f; + + if(f > 0.0) + x->x_f = f - (float)i; + else + x->x_f = f - (float)(i - 1); + wrap_bang(x); +} + +static void wrap_list(t_wrap *x, t_symbol *s, int argc, t_atom *argv) +{ + if((argc > 0) && (IS_A_FLOAT(argv, 0))) + wrap_float(x, atom_getfloat(argv)); +} + +static void *wrap_new(void) +{ + t_wrap *x = (t_wrap *)pd_new(wrap_class); + + outlet_new(&x->x_obj, &s_float); + x->x_f = 0.0; + return (x); +} + +void wrap_setup(void) +{ + wrap_class = class_new(gensym("wrap"), (t_newmethod)wrap_new, 0, + sizeof(t_wrap), 0, 0); + class_addbang(wrap_class, (t_method)wrap_bang); + class_addfloat(wrap_class, (t_method)wrap_float); + class_addlist(wrap_class, (t_method)wrap_list); + class_sethelpsymbol(wrap_class, gensym("iemhelp/help-wrap")); +} -- cgit v1.2.1