static void mtx_row_matrix(t_matrix *x, t_symbol *s, int argc,
t_atom *argv)
{
if(iemmatrix_check(x, argc, argv, 0))return;
matrix_matrix2(x, s, argc, argv);
matrix_bang(x);
}
static void matrix_matrix(t_matrix *x, t_symbol *s, int argc, t_atom *argv)
{
int row, col;
if(iemmatrix_check(x, argc, argv, 0))return;
row = atom_getfloat(argv);
col = atom_getfloat(argv+1);
matrix_matrix2(x, s, argc, argv);
matrix_bang(x);
}
static void mtx_row_matrix(t_matrix *x, t_symbol *s, int argc, t_atom *argv)
{
int row, col;
if (argc<2){ post("matrix : corrupt matrix passed"); return; }
row = atom_getfloat(argv);
col = atom_getfloat(argv+1);
if ((row<1)||(col<1)){ post("matrix : corrupt matrix passed"); return; }
if (row*col > argc-2){ post("matrix: sparse matrices not yet supported : use \"mtx_check\""); return; }
matrix_matrix2(x, s, argc, argv);
matrix_bang(x);
}
static void matrix_read(t_matrix *x, t_symbol *filename)
{
t_binbuf *bbuf = binbuf_new();
t_atom *ap;
int n;
if (binbuf_read_via_path(bbuf, filename->s_name, canvas_getdir(x->x_canvas)->s_name, 0))
pd_error(x,"matrix: failed to read %128s", filename->s_name);
ap=binbuf_getvec(bbuf);
n =binbuf_getnatom(bbuf)-1;
if ((ap->a_type == A_SYMBOL) &&
(!strcmp(ap->a_w.w_symbol->s_name,"matrix") || !strcmp(ap->a_w.w_symbol->s_name,"#matrix")) ){
matrix_matrix2(x, gensym("matrix"), n, ap+1);
}
binbuf_free(bbuf);
}
static void mTXConcatMatrix2 (MTXconcat *mtx_concat_obj, t_symbol *s,
int argc, t_atom *argv)
{
matrix_matrix2 (&mtx_concat_obj->mtx_in2, s, argc, argv);
}
