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); }