pd/extra/sigmund~ sigmund~.c,1.1,1.2 - Pd-cvs

22 Oct 2006


      Update of /cvsroot/pure-data/pd/extra/sigmund~
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31111/pd/extra/sigmund~
Modified Files:
    sigmund~.c 
Log Message:
test release for 0.41 (bug fixes for IA64).
Index: sigmund~.c
===================================================================
RCS file: /cvsroot/pure-data/pd/extra/sigmund~/sigmund~.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sigmund~.c	11 Sep 2006 20:34:38 -0000	1.1
--- sigmund~.c	22 Oct 2006 21:46:10 -0000	1.2
***************
*** 771,775 ****
#define MODE_STREAM 1
! #define MODE_BLOCK 2        /* uninplemented */
  #define MODE_TABLE 3
--- 771,775 ----
#define MODE_STREAM 1
! #define MODE_BLOCK 2        /* unimplemented */
  #define MODE_TABLE 3
***************
*** 1099,1103 ****
      t_garray *a;
      float *arraypoints, pit;
!     
      if (argc < 5)
      {
--- 1099,1103 ----
      t_garray *a;
      float *arraypoints, pit;
!     t_word *wordarray = 0;
      if (argc < 5)
      {
***************
*** 1116,1122 ****
          return;
      }
!     
      if (!(a = (t_garray *)pd_findbyclass(syminput, garray_class)) ||
!         !garray_getfloatarray(a, &arraysize, &arraypoints) ||
              arraysize < onset + npts)
      {
--- 1116,1122 ----
          return;
      }
!     arraypoints = alloca(sizeof(float)*npts);
      if (!(a = (t_garray *)pd_findbyclass(syminput, garray_class)) ||
!         !garray_getfloatwords(a, &arraysize, &wordarray) ||
              arraysize < onset + npts)
      {
***************
*** 1129,1133 ****
          return;
      }
!     sigmund_doit(x, npts, arraypoints+onset, loud, srate);
  }
--- 1129,1135 ----
          return;
      }
!     for (i = 0; i < npts; i++)
!         arraypoints[i] = wordarray[i+onset].w_float;
!     sigmund_doit(x, npts, arraypoints, loud, srate);
  }