[PD-cvs] externals/iem/iemmatrix/src mtx_sort.c,1.4,1.5

Franz Zotter fzotter at users.sourceforge.net
Wed Jul 26 08:59:43 CEST 2006


Update of /cvsroot/pure-data/externals/iem/iemmatrix/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14536

Modified Files:
	mtx_sort.c 
Log Message:
mtx_sort: output order correction: from right to left.


Index: mtx_sort.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_sort.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** mtx_sort.c	29 Mar 2006 12:07:52 -0000	1.4
--- mtx_sort.c	26 Jul 2006 06:59:41 -0000	1.5
***************
*** 101,110 ****
  static void mTXSortBang (MTXSort *mtx_sort_obj)
  {
-    if (mtx_sort_obj->list_out1) 
-       outlet_anything(mtx_sort_obj->list_outlet1, gensym("matrix"), 
- 	    mtx_sort_obj->size+2, mtx_sort_obj->list_out1);
     if (mtx_sort_obj->list_out2) 
        outlet_anything(mtx_sort_obj->list_outlet2, gensym("matrix"), 
  	    mtx_sort_obj->size+2, mtx_sort_obj->list_out2);
  }
  
--- 101,110 ----
  static void mTXSortBang (MTXSort *mtx_sort_obj)
  {
     if (mtx_sort_obj->list_out2) 
        outlet_anything(mtx_sort_obj->list_outlet2, gensym("matrix"), 
  	    mtx_sort_obj->size+2, mtx_sort_obj->list_out2);
+    if (mtx_sort_obj->list_out1) 
+       outlet_anything(mtx_sort_obj->list_outlet1, gensym("matrix"), 
+ 	    mtx_sort_obj->size+2, mtx_sort_obj->list_out1);
  }
  
***************
*** 334,342 ****
     }
  
!    SETSYMBOL(list_out1, gensym("matrix"));
!    SETFLOAT(list_out1, rows);
!    SETFLOAT(&list_out1[1], columns);
!    outlet_anything(mtx_sort_obj->list_outlet1, gensym("matrix"), 
! 	 mtx_sort_obj->size+2, list_out1);
     SETSYMBOL(list_out2, gensym("matrix"));
     SETFLOAT(list_out2, rows);
--- 334,338 ----
     }
  
!    // writing indices
     SETSYMBOL(list_out2, gensym("matrix"));
     SETFLOAT(list_out2, rows);
***************
*** 344,347 ****
--- 340,349 ----
     outlet_anything(mtx_sort_obj->list_outlet2, gensym("matrix"), 
  	 mtx_sort_obj->size+2, list_out2);
+    // writing sorted values
+    SETSYMBOL(list_out1, gensym("matrix"));
+    SETFLOAT(list_out1, rows);
+    SETFLOAT(&list_out1[1], columns);
+    outlet_anything(mtx_sort_obj->list_outlet1, gensym("matrix"), 
+ 	 mtx_sort_obj->size+2, list_out1);
  }
  





More information about the Pd-cvs mailing list