externals/iem/iemmatrix/src mtx_binop_generic.h,1.3,1.4 - Pd-cvs

18 Oct 2005


      Update of /cvsroot/pure-data/externals/iem/iemmatrix/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24767
Modified Files:
    mtx_binop_generic.h 
Log Message:
fixed processing with float at hot-inlet
Index: mtx_binop_generic.h
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_binop_generic.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** mtx_binop_generic.h	17 Oct 2005 19:58:15 -0000	1.3
--- mtx_binop_generic.h	18 Oct 2005 09:56:50 -0000	1.4
***************
*** 150,163 ****
n=row2*col2;
- 
    while(n--){
  #ifdef MTXBIN_GENERIC__INTEGEROP
!     ap->a_w.w_float = offset MTXBIN_GENERIC__OPERATOR atom_getint(ap2);
  #else
!     ap->a_w.w_float = offset MTXBIN_GENERIC__OPERATOR atom_getfloat(ap2);
  #endif
      ap++; ap2++;
    }
-   
    outlet_anything(x->x_obj.ob_outlet, gensym("matrix"), m->row*m->col+2, m->atombuffer);
  }
--- 150,163 ----
n=row2*col2;
    while(n--){
+     t_float f = 
  #ifdef MTXBIN_GENERIC__INTEGEROP
!                 offset MTXBIN_GENERIC__OPERATOR atom_getint(ap2);
  #else
!                 offset MTXBIN_GENERIC__OPERATOR atom_getfloat(ap2);
  #endif
+     SETFLOAT(ap, f);
      ap++; ap2++;
    }
    outlet_anything(x->x_obj.ob_outlet, gensym("matrix"), m->row*m->col+2, m->atombuffer);
  }