apps/plugins/pdbox/PDa/intern/tabplay~.c

   1
   2 #ifndef ROCKBOX
   3 #define FIXEDPOINT
   4 #endif
   5
   6 #include "../src/m_pd.h"
   7 #include <../src/m_fixed.h>
   8
   9 static t_class *tabplay_tilde_class;
  10
  11 typedef struct _tabplay_tilde
  12 {
  13     t_object x_obj;
  14     t_outlet *x_bangout;
  15     int x_phase;
  16     int x_nsampsintab;
  17     int x_limit;
  18     t_sample *x_vec;
  19     t_symbol *x_arrayname;
  20     t_clock *x_clock;
  21 } t_tabplay_tilde;
  22
  23 static void tabplay_tilde_tick(t_tabplay_tilde *x);
  24
  25 static void *tabplay_tilde_new(t_symbol *s)
  26 {
  27     t_tabplay_tilde *x = (t_tabplay_tilde *)pd_new(tabplay_tilde_class);
  28     x->x_clock = clock_new(x, (t_method)tabplay_tilde_tick);
  29     x->x_phase = 0x7fffffff;
  30     x->x_limit = 0;
  31     x->x_arrayname = s;
  32     outlet_new(&x->x_obj, &s_signal);
  33     x->x_bangout = outlet_new(&x->x_obj, &s_bang);
  34     return (x);
  35 }
  36
  37 static t_int *tabplay_tilde_perform(t_int *w)
  38 {
  39     t_tabplay_tilde *x = (t_tabplay_tilde *)(w[1]);
  40     t_sample *out = (t_sample *)(w[2]), *fp;
  41     int n = (int)(w[3]), phase = x->x_phase,
  42         endphase = (x->x_nsampsintab < x->x_limit ?
  43             x->x_nsampsintab : x->x_limit), nxfer, n3;
  44     if (!x->x_vec || phase >= endphase)
  45         goto zero;
  46
  47     nxfer = endphase - phase;
  48     fp = x->x_vec + phase;
  49     if (nxfer > n)
  50         nxfer = n;
  51     n3 = n - nxfer;
  52     phase += nxfer;
  53     while (nxfer--)
  54         *out++ = *fp++;
  55     if (phase >= endphase)
  56     {
  57         clock_delay(x->x_clock, 0);
  58         x->x_phase = 0x7fffffff;
  59         while (n3--)
  60             *out++ = 0;
  61     }
  62     else x->x_phase = phase;
  63
  64     return (w+4);
  65 zero:
  66     while (n--) *out++ = 0;
  67     return (w+4);
  68 }
  69
  70 void tabplay_tilde_set(t_tabplay_tilde *x, t_symbol *s)
  71 {
  72     t_garray *a;
  73
  74     x->x_arrayname = s;
  75     if (!(a = (t_garray *)pd_findbyclass(x->x_arrayname, garray_class)))
  76     {
  77         if (*s->s_name) pd_error(x, "tabplay~: %s: no such array",
  78             x->x_arrayname->s_name);
  79         x->x_vec = 0;
  80     }
  81     else if (!garray_getfloatarray(a, &x->x_nsampsintab, &x->x_vec))
  82     {
  83         error("%s: bad template for tabplay~", x->x_arrayname->s_name);
  84         x->x_vec = 0;
  85     }
  86     else garray_usedindsp(a);
  87 }
  88
  89 static void tabplay_tilde_dsp(t_tabplay_tilde *x, t_signal **sp)
  90 {
  91     tabplay_tilde_set(x, x->x_arrayname);
  92     dsp_add(tabplay_tilde_perform, 3, x, sp[0]->s_vec, sp[0]->s_n);
  93 }
  94
  95 static void tabplay_tilde_list(t_tabplay_tilde *x, t_symbol *s,
  96     int argc, t_atom *argv)
  97 {
  98     long start = atom_getfloatarg(0, argc, argv);
  99     long length = atom_getfloatarg(1, argc, argv);
 100
 101 #ifdef ROCKBOX
 102     (void) s;
 103 #endif
 104
 105     if (start < 0) start = 0;
 106     if (length <= 0)
 107         x->x_limit = 0x7fffffff;
 108     else
 109         x->x_limit = start + length;
 110     x->x_phase = start;
 111 }
 112
 113 static void tabplay_tilde_stop(t_tabplay_tilde *x)
 114 {
 115     x->x_phase = 0x7fffffff;
 116 }
 117
 118 static void tabplay_tilde_tick(t_tabplay_tilde *x)
 119 {
 120     outlet_bang(x->x_bangout);
 121 }
 122
 123 static void tabplay_tilde_free(t_tabplay_tilde *x)
 124 {
 125     clock_free(x->x_clock);
 126 }
 127
 128 void tabplay_tilde_setup(void)
 129 {
 130     tabplay_tilde_class = class_new(gensym("tabplay~"),
 131         (t_newmethod)tabplay_tilde_new, (t_method)tabplay_tilde_free,
 132         sizeof(t_tabplay_tilde), 0, A_DEFSYM, 0);
 133     class_addmethod(tabplay_tilde_class, (t_method)tabplay_tilde_dsp,
 134         gensym("dsp"), 0);
 135     class_addmethod(tabplay_tilde_class, (t_method)tabplay_tilde_stop,
 136         gensym("stop"), 0);
 137     class_addmethod(tabplay_tilde_class, (t_method)tabplay_tilde_set,
 138         gensym("set"), A_DEFSYM, 0);
 139     class_addlist(tabplay_tilde_class, tabplay_tilde_list);
 140 }
 141