From 71b83fc040b848c98c5065d95ecbc72b0b4f8943 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Thu, 17 Jan 2013 22:54:00 +0000 Subject: merging maxlib v1.5.5 from branches/pd-extended/0.43 svn path=/trunk/externals/maxlib/; revision=16897 --- sync.c | 588 ++++++++++++++++++++++++++++++++--------------------------------- 1 file changed, 294 insertions(+), 294 deletions(-) (limited to 'sync.c') diff --git a/sync.c b/sync.c index ccfb172..7024a95 100644 --- a/sync.c +++ b/sync.c @@ -1,294 +1,294 @@ -/* ------------------------- sync ------------------------------------------- */ -/* */ -/* syncronises outputs depending on inputs. */ -/* Written by Olaf Matthes */ -/* Based on 'sync' from jMax. */ -/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */ -/* */ -/* This program is free software; you can redistribute it and/or */ -/* modify it under the terms of the GNU General Public License */ -/* as published by the Free Software Foundation; either version 2 */ -/* of the License, or (at your option) any later version. */ -/* */ -/* This program is distributed in the hope that it will be useful, */ -/* but WITHOUT ANY WARRANTY; without even the implied warranty of */ -/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ -/* GNU General Public License for more details. */ -/* */ -/* You should have received a copy of the GNU General Public License */ -/* along with this program; if not, write to the Free Software */ -/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ -/* */ -/* Based on PureData by Miller Puckette and others. */ -/* */ -/* ---------------------------------------------------------------------------- */ - -#include "m_pd.h" -#include -#include - -#define SYNC_MAX_SIZE (int)(sizeof(unsigned int) * 8) - -static char *version = "sync v0.1, written by Olaf Matthes \n" - " based on sync from jMax"; - -typedef struct sync -{ - t_object x_ob; - t_float x_min; /* low border of input range */ - t_float x_max; /* high border of input range */ - t_outlet *x_outlet[SYNC_MAX_SIZE]; - - t_int x_n; - unsigned int x_trigger; /* control bits: trigger on input at given inlets */ - unsigned int x_require; /* control bits: require input on given inlets */ - unsigned int x_reset; /* control bits: reset memory of given inputs after on each input */ - unsigned int x_wait; /* status bits: wait for input at given inlet before output */ - t_atom x_a[SYNC_MAX_SIZE]; - enum {mode_all, mode_select} mode; -} t_sync; - -typedef struct proxy -{ - t_object obj; - t_int index; /* number of proxy inlet(s) */ - t_sync *x; /* we'll put the other struct in here */ -} t_proxy; - -static void sync_output(t_sync *x) -{ - int i; - - for(i=x->x_n-1; i>=0; i--) - if(x->x_a[i].a_type != A_SEMI) - outlet_list(x->x_outlet[i], NULL, 1, x->x_a + i); -} - -static void sync_input(t_proxy *p, t_symbol *s, int ac, t_atom *at) -{ - t_sync *x = (t_sync *)(p->x); - int winlet = p->index; - - if(ac) - { - unsigned int bit = 1 << winlet; - - x->x_a[winlet] = at[0]; - - x->x_wait &= ~bit; - - if(!x->x_wait && (x->x_trigger & bit)) - { - sync_output(x); - x->x_wait |= x->x_reset & x->x_require; - } - } -} - -static void sync_float_input(t_proxy *p, t_floatarg f) -{ - t_sync *x = (t_sync *)(p->x); - int winlet = p->index; - - { - unsigned int bit = 1 << winlet; - - SETFLOAT(x->x_a + winlet, f); - - x->x_wait &= ~bit; - - if(!x->x_wait && (x->x_trigger & bit)) - { - sync_output(x); - x->x_wait |= x->x_reset & x->x_require; - } - } -} - -static void sync_set_bits(unsigned int *bits, int n, t_atom *at, int sign) -{ - if(at->a_type == A_SYMBOL) - { - t_symbol *mode = atom_getsymbol(at); - - if(mode == gensym("all")) - *bits = (1 << n) - 1; - else if(mode == gensym("none")) - *bits = 0; - } - else if(at->a_type == A_FLOAT) - { - int in = (int)atom_getfloat(at) * sign; - - if(in >= 0 && in < n) - *bits = 1 << in; - } - else if(at->a_type == A_GIMME) - { - int size = n; - int i; - - *bits = 0; - - for(i=0; i= 0 && in < n) - *bits |= 1 << in; - } - } - } -} - -static void sync_set_trigger(t_sync *x, t_symbol *s, int ac, t_atom *at) -{ - sync_set_bits(&x->x_trigger, x->x_n, at, 1); -} - -static void sync_set_require(t_sync *x, t_symbol *s, int ac, t_atom *at) -{ - unsigned int once = 0; - - sync_set_bits(&x->x_require, x->x_n, at, 1); - sync_set_bits(&once, x->x_n, at, -1); - - x->x_reset = ~once; - x->x_wait = x->x_require | once; -} - -static void sync_set_mode(t_sync *x, t_symbol *mode) -{ - if(mode == gensym("any")) - { - x->x_trigger = (1 << x->x_n) - 1; - x->x_reset = 0; - x->x_require = 0; - } - else if(mode == gensym("all")) - x->x_trigger = x->x_require = x->x_reset = x->x_wait = (1 << x->x_n) - 1; - else if(mode == gensym("left")) - { - x->x_trigger = 1; - x->x_reset = 0; - x->x_require = 0; - } - else if(mode == gensym("right")) - { - x->x_trigger = (1 << (x->x_n - 1)); - x->x_reset = 0; - x->x_require = 0; - } - - x->x_wait = x->x_require; -} - -static void sync_float(t_sync *x, t_floatarg f) -{ - unsigned int bit = 1 << 0; - - SETFLOAT(x->x_a, f); - - x->x_wait &= ~bit; - - if(!x->x_wait && (x->x_trigger & bit)) - { - sync_output(x); - x->x_wait |= x->x_reset & x->x_require; - } -} - -static t_class *sync_class; -static t_class *proxy_class; - -static void *sync_new(t_symbol *s, int ac, t_atom *at) -{ - int n = 0; - int i; - t_sync *x = (t_sync *)pd_new(sync_class); - t_proxy *inlet[SYNC_MAX_SIZE]; - - /* void state - we fill with SEMI and treat this as 'void' */ - for(i=0; ix_a + i); - - if(ac == 1) - { - if(at->a_type == A_FLOAT) - { - n = atom_getfloat(at); - - if(n < 2) - n = 2; - else if(n > SYNC_MAX_SIZE) - n = SYNC_MAX_SIZE; - } - else - { - post("sync: wrong argument"); - return (0); - } - } - else if(ac > 1) - { - if(ac > SYNC_MAX_SIZE) - ac = SYNC_MAX_SIZE; - - n = ac; - - for(i=0; ix_a[i] = at[i]; - } - - x->x_n = n; - x->x_trigger = x->x_require = x->x_reset = x->x_wait = (1 << n) - 1; - - x->x_outlet[0] = outlet_new(&x->x_ob, gensym("list")); - - for(i=1; ix = x; /* make t_sync *x visible to the proxy inlets */ - inlet[i]->index = i; /* remember it's number */ - /* it belongs to the object t_sync but the destination is t_proxy */ - inlet_new(&x->x_ob, &inlet[i]->obj.ob_pd, 0,0); - - x->x_outlet[i] = outlet_new(&x->x_ob, gensym("list")); - } - - return (void *)x; -} - -#ifndef MAXLIB -void sync_setup(void) -{ - sync_class = class_new(gensym("sync"), (t_newmethod)sync_new, - 0, sizeof(t_sync), 0, A_GIMME, 0); -#else -void maxlib_sync_setup(void) -{ - sync_class = class_new(gensym("maxlib_sync"), (t_newmethod)sync_new, - 0, sizeof(t_sync), 0, A_GIMME, 0); -#endif - /* a class for the proxy inlet: */ - proxy_class = class_new(gensym("maxlib_sync_proxy"), NULL, NULL, sizeof(t_proxy), - CLASS_PD|CLASS_NOINLET, A_NULL); - - class_addfloat(proxy_class, sync_float_input); - class_addanything(proxy_class, sync_input); - - class_addfloat(sync_class, sync_float); - class_addmethod(sync_class, (t_method)sync_set_trigger, gensym("trigger"), A_GIMME, 0); - class_addmethod(sync_class, (t_method)sync_set_require, gensym("require"), A_GIMME, 0); - class_addmethod(sync_class, (t_method)sync_set_mode, gensym("mode"), A_SYMBOL, 0); -#ifndef MAXLIB - - post(version); -#else - class_addcreator((t_newmethod)sync_new, gensym("sync"), A_GIMME, 0); - class_sethelpsymbol(sync_class, gensym("maxlib/sync-help.pd")); -#endif -} - +/* ------------------------- sync ------------------------------------------- */ +/* */ +/* syncronises outputs depending on inputs. */ +/* Written by Olaf Matthes */ +/* Based on 'sync' from jMax. */ +/* Get source at http://www.akustische-kunst.org/puredata/maxlib/ */ +/* */ +/* This program is free software; you can redistribute it and/or */ +/* modify it under the terms of the GNU General Public License */ +/* as published by the Free Software Foundation; either version 2 */ +/* of the License, or (at your option) any later version. */ +/* */ +/* This program is distributed in the hope that it will be useful, */ +/* but WITHOUT ANY WARRANTY; without even the implied warranty of */ +/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ +/* GNU General Public License for more details. */ +/* */ +/* You should have received a copy of the GNU General Public License */ +/* along with this program; if not, write to the Free Software */ +/* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +/* */ +/* Based on PureData by Miller Puckette and others. */ +/* */ +/* ---------------------------------------------------------------------------- */ + +#include "m_pd.h" +#include +#include + +#define SYNC_MAX_SIZE (int)(sizeof(unsigned int) * 8) + +static char *version = "sync v0.1, written by Olaf Matthes \n" + " based on sync from jMax"; + +typedef struct sync +{ + t_object x_ob; + t_float x_min; /* low border of input range */ + t_float x_max; /* high border of input range */ + t_outlet *x_outlet[SYNC_MAX_SIZE]; + + t_int x_n; + unsigned int x_trigger; /* control bits: trigger on input at given inlets */ + unsigned int x_require; /* control bits: require input on given inlets */ + unsigned int x_reset; /* control bits: reset memory of given inputs after on each input */ + unsigned int x_wait; /* status bits: wait for input at given inlet before output */ + t_atom x_a[SYNC_MAX_SIZE]; + enum {mode_all, mode_select} mode; +} t_sync; + +typedef struct proxy +{ + t_object obj; + t_int index; /* number of proxy inlet(s) */ + t_sync *x; /* we'll put the other struct in here */ +} t_proxy; + +static void sync_output(t_sync *x) +{ + int i; + + for(i=x->x_n-1; i>=0; i--) + if(x->x_a[i].a_type != A_SEMI) + outlet_list(x->x_outlet[i], NULL, 1, x->x_a + i); +} + +static void sync_input(t_proxy *p, t_symbol *s, int ac, t_atom *at) +{ + t_sync *x = (t_sync *)(p->x); + int winlet = p->index; + + if(ac) + { + unsigned int bit = 1 << winlet; + + x->x_a[winlet] = at[0]; + + x->x_wait &= ~bit; + + if(!x->x_wait && (x->x_trigger & bit)) + { + sync_output(x); + x->x_wait |= x->x_reset & x->x_require; + } + } +} + +static void sync_float_input(t_proxy *p, t_floatarg f) +{ + t_sync *x = (t_sync *)(p->x); + int winlet = p->index; + + { + unsigned int bit = 1 << winlet; + + SETFLOAT(x->x_a + winlet, f); + + x->x_wait &= ~bit; + + if(!x->x_wait && (x->x_trigger & bit)) + { + sync_output(x); + x->x_wait |= x->x_reset & x->x_require; + } + } +} + +static void sync_set_bits(unsigned int *bits, int n, t_atom *at, int sign) +{ + if(at->a_type == A_SYMBOL) + { + t_symbol *mode = atom_getsymbol(at); + + if(mode == gensym("all")) + *bits = (1 << n) - 1; + else if(mode == gensym("none")) + *bits = 0; + } + else if(at->a_type == A_FLOAT) + { + int in = (int)atom_getfloat(at) * sign; + + if(in >= 0 && in < n) + *bits = 1 << in; + } + else if(at->a_type == A_GIMME) + { + int size = n; + int i; + + *bits = 0; + + for(i=0; i= 0 && in < n) + *bits |= 1 << in; + } + } + } +} + +static void sync_set_trigger(t_sync *x, t_symbol *s, int ac, t_atom *at) +{ + sync_set_bits(&x->x_trigger, x->x_n, at, 1); +} + +static void sync_set_require(t_sync *x, t_symbol *s, int ac, t_atom *at) +{ + unsigned int once = 0; + + sync_set_bits(&x->x_require, x->x_n, at, 1); + sync_set_bits(&once, x->x_n, at, -1); + + x->x_reset = ~once; + x->x_wait = x->x_require | once; +} + +static void sync_set_mode(t_sync *x, t_symbol *mode) +{ + if(mode == gensym("any")) + { + x->x_trigger = (1 << x->x_n) - 1; + x->x_reset = 0; + x->x_require = 0; + } + else if(mode == gensym("all")) + x->x_trigger = x->x_require = x->x_reset = x->x_wait = (1 << x->x_n) - 1; + else if(mode == gensym("left")) + { + x->x_trigger = 1; + x->x_reset = 0; + x->x_require = 0; + } + else if(mode == gensym("right")) + { + x->x_trigger = (1 << (x->x_n - 1)); + x->x_reset = 0; + x->x_require = 0; + } + + x->x_wait = x->x_require; +} + +static void sync_float(t_sync *x, t_floatarg f) +{ + unsigned int bit = 1 << 0; + + SETFLOAT(x->x_a, f); + + x->x_wait &= ~bit; + + if(!x->x_wait && (x->x_trigger & bit)) + { + sync_output(x); + x->x_wait |= x->x_reset & x->x_require; + } +} + +static t_class *sync_class; +static t_class *proxy_class; + +static void *sync_new(t_symbol *s, int ac, t_atom *at) +{ + int n = 0; + int i; + t_sync *x = (t_sync *)pd_new(sync_class); + t_proxy *inlet[SYNC_MAX_SIZE]; + + /* void state - we fill with SEMI and treat this as 'void' */ + for(i=0; ix_a + i); + + if(ac == 1) + { + if(at->a_type == A_FLOAT) + { + n = atom_getfloat(at); + + if(n < 2) + n = 2; + else if(n > SYNC_MAX_SIZE) + n = SYNC_MAX_SIZE; + } + else + { + post("sync: wrong argument"); + return (0); + } + } + else if(ac > 1) + { + if(ac > SYNC_MAX_SIZE) + ac = SYNC_MAX_SIZE; + + n = ac; + + for(i=0; ix_a[i] = at[i]; + } + + x->x_n = n; + x->x_trigger = x->x_require = x->x_reset = x->x_wait = (1 << n) - 1; + + x->x_outlet[0] = outlet_new(&x->x_ob, gensym("list")); + + for(i=1; ix = x; /* make t_sync *x visible to the proxy inlets */ + inlet[i]->index = i; /* remember it's number */ + /* it belongs to the object t_sync but the destination is t_proxy */ + inlet_new(&x->x_ob, &inlet[i]->obj.ob_pd, 0,0); + + x->x_outlet[i] = outlet_new(&x->x_ob, gensym("list")); + } + + return (void *)x; +} + +#ifndef MAXLIB +void sync_setup(void) +{ + sync_class = class_new(gensym("sync"), (t_newmethod)sync_new, + 0, sizeof(t_sync), 0, A_GIMME, 0); +#else +void maxlib_sync_setup(void) +{ + sync_class = class_new(gensym("maxlib_sync"), (t_newmethod)sync_new, + 0, sizeof(t_sync), 0, A_GIMME, 0); +#endif + /* a class for the proxy inlet: */ + proxy_class = class_new(gensym("maxlib_sync_proxy"), NULL, NULL, sizeof(t_proxy), + CLASS_PD|CLASS_NOINLET, A_NULL); + + class_addfloat(proxy_class, sync_float_input); + class_addanything(proxy_class, sync_input); + + class_addfloat(sync_class, sync_float); + class_addmethod(sync_class, (t_method)sync_set_trigger, gensym("trigger"), A_GIMME, 0); + class_addmethod(sync_class, (t_method)sync_set_require, gensym("require"), A_GIMME, 0); + class_addmethod(sync_class, (t_method)sync_set_mode, gensym("mode"), A_SYMBOL, 0); +#ifndef MAXLIB + + logpost(NULL, 4, version); +#else + class_addcreator((t_newmethod)sync_new, gensym("sync"), A_GIMME, 0); + class_sethelpsymbol(sync_class, gensym("maxlib/sync-help.pd")); +#endif +} + -- cgit v1.2.1