[PD-cvs] pd/src builtins_dsp.c,1.1.2.18,1.1.2.19

Mathieu Bouchard matju at users.sourceforge.net
Tue Jan 9 23:30:27 CET 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25408

Modified Files:
      Tag: desiredata
	builtins_dsp.c 
Log Message:
removed useless gensym and merged _perform into FUNC1 macro


Index: builtins_dsp.c
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/builtins_dsp.c,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -C2 -d -r1.1.2.18 -r1.1.2.19
*** builtins_dsp.c	9 Jan 2007 20:09:02 -0000	1.1.2.18
--- builtins_dsp.c	9 Jan 2007 22:30:24 -0000	1.1.2.19
***************
*** 439,443 ****
      x->arrayname = s;
      x->vec = 0;
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 439,443 ----
      x->arrayname = s;
      x->vec = 0;
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 498,502 ****
      x->arrayname = s;
      x->vec = 0;
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 498,502 ----
      x->arrayname = s;
      x->vec = 0;
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 606,610 ****
      x->fnpoints = 512.;
      x->finvnpoints = (1./512.);
!     outlet_new(x, gensym("signal"));
      inlet_new(x, x, &s_float, gensym("ft1"));
      x->a = 0;
--- 606,610 ----
      x->fnpoints = 512.;
      x->finvnpoints = (1./512.);
!     outlet_new(x, &s_signal);
      inlet_new(x, x, &s_float, gensym("ft1"));
      x->a = 0;
***************
*** 997,1001 ****
      t_sig *x = (t_sig *)pd_new(sig_tilde_class);
      x->a = f;
!     outlet_new(x, gensym("signal"));
      return x;
  }
--- 997,1001 ----
      t_sig *x = (t_sig *)pd_new(sig_tilde_class);
      x->a = f;
!     outlet_new(x, &s_signal);
      return x;
  }
