From 0c9b89b1018eb7760708ee5b080cd96846861328 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Thu, 2 Jun 2005 18:25:00 +0000 Subject: updated to release-1.16 svn path=/trunk/externals/iemlib/; revision=3102 --- src/iemlib2/bpe.c | 247 +++++++++++++++++++++++++++--------------------------- 1 file changed, 122 insertions(+), 125 deletions(-) (limited to 'src/iemlib2/bpe.c') diff --git a/src/iemlib2/bpe.c b/src/iemlib2/bpe.c index c011424..5797ba0 100644 --- a/src/iemlib2/bpe.c +++ b/src/iemlib2/bpe.c @@ -1,125 +1,122 @@ -/* 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 - -/* ------------------------ bpe ---------------------------- */ -static t_class *bpe_class; - -typedef struct _bpe -{ - t_object x_obj; - t_clock *x_clock; - int x_maxnum; - int x_curnum; - int x_curindex; - t_atom *x_beg; - void *x_out_val; - void *x_out_time; - void *x_out_finished; -} t_bpe; - -static void bpe_stop(t_bpe *x) -{ - clock_unset(x->x_clock); -} - -static void bpe_tick(t_bpe *x) -{ - t_atom *vec = x->x_beg; - float val, time; - - if(x->x_curindex >= x->x_curnum) - { - bpe_stop(x); - outlet_bang(x->x_out_finished); - } - else - { - vec += x->x_curindex; - val = atom_getfloat(vec++); - time = atom_getfloat(vec); - outlet_float(x->x_out_time, time); - outlet_float(x->x_out_val, val); - x->x_curindex += 2; - clock_delay(x->x_clock, time); - } -} - -static void bpe_bang(t_bpe *x) -{ - t_atom *vec = x->x_beg; - float val, time; - - if(x->x_curnum) - { - x->x_curindex = 2; - val = atom_getfloat(vec++); - time = atom_getfloat(vec); - outlet_float(x->x_out_time, time); - outlet_float(x->x_out_val, val); - clock_delay(x->x_clock, time); - } -} - -static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av) -{ - int n = ac & 0xfffffffe, i; - t_atom *vec = x->x_beg; - if(n > x->x_maxnum) - { - freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom)); - x->x_maxnum = 2 + n; - x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom)); - vec = x->x_beg; - } - x->x_curnum = n; - for(i=0; ix_beg, x->x_maxnum*sizeof(t_atom)); - clock_free(x->x_clock); -} - -static void *bpe_new(void) -{ - t_bpe *x = (t_bpe *)pd_new(bpe_class); - - x->x_curindex = 0; - x->x_maxnum = 20; - x->x_curnum = 0; - x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom)); - x->x_clock = clock_new(x, (t_method)bpe_tick); - x->x_out_val = outlet_new(&x->x_obj, &s_float); - x->x_out_time = outlet_new(&x->x_obj, &s_float); - x->x_out_finished = outlet_new(&x->x_obj, &s_bang); - return (x); -} - -void bpe_setup(void) -{ - bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new, - (t_method)bpe_free, sizeof(t_bpe), 0, 0); - class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0); - class_addbang(bpe_class, bpe_bang); - class_addlist(bpe_class, (t_method)bpe_list); - class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe")); -} - +/* 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 - 2005 */ + +#include "m_pd.h" +#include "iemlib.h" +#include +#include +#include +#include + +/* --------------------------- bpe -------------------------------- */ +/* -- break-point-envelope, convert a list of value-time-doubles -- */ +/* ------- into a time-scheduled stream of value-time-pairs ------- */ + +static t_class *bpe_class; + +typedef struct _bpe +{ + t_object x_obj; + t_clock *x_clock; + int x_maxnum; + int x_curnum; + int x_curindex; + t_atom *x_beg; + void *x_out_val; + void *x_out_time; + void *x_out_finished; +} t_bpe; + +static void bpe_stop(t_bpe *x) +{ + clock_unset(x->x_clock); +} + +static void bpe_tick(t_bpe *x) +{ + t_atom *vec = x->x_beg; + float val, time; + + if(x->x_curindex >= x->x_curnum) + { + bpe_stop(x); + outlet_bang(x->x_out_finished); + } + else + { + vec += x->x_curindex; + val = atom_getfloat(vec++); + time = atom_getfloat(vec); + outlet_float(x->x_out_time, time); + outlet_float(x->x_out_val, val); + x->x_curindex += 2; + clock_delay(x->x_clock, time); + } +} + +static void bpe_bang(t_bpe *x) +{ + t_atom *vec = x->x_beg; + float val, time; + + if(x->x_curnum) + { + x->x_curindex = 2; + val = atom_getfloat(vec++); + time = atom_getfloat(vec); + outlet_float(x->x_out_time, time); + outlet_float(x->x_out_val, val); + clock_delay(x->x_clock, time); + } +} + +static void bpe_list(t_bpe *x, t_symbol *s, int ac, t_atom *av) +{ + int n = ac & 0xfffffffe, i; + t_atom *vec = x->x_beg; + if(n > x->x_maxnum) + { + freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom)); + x->x_maxnum = 2 + n; + x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom)); + vec = x->x_beg; + } + x->x_curnum = n; + for(i=0; ix_beg, x->x_maxnum*sizeof(t_atom)); + clock_free(x->x_clock); +} + +static void *bpe_new(void) +{ + t_bpe *x = (t_bpe *)pd_new(bpe_class); + + x->x_curindex = 0; + x->x_maxnum = 20; + x->x_curnum = 0; + x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom)); + x->x_clock = clock_new(x, (t_method)bpe_tick); + x->x_out_val = outlet_new(&x->x_obj, &s_float); + x->x_out_time = outlet_new(&x->x_obj, &s_float); + x->x_out_finished = outlet_new(&x->x_obj, &s_bang); + return (x); +} + +void bpe_setup(void) +{ + bpe_class = class_new(gensym("bpe"), (t_newmethod)bpe_new, + (t_method)bpe_free, sizeof(t_bpe), 0, 0); + class_addmethod(bpe_class, (t_method)bpe_stop, gensym("stop"), 0); + class_addbang(bpe_class, bpe_bang); + class_addlist(bpe_class, (t_method)bpe_list); + class_sethelpsymbol(bpe_class, gensym("iemhelp/help-bpe")); +} -- cgit v1.2.1