externals/iemlib/src/iem_t3_lib iem_t3_lib.c, 1.1.1.1, 1.2 iemlib.h, 1.1.1.1, 1.2 sigt3_line.c, 1.1.1.1, 1.2 sigt3_sig.c, 1.1.1.1, 1.2 t3_bpe.c, 1.1.1.1, 1.2 t3_delay.c, 1.1.1.1, 1.2 t3_metro.c, 1.1.1.1, 1.2 t3_timer.c, 1.1.1.1, 1.2 - Pd-cvs

2 Jun 2005


      Update of /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29541/iem_t3_lib
Modified Files:
    iem_t3_lib.c iemlib.h sigt3_line.c sigt3_sig.c t3_bpe.c 
    t3_delay.c t3_metro.c t3_timer.c 
Log Message:
updated to release-1.16
Index: t3_timer.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_timer.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_timer.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- t3_timer.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,55 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
! 
! typedef struct _t3_timer
! {
!     t_object x_obj;
!     double   x_settime;
!     double   x_t3_off;
! } t_t3_timer;
! 
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
!     x->x_settime = (double)clock_getsystime();
!     x->x_t3_off = (double)t3_bang;
! }
! 
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
!     outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
! 		+ (double)t3_bang - x->x_t3_off);
! }
! 
! static void *t3_timer_new(void)
! {
!     t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
!     t3_timer_float(x, 0.0);
!     outlet_new(&x->x_obj, &s_float);
!     inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
!     return (x);
! }
! 
! void t3_timer_setup(void)
! {
!     t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
!     	sizeof(t_t3_timer), 0, 0);
!     class_addfloat(t3_timer_class, t3_timer_float);
!     class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
!     class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
--- 1,55 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- t3_timer ------------------------------ */
! static t_class *t3_timer_class;
! 
! typedef struct _t3_timer
! {
!   t_object x_obj;
!   double   x_settime;
!   double   x_t3_off;
! } t_t3_timer;
! 
! static void t3_timer_float(t_t3_timer *x, t_float t3_bang)
! {
!   x->x_settime = (double)clock_getsystime();
!   x->x_t3_off = (double)t3_bang;
! }
! 
! static void t3_timer_ft1(t_t3_timer *x, t_float t3_bang)
! {
!   outlet_float(x->x_obj.ob_outlet, clock_gettimesince(x->x_settime)
!     + (double)t3_bang - x->x_t3_off);
! }
! 
! static void *t3_timer_new(void)
! {
!   t_t3_timer *x = (t_t3_timer *)pd_new(t3_timer_class);
!   t3_timer_float(x, 0.0);
!   outlet_new(&x->x_obj, &s_float);
!   inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_float, gensym("ft1"));
!   return (x);
! }
! 
! void t3_timer_setup(void)
! {
!   t3_timer_class = class_new(gensym("t3_timer"), (t_newmethod)t3_timer_new, 0,
!     sizeof(t_t3_timer), 0, 0);
!   class_addfloat(t3_timer_class, t3_timer_float);
!   class_addmethod(t3_timer_class, (t_method)t3_timer_ft1, gensym("ft1"), A_FLOAT, 0);
!   class_sethelpsymbol(t3_timer_class, gensym("iemhelp/help-t3_timer"));
! }
Index: sigt3_sig.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_sig.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigt3_sig.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- sigt3_sig.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,200 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
! 
! typedef struct _sigt3_sig
! {
!     t_object x_obj;
!     t_clock  *x_clock;
!     float    x_old_val;
!     float    x_new_val;
!     float    *x_beg;
!     int      x_n;
!     int      x_t3_bang_samps;
!     int      x_transient;
!     float    x_ms2samps;
!     float    x_ticks2ms;
! } t_sigt3_sig;
! 
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
!     float *trans = x->x_beg, val;
!     int n = x->x_n, t3_bang_samps, i;
! 
!     t3_bang_samps = x->x_t3_bang_samps;
!     if(!x->x_transient)
!     {
! 	val = x->x_old_val;
! 	for(i=0; i<t3_bang_samps; i++)
! 	    trans[i] = val;
! 	x->x_transient = 1;
!     }
!     val = x->x_old_val = x->x_new_val;
!     for(i=t3_bang_samps; i<n; i++)
! 	trans[i] = val;
! }
! 
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
!     clock_unset(x->x_clock);
!     x->x_new_val = x->x_old_val;
! }
! 
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
!     if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!     {
! 	int n = x->x_n, t3_bang_samps, ticks;
! 
! 	t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
!         x->x_new_val = (float)atom_getfloatarg(1, ac, av);
! 	if(t3_bang_samps < 0)
! 	    t3_bang_samps = 0;
! 	ticks = t3_bang_samps / n;
! 	x->x_t3_bang_samps = t3_bang_samps - n*ticks;
! 	if(ticks < 1)
! 	    sigt3_sig_tick(x);
! 	else
! 	    clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
!     }
! }
! 
! static t_int *sigt3_sig_perform(t_int *w)
! {
!     t_float *out = (t_float *)(w[1]);
!     t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
!     int n = (int)(w[3]);
! 
!     if(x->x_transient)
!     {
! 	float *trans = x->x_beg;
! 
!         while(n--)
! 	    *out++ = *trans++;
!         x->x_transient = 0;
!     }
!     else
!     {
! 	float val = x->x_new_val;
! 
!         while(n--)
! 	    *out++ = val;
!     }
!     return (w+4);
! }
! 
! static t_int *sigt3_sig_perf8(t_int *w)
! {
!     t_float *out = (t_float *)(w[1]);
!     t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
!     int n = (int)(w[3]), i;
! 
!     if(x->x_transient)
!     {
! 	float *trans = x->x_beg;
! 
! 	for(i=0; i<n; i+=8, out+=8, trans+=8)
! 	{
! 	    out[0] = trans[0];
! 	    out[1] = trans[1];
! 	    out[2] = trans[2];
! 	    out[3] = trans[3];
! 	    out[4] = trans[4];
! 	    out[5] = trans[5];
! 	    out[6] = trans[6];
! 	    out[7] = trans[7];
! 	}
! 	x->x_transient = 0;
!     }
!     else
!     {
! 	float val = x->x_new_val;
! 
!         for(i=0; i<n; i+=8, out+=8)
! 	{
! 	    out[0] = val;
! 	    out[1] = val;
! 	    out[2] = val;
! 	    out[3] = val;
! 	    out[4] = val;
! 	    out[5] = val;
! 	    out[6] = val;
! 	    out[7] = val;
! 	}
!     }
!     return (w+4);
! }
! 
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
!     int i;
!     float *trans, val;
! 
!     if(sp[0]->s_n > x->x_n)
!     {
! 	freebytes(x->x_beg, x->x_n*sizeof(float));
! 	x->x_n = sp[0]->s_n;
! 	x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!     }
!     else
! 	x->x_n = sp[0]->s_n;
!     x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
!     x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
!     i = x->x_n;
!     val = x->x_new_val;
!     trans = x->x_beg;
!     while(i--)
! 	*trans++ = val;
!     
!     if((sp[0]->s_n)&7)
! 	dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
!     else
! 	dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
! 
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
!     if(x->x_beg)
! 	freebytes(x->x_beg, x->x_n*sizeof(float));
!     clock_free(x->x_clock);
! }
! 
! static void *sigt3_sig_new(t_floatarg init_val)
! {
!     t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
! 
!     x->x_new_val = x->x_old_val = init_val;
!     x->x_n = (int)sys_getblksize();
!     x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!     x->x_t3_bang_samps = x->x_transient = 0;
!     x->x_ms2samps = 0.001 * (float)sys_getsr();
!     x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
!     x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
!     outlet_new(&x->x_obj, &s_signal);
!     return (x);
! }
! 
! void sigt3_sig_setup(void)
! {
!     sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
! 				(t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
!     class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
!     class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
!     class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
!     class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
--- 1,200 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- sigt3_sig~ ------------------------------ */
! static t_class *sigt3_sig_class;
! 
! typedef struct _sigt3_sig
! {
!   t_object x_obj;
!   t_clock  *x_clock;
!   float    x_old_val;
!   float    x_new_val;
!   float    *x_beg;
!   int      x_n;
!   int      x_t3_bang_samps;
!   int      x_transient;
!   float    x_ms2samps;
!   float    x_ticks2ms;
! } t_sigt3_sig;
! 
! static void sigt3_sig_tick(t_sigt3_sig *x)
! {
!   float *trans = x->x_beg, val;
!   int n = x->x_n, t3_bang_samps, i;
!   
!   t3_bang_samps = x->x_t3_bang_samps;
!   if(!x->x_transient)
!   {
!     val = x->x_old_val;
!     for(i=0; i<t3_bang_samps; i++)
!       trans[i] = val;
!     x->x_transient = 1;
!   }
!   val = x->x_old_val = x->x_new_val;
!   for(i=t3_bang_samps; i<n; i++)
!     trans[i] = val;
! }
! 
! static void sigt3_sig_stop(t_sigt3_sig *x)
! {
!   clock_unset(x->x_clock);
!   x->x_new_val = x->x_old_val;
! }
! 
! static void sigt3_sig_list(t_sigt3_sig *x, t_symbol *s, int ac, t_atom *av)
! {
!   if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!   {
!     int n = x->x_n, t3_bang_samps, ticks;
!     
!     t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
!     x->x_new_val = (float)atom_getfloatarg(1, ac, av);
!     if(t3_bang_samps < 0)
!       t3_bang_samps = 0;
!     ticks = t3_bang_samps / n;
!     x->x_t3_bang_samps = t3_bang_samps - n*ticks;
!     if(ticks < 1)
!       sigt3_sig_tick(x);
!     else
!       clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
!   }
! }
! 
! static t_int *sigt3_sig_perform(t_int *w)
! {
!   t_float *out = (t_float *)(w[1]);
!   t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
!   int n = (int)(w[3]);
!   
!   if(x->x_transient)
!   {
!     float *trans = x->x_beg;
!     
!     while(n--)
!       *out++ = *trans++;
!     x->x_transient = 0;
!   }
!   else
!   {
!     float val = x->x_new_val;
!     
!     while(n--)
!       *out++ = val;
!   }
!   return (w+4);
! }
! 
! static t_int *sigt3_sig_perf8(t_int *w)
! {
!   t_float *out = (t_float *)(w[1]);
!   t_sigt3_sig *x = (t_sigt3_sig *)(w[2]);
!   int n = (int)(w[3]), i;
!   
!   if(x->x_transient)
!   {
!     float *trans = x->x_beg;
!     
!     for(i=0; i<n; i+=8, out+=8, trans+=8)
!     {
!       out[0] = trans[0];
!       out[1] = trans[1];
!       out[2] = trans[2];
!       out[3] = trans[3];
!       out[4] = trans[4];
!       out[5] = trans[5];
!       out[6] = trans[6];
!       out[7] = trans[7];
!     }
!     x->x_transient = 0;
!   }
!   else
!   {
!     float val = x->x_new_val;
!     
!     for(i=0; i<n; i+=8, out+=8)
!     {
!       out[0] = val;
!       out[1] = val;
!       out[2] = val;
!       out[3] = val;
!       out[4] = val;
!       out[5] = val;
!       out[6] = val;
!       out[7] = val;
!     }
!   }
!   return (w+4);
! }
! 
! static void sigt3_sig_dsp(t_sigt3_sig *x, t_signal **sp)
! {
!   int i;
!   float *trans, val;
!   
!   if(sp[0]->s_n > x->x_n)
!   {
!     freebytes(x->x_beg, x->x_n*sizeof(float));
!     x->x_n = sp[0]->s_n;
!     x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!   }
!   else
!     x->x_n = sp[0]->s_n;
!   x->x_ms2samps = 0.001*(float)sp[0]->s_sr;
!   x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
!   i = x->x_n;
!   val = x->x_new_val;
!   trans = x->x_beg;
!   while(i--)
!     *trans++ = val;
!   
!   if((sp[0]->s_n)&7)
!     dsp_add(sigt3_sig_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
!   else
!     dsp_add(sigt3_sig_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
! 
! static void sigt3_sig_free(t_sigt3_sig *x)
! {
!   if(x->x_beg)
!     freebytes(x->x_beg, x->x_n*sizeof(float));
!   clock_free(x->x_clock);
! }
! 
! static void *sigt3_sig_new(t_floatarg init_val)
! {
!   t_sigt3_sig *x = (t_sigt3_sig *)pd_new(sigt3_sig_class);
!   
!   x->x_new_val = x->x_old_val = init_val;
!   x->x_n = (int)sys_getblksize();
!   x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!   x->x_t3_bang_samps = x->x_transient = 0;
!   x->x_ms2samps = 0.001 * (float)sys_getsr();
!   x->x_ticks2ms = (float)x->x_n / x->x_ms2samps;
!   x->x_clock = clock_new(x, (t_method)sigt3_sig_tick);
!   outlet_new(&x->x_obj, &s_signal);
!   return (x);
! }
! 
! void sigt3_sig_setup(void)
! {
!   sigt3_sig_class = class_new(gensym("t3_sig~"), (t_newmethod)sigt3_sig_new,
!         (t_method)sigt3_sig_free, sizeof(t_sigt3_sig), 0, A_DEFFLOAT, 0);
!   class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_dsp, gensym("dsp"), 0);
!   class_addmethod(sigt3_sig_class, (t_method)sigt3_sig_stop, gensym("stop"), 0);
!   class_addlist(sigt3_sig_class, (t_method)sigt3_sig_list);
!   class_sethelpsymbol(sigt3_sig_class, gensym("iemhelp/help-t3_sig~"));
! }
Index: t3_delay.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_delay.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_delay.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- t3_delay.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,97 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
! 
! typedef struct _t3_delay
! {
!     t_object x_obj;
!     t_clock *x_clock;
!     double x_deltime;
!     double x_ticks2ms;
!     double x_t3_bang;
! } t_t3_delay;
! 
! static void t3_delay_tick(t_t3_delay *x)
! {
!     outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
! 
! static void t3_delay_stop(t_t3_delay *x)
! {
!     clock_unset(x->x_clock);
! }
! 
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
!     double dticks;
!     int iticks;
! 
!     if(t3_bang < 0)
! 	t3_bang = 0;
!     dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
!     iticks = (int)dticks;
!     x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!     clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
! 
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
!     if(f < 0)
! 	f = 0;
!     x->x_deltime = f;
! }
! 
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
!     if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!     {
! 	t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
!         t3_delay_float(x, atom_getfloatarg(0, ac, av));
!     }
! }
! 
! static void t3_delay_free(t_t3_delay *x)
! {
!     clock_free(x->x_clock);
! }
! 
! static void *t3_delay_new(t_floatarg f)
! {
!     t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
! 
!     x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!     t3_delay_ft1(x, f);
!     x->x_clock = clock_new(x, (t_method)t3_delay_tick);
!     outlet_new(&x->x_obj, &s_float);
!     inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!     return (x);
! }
! 
! void t3_delay_setup(void)
! {
!     t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
!     	(t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
!     class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
!     class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
!     class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
!     	gensym("ft1"), A_FLOAT, 0);
!     class_addfloat(t3_delay_class, (t_method)t3_delay_float);
!     class_addlist(t3_delay_class, (t_method)t3_delay_list);
!     class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
! 
--- 1,96 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_delay ---------------------------- */
! static t_class *t3_delay_class;
! 
! typedef struct _t3_delay
! {
!   t_object x_obj;
!   t_clock  *x_clock;
!   double   x_deltime;
!   double   x_ticks2ms;
!   double   x_t3_bang;
! } t_t3_delay;
! 
! static void t3_delay_tick(t_t3_delay *x)
! {
!   outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
! }
! 
! static void t3_delay_stop(t_t3_delay *x)
! {
!   clock_unset(x->x_clock);
! }
! 
! static void t3_delay_float(t_t3_delay *x, t_floatarg t3_bang)
! {
!   double dticks;
!   int iticks;
!   
!   if(t3_bang < 0)
!     t3_bang = 0;
!   dticks = (x->x_deltime + (double)t3_bang)/x->x_ticks2ms;
!   iticks = (int)dticks;
!   x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!   clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
! 
! static void t3_delay_ft1(t_t3_delay *x, t_floatarg f)
! {
!   if(f < 0)
!     f = 0;
!   x->x_deltime = f;
! }
! 
! static void t3_delay_list(t_t3_delay *x, t_symbol *s, int ac, t_atom *av)
! {
!   if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!   {
!     t3_delay_ft1(x, atom_getfloatarg(1, ac, av));
!     t3_delay_float(x, atom_getfloatarg(0, ac, av));
!   }
! }
! 
! static void t3_delay_free(t_t3_delay *x)
! {
!   clock_free(x->x_clock);
! }
! 
! static void *t3_delay_new(t_floatarg f)
! {
!   t_t3_delay *x = (t_t3_delay *)pd_new(t3_delay_class);
!   
!   x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!   t3_delay_ft1(x, f);
!   x->x_clock = clock_new(x, (t_method)t3_delay_tick);
!   outlet_new(&x->x_obj, &s_float);
!   inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!   return (x);
! }
! 
! void t3_delay_setup(void)
! {
!   t3_delay_class = class_new(gensym("t3_delay"), (t_newmethod)t3_delay_new,
!     (t_method)t3_delay_free, sizeof(t_t3_delay), 0, A_DEFFLOAT, 0);
!   class_addcreator((t_newmethod)t3_delay_new, gensym("t3_del"), A_DEFFLOAT, 0);
!   class_addmethod(t3_delay_class, (t_method)t3_delay_stop, gensym("stop"), 0);
!   class_addmethod(t3_delay_class, (t_method)t3_delay_ft1,
!     gensym("ft1"), A_FLOAT, 0);
!   class_addfloat(t3_delay_class, (t_method)t3_delay_float);
!   class_addlist(t3_delay_class, (t_method)t3_delay_list);
!   class_sethelpsymbol(t3_delay_class, gensym("iemhelp/help-t3_delay"));
! }
Index: iemlib.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/iemlib.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iemlib.h	18 May 2004 21:33:28 -0000	1.1.1.1
--- iemlib.h	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,98 ****
! /* 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 - 2003 */
! 
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
! 
! 
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
! 
! 
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
! 
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
! 
! 
! #define UNITBIT32 1572864.  /* 3*2^19; bit 32 has place value 1 */
! 
!     /* machine-dependent definitions.  These ifdefs really
!     should have been by CPU type and not by operating system! */
! #ifdef IRIX
!     /* big-endian.  Most significant byte is at low address in memory */
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #define int32 long  /* a data type that has 32 bits */
! #else
! #ifdef MSW
!     /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
! 
! #include <endian.h>
! 
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)                         
! #error No byte order defined                                                    
! #endif                                                                          
!                                                                                 
! #if __BYTE_ORDER == __LITTLE_ENDIAN                                             
! #define HIOFFSET 1                                                              
! #define LOWOFFSET 0                                                             
! #else                                                                           
! #define HIOFFSET 0    /* word offset to find MSB */                             
! #define LOWOFFSET 1    /* word offset to find LSB */                            
! #endif /* __BYTE_ORDER */                                                       
! 
! #include <sys/types.h>
! #define int32 int32_t
! 
! #else
! #ifdef MACOSX
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #define int32 int  /* a data type that has 32 bits */
! 
! #endif /* MACOSX */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
! 
! union tabfudge
! {
!     double tf_d;
!     int32 tf_i[2];
! };
! 
! #endif
--- 1,102 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iemlib written by Thomas Musil, Copyright (c) IEM KUG Graz Austria 2000 - 2005 */
! 
! #ifndef __IEMLIB_H__
! #define __IEMLIB_H__
! 
! 
! #define IS_A_POINTER(atom,index) ((atom+index)->a_type == A_POINTER)
! #define IS_A_FLOAT(atom,index) ((atom+index)->a_type == A_FLOAT)
! #define IS_A_SYMBOL(atom,index) ((atom+index)->a_type == A_SYMBOL)
! #define IS_A_DOLLAR(atom,index) ((atom+index)->a_type == A_DOLLAR)
! #define IS_A_DOLLSYM(atom,index) ((atom+index)->a_type == A_DOLLSYM)
! #define IS_A_SEMI(atom,index) ((atom+index)->a_type == A_SEMI)
! #define IS_A_COMMA(atom,index) ((atom+index)->a_type == A_COMMA)
! 
! 
! #ifdef NT
! int sys_noloadbang;
! //t_symbol *iemgui_key_sym=0;
! #include <io.h>
! #else
! extern int sys_noloadbang;
! //extern t_symbol *iemgui_key_sym;
! #include <unistd.h>
! #endif
! 
! #define DEFDELVS 64
! #define XTRASAMPS 4
! #define SAMPBLK 4
! 
! 
! #define UNITBIT32 1572864.  /* 3*2^19; bit 32 has place value 1 */
! 
! /* machine-dependent definitions.  These ifdefs really
! should have been by CPU type and not by operating system! */
! #ifdef IRIX
! /* big-endian.  Most significant byte is at low address in memory */
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #define int32 long  /* a data type that has 32 bits */
! #else
! #ifdef MSW
! /* little-endian; most significant byte is at highest address */
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #define int32 long
! #else
! #ifdef __FreeBSD__
! #include <machine/endian.h>
! #if BYTE_ORDER == LITTLE_ENDIAN
! #define HIOFFSET 1
! #define LOWOFFSET 0
! #else
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #endif /* BYTE_ORDER */
! #include <sys/types.h>
! #define int32 int32_t
! #endif
! #ifdef __linux__
! 
! #include <endian.h>
! 
! #if !defined(__BYTE_ORDER) || !defined(__LITTLE_ENDIAN)                         
! #error No byte order defined                                                    
! #endif                                                                          
! 
! #if __BYTE_ORDER == __LITTLE_ENDIAN                                             
! #define HIOFFSET 1                                                              
! #define LOWOFFSET 0                                                             
! #else                                                                           
! #define HIOFFSET 0    /* word offset to find MSB */                             
! #define LOWOFFSET 1    /* word offset to find LSB */                            
! #endif /* __BYTE_ORDER */                                                       
! 
! #include <sys/types.h>
! #define int32 int32_t
! 
! #else
! #ifdef __APPLE__
! #define HIOFFSET 0    /* word offset to find MSB */
! #define LOWOFFSET 1    /* word offset to find LSB */
! #define int32 int  /* a data type that has 32 bits */
! 
! #endif /* __APPLE__ */
! #endif /* __linux__ */
! #endif /* MSW */
! #endif /* SGI */
! 
! union tabfudge
! {
!   double tf_d;
!   int32 tf_i[2];
! };
! 
! #define IEM_DENORMAL(f) ((((*(unsigned int*)&(f))&0x60000000)==0) || \
! (((*(unsigned int*)&(f))&0x60000000)==0x60000000))
! /* more stringent test: anything not between 1e-19 and 1e19 in absolute val */
! 
! #endif
Index: sigt3_line.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_line.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** sigt3_line.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- sigt3_line.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,279 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
! 
! typedef struct _sigt3_line
! {
!     t_object x_obj;
!     t_clock  *x_clock;
!     float    *x_beg;
!     double   x_cur_val;
!     double   x_dst_val;
!     double   x_inlet_val;
!     double   x_inc64;
!     double   x_inc;
!     double   x_ms2samps;
!     double   x_ticks2ms;
!     double   x_inlet_time;
!     double   x_dst_time;
!     int      x_cur_samps;
!     int      x_dur_samps;
!     int      x_n;
!     int      x_t3_bang_samps;
!     int      x_transient;
! } t_sigt3_line;
! 
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
!     int cur_samps = x->x_cur_samps, i;
!     double inc = x->x_inc;
!     double cur_val = x->x_cur_val;
! 
!     if(cur_samps)
!     {
! 	if(cur_samps > n)
! 	{
! 	    x->x_cur_samps -= n;
! 	    while(n--)
! 	    {
! 		cur_val += inc;
! 		*vec++ = (float)cur_val;
! 	    }
! 	    x->x_cur_val += x->x_inc64;
! 	}
! 	else if(cur_samps == n)
! 	{
! 	    x->x_cur_samps = 0;
! 	    while(n--)
! 	    {
! 		cur_val += inc;
! 		*vec++ = (float)cur_val;
! 	    }
! 	    x->x_cur_val = x->x_dst_val;
! 	}
! 	else
! 	{
! 	    for(i=0; i<cur_samps; i++)
! 	    {
! 		cur_val += inc;
! 		*vec++ = (float)cur_val;
! 	    }
! 	    x->x_cur_val = cur_val = x->x_dst_val;
! 	    for(i=cur_samps; i<n; i++)
! 		*vec++ = (float)cur_val;
! 	    x->x_cur_samps = 0;
! 	}
!     }
!     else
!     {
! 	while(n--)
! 	    *vec++ = (float)cur_val;
!     }
! }
! 
! static t_int *sigt3_line_perform(t_int *w)
! {
!     t_float *out = (t_float *)(w[1]);
!     t_sigt3_line *x = (t_sigt3_line *)(w[2]);
!     int n = (int)(w[3]);
! 
!     if(x->x_transient)
!     {
! 	float *trans = x->x_beg;
! 
! 	while(n--)
! 	    *out++ = *trans++;
! 	x->x_transient = 0;
!     }
!     else
!         sigt3_line_nontransient(out, x, n);
!     return(w+4);
! }
! 
! static void sigt3_line_tick(t_sigt3_line *x)
! {
!     float *trans = x->x_beg;
!     int n = x->x_n, t3_bang_samps, cur_samps, i;
!     double inc, cur_val;
! 
!     if(!x->x_transient)
! 	sigt3_line_nontransient(trans, x, n);
!     t3_bang_samps = x->x_t3_bang_samps;
!     x->x_dst_val = x->x_inlet_val;
!     if(x->x_inlet_time <= 0.0)
!     {
! 	x->x_inlet_time = 0.0;
!         x->x_dst_time = 0.0;
! 	x->x_dur_samps = 0;
! 	x->x_cur_samps = 0;
!         cur_val = x->x_cur_val = x->x_dst_val;
!         for(i=t3_bang_samps; i<n; i++)
! 	    trans[i] = (float)cur_val;
!     }
!     else
!     {
! 	int diff, end;
! 
! 	x->x_dst_time = x->x_inlet_time;
! 	x->x_inlet_time = 0.0;
! 	cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
!         if(!cur_samps)
! 	    cur_samps = 1;
! 	x->x_dur_samps = cur_samps;
! 	x->x_cur_samps = cur_samps;
! 	cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
!         inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
! 	x->x_inc64 = (double)x->x_n * inc;
!         diff = n - t3_bang_samps;
! 	if(cur_samps > diff)
! 	{
! 	    for(i=t3_bang_samps; i<n; i++)
! 	    {
! 		cur_val += inc;
! 		trans[i] = (float)cur_val;
! 	    }
! 	    x->x_cur_val += (double)diff * inc;
!             x->x_cur_samps -= diff;
! 	}
! 	else if(cur_samps == diff)
! 	{
!             for(i=t3_bang_samps; i<n; i++)
! 	    {
! 		cur_val += inc;
! 		trans[i] = (float)cur_val;
! 	    }
! 	    x->x_cur_val = x->x_dst_val;
!             x->x_cur_samps = 0;
! 	}
! 	else
! 	{
!             end = t3_bang_samps + cur_samps;
!             for(i=t3_bang_samps; i<end; i++)
! 	    {
! 		cur_val += inc;
! 		trans[i] = (float)cur_val;
! 	    }
! 	    cur_val = x->x_cur_val = x->x_dst_val;
! 	    x->x_cur_samps = 0;
!             for(i=end; i<n; i++)
! 		trans[i] = (float)cur_val;
! 	}
!     }
!     x->x_transient = 1;
! }
! 
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
!     if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!     {
!         int t3_bang_samps, ticks;
! 	double time;
! 
! 	x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
! 	t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
!         if(t3_bang_samps < 0)
! 	    t3_bang_samps = 0;
! 	ticks = t3_bang_samps / x->x_n;
!         x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
! 	if((ac >= 3)&&IS_A_FLOAT(av,2))
! 	{
!             time = (double)atom_getfloatarg(2, ac, av);
!             if(time < 0.0)
!                 time = 0.0;
!             x->x_inlet_time = time;
! 	}
! 	if(ticks < 1)
! 	    sigt3_line_tick(x);
! 	else
! 	    clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
!     }
! }
! 
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
!     if(time < 0.0)
!         time = 0.0;
!     x->x_inlet_time = (double)time;
! }
! 
! static void sigt3_line_stop(t_sigt3_line *x)
! {
!     clock_unset(x->x_clock);
!     x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
!     x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
! 
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
!     int i;
!     float val, *trans;
! 
!     if(sp[0]->s_n > x->x_n)
!     {
! 	freebytes(x->x_beg, x->x_n*sizeof(float));
! 	x->x_n = (int)sp[0]->s_n;
! 	x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!     }
!     else
! 	x->x_n = (int)sp[0]->s_n;
!     i = x->x_n;
!     val = x->x_cur_val;
!     trans = x->x_beg;
!     while(i--)
! 	*trans++ = val;
!     x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
!     x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
!     dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
! 
! static void sigt3_line_free(t_sigt3_line *x)
! {
!     if(x->x_beg)
! 	freebytes(x->x_beg, x->x_n*sizeof(float));
!     clock_free(x->x_clock);
! }
! 
! static void *sigt3_line_new(t_floatarg init_val)
! {
!     t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
!     int i;
! 
!     x->x_n = (int)sys_getblksize();
!     x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!     x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
!     x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
!     x->x_inlet_time = x->x_dst_time = 0.0;
!     x->x_inc64 = x->x_inc = 0.0;
!     x->x_ms2samps = 0.001 * (double)sys_getsr();
!     x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
!     x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
!     outlet_new(&x->x_obj, &s_signal);
!     inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!     return (x);
! }
! 
! void sigt3_line_setup(void)
! {
!     sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
! 		(t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
!     class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
!     class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
!     class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
!     class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
!     class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
--- 1,279 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* -------------------------- t3_line~ ------------------------------ */
! static t_class *sigt3_line_class;
! 
! typedef struct _sigt3_line
! {
!   t_object x_obj;
!   t_clock  *x_clock;
!   float    *x_beg;
!   double   x_cur_val;
!   double   x_dst_val;
!   double   x_inlet_val;
!   double   x_inc64;
!   double   x_inc;
!   double   x_ms2samps;
!   double   x_ticks2ms;
!   double   x_inlet_time;
!   double   x_dst_time;
!   int      x_cur_samps;
!   int      x_dur_samps;
!   int      x_n;
!   int      x_t3_bang_samps;
!   int      x_transient;
! } t_sigt3_line;
! 
! static void sigt3_line_nontransient(float *vec, t_sigt3_line *x, int n)
! {
!   int cur_samps = x->x_cur_samps, i;
!   double inc = x->x_inc;
!   double cur_val = x->x_cur_val;
!   
!   if(cur_samps)
!   {
!     if(cur_samps > n)
!     {
!       x->x_cur_samps -= n;
!       while(n--)
!       {
!         cur_val += inc;
!         *vec++ = (float)cur_val;
!       }
!       x->x_cur_val += x->x_inc64;
!     }
!     else if(cur_samps == n)
!     {
!       x->x_cur_samps = 0;
!       while(n--)
!       {
!         cur_val += inc;
!         *vec++ = (float)cur_val;
!       }
!       x->x_cur_val = x->x_dst_val;
!     }
!     else
!     {
!       for(i=0; i<cur_samps; i++)
!       {
!         cur_val += inc;
!         *vec++ = (float)cur_val;
!       }
!       x->x_cur_val = cur_val = x->x_dst_val;
!       for(i=cur_samps; i<n; i++)
!         *vec++ = (float)cur_val;
!       x->x_cur_samps = 0;
!     }
!   }
!   else
!   {
!     while(n--)
!       *vec++ = (float)cur_val;
!   }
! }
! 
! static t_int *sigt3_line_perform(t_int *w)
! {
!   t_float *out = (t_float *)(w[1]);
!   t_sigt3_line *x = (t_sigt3_line *)(w[2]);
!   int n = (int)(w[3]);
!   
!   if(x->x_transient)
!   {
!     float *trans = x->x_beg;
!     
!     while(n--)
!       *out++ = *trans++;
!     x->x_transient = 0;
!   }
!   else
!     sigt3_line_nontransient(out, x, n);
!   return(w+4);
! }
! 
! static void sigt3_line_tick(t_sigt3_line *x)
! {
!   float *trans = x->x_beg;
!   int n = x->x_n, t3_bang_samps, cur_samps, i;
!   double inc, cur_val;
!   
!   if(!x->x_transient)
!     sigt3_line_nontransient(trans, x, n);
!   t3_bang_samps = x->x_t3_bang_samps;
!   x->x_dst_val = x->x_inlet_val;
!   if(x->x_inlet_time <= 0.0)
!   {
!     x->x_inlet_time = 0.0;
!     x->x_dst_time = 0.0;
!     x->x_dur_samps = 0;
!     x->x_cur_samps = 0;
!     cur_val = x->x_cur_val = x->x_dst_val;
!     for(i=t3_bang_samps; i<n; i++)
!       trans[i] = (float)cur_val;
!   }
!   else
!   {
!     int diff, end;
!     
!     x->x_dst_time = x->x_inlet_time;
!     x->x_inlet_time = 0.0;
!     cur_samps = (int)(x->x_dst_time * x->x_ms2samps);
!     if(!cur_samps)
!       cur_samps = 1;
!     x->x_dur_samps = cur_samps;
!     x->x_cur_samps = cur_samps;
!     cur_val = x->x_cur_val = (double)trans[t3_bang_samps];
!     inc = x->x_inc = (x->x_dst_val - cur_val)/(double)cur_samps;
!     x->x_inc64 = (double)x->x_n * inc;
!     diff = n - t3_bang_samps;
!     if(cur_samps > diff)
!     {
!       for(i=t3_bang_samps; i<n; i++)
!       {
!         cur_val += inc;
!         trans[i] = (float)cur_val;
!       }
!       x->x_cur_val += (double)diff * inc;
!       x->x_cur_samps -= diff;
!     }
!     else if(cur_samps == diff)
!     {
!       for(i=t3_bang_samps; i<n; i++)
!       {
!         cur_val += inc;
!         trans[i] = (float)cur_val;
!       }
!       x->x_cur_val = x->x_dst_val;
!       x->x_cur_samps = 0;
!     }
!     else
!     {
!       end = t3_bang_samps + cur_samps;
!       for(i=t3_bang_samps; i<end; i++)
!       {
!         cur_val += inc;
!         trans[i] = (float)cur_val;
!       }
!       cur_val = x->x_cur_val = x->x_dst_val;
!       x->x_cur_samps = 0;
!       for(i=end; i<n; i++)
!         trans[i] = (float)cur_val;
!     }
!   }
!   x->x_transient = 1;
! }
! 
! static void sigt3_line_list(t_sigt3_line *x, t_symbol *s, int ac, t_atom *av)
! {
!   if((ac >= 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!   {
!     int t3_bang_samps, ticks;
!     double time;
!     
!     x->x_inlet_val = (double)atom_getfloatarg(1, ac, av);
!     t3_bang_samps = (int)((float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
!     if(t3_bang_samps < 0)
!       t3_bang_samps = 0;
!     ticks = t3_bang_samps / x->x_n;
!     x->x_t3_bang_samps = t3_bang_samps - x->x_n * ticks;
!     if((ac >= 3)&&IS_A_FLOAT(av,2))
!     {
!       time = (double)atom_getfloatarg(2, ac, av);
!       if(time < 0.0)
!         time = 0.0;
!       x->x_inlet_time = time;
!     }
!     if(ticks < 1)
!       sigt3_line_tick(x);
!     else
!       clock_delay(x->x_clock, (double)ticks * x->x_ticks2ms);
!   }
! }
! 
! static void sigt3_line_ft1(t_sigt3_line *x, t_float time)
! {
!   if(time < 0.0)
!     time = 0.0;
!   x->x_inlet_time = (double)time;
! }
! 
! static void sigt3_line_stop(t_sigt3_line *x)
! {
!   clock_unset(x->x_clock);
!   x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
!   x->x_inc = x->x_inc64 = x->x_inlet_time = x->x_dst_time = 0.0;
! }
! 
! static void sigt3_line_dsp(t_sigt3_line *x, t_signal **sp)
! {
!   int i;
!   float val, *trans;
!   
!   if(sp[0]->s_n > x->x_n)
!   {
!     freebytes(x->x_beg, x->x_n*sizeof(float));
!     x->x_n = (int)sp[0]->s_n;
!     x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!   }
!   else
!     x->x_n = (int)sp[0]->s_n;
!   i = x->x_n;
!   val = x->x_cur_val;
!   trans = x->x_beg;
!   while(i--)
!     *trans++ = val;
!   x->x_ms2samps = 0.001*(double)sp[0]->s_sr;
!   x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
!   dsp_add(sigt3_line_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
! }
! 
! static void sigt3_line_free(t_sigt3_line *x)
! {
!   if(x->x_beg)
!     freebytes(x->x_beg, x->x_n*sizeof(float));
!   clock_free(x->x_clock);
! }
! 
! static void *sigt3_line_new(t_floatarg init_val)
! {
!   t_sigt3_line *x = (t_sigt3_line *)pd_new(sigt3_line_class);
!   int i;
!   
!   x->x_n = (int)sys_getblksize();
!   x->x_beg = (float *)getbytes(x->x_n*sizeof(float));
!   x->x_inlet_val = x->x_cur_val = x->x_dst_val = init_val;
!   x->x_t3_bang_samps = x->x_cur_samps = x->x_dur_samps = x->x_transient = 0;
!   x->x_inlet_time = x->x_dst_time = 0.0;
!   x->x_inc64 = x->x_inc = 0.0;
!   x->x_ms2samps = 0.001 * (double)sys_getsr();
!   x->x_ticks2ms = (double)x->x_n / x->x_ms2samps;
!   x->x_clock = clock_new(x, (t_method)sigt3_line_tick);
!   outlet_new(&x->x_obj, &s_signal);
!   inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!   return (x);
! }
! 
! void sigt3_line_setup(void)
! {
!   sigt3_line_class = class_new(gensym("t3_line~"), (t_newmethod)sigt3_line_new,
!     (t_method)sigt3_line_free, sizeof(t_sigt3_line), 0, A_DEFFLOAT, 0);
!   class_addmethod(sigt3_line_class, (t_method)sigt3_line_dsp, gensym("dsp"), 0);
!   class_addmethod(sigt3_line_class, (t_method)sigt3_line_stop, gensym("stop"), 0);
!   class_addmethod(sigt3_line_class, (t_method)sigt3_line_ft1, gensym("ft1"), A_FLOAT, 0);
!   class_addlist(sigt3_line_class, (t_method)sigt3_line_list);
!   class_sethelpsymbol(sigt3_line_class, gensym("iemhelp/help-t3_line~"));
! }
Index: t3_bpe.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_bpe.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_bpe.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- t3_bpe.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,142 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
! 
! typedef struct _t3_bpe
! {
!     t_object x_obj;
!     t_atom   x_at[2];
!     t_clock  *x_clock;
!     int      x_maxnum;
!     int      x_curnum;
!     int      x_curindex;
!     t_atom   *x_beg;
!     double   x_t3_bang;
!     double   x_ticks2ms;
!     int      x_hit;
!     void     *x_out_val;
!     void     *x_out_time;
!     void     *x_out_finished;
! } t_t3_bpe;
! 
! static void t3_bpe_stop(t_t3_bpe *x)
! {
!     clock_unset(x->x_clock);
! }
! 
! static void t3_bpe_tick(t_t3_bpe *x)
! {
!     t_atom *vec = x->x_beg;
!     float val;
!     double dticks, time;
!     int iticks;
! 
!     if(x->x_curindex >= x->x_curnum)
!     {
! 	t3_bpe_stop(x);
!         outlet_float(x->x_out_finished, x->x_t3_bang);
!     }
!     else
!     {
!         x->x_hit = 0;
! 	vec += x->x_curindex;
!         val = atom_getfloat(vec++);
! 	time = (double)atom_getfloat(vec);
! 	outlet_float(x->x_out_time, (float)time);
!         x->x_at[1].a_w.w_float = val;
! 	x->x_at[0].a_w.w_float = x->x_t3_bang;
! 	outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
!         dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
!         iticks = (int)dticks;
! 	x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!         if(!x->x_hit)
! 	    clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! 	x->x_curindex += 2;
!     }
! }
! 
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
!     double dticks;
!     int iticks;
! 
!     if(x->x_curnum)
!     {
!         x->x_curindex = 0;
! 	dticks = (double)f/x->x_ticks2ms;
! 	iticks = (int)dticks;
! 	x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
! 	clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
!         x->x_hit = 1;
!     }
! }
! 
! static void t3_bpe_list(t_t3_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; i<n; i++)
!     {
! 	*vec++ = *av++;
!     }
! }
! 
! static void t3_bpe_free(t_t3_bpe *x)
! {
!     freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
!     clock_free(x->x_clock);
! }
! 
! static void *t3_bpe_new(void)
! {
!     t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
! 
!     x->x_t3_bang = 0.0;
!     x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!     x->x_curindex = 0;
!     x->x_maxnum = 20;
!     x->x_curnum = 0;
!     x->x_hit = 0;
!     x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
!     x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
!     outlet_new(&x->x_obj, &s_list);
!     x->x_out_time = outlet_new(&x->x_obj, &s_float);
!     x->x_out_finished = outlet_new(&x->x_obj, &s_float);
!     x->x_at[0].a_type = A_FLOAT;
!     x->x_at[1].a_type = A_FLOAT;
!     return (x);
! }
! 
! void t3_bpe_setup(void)
! {
!     t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
!     	(t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
!     class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
!     class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
!     class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
!     class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
! 
--- 1,141 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_bpe ---------------------------- */
! static t_class *t3_bpe_class;
! 
! typedef struct _t3_bpe
! {
!   t_object x_obj;
!   t_atom   x_at[2];
!   t_clock  *x_clock;
!   int      x_maxnum;
!   int      x_curnum;
!   int      x_curindex;
!   t_atom   *x_beg;
!   double   x_t3_bang;
!   double   x_ticks2ms;
!   int      x_hit;
!   void     *x_out_val;
!   void     *x_out_time;
!   void     *x_out_finished;
! } t_t3_bpe;
! 
! static void t3_bpe_stop(t_t3_bpe *x)
! {
!   clock_unset(x->x_clock);
! }
! 
! static void t3_bpe_tick(t_t3_bpe *x)
! {
!   t_atom *vec = x->x_beg;
!   float val;
!   double dticks, time;
!   int iticks;
!   
!   if(x->x_curindex >= x->x_curnum)
!   {
!     t3_bpe_stop(x);
!     outlet_float(x->x_out_finished, x->x_t3_bang);
!   }
!   else
!   {
!     x->x_hit = 0;
!     vec += x->x_curindex;
!     val = atom_getfloat(vec++);
!     time = (double)atom_getfloat(vec);
!     outlet_float(x->x_out_time, (float)time);
!     x->x_at[1].a_w.w_float = val;
!     x->x_at[0].a_w.w_float = x->x_t3_bang;
!     outlet_list(x->x_obj.ob_outlet, &s_list, 2, x->x_at);
!     dticks = (time + x->x_t3_bang)/x->x_ticks2ms;
!     iticks = (int)dticks;
!     x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!     if(!x->x_hit)
!       clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
!     x->x_curindex += 2;
!   }
! }
! 
! static void t3_bpe_float(t_t3_bpe *x, t_floatarg f)
! {
!   double dticks;
!   int iticks;
!   
!   if(x->x_curnum)
!   {
!     x->x_curindex = 0;
!     dticks = (double)f/x->x_ticks2ms;
!     iticks = (int)dticks;
!     x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!     clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
!     x->x_hit = 1;
!   }
! }
! 
! static void t3_bpe_list(t_t3_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; i<n; i++)
!   {
!     *vec++ = *av++;
!   }
! }
! 
! static void t3_bpe_free(t_t3_bpe *x)
! {
!   freebytes(x->x_beg, x->x_maxnum*sizeof(t_atom));
!   clock_free(x->x_clock);
! }
! 
! static void *t3_bpe_new(void)
! {
!   t_t3_bpe *x = (t_t3_bpe *)pd_new(t3_bpe_class);
!   
!   x->x_t3_bang = 0.0;
!   x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!   x->x_curindex = 0;
!   x->x_maxnum = 20;
!   x->x_curnum = 0;
!   x->x_hit = 0;
!   x->x_beg = (t_atom *)getbytes(x->x_maxnum*sizeof(t_atom));
!   x->x_clock = clock_new(x, (t_method)t3_bpe_tick);
!   outlet_new(&x->x_obj, &s_list);
!   x->x_out_time = outlet_new(&x->x_obj, &s_float);
!   x->x_out_finished = outlet_new(&x->x_obj, &s_float);
!   x->x_at[0].a_type = A_FLOAT;
!   x->x_at[1].a_type = A_FLOAT;
!   return (x);
! }
! 
! void t3_bpe_setup(void)
! {
!   t3_bpe_class = class_new(gensym("t3_bpe"), (t_newmethod)t3_bpe_new,
!     (t_method)t3_bpe_free, sizeof(t_t3_bpe), 0, 0);
!   class_addmethod(t3_bpe_class, (t_method)t3_bpe_stop, gensym("stop"), 0);
!   class_addfloat(t3_bpe_class, (t_method)t3_bpe_float);
!   class_addlist(t3_bpe_class, (t_method)t3_bpe_list);
!   class_sethelpsymbol(t3_bpe_class, gensym("iemhelp/help-t3_bpe"));
! }
Index: t3_metro.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_metro.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** t3_metro.c	18 May 2004 21:33:28 -0000	1.1.1.1
--- t3_metro.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,121 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
! 
! typedef struct _t3_metro
! {
!     t_object x_obj;
!     t_clock *x_clock;
!     double x_metrotime;
!     double x_ticks2ms;
!     double x_t3_bang;
!     int    x_hit;
!     void   *x_out_next;
! } t_t3_metro;
! 
! static void t3_metro_stop(t_t3_metro *x)
! {
!     clock_unset(x->x_clock);
! }
! 
! static void t3_metro_tick(t_t3_metro *x)
! {
!     double dticks;
!     int iticks;
! 
!     x->x_hit = 0;
!     outlet_float(x->x_out_next, x->x_metrotime);
!     outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
!     dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
!     iticks = (int)dticks;
!     x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!     if(!x->x_hit)
!         clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
! 
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
!     double dticks;
!     int iticks;
! 
!     if(t3_bang < 0)
! 	t3_bang = 0;
!     dticks = (double)t3_bang/x->x_ticks2ms;
!     iticks = (int)dticks;
!     x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!     clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
!     x->x_hit = 1;
! }
! 
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
!     t3_metro_float(x, f);
!     x->x_hit = 1;
! }
! 
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
!     if(f < 0.01) f = 0.01;
!     x->x_metrotime = (double)f;
! }
! 
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
!     if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!     {
! 	t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
! 	t3_metro_float(x, atom_getfloatarg(0, ac, av));
!     }
! }
! 
! static void t3_metro_free(t_t3_metro *x)
! {
!     clock_free(x->x_clock);
! }
! 
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
!     t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
! 
!     x->x_metrotime = 10.0;
!     x->x_t3_bang = 0.0;
!     x->x_hit = 0;
!     if((ac == 1)&&IS_A_FLOAT(av,0))
!     {
! 	t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
!     }
!     x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!     x->x_clock = clock_new(x, (t_method)t3_metro_tick);
!     outlet_new(&x->x_obj, &s_float);
!     x->x_out_next = outlet_new(&x->x_obj, &s_float);
!     inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!     return (x);
! }
! 
! void t3_metro_setup(void)
! {
!     t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
!     	(t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
!     class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
!     class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
!     class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
!     class_addfloat(t3_metro_class, (t_method)t3_metro_float);
!     class_addlist(t3_metro_class, (t_method)t3_metro_list);
!     class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
! 
--- 1,120 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <math.h>
! #include <stdio.h>
! #include <string.h>
! 
! /* ------------------------ t3_metro ---------------------------- */
! static t_class *t3_metro_class;
! 
! typedef struct _t3_metro
! {
!   t_object x_obj;
!   t_clock  *x_clock;
!   double   x_metrotime;
!   double   x_ticks2ms;
!   double   x_t3_bang;
!   int      x_hit;
!   void     *x_out_next;
! } t_t3_metro;
! 
! static void t3_metro_stop(t_t3_metro *x)
! {
!   clock_unset(x->x_clock);
! }
! 
! static void t3_metro_tick(t_t3_metro *x)
! {
!   double dticks;
!   int iticks;
!   
!   x->x_hit = 0;
!   outlet_float(x->x_out_next, x->x_metrotime);
!   outlet_float(x->x_obj.ob_outlet, x->x_t3_bang);
!   dticks = (x->x_metrotime + x->x_t3_bang)/x->x_ticks2ms;
!   iticks = (int)dticks;
!   x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!   if(!x->x_hit)
!     clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
! }
! 
! static void t3_metro_float(t_t3_metro *x, t_floatarg t3_bang)
! {
!   double dticks;
!   int iticks;
!   
!   if(t3_bang < 0)
!     t3_bang = 0;
!   dticks = (double)t3_bang/x->x_ticks2ms;
!   iticks = (int)dticks;
!   x->x_t3_bang = (dticks - (double)iticks)*x->x_ticks2ms;
!   clock_delay(x->x_clock, (double)iticks*x->x_ticks2ms);
!   x->x_hit = 1;
! }
! 
! static void t3_metro_start(t_t3_metro *x, t_floatarg f)
! {
!   t3_metro_float(x, f);
!   x->x_hit = 1;
! }
! 
! static void t3_metro_ft1(t_t3_metro *x, t_floatarg f)
! {
!   if(f < 0.01) f = 0.01;
!   x->x_metrotime = (double)f;
! }
! 
! static void t3_metro_list(t_t3_metro *x, t_symbol *s, int ac, t_atom *av)
! {
!   if((ac == 2)&&IS_A_FLOAT(av,0)&&IS_A_FLOAT(av,1))
!   {
!     t3_metro_ft1(x, atom_getfloatarg(1, ac, av));
!     t3_metro_float(x, atom_getfloatarg(0, ac, av));
!   }
! }
! 
! static void t3_metro_free(t_t3_metro *x)
! {
!   clock_free(x->x_clock);
! }
! 
! static void *t3_metro_new(t_symbol *s, int ac, t_atom *av)
! {
!   t_t3_metro *x = (t_t3_metro *)pd_new(t3_metro_class);
!   
!   x->x_metrotime = 10.0;
!   x->x_t3_bang = 0.0;
!   x->x_hit = 0;
!   if((ac == 1)&&IS_A_FLOAT(av,0))
!   {
!     t3_metro_ft1(x, atom_getfloatarg(0, ac, av));
!   }
!   x->x_ticks2ms = 1000.0*(double)sys_getblksize()/(double)sys_getsr();
!   x->x_clock = clock_new(x, (t_method)t3_metro_tick);
!   outlet_new(&x->x_obj, &s_float);
!   x->x_out_next = outlet_new(&x->x_obj, &s_float);
!   inlet_new(&x->x_obj, &x->x_obj.ob_pd, gensym("float"), gensym("ft1"));
!   return (x);
! }
! 
! void t3_metro_setup(void)
! {
!   t3_metro_class = class_new(gensym("t3_metro"), (t_newmethod)t3_metro_new,
!     (t_method)t3_metro_free, sizeof(t_t3_metro), 0, A_GIMME, 0);
!   class_addmethod(t3_metro_class, (t_method)t3_metro_stop, gensym("stop"), 0);
!   class_addmethod(t3_metro_class, (t_method)t3_metro_start, gensym("start"), A_FLOAT, 0);
!   class_addmethod(t3_metro_class, (t_method)t3_metro_ft1, gensym("ft1"), A_FLOAT, 0);
!   class_addfloat(t3_metro_class, (t_method)t3_metro_float);
!   class_addlist(t3_metro_class, (t_method)t3_metro_list);
!   class_sethelpsymbol(t3_metro_class, gensym("iemhelp/help-t3_metro"));
! }
Index: iem_t3_lib.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/iem_t3_lib.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** iem_t3_lib.c	18 May 2004 21:33:27 -0000	1.1.1.1
--- iem_t3_lib.c	2 Jun 2005 18:25:00 -0000	1.2
***************
*** 1,65 ****
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib 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 <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
! 
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
! 
! #ifdef NT
! #include <io.h>
! #endif
!  */
! 
! static t_class *iem_t3_lib_class;
! 
! static void *iem_t3_lib_new(void)
! {
!     t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!     
!     return (x);
! }
! 
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
! 
! /* ------------------------ setup routine ------------------------- */
! 
! void iem_t3_lib_setup(void)
! {
!     iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
!     	sizeof(t_object), CLASS_NOINLET, 0);
! 
! 		sigt3_line_setup();
! 		sigt3_sig_setup();
! 		t3_bpe_setup();
! 		t3_delay_setup();
! 		t3_metro_setup();
! 		t3_timer_setup();
! 
! 		post("iem_t3_lib (R-1.15) library loaded!");
! }
--- 1,66 ----
! /* For information on usage and redistribution, and for a DISCLAIMER OF ALL
! * WARRANTIES, see the file, "LICENSE.txt," in this distribution.
! 
! iem_t3_lib written by Gerhard Eckel, 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 <stdlib.h>
! #include <string.h>
! #include <stdio.h>
! #include <math.h>
! /*
! #include <ctype.h>
! #include <signal.h>
! #include <sys/types.h>
! #include <sys/stat.h>
! #include <fcntl.h>
! 
! #ifndef NT
! #include <sys/signal.h>
! #include <unistd.h>
! #endif
!   
! #ifdef NT
! #include <io.h>
! #endif
! */
! 
! static t_class *iem_t3_lib_class;
! 
! static void *iem_t3_lib_new(void)
! {
!   t_object *x = (t_object *)pd_new(iem_t3_lib_class);
!   
!   return (x);
! }
! 
! void sigt3_line_setup(void);
! void sigt3_sig_setup(void);
! void t3_bpe_setup(void);
! void t3_delay_setup(void);
! void t3_metro_setup(void);
! void t3_timer_setup(void);
! 
! /* ------------------------ setup routine ------------------------- */
! 
! void iem_t3_lib_setup(void)
! {
!   iem_t3_lib_class = class_new(gensym("iem_t3_lib"), iem_t3_lib_new, 0,
!     sizeof(t_object), CLASS_NOINLET, 0);
!   
!   sigt3_line_setup();
!   sigt3_sig_setup();
!   t3_bpe_setup();
!   t3_delay_setup();
!   t3_metro_setup();
!   t3_timer_setup();
!   
! 	post("iem_t3_lib (R-1.16) library loaded!   (c) Gerhard Eckel, Thomas Musil 05.2005");
! 	post("   musil%ciem.at iem KUG Graz Austria", '@');
! }