[PD-cvs] pd/extra/lrshift~ lrshift~.c,1.2,1.3

[Miller Puckette]

Update of /cvsroot/pure-data/pd/extra/lrshift~
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10939/pd/extra/lrshift~

Modified Files:
	lrshift~.c 
Log Message:
0.38 test 9 (mostly bug fixes)



Index: lrshift~.c
===================================================================
RCS file: /cvsroot/pure-data/pd/extra/lrshift~/lrshift~.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** lrshift~.c	8 Aug 2002 16:42:32 -0000	1.2
--- lrshift~.c	6 Nov 2004 16:07:24 -0000	1.3
***************
*** 20,26 ****
      n -= shift;
      while (n--)
!     	*out++ = *in++;
      while (shift--)
!     	*out++ = 0;
      return (w+5);
  }
--- 20,26 ----
      n -= shift;
      while (n--)
!         *out++ = *in++;
      while (shift--)
!         *out++ = 0;
      return (w+5);
  }
***************
*** 35,41 ****
      in -= shift;
      while (n--)
!     	*--out = *--in;
      while (shift--)
!     	*--out = 0;
      return (w+5);
  }
--- 35,41 ----
      in -= shift;
      while (n--)
!         *--out = *--in;
      while (shift--)
!         *--out = 0;
      return (w+5);
  }
***************
*** 46,57 ****
      int shift = x->x_n;
      if (shift > n)
!     	shift = n;
      if (shift < -n)
!     	shift = -n;
      if (shift < 0)
!     	dsp_add(rightshift_perform, 4,
!     	    sp[0]->s_vec + n, sp[1]->s_vec + n, n, -shift);
      else dsp_add(leftshift_perform, 4,
!     	    sp[0]->s_vec, sp[1]->s_vec, n, shift);
  }
  
--- 46,57 ----
      int shift = x->x_n;
      if (shift > n)
!         shift = n;
      if (shift < -n)
!         shift = -n;
      if (shift < 0)
!         dsp_add(rightshift_perform, 4,
!             sp[0]->s_vec + n, sp[1]->s_vec + n, n, -shift);
      else dsp_add(leftshift_perform, 4,
!             sp[0]->s_vec, sp[1]->s_vec, n, shift);
  }
  
***************
*** 67,74 ****
  {
      lrshift_tilde_class = class_new(gensym("lrshift~"),
!     	(t_newmethod)lrshift_tilde_new, 0, sizeof(t_lrshift_tilde), 0, 
! 	    A_DEFFLOAT, 0);
      class_addmethod(lrshift_tilde_class, nullfn, gensym("signal"), 0);
      class_addmethod(lrshift_tilde_class, (t_method)lrshift_tilde_dsp,
!     	gensym("dsp"), 0);
  }
--- 67,74 ----
  {
      lrshift_tilde_class = class_new(gensym("lrshift~"),
!         (t_newmethod)lrshift_tilde_new, 0, sizeof(t_lrshift_tilde), 0, 
!             A_DEFFLOAT, 0);
      class_addmethod(lrshift_tilde_class, nullfn, gensym("signal"), 0);
      class_addmethod(lrshift_tilde_class, (t_method)lrshift_tilde_dsp,
!         gensym("dsp"), 0);
  }