[PD-cvs] externals/iemlib/src/iem_t3_lib iem_t3_lib.c, 1.2, 1.3 sigt3_line.c, 1.2, 1.3 sigt3_sig.c, 1.2, 1.3 t3_bpe.c, 1.2, 1.3 t3_delay.c, 1.2, 1.3 t3_metro.c, 1.2, 1.3 t3_timer.c, 1.2, 1.3

8 Jul 2005


      Update of /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3830/iemlib/src/iem_t3_lib
Modified Files:
    iem_t3_lib.c sigt3_line.c sigt3_sig.c t3_bpe.c t3_delay.c 
    t3_metro.c t3_timer.c 
Log Message:
dos-return
Index: t3_timer.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/t3_timer.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_timer.c	2 Jun 2005 18:25:00 -0000	1.2
--- t3_timer.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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"));
! }
--- 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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigt3_sig.c	2 Jun 2005 18:25:00 -0000	1.2
--- sigt3_sig.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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~"));
! }
--- 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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_delay.c	2 Jun 2005 18:25:00 -0000	1.2
--- t3_delay.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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"));
! }
--- 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: sigt3_line.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iemlib/src/iem_t3_lib/sigt3_line.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sigt3_line.c	2 Jun 2005 18:25:00 -0000	1.2
--- sigt3_line.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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~"));
! }
--- 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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_bpe.c	2 Jun 2005 18:25:00 -0000	1.2
--- t3_bpe.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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"));
! }
--- 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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** t3_metro.c	2 Jun 2005 18:25:00 -0000	1.2
--- t3_metro.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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"));
! }
--- 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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** iem_t3_lib.c	2 Jun 2005 18:25:00 -0000	1.2
--- iem_t3_lib.c	8 Jul 2005 02:19:16 -0000	1.3
***************
*** 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", '@');
! }
--- 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", '@');
! }

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

[PD-cvs] externals/iemlib/src/iem_t3_lib iem_t3_lib.c, 1.2, 1.3 sigt3_line.c, 1.2, 1.3 sigt3_sig.c, 1.2, 1.3 t3_bpe.c, 1.2, 1.3 t3_delay.c, 1.2, 1.3 t3_metro.c, 1.2, 1.3 t3_timer.c, 1.2, 1.3