From d6b088044e161a27d49df537bbb6d998a8d0e50d Mon Sep 17 00:00:00 2001
From: musil <tmusil@users.sourceforge.net>
Date: Sat, 9 Dec 2006 02:00:52 +0000
Subject: // class_sethelpsymbol(); changed help-*.pd to *-help.pd chanded file
 structure to standard 1st step remove old

svn path=/trunk/externals/iemlib/; revision=6756
---
 iem_t3_lib/src/t3_sig~.c | 192 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 192 insertions(+)
 create mode 100644 iem_t3_lib/src/t3_sig~.c

(limited to 'iem_t3_lib/src/t3_sig~.c')

diff --git a/iem_t3_lib/src/t3_sig~.c b/iem_t3_lib/src/t3_sig~.c
new file mode 100644
index 0000000..c2f8eea
--- /dev/null
+++ b/iem_t3_lib/src/t3_sig~.c
@@ -0,0 +1,192 @@
+/* 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 - 2006 */
+
+#include "m_pd.h"
+#include "iemlib.h"
+
+/* -------------------------- t3_sig_tilde~ ------------------------------ */
+static t_class *t3_sig_tilde_class;
+
+typedef struct _t3_sig_tilde
+{
+  t_object x_obj;
+  t_clock  *x_clock;
+  t_float  x_old_val;
+  t_float  x_new_val;
+  t_float  *x_beg;
+  int      x_n;
+  int      x_t3_bang_samps;
+  int      x_transient;
+  t_float  x_ms2samps;
+  t_float  x_ticks2ms;
+} t_t3_sig_tilde;
+
+static void t3_sig_tilde_tick(t_t3_sig_tilde *x)
+{
+  t_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 t3_sig_tilde_stop(t_t3_sig_tilde *x)
+{
+  clock_unset(x->x_clock);
+  x->x_new_val = x->x_old_val;
+}
+
+static void t3_sig_tilde_list(t_t3_sig_tilde *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)((t_float)atom_getfloatarg(0, ac, av)*x->x_ms2samps);
+    x->x_new_val = (t_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)
+      t3_sig_tilde_tick(x);
+    else
+      clock_delay(x->x_clock, (double)ticks * (double)x->x_ticks2ms);
+  }
+}
+
+static t_int *t3_sig_tilde_perform(t_int *w)
+{
+  t_float *out = (t_float *)(w[1]);
+  t_t3_sig_tilde *x = (t_t3_sig_tilde *)(w[2]);
+  int n = (int)(w[3]);
+  
+  if(x->x_transient)
+  {
+    t_float *trans = x->x_beg;
+    
+    while(n--)
+      *out++ = *trans++;
+    x->x_transient = 0;
+  }
+  else
+  {
+    t_float val = x->x_new_val;
+    
+    while(n--)
+      *out++ = val;
+  }
+  return (w+4);
+}
+
+static t_int *t3_sig_tilde_perf8(t_int *w)
+{
+  t_float *out = (t_float *)(w[1]);
+  t_t3_sig_tilde *x = (t_t3_sig_tilde *)(w[2]);
+  int n = (int)(w[3]), i;
+  
+  if(x->x_transient)
+  {
+    t_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
+  {
+    t_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 t3_sig_tilde_dsp(t_t3_sig_tilde *x, t_signal **sp)
+{
+  int i;
+  t_float *trans, val;
+  
+  if(sp[0]->s_n > x->x_n)
+  {
+    freebytes(x->x_beg, x->x_n*sizeof(t_float));
+    x->x_n = sp[0]->s_n;
+    x->x_beg = (t_float *)getbytes(x->x_n*sizeof(t_float));
+  }
+  else
+    x->x_n = sp[0]->s_n;
+  x->x_ms2samps = 0.001*(t_float)sp[0]->s_sr;
+  x->x_ticks2ms = (t_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(t3_sig_tilde_perform, 3, sp[0]->s_vec, x, sp[0]->s_n);
+  else
+    dsp_add(t3_sig_tilde_perf8, 3, sp[0]->s_vec, x, sp[0]->s_n);
+}
+
+static void t3_sig_tilde_free(t_t3_sig_tilde *x)
+{
+  if(x->x_beg)
+    freebytes(x->x_beg, x->x_n*sizeof(t_float));
+  clock_free(x->x_clock);
+}
+
+static void *t3_sig_tilde_new(t_floatarg init_val)
+{
+  t_t3_sig_tilde *x = (t_t3_sig_tilde *)pd_new(t3_sig_tilde_class);
+  
+  x->x_new_val = x->x_old_val = init_val;
+  x->x_n = (int)sys_getblksize();
+  x->x_beg = (t_float *)getbytes(x->x_n*sizeof(t_float));
+  x->x_t3_bang_samps = x->x_transient = 0;
+  x->x_ms2samps = 0.001 * (t_float)sys_getsr();
+  x->x_ticks2ms = (t_float)x->x_n / x->x_ms2samps;
+  x->x_clock = clock_new(x, (t_method)t3_sig_tilde_tick);
+  outlet_new(&x->x_obj, &s_signal);
+  return (x);
+}
+
+void t3_sig_tilde_setup(void)
+{
+  t3_sig_tilde_class = class_new(gensym("t3_sig~"), (t_newmethod)t3_sig_tilde_new,
+        (t_method)t3_sig_tilde_free, sizeof(t_t3_sig_tilde), 0, A_DEFFLOAT, 0);
+  class_addmethod(t3_sig_tilde_class, (t_method)t3_sig_tilde_dsp, gensym("dsp"), 0);
+  class_addmethod(t3_sig_tilde_class, (t_method)t3_sig_tilde_stop, gensym("stop"), 0);
+  class_addlist(t3_sig_tilde_class, (t_method)t3_sig_tilde_list);
+//  class_sethelpsymbol(t3_sig_tilde_class, gensym("iemhelp/help-t3_sig~"));
+}
-- 
cgit v1.2.1