From 486e5ff7ebf4ed0fe1089ac73643c8dbca9b838a Mon Sep 17 00:00:00 2001 From: musil Date: Fri, 8 Jul 2005 02:13:24 +0000 Subject: dos-return svn path=/trunk/externals/iemlib/; revision=3301 --- src/iemlib1/forpp.c | 386 ++++++++++++++++++++++++++-------------------------- 1 file changed, 193 insertions(+), 193 deletions(-) (limited to 'src/iemlib1/forpp.c') diff --git a/src/iemlib1/forpp.c b/src/iemlib1/forpp.c index 9f0d995..19df836 100644 --- a/src/iemlib1/forpp.c +++ b/src/iemlib1/forpp.c @@ -1,193 +1,193 @@ -/* 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 - 2005 */ - -#ifdef NT -#pragma warning( disable : 4244 ) -#pragma warning( disable : 4305 ) -#endif - - -#include "m_pd.h" -#include "iemlib.h" -#include -#include -#include - -/* ----------------------------- for++ -------------------------------- */ -/* -- an internal timed counter (start-, stop-number and metro-time) -- */ - -typedef struct _forpp -{ - t_object x_obj; - int x_beg; - int x_end; - float x_delay; - int x_cur; - int x_incr; - void *x_out_end; - void *x_clock; - void *x_clock2; -} t_forpp; - -static t_class *forpp_class; - -static void forpp_tick2(t_forpp *x) -{ - outlet_bang(x->x_out_end); - clock_unset(x->x_clock2); -} - -static void forpp_tick(t_forpp *x) -{ - outlet_float(x->x_obj.ob_outlet, x->x_cur); - x->x_cur += x->x_incr; - if(x->x_incr > 0) - { - if(x->x_cur <= x->x_end) - clock_delay(x->x_clock, x->x_delay); - else - { - clock_unset(x->x_clock); - clock_delay(x->x_clock2, x->x_delay); - } - } - else - { - if(x->x_cur >= x->x_end) - clock_delay(x->x_clock, x->x_delay); - else - { - clock_unset(x->x_clock); - clock_delay(x->x_clock2, x->x_delay); - } - } -} - -static void forpp_bang(t_forpp *x) -{ - x->x_cur = x->x_beg; - outlet_float(x->x_obj.ob_outlet, x->x_cur); - x->x_cur += x->x_incr; - if(x->x_incr > 0) - { - if(x->x_cur <= x->x_end) - clock_delay(x->x_clock, x->x_delay); - else - { - clock_unset(x->x_clock); - clock_delay(x->x_clock2, x->x_delay); - } - } - else - { - if(x->x_cur >= x->x_end) - clock_delay(x->x_clock, x->x_delay); - else - { - clock_unset(x->x_clock); - clock_delay(x->x_clock2, x->x_delay); - } - } - -} - -static void forpp_start(t_forpp *x) -{ - forpp_bang(x); -} - -static void forpp_stop(t_forpp *x) -{ - if(x->x_incr > 0) - x->x_cur = x->x_end + 1; - else - x->x_cur = x->x_end - 1; - clock_unset(x->x_clock); - clock_unset(x->x_clock2); -} - -static void forpp_float(t_forpp *x, t_float beg) -{ - x->x_beg = (int)beg; - if(x->x_end < x->x_beg) - x->x_incr = -1; - else - x->x_incr = 1; -} - -static void forpp_ft1(t_forpp *x, t_float end) -{ - x->x_end = (int)end; - if(x->x_end < x->x_beg) - x->x_incr = -1; - else - x->x_incr = 1; -} - -static void forpp_ft2(t_forpp *x, t_float delay) -{ - if(delay < 0.0) - delay = 0.0; - x->x_delay = delay; -} - -static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv) -{ - if(argc == 2) - { - forpp_float(x, atom_getfloatarg(0, argc, argv)); - forpp_ft1(x, atom_getfloatarg(1, argc, argv)); - } - else if(argc == 3) - { - forpp_float(x, atom_getfloatarg(0, argc, argv)); - forpp_ft1(x, atom_getfloatarg(1, argc, argv)); - forpp_ft2(x, atom_getfloatarg(2, argc, argv)); - } -} - -static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay) -{ - t_forpp *x = (t_forpp *)pd_new(forpp_class); - - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); - inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2")); - outlet_new(&x->x_obj, &s_float); - x->x_out_end = outlet_new(&x->x_obj, &s_bang); - x->x_clock = clock_new(x, (t_method)forpp_tick); - x->x_clock2 = clock_new(x, (t_method)forpp_tick2); - x->x_beg = (int)beg; - x->x_end = (int)end; - if(x->x_end < x->x_beg) - x->x_incr = -1; - else - x->x_incr = 1; - if(delay < 0.0) - delay = 0.0; - x->x_delay = delay; - x->x_cur = x->x_beg; - return(x); -} - -static void forpp_ff(t_forpp *x) -{ - clock_free(x->x_clock); - clock_free(x->x_clock2); -} - -void forpp_setup(void) -{ - forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new, - (t_method)forpp_ff, sizeof(t_forpp), - 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0); - class_addbang(forpp_class, forpp_bang); - class_addfloat(forpp_class, forpp_float); - class_addlist(forpp_class, forpp_list); - class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0); - class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0); - class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0); - class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0); - class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++")); -} +/* 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 - 2005 */ + +#ifdef NT +#pragma warning( disable : 4244 ) +#pragma warning( disable : 4305 ) +#endif + + +#include "m_pd.h" +#include "iemlib.h" +#include +#include +#include + +/* ----------------------------- for++ -------------------------------- */ +/* -- an internal timed counter (start-, stop-number and metro-time) -- */ + +typedef struct _forpp +{ + t_object x_obj; + int x_beg; + int x_end; + float x_delay; + int x_cur; + int x_incr; + void *x_out_end; + void *x_clock; + void *x_clock2; +} t_forpp; + +static t_class *forpp_class; + +static void forpp_tick2(t_forpp *x) +{ + outlet_bang(x->x_out_end); + clock_unset(x->x_clock2); +} + +static void forpp_tick(t_forpp *x) +{ + outlet_float(x->x_obj.ob_outlet, x->x_cur); + x->x_cur += x->x_incr; + if(x->x_incr > 0) + { + if(x->x_cur <= x->x_end) + clock_delay(x->x_clock, x->x_delay); + else + { + clock_unset(x->x_clock); + clock_delay(x->x_clock2, x->x_delay); + } + } + else + { + if(x->x_cur >= x->x_end) + clock_delay(x->x_clock, x->x_delay); + else + { + clock_unset(x->x_clock); + clock_delay(x->x_clock2, x->x_delay); + } + } +} + +static void forpp_bang(t_forpp *x) +{ + x->x_cur = x->x_beg; + outlet_float(x->x_obj.ob_outlet, x->x_cur); + x->x_cur += x->x_incr; + if(x->x_incr > 0) + { + if(x->x_cur <= x->x_end) + clock_delay(x->x_clock, x->x_delay); + else + { + clock_unset(x->x_clock); + clock_delay(x->x_clock2, x->x_delay); + } + } + else + { + if(x->x_cur >= x->x_end) + clock_delay(x->x_clock, x->x_delay); + else + { + clock_unset(x->x_clock); + clock_delay(x->x_clock2, x->x_delay); + } + } + +} + +static void forpp_start(t_forpp *x) +{ + forpp_bang(x); +} + +static void forpp_stop(t_forpp *x) +{ + if(x->x_incr > 0) + x->x_cur = x->x_end + 1; + else + x->x_cur = x->x_end - 1; + clock_unset(x->x_clock); + clock_unset(x->x_clock2); +} + +static void forpp_float(t_forpp *x, t_float beg) +{ + x->x_beg = (int)beg; + if(x->x_end < x->x_beg) + x->x_incr = -1; + else + x->x_incr = 1; +} + +static void forpp_ft1(t_forpp *x, t_float end) +{ + x->x_end = (int)end; + if(x->x_end < x->x_beg) + x->x_incr = -1; + else + x->x_incr = 1; +} + +static void forpp_ft2(t_forpp *x, t_float delay) +{ + if(delay < 0.0) + delay = 0.0; + x->x_delay = delay; +} + +static void forpp_list(t_forpp *x, t_symbol *s, int argc, t_atom *argv) +{ + if(argc == 2) + { + forpp_float(x, atom_getfloatarg(0, argc, argv)); + forpp_ft1(x, atom_getfloatarg(1, argc, argv)); + } + else if(argc == 3) + { + forpp_float(x, atom_getfloatarg(0, argc, argv)); + forpp_ft1(x, atom_getfloatarg(1, argc, argv)); + forpp_ft2(x, atom_getfloatarg(2, argc, argv)); + } +} + +static void *forpp_new(t_floatarg beg, t_floatarg end, t_floatarg delay) +{ + t_forpp *x = (t_forpp *)pd_new(forpp_class); + + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1")); + inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft2")); + outlet_new(&x->x_obj, &s_float); + x->x_out_end = outlet_new(&x->x_obj, &s_bang); + x->x_clock = clock_new(x, (t_method)forpp_tick); + x->x_clock2 = clock_new(x, (t_method)forpp_tick2); + x->x_beg = (int)beg; + x->x_end = (int)end; + if(x->x_end < x->x_beg) + x->x_incr = -1; + else + x->x_incr = 1; + if(delay < 0.0) + delay = 0.0; + x->x_delay = delay; + x->x_cur = x->x_beg; + return(x); +} + +static void forpp_ff(t_forpp *x) +{ + clock_free(x->x_clock); + clock_free(x->x_clock2); +} + +void forpp_setup(void) +{ + forpp_class = class_new(gensym("for++"), (t_newmethod)forpp_new, + (t_method)forpp_ff, sizeof(t_forpp), + 0, A_DEFFLOAT, A_DEFFLOAT, A_DEFFLOAT, 0); + class_addbang(forpp_class, forpp_bang); + class_addfloat(forpp_class, forpp_float); + class_addlist(forpp_class, forpp_list); + class_addmethod(forpp_class, (t_method)forpp_start, gensym("start"), 0); + class_addmethod(forpp_class, (t_method)forpp_stop, gensym("stop"), 0); + class_addmethod(forpp_class, (t_method)forpp_ft1, gensym("ft1"), A_FLOAT, 0); + class_addmethod(forpp_class, (t_method)forpp_ft2, gensym("ft2"), A_FLOAT, 0); + class_sethelpsymbol(forpp_class, gensym("iemhelp/help-for++")); +} -- cgit v1.2.1