From dbaec3765c4beea2d8f90c6b301b9078c6d6a42e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Mon, 27 Jul 2015 22:50:54 +0000 Subject: use t_sample rather than float and minor cleanups e.g. disabling post() in DSP-loop; removing unused function declarations svn path=/trunk/externals/ggee/; revision=17501 --- experimental/tabwrite4~.c | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/experimental/tabwrite4~.c b/experimental/tabwrite4~.c index 83aab2b..9fdcc04 100644 --- a/experimental/tabwrite4~.c +++ b/experimental/tabwrite4~.c @@ -12,7 +12,7 @@ typedef struct _tabwrite4_tilde t_object x_obj; int x_phase; int x_npoints; - float *x_vec; + t_float *x_vec; t_symbol *x_arrayname; float x_f; t_sample x_1; @@ -22,8 +22,6 @@ typedef struct _tabwrite4_tilde float x_index; } t_tabwrite4_tilde; -static void tabwrite4_tilde_tick(t_tabwrite4_tilde *x); - static void *tabwrite4_tilde_new(t_symbol *s) { t_tabwrite4_tilde *x = (t_tabwrite4_tilde *)pd_new(tabwrite4_tilde_class); @@ -34,7 +32,7 @@ static void *tabwrite4_tilde_new(t_symbol *s) x->x_2 = 0.; x->x_3 = 0.; inlet_new(&x->x_obj, &x->x_obj.ob_pd, &s_signal, &s_signal); - outlet_new(&x->x_obj, &s_signal); + //outlet_new(&x->x_obj, &s_signal); return (x); } @@ -49,15 +47,15 @@ static void tabwrite4_tilde_redraw(t_tabwrite4_tilde *x) static t_int *tabwrite4_tilde_perform(t_int *w) { t_tabwrite4_tilde *x = (t_tabwrite4_tilde *)(w[1]); - t_float *in1 = (t_float *)(w[2]); - t_float *in2 = (t_float *)(w[3]); + t_sample *in1 = (t_sample *)(w[2]); + t_sample *in2 = (t_sample *)(w[3]); int n = (int)(w[4]); - t_float* end = in1 + n; - t_float* end2 = in2 + n; + t_sample* end2 = in2 + n; - float *buf = x->x_vec, *fp, a,b,c,d; - float findex = *in2; - float frac; + t_float *buf = x->x_vec; + t_sample a,b,c,d; + t_sample findex = *in2; + t_sample frac; int iindex = (int)findex; int wraparound = 0; int maxindex = x->x_npoints-1; @@ -85,7 +83,7 @@ static t_int *tabwrite4_tilde_perform(t_int *w) // post("iindex %d, findex %f",iindex,findex); if (in2 < end2 && findex > *in2) { wraparound = 1; - post("wraparound"); + //post("wraparound"); } @@ -114,7 +112,7 @@ static t_int *tabwrite4_tilde_perform(t_int *w) ); } - post("written to %d",iindex); + //post("written to %d",iindex); x->x_1 = b; x->x_2 = c; x->x_3 = d; -- cgit v1.2.1