[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