diff options
Diffstat (limited to 'old')
-rw-r--r-- | old/wrapper-help.pd | 27 | ||||
-rw-r--r-- | old/wrapper.c | 81 |
2 files changed, 108 insertions, 0 deletions
diff --git a/old/wrapper-help.pd b/old/wrapper-help.pd new file mode 100644 index 0000000..06abf4d --- /dev/null +++ b/old/wrapper-help.pd @@ -0,0 +1,27 @@ +#N canvas 226 243 486 349 10; +#X text 114 176 Wraps between 0 and 1 by default; +#X text 137 276 This instance wraps the input between 2 and 8; +#X floatatom 52 205 5 0 0 0 - - -; +#X floatatom 50 138 5 0 0 0 - - -; +#X floatatom 91 138 5 0 0 0 - - -; +#X floatatom 134 140 5 0 0 0 - - -; +#X floatatom 50 242 5 0 0 0 - - -; +#X floatatom 92 243 5 0 0 0 - - -; +#X floatatom 136 242 5 0 0 0 - - -; +#X floatatom 50 306 5 0 0 0 - - -; +#X obj 52 177 wrapper; +#X obj 50 277 wrapper 2 8; +#X obj 42 2 cnv 15 400 100 empty empty empty 20 12 0 14 -249661 -66577 +0; +#X text 47 36 author: mrtoftrash@gmail.com; +#X text 48 2 description: wraps a number around a range; +#X text 47 47 version: 2009-06-07 (initial release); +#X text 47 25 tags: math range tof; +#X connect 3 0 10 0; +#X connect 4 0 10 1; +#X connect 5 0 10 2; +#X connect 6 0 11 0; +#X connect 7 0 11 1; +#X connect 8 0 11 2; +#X connect 10 0 2 0; +#X connect 11 0 9 0; diff --git a/old/wrapper.c b/old/wrapper.c new file mode 100644 index 0000000..8d0ec5e --- /dev/null +++ b/old/wrapper.c @@ -0,0 +1,81 @@ +#include "m_pd.h" +#include <math.h> + +static t_class *wrapper_class; + +typedef struct _wrapper { + t_object x_obj; + + t_float min; + t_float max; + //t_int iterating; + t_outlet* outlet1; + //t_outlet* outlet2; +} t_wrapper; + +/* +void wrapper_bang(t_wrapper *x) +{ + //x->i_count = x->i_down; + x->iterating = 0; + +} +*/ + +void wrapper_float(t_wrapper *x, t_float f) +{ + + t_float value = fmod(f - x->min ,x->max - x->min); + if ( value < 0 ) value = value + x->max; + else value = value + x->min; + + outlet_float(x->outlet1, value); + + +} + + + +static void wrapper_free(t_wrapper *x) +{ + + +} + +void *wrapper_new(t_symbol *s, int argc, t_atom *argv) +{ + t_wrapper *x = (t_wrapper *)pd_new(wrapper_class); + + + if ( argc >= 2) { + x->min = atom_getfloat(argv); + x->max = atom_getfloat(argv+1); + } else if ( argc == 1) { + x->min = 0; + x->max = atom_getfloat(argv); + } else { + x->min = 0; + x->max = 1; + } + + floatinlet_new(&x->x_obj, &x->min); + floatinlet_new(&x->x_obj, &x->max); + x->outlet1 = outlet_new(&x->x_obj, &s_float); + + + + return (void *)x; +} + +void wrapper_setup(void) { + wrapper_class = class_new(gensym("wrapper"), + (t_newmethod)wrapper_new, + (t_method)wrapper_free, sizeof(t_wrapper), + CLASS_DEFAULT, + A_GIMME, 0); + + //class_addbang (wrapper_class, wrapper_bang); + class_addfloat (wrapper_class, wrapper_float); + //class_addlist (wrapper_class, wrapper_list); + +} |