diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-12-08 05:24:58 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-12-08 05:24:58 +0000 |
commit | ed5f9b5db036f8bf420b38d674c9b3b1822b3b7b (patch) | |
tree | b287269dec9a86175f1059cfb562754855e7f6af /change.c | |
parent | 9b2014ed31750d9573d70d998cb3a3c3c4803b42 (diff) |
converted things to fit in with the namespace
svn path=/trunk/externals/markex/; revision=4167
Diffstat (limited to 'change.c')
-rw-r--r-- | change.c | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/change.c b/change.c new file mode 100644 index 0000000..f42cf37 --- /dev/null +++ b/change.c @@ -0,0 +1,48 @@ +/* + * Copyright (c) 1997-1999 Mark Danks. + * For information on usage and redistribution, and for a DISCLAIMER OF ALL + * WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution. + */ + +#include "m_pd.h" + +/* -------------------------- change ------------------------------ */ + +/* instance structure */ + +static t_class *change_class; + +typedef struct _change +{ + t_object x_obj; /* obligatory object header */ + float x_cur; + t_outlet *t_out1; /* the outlet */ +} t_change; + +static void change_float(t_change *x, t_floatarg n) +{ + if (n != x->x_cur) + { + outlet_float(x->t_out1, n); + x->x_cur = n; + } +} + +static void *change_new(void) /* init vals in struc */ +{ + t_change *x = (t_change *)pd_new(change_class); + x->x_cur = -1.f; + x->t_out1 = outlet_new(&x->x_obj, 0); + return(x); +} + +void change_setup(void) +{ + change_class = class_new(gensym("change"), (t_newmethod)change_new, 0, + sizeof(t_change), 0, A_NULL); + class_addfloat(change_class, change_float); + + #if PD_MINOR_VERSION < 37 + +#endif +} |