***************
*** 1148,1152 ****
  static void *line_tilde_new() {
      t_line *x = (t_line *)pd_new(line_tilde_class);
!     outlet_new(x, gensym("signal"));
      floatinlet_new(x, &x->inletvalue);
      x->ticksleft = x->retarget = 0;
--- 1148,1152 ----
  static void *line_tilde_new() {
      t_line *x = (t_line *)pd_new(line_tilde_class);
!     outlet_new(x, &s_signal);
      floatinlet_new(x, &x->inletvalue);
      x->ticksleft = x->retarget = 0;
***************
*** 1296,1300 ****
  static void *vline_tilde_new() {
      t_vline *x = (t_vline *)pd_new(vline_tilde_class);
!     outlet_new(x, gensym("signal"));
      floatinlet_new(x, &x->inlet1);
      floatinlet_new(x, &x->inlet2);
--- 1296,1300 ----
  static void *vline_tilde_new() {
      t_vline *x = (t_vline *)pd_new(vline_tilde_class);
!     outlet_new(x, &s_signal);
      floatinlet_new(x, &x->inlet1);
      floatinlet_new(x, &x->inlet2);
***************
*** 1447,1451 ****
      for (; i < npoints+MAXVSTAKEN; i++) buf[i] = 0;
      x->clock = clock_new(x, env_tilde_tick);
!     x->outlet = outlet_new(x, gensym("float"));
      x->a = 0;
      return x;
--- 1447,1451 ----
      for (; i < npoints+MAXVSTAKEN; i++) buf[i] = 0;
      x->clock = clock_new(x, env_tilde_tick);
!     x->outlet = outlet_new(x, &s_float);
      x->a = 0;
      return x;
***************
*** 1644,1650 ****
      dsp_add(threshold_tilde_perform, 3, sp[0]->v, x, sp[0]->n);
  }
! static void threshold_tilde_ff(t_threshold_tilde *x) {
!     clock_free(x->clock);
! }
  static void threshold_tilde_setup() {
      t_class *c = threshold_tilde_class =
--- 1644,1648 ----
      dsp_add(threshold_tilde_perform, 3, sp[0]->v, x, sp[0]->n);
  }
! static void threshold_tilde_ff(t_threshold_tilde *x) {clock_free(x->clock);}
  static void threshold_tilde_setup() {
      t_class *c = threshold_tilde_class =
***************
*** 2106,2111 ****
  static void *sigfft_new() {
      t_sigfft *x = (t_sigfft *)pd_new(sigfft_class);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
--- 2104,2109 ----
  static void *sigfft_new() {
      t_sigfft *x = (t_sigfft *)pd_new(sigfft_class);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
***************
*** 2115,2120 ****
  static void *sigifft_new() {
      t_sigfft *x = (t_sigfft *)pd_new(sigifft_class);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
--- 2113,2118 ----
  static void *sigifft_new() {
      t_sigfft *x = (t_sigfft *)pd_new(sigifft_class);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
***************
*** 2187,2192 ****
  static void *sigrfft_new() {
      t_sigrfft *x = (t_sigrfft *)pd_new(sigrfft_class);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 2185,2190 ----
  static void *sigrfft_new() {
      t_sigrfft *x = (t_sigrfft *)pd_new(sigrfft_class);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 2243,2247 ****
      t_sigrifft *x = (t_sigrifft *)pd_new(sigrifft_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 2241,2245 ----
      t_sigrifft *x = (t_sigrifft *)pd_new(sigrifft_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 2287,2292 ****
  static void *sigfftw_new() {
      t_sigfftw *x = (t_sigfftw *)pd_new(sigfftw_class);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
--- 2285,2290 ----
  static void *sigfftw_new() {
      t_sigfftw *x = (t_sigfftw *)pd_new(sigfftw_class);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      inlet_new(x, x, &s_signal, &s_signal);
      x->a = 0;
***************
*** 2343,2348 ****
  static void *sigrfftw_new() {
      t_sigrfftw *x = (t_sigrfftw *)pd_new(sigrfftw_class);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 2341,2346 ----
  static void *sigrfftw_new() {
      t_sigrfftw *x = (t_sigrfftw *)pd_new(sigrfftw_class);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 2400,2404 ****
      t_sigrifftw *x = (t_sigrifftw *)pd_new(sigrifftw_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 2398,2402 ----
      t_sigrifftw *x = (t_sigrifftw *)pd_new(sigrifftw_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 2447,2452 ****
      t_sigframp *x = (t_sigframp *)pd_new(sigframp_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 2445,2450 ----
      t_sigframp *x = (t_sigframp *)pd_new(sigframp_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 2524,2528 ****
  static void *sighip_new(t_floatarg f) {
      t_sighip *x = (t_sighip *)pd_new(sighip_class);
!     inlet_new(x, x, gensym("float"), gensym("ft1"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
--- 2522,2526 ----
  static void *sighip_new(t_floatarg f) {
      t_sighip *x = (t_sighip *)pd_new(sighip_class);
!     inlet_new(x, x, &s_float, gensym("ft1"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
***************
*** 2594,2598 ****
  static void *siglop_new(t_floatarg f) {
      t_siglop *x = (t_siglop *)pd_new(siglop_class);
!     inlet_new(x, x, gensym("float"), gensym("ft1"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
--- 2592,2596 ----
  static void *siglop_new(t_floatarg f) {
      t_siglop *x = (t_siglop *)pd_new(siglop_class);
!     inlet_new(x, x, &s_float, gensym("ft1"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
***************
*** 2664,2669 ****
  static void *sigbp_new(t_floatarg f, t_floatarg q) {
      t_sigbp *x = (t_sigbp *)pd_new(sigbp_class);
!     inlet_new(x, x, gensym("float"), gensym("ft1"));
!     inlet_new(x, x, gensym("float"), gensym("ft2"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
--- 2662,2667 ----
  static void *sigbp_new(t_floatarg f, t_floatarg q) {
      t_sigbp *x = (t_sigbp *)pd_new(sigbp_class);
!     inlet_new(x, x, &s_float, gensym("ft1"));
!     inlet_new(x, x, &s_float, gensym("ft2"));
      outlet_new(x, &s_signal);
      x->sr = 44100;
***************
*** 3461,3465 ****
      x->lo = lo;
      x->hi = hi;
!     outlet_new(x, gensym("signal"));
      floatinlet_new(x, &x->lo);
      floatinlet_new(x, &x->hi);
--- 3459,3463 ----
      x->lo = lo;
      x->hi = hi;
!     outlet_new(x, &s_signal);
      floatinlet_new(x, &x->lo);
      floatinlet_new(x, &x->hi);
***************
*** 3529,3533 ****
  static void *sigrsqrt_new() {
      t_sigrsqrt *x = (t_sigrsqrt *)pd_new(sigrsqrt_class);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 3527,3531 ----
  static void *sigrsqrt_new() {
      t_sigrsqrt *x = (t_sigrsqrt *)pd_new(sigrsqrt_class);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 3569,3573 ****
  static void *sigsqrt_new() {
      t_sigsqrt *x = (t_sigsqrt *)pd_new(sigsqrt_class);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 3567,3571 ----
  static void *sigsqrt_new() {
      t_sigsqrt *x = (t_sigsqrt *)pd_new(sigsqrt_class);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 3608,3612 ****
  static void *sigwrap_new() {
      t_sigwrap *x = (t_sigwrap *)pd_new(sigwrap_class);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 3606,3610 ----
  static void *sigwrap_new() {
      t_sigwrap *x = (t_sigwrap *)pd_new(sigwrap_class);
!     outlet_new(x, &s_signal);
      x->a = 0;
      return x;
***************
*** 3640,3704 ****
  t_class *dbtopow_tilde_class, *powtodb_tilde_class;
  
! static t_int *mtof_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     t_int n = *(t_int *)(w+3);
!     for (; n--; in++, out++) {
!         float f = *in;
!         *out = f<=-1500 ? 0 : 8.17579891564 * exp(.0577622650 * min(f,1499.f));
!     }
!     return w+4;
! }
! static t_int *ftom_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     for (t_int n = *(t_int *)(w+3); n--; *in++, out++) {
!         float f = *in;
!         *out = (f > 0 ? 17.3123405046 * log(.12231220585 * f) : -1500);
!     }
!     return w+4;
! }
! static t_int *dbtorms_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     for (t_int n = *(t_int *)(w+3); n--; in++, out++) {
!         float f = *in;
!         *out = f<=0 ? 0 : exp((LOGTEN * 0.05) * (min(f,485.f)-100.));
!     }
!     return w+4;
! }
! static t_int *rmstodb_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     for (t_int n = *(t_int *)(w+3); n--; in++, out++) {
!         float f = *in;
!         *out = f<=0 ? 0 : max(100 + 20./LOGTEN * log(f),0.);
!     }
!     return w+4;
! }
! static t_int *dbtopow_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     for (t_int n = *(t_int *)(w+3); n--; in++, out++) {
!         float f = *in;
!         *out = f<=0 ? 0 : exp((LOGTEN * 0.1) * (min(f,870.f)-100.));
!     }
!     return w+4;
! }
! static t_int *powtodb_tilde_perform(t_int *w) {
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2);
!     for (t_int n = *(t_int *)(w+3); n--; in++, out++) {
!         float f = *in;
!         *out = f<=0 ? 0 : max(100 + 10./LOGTEN * log(f),0.);
!     }
!     return w+4;
! }
! 
! #define FUNC1(NAME) \
  static void *NAME##_new() {t_func1 *x = (t_func1 *)pd_new(NAME##_class); \
      outlet_new(x,&s_signal); x->a = 0; return x;} \
  static void NAME##_dsp(t_func1 *x, t_signal **sp) { \
      dsp_add(NAME##_perform, 3, sp[0]->v, sp[1]->v, sp[0]->n);}
! FUNC1(mtof_tilde)
! FUNC1(ftom_tilde)
! FUNC1(dbtorms_tilde)
! FUNC1(dbtopow_tilde)
! FUNC1(rmstodb_tilde)
! FUNC1(powtodb_tilde)
  
  #define FUNC1DECL(NAME,SYM) \
--- 3638,3658 ----
  t_class *dbtopow_tilde_class, *powtodb_tilde_class;
  
! #define FUNC1(NAME,EXPR) \
! static t_int *NAME##_perform(t_int *w) { \
!     float *in = *(t_float **)(w+1), *out = *(t_float **)(w+2); \
!     for (t_int n = *(t_int *)(w+3); n--; in++, out++) { float a = *in; *out = (EXPR); } \
!     return w+4;} \
  static void *NAME##_new() {t_func1 *x = (t_func1 *)pd_new(NAME##_class); \
      outlet_new(x,&s_signal); x->a = 0; return x;} \
  static void NAME##_dsp(t_func1 *x, t_signal **sp) { \
      dsp_add(NAME##_perform, 3, sp[0]->v, sp[1]->v, sp[0]->n);}
! 
! 
! FUNC1(mtof_tilde, a<=-1500 ? 0 : 8.17579891564 * exp(.0577622650 * min(a,1499.f)))
! FUNC1(ftom_tilde, a>0 ? 17.3123405046 * log(.12231220585 * a) : -1500)
! FUNC1(dbtorms_tilde, a<=0 ? 0 : exp((LOGTEN * 0.05) * (min(a,485.f)-100.)))
! FUNC1(dbtopow_tilde, a<=0 ? 0 : max(100 + 20./LOGTEN * log(a),0.))
! FUNC1(rmstodb_tilde, a<=0 ? 0 : exp((LOGTEN * 0.1) * (min(a,870.f)-100.)))
! FUNC1(powtodb_tilde, a<=0 ? 0 : max(100 + 10./LOGTEN * log(a),0.))
  
  #define FUNC1DECL(NAME,SYM) \
***************
*** 3755,3759 ****
  static void *print_new(t_symbol *s) {
      t_print *x = (t_print *)pd_new(print_class);
!     x->sym = (s->name[0]? s : gensym("print~"));
      x->count = 0;
      x->a = 0;
--- 3709,3713 ----
  static void *print_new(t_symbol *s) {
      t_print *x = (t_print *)pd_new(print_class);
!     x->sym = s->name[0] ? s : gensym("print~");
      x->count = 0;
      x->a = 0;
***************
*** 3806,3810 ****
      x->phase = 0;
      x->conv = 0;
!     outlet_new(x, gensym("signal"));
      return x;
  }
--- 3760,3764 ----
      x->phase = 0;
      x->conv = 0;
!     outlet_new(x, &s_signal);
      return x;
  }
***************
*** 3854,3858 ****
  static void *cos_new() {
      t_cos *x = (t_cos *)pd_new(cos_class);
!     outlet_new(x, gensym("signal"));
      x->a = 0;
      return x;
--- 3808,3812 ----
  static void *cos_new() {
      t_cos *x = (t_cos *)pd_new(cos_class);
!     outlet_new(x,&s_signal);
      x->a = 0;
      return x;
***************
*** 3936,3940 ****
      t_osc *x = (t_osc *)pd_new(osc_class);
      x->a = f;
!     outlet_new(x, gensym("signal"));
      inlet_new(x, x, &s_float, gensym("ft1"));
      inlet_settip(x->inlet,gensym("phase"));
--- 3890,3894 ----
      t_osc *x = (t_osc *)pd_new(osc_class);
      x->a = f;
!     outlet_new(x,&s_signal);
      inlet_new(x, x, &s_float, gensym("ft1"));
      inlet_settip(x->inlet,gensym("phase"));
***************
*** 4026,4032 ****
      t_sigvcf *x = (t_sigvcf *)pd_new(sigvcf_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     inlet_new(x, x, gensym("float"), gensym("ft1"));
!     outlet_new(x, gensym("signal"));
!     outlet_new(x, gensym("signal"));
      x->ctl = &x->cspace;
      x->cspace.re = 0;
--- 3980,3986 ----
      t_sigvcf *x = (t_sigvcf *)pd_new(sigvcf_class);
      inlet_new(x, x, &s_signal, &s_signal);
!     inlet_new(x, x, &s_float, gensym("ft1"));
!     outlet_new(x, &s_signal);
!     outlet_new(x, &s_signal);
      x->ctl = &x->cspace;
      x->cspace.re = 0;
***************
*** 4074,4084 ****
          tf.tf_i[HIOFFSET] = normhipart;
          frac = tf.tf_d - UNITBIT32;
!         f1 = addr[0];
!         f2 = addr[1];
!         coefr = r * (f1 + frac * (f2 - f1));
          addr = tab + ((tabindex - (COSTABSIZE/4)) & (COSTABSIZE-1));
!         f1 = addr[0];
!         f2 = addr[1];
!         coefi = r * (f1 + frac * (f2 - f1));
          f1 = *in1++;
          re2 = re;
--- 4028,4034 ----
          tf.tf_i[HIOFFSET] = normhipart;
          frac = tf.tf_d - UNITBIT32;
!         f1 = addr[0]; f2 = addr[1]; coefr = r * (f1 + frac * (f2 - f1));
          addr = tab + ((tabindex - (COSTABSIZE/4)) & (COSTABSIZE-1));
!         f1 = addr[0]; f2 = addr[1]; coefi = r * (f1 + frac * (f2 - f1));
          f1 = *in1++;
          re2 = re;
***************
*** 4113,4117 ****
      static int init = 307;
      x->val = (init *= 1319);
!     outlet_new(x, gensym("signal"));
      return x;
  }
--- 4063,4067 ----
      static int init = 307;
      x->val = (init *= 1319);
!     outlet_new(x, &s_signal);
      return x;
  }





More information about the Pd-cvs mailing list