Pd-cvs May 2005

pd-cvs@lists.iem.at

14 participants
407 discussions

externals/miXed/shared/common patchvalue.c, NONE, 1.1 patchvalue.h, NONE, 1.1 Makefile.sources, 1.6, 1.7
by Krzysztof Czaja 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/miXed/shared/common In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10109/common Modified Files: Makefile.sources Added Files: patchvalue.c patchvalue.h Log Message: toxy alpha17 and pddp alpha1 (see notes.txt for toxy, pddp and shared) Index: Makefile.sources =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/common/Makefile.sources,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** Makefile.sources 27 Jan 2005 14:42:53 -0000 1.6 --- Makefile.sources 10 May 2005 17:58:40 -0000 1.7 *************** *** 9,12 **** --- 9,13 ---- mifi.c \ os.c \ + patchvalue.c \ port.c \ props.c \ --- NEW FILE: patchvalue.c --- /* Copyright (c) 2005 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ #include <stdio.h> #include <string.h> #include "m_pd.h" #include "g_canvas.h" #include "patchvalue.h" #ifdef KRZYSZCZ # include "loud.h" # define PATCHVALUE_DEBUG #else # define loudbug_bug(msg) fprintf(stderr, "BUG: %s\n", msg), bug(msg) #endif typedef struct _patchstorage { t_glist *ps_glist; t_patchvalue *ps_values; struct _patchstorage *ps_next; } t_patchstorage; typedef struct _patchboard { t_pd pb_pd; t_symbol *pb_category; t_patchstorage *pb_contents; } t_patchboard; static t_class *patchboard_class = 0; /* assuming there is no 'name' in the storage */ static t_patchvalue *patchstorage_addvalue( t_patchstorage *ps, t_patchvalue *prv, t_class *cls, t_symbol *name) { t_patchvalue *pv = (t_patchvalue *)pd_new(cls); pv->pv_name = name; pv->pv_refcount = 0; if (prv) { pv->pv_next = prv->pv_next; prv->pv_next = pv; } else { pv->pv_next = ps->ps_values; ps->ps_values = pv; } return (pv); } /* assuming there is no 'glist' on the board */ static t_patchstorage *patchboard_addstorage( t_patchboard *pb, t_patchstorage *prv, t_glist *glist) { t_patchstorage *ps = getbytes(sizeof(*ps)); ps->ps_glist = glist; ps->ps_values = 0; if (prv) { ps->ps_next = prv->ps_next; prv->ps_next = ps; } else { ps->ps_next = pb->pb_contents; pb->pb_contents = ps; } return (ps); } /* not used (LATER find a gc scheme) */ static void patchstorage_removevalue( t_patchstorage *ps, t_patchvalue *prv, t_patchvalue *pv, int force) { if (force || pv->pv_refcount < 1) { if (prv) prv->pv_next = pv->pv_next; else ps->ps_values = pv->pv_next; pd_free((t_pd *)pv); } } /* not used (LATER find a gc scheme) */ static void patchboard_removestorage( t_patchboard *pb, t_patchstorage *prv, t_patchstorage *ps, int force) { if (prv) prv->ps_next = ps->ps_next; else pb->pb_contents = ps->ps_next; if (force) { t_patchvalue *pv, *pvnext = ps->ps_values; while (pv = pvnext) { pvnext = pv->pv_next; pd_free((t_pd *)pv); } } else if (ps->ps_values) return; freebytes(ps, sizeof(*ps)); } static t_patchvalue *patchstorage_findvalue( t_patchstorage *ps, t_symbol *name) { t_patchvalue *pv; for (pv = ps->ps_values; pv; pv = pv->pv_next) if (pv->pv_name == name) break; return (pv); } static t_patchstorage *patchboard_findstorage( t_patchboard *pb, t_glist *glist) { t_patchstorage *ps; for (ps = pb->pb_contents; ps; ps = ps->ps_next) if (ps->ps_glist == glist) break; return (ps); } static t_patchboard *patchboard_find(t_symbol *category) { if (!patchboard_class) patchboard_class = patchvalue_classnew(gensym("_patchboard"), sizeof(t_patchboard)); return ((t_patchboard *)pd_findbyclass(category, patchboard_class)); } static t_patchboard *patchboard_use(t_symbol *category) { if (!patchboard_class) patchboard_class = patchvalue_classnew(gensym("_patchboard"), sizeof(t_patchboard)); if (category && *category->s_name == '#') { t_patchboard *pb; if (!(pb = (t_patchboard *)pd_findbyclass(category, patchboard_class))) { pb = (t_patchboard *)pd_new(patchboard_class); pb->pb_category = category; pd_bind((t_pd *)pb, category); /* never unbound */ pb->pb_contents = 0; } return (pb); } else { loudbug_bug("patchboard_use"); return (0); } } static t_patchstorage *patchstorage_use(t_symbol *category, t_glist *glist) { t_patchboard *pb; if (pb = patchboard_use(category)) { t_patchstorage *ps; if (!(ps = patchboard_findstorage(pb, glist))) ps = patchboard_addstorage(pb, 0, glist); return (ps); } else return (0); } /* The class might have been created by another dll... This is public, because apart from the "_patchboard" class above, it is called for the "_raftentry" class too. LATER rethink. */ t_class *patchvalue_classnew(t_symbol *cname, size_t size) { t_class *cls; t_symbol *bindsym; char buf[MAXPDSTRING]; sprintf(buf, "#%s", cname->s_name); bindsym = gensym(buf); if (bindsym->s_thing) { t_pd *pd = bindsym->s_thing; char *name = class_getname(*pd); if (strcmp(name, cname->s_name)) { /* FIXME handle this properly... */ loudbug_bug("patchvalue_classnew"); } else return (*pd); } cls = class_new(cname, 0, 0, size, CLASS_PD | CLASS_NOINLET, 0); pd_bind(pd_new(cls), bindsym); /* never unbound */ return (cls); } t_patchvalue *patchvalue_use(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name) { t_patchstorage *ps; if (ps = patchstorage_use(category, glist)) { t_patchvalue *pv; if (pv = patchstorage_findvalue(ps, name)) { if (*(t_pd *)pv != cls) { loudbug_bug("patchvalue_use"); return (0); } } else pv = patchstorage_addvalue(ps, 0, cls, name); return (pv); } else return (0); } t_patchvalue *patchvalue_get(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name) { t_patchboard *pb; t_patchstorage *ps; t_patchvalue *pv; if ((pb = patchboard_find(category)) && (ps = patchboard_findstorage(pb, glist)) && (pv = patchstorage_findvalue(ps, name))) { if (*(t_pd *)pv == cls) return (pv); else loudbug_bug("patchvalue_get"); } return (0); } t_patchvalue *patchvalue_resolve(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name) { t_patchboard *pb; if (pb = patchboard_find(category)) { t_patchstorage *ps; t_patchvalue *pv; while (glist) { if ((ps = patchboard_findstorage(pb, glist)) && (pv = patchstorage_findvalue(ps, name))) { if (*(t_pd *)pv == cls) return (pv); else loudbug_bug("patchvalue_resolve"); } else if (canvas_isabstraction(glist)) break; else glist = glist->gl_owner; } } return (0); } --- NEW FILE: patchvalue.h --- /* Copyright (c) 2005 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ #ifndef __PATCHVALUE_H__ #define __PATCHVALUE_H__ typedef struct _patchvalue { t_pd pv_pd; t_symbol *pv_name; int pv_refcount; struct _patchvalue *pv_next; } t_patchvalue; t_class *patchvalue_classnew(t_symbol *cname, size_t size); t_patchvalue *patchvalue_use(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name); t_patchvalue *patchvalue_get(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name); t_patchvalue *patchvalue_resolve(t_symbol *category, t_glist *glist, t_class *cls, t_symbol *name); #endif

1 0

externals/miXed/shared/toxy scriptlet.c, 1.17, 1.18 scriptlet.h, 1.5, 1.6
by Krzysztof Czaja 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/miXed/shared/toxy In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10109/toxy Modified Files: scriptlet.c scriptlet.h Log Message: toxy alpha17 and pddp alpha1 (see notes.txt for toxy, pddp and shared) Index: scriptlet.h =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/toxy/scriptlet.h,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** scriptlet.h 21 Dec 2004 11:32:12 -0000 1.5 --- scriptlet.h 10 May 2005 17:58:41 -0000 1.6 *************** *** 1,3 **** ! /* Copyright (c) 2003-2004 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ --- 1,3 ---- ! /* Copyright (c) 2003-2005 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ *************** *** 42,47 **** void scriptlet_append(t_scriptlet *to, t_scriptlet *from); void scriptlet_free(t_scriptlet *sp); ! t_scriptlet *scriptlet_new(t_pd *owner, t_symbol *rptarget, t_symbol *cbtarget, ! t_symbol *item, t_glist *gl, t_scriptlet_cvfn cvfn); #endif --- 42,50 ---- void scriptlet_append(t_scriptlet *to, t_scriptlet *from); void scriptlet_free(t_scriptlet *sp); ! t_scriptlet *scriptlet_new(t_pd *owner, ! t_symbol *rptarget, t_symbol *cbtarget, ! t_symbol *item, t_glist *glist, ! t_scriptlet_cvfn cvfn); ! t_scriptlet *scriptlet_newalike(t_scriptlet *sp); #endif Index: scriptlet.c =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/toxy/scriptlet.c,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** scriptlet.c 12 Mar 2005 00:19:11 -0000 1.17 --- scriptlet.c 10 May 2005 17:58:41 -0000 1.18 *************** *** 1,3 **** ! /* Copyright (c) 2003-2004 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ --- 1,3 ---- ! /* Copyright (c) 2003-2005 krzYszcz and others. * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ *************** *** 47,51 **** t_symbol *s_rptarget; /* reply target */ t_symbol *s_cbtarget; /* callback target */ ! t_symbol *s_item; t_scriptlet_cvfn s_cvfn; /* if empty, passing resolveall is a bug */ t_canvas *s_cv; /* as returned by cvfn */ --- 47,51 ---- t_symbol *s_rptarget; /* reply target */ t_symbol *s_cbtarget; /* callback target */ ! t_symbol *s_item; /* item's name (readable part of its path) */ t_scriptlet_cvfn s_cvfn; /* if empty, passing resolveall is a bug */ t_canvas *s_cv; /* as returned by cvfn */ *************** *** 1049,1054 **** field, if implicitly set, would be dangerous (after a glist is gone) and confusing (current directory used for i/o of a global scriptlet). */ ! t_scriptlet *scriptlet_new(t_pd *owner, t_symbol *rptarget, t_symbol *cbtarget, ! t_symbol *item, t_glist *gl, t_scriptlet_cvfn cvfn) { t_scriptlet *sp = getbytes(sizeof(*sp)); --- 1049,1056 ---- field, if implicitly set, would be dangerous (after a glist is gone) and confusing (current directory used for i/o of a global scriptlet). */ ! t_scriptlet *scriptlet_new(t_pd *owner, ! t_symbol *rptarget, t_symbol *cbtarget, ! t_symbol *item, t_glist *glist, ! t_scriptlet_cvfn cvfn) { t_scriptlet *sp = getbytes(sizeof(*sp)); *************** *** 1066,1070 **** } sp->s_owner = owner; ! sp->s_glist = gl; sp->s_rptarget = rptarget; sp->s_cbtarget = cbtarget; --- 1068,1072 ---- } sp->s_owner = owner; ! sp->s_glist = glist; sp->s_rptarget = rptarget; sp->s_cbtarget = cbtarget; *************** *** 1080,1081 **** --- 1082,1089 ---- return (sp); } + + t_scriptlet *scriptlet_newalike(t_scriptlet *sp) + { + return (scriptlet_new(sp->s_owner, sp->s_rptarget, sp->s_cbtarget, + sp->s_item, sp->s_glist, sp->s_cvfn)); + }

1 0

externals/miXed/shared notes.txt,1.3,1.4
by Krzysztof Czaja 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/miXed/shared In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10109 Modified Files: notes.txt Log Message: toxy alpha17 and pddp alpha1 (see notes.txt for toxy, pddp and shared) Index: notes.txt =================================================================== RCS file: /cvsroot/pure-data/externals/miXed/shared/notes.txt,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** notes.txt 12 Mar 2005 00:19:10 -0000 1.3 --- notes.txt 10 May 2005 17:58:39 -0000 1.4 *************** *** 6,9 **** --- 6,15 ---- DONE for root and shared + with rafts prealpha1 + * new module: patchvalue + + with toxy alpha17 + * scriptlet: new call scriptlet_newalike() + with cyclone alpha54 and toxy alpha16 * props:

1 0

externals/miXed/test/toxy/editors - New directory
by Krzysztof Czaja 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/miXed/test/toxy/editors In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5552/test/toxy/editors Log Message: Directory /cvsroot/pure-data/externals/miXed/test/toxy/editors added to the repository

1 0

externals/iem/iemmatrix/src Makefile.mingw4linux,NONE,1.1
by IOhannes m zmölnig 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/iem/iemmatrix/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12388 Added Files: Makefile.mingw4linux Log Message: a Makefile for a MinGW-crosscompiler on linux --- NEW FILE: Makefile.mingw4linux --- LIBNAME = iemmatrix EXT = dll PDPATH=/tmp/pd CC = i586-mingw32msvc-gcc LD = i586-mingw32msvc-ld STRIP = i586-mingw32msvc-strip DEFS = -DPD IFLAGS = -I. -I$(PDPATH)/src AFLAGS = LFLAGS = -export_dynamic -shared WFLAGS = .SUFFIXES: .$(EXT) CFLAGS = -g -O2 $(DEFS) $(IFLAGS) $(WFLAGS) -mms-bitfields LIBS = -L$(PDPATH)/bin/ -lpd -lcrtdll -lm include Make.source TARGETS = $(SOURCES:.c=.o) all: $(LIBNAME) cp $(LIBNAME).$(EXT) .. $(LIBNAME): $(TARGETS) $(LD) $(LFLAGS) *.o $(LIBS) -o $(LIBNAME).$(EXT) $(STRIP) --strip-unneeded $(LIBNAME).$(EXT) clean: -rm -f *.$(EXT) *.o cleaner: clean -rm -f *~ _* config.* source: echo "SOURCES = \\"> Make.source echo `ls mtx_*.c $(LIBNAME).c` >> Make.source echo >> Make.source

1 0

externals/iem/iemmatrix/abs mtx_matcher-help.pd, NONE, 1.1 mtx_spivot-help.pd, NONE, 1.1 mtx_symasym-help.pd, NONE, 1.1 mtx_matcher.pd, 1.1.1.1, 1.2 mtx_spivot.pd, 1.2, 1.3 mtx_symasym.pd, 1.1, 1.2
by IOhannes m zmölnig 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/iem/iemmatrix/abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25200 Modified Files: mtx_matcher.pd mtx_spivot.pd mtx_symasym.pd Added Files: mtx_matcher-help.pd mtx_spivot-help.pd mtx_symasym-help.pd Log Message: new help-patches and added license-text --- NEW FILE: mtx_spivot-help.pd --- #N canvas 0 35 759 714 10; #N canvas 352 114 190 367 rand-matrix 0; #X obj 74 163 inlet; #X obj 74 280 outlet; #X obj 74 195 mtx_rand; #X obj 74 215 mtx_* 10; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X restore 53 369 pd rand-matrix; #X msg 53 347 4 3; #X obj 139 215 mtx_print pre; #X obj 53 255 mtx_print pivot; #X text 269 171 the first outlet is the pivot-transformed matrix.; #X obj 53 121 t a a; #X obj 83 140 mtx_print original; #X obj 53 98 mtx 3 3; #X msg 53 78 1 2 3 6 5 4 8 7 9; #X obj 53 532 mtx_print pivot; #X obj 97 421 mtx_print original; #X obj 53 398 t a a a; #X obj 139 475 mtx_*; #X obj 167 532 mtx_print pivot2; #N canvas 352 114 190 367 rand-matrix 0; #X obj 74 163 inlet; #X obj 74 240 outlet; #X obj 74 195 mtx_rand; #X obj 74 215 mtx_* 10; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X restore 381 338 pd rand-matrix; #X obj 411 461 mtx_print pivot; #X obj 381 500 mtx_*; #X obj 411 560 mtx_print depivot; #X obj 381 437 t a a; #X obj 381 480 mtx_transpose; #X obj 381 520 mtx_transpose; #X text 456 22 part of [iemmatrix]; #X obj 403 383 mtx_print original; #X text 39 326 B=pivot(A)=pre*A; #X text 377 288 A=depivot(B)=(B'*pre)'; #X text 49 59 pivot-transform the rows of a matrix; #X text 270 122 this will tranform (permutate) the rows \, so that the result will have all maximum (or minimum) values in the diagonale. however \, the diagonale will be unsorted.; #X text 268 197 the second outlet gives the permutation-matrix that have to be pre-multiplied to the original matrix to get the semi-pivot-tranformation. this is useful for de-pivoting.; #X obj 70 494 mtx_-; #X obj 70 513 mtx_print diff; #X obj 381 582 mtx_-; #X obj 381 601 mtx_print diff; #X obj 381 540 t a a; #X obj 381 362 t a a a; #X msg 381 316 3 4; #X obj 521 461 mtx_print pivoteer; #X obj 453 434 t a a; #X obj 53 194 mtx_spivot; #X obj 53 450 mtx_spivot; #X obj 381 413 mtx_spivot; #X text 52 19 mtx_spivot:: semi-pivot transform a matrix; #X text 88 639 (c) 2005 by IOhannes m zmoelnig \, IEM KUG \, graz austria ; #X text 88 656 for license-details see LICENSE.txt that must come with iemmatrix.; #X connect 0 0 11 0; #X connect 1 0 0 0; #X connect 5 0 37 0; #X connect 5 1 6 0; #X connect 7 0 5 0; #X connect 8 0 7 0; #X connect 11 0 38 0; #X connect 11 1 12 1; #X connect 11 2 10 0; #X connect 12 0 13 0; #X connect 12 0 28 1; #X connect 14 0 33 0; #X connect 16 0 20 0; #X connect 18 0 19 0; #X connect 18 1 15 0; #X connect 19 0 16 0; #X connect 20 0 32 0; #X connect 28 0 29 0; #X connect 30 0 31 0; #X connect 32 0 30 0; #X connect 32 1 17 0; #X connect 33 0 39 0; #X connect 33 1 22 0; #X connect 33 2 30 1; #X connect 34 0 14 0; #X connect 36 0 16 1; #X connect 36 1 35 0; #X connect 37 0 3 0; #X connect 37 1 2 0; #X connect 38 0 9 0; #X connect 38 0 28 0; #X connect 38 1 12 0; #X connect 39 0 18 0; #X connect 39 1 36 0; --- NEW FILE: mtx_matcher-help.pd --- #N canvas 272 187 518 410 10; #X obj 192 220 mtx_matcher; #X obj 264 133 loadbang; #X msg 174 136 bang; #X obj 192 277 mtx_print matched; #X obj 264 251 mtx_print permutator; #X obj 141 298 mtx_-; #X obj 141 320 mtx_.^ 2; #X floatatom 141 383 0 0 0 0 error_unmatched - -; #X obj 174 180 t a a; #X obj 264 181 t a a a; #X obj 270 302 mtx_-; #X obj 270 324 mtx_.^ 2; #X floatatom 270 387 0 0 0 1 error_matched - -; #X obj 192 253 t a a; #X obj 141 343 mtx_sum; #X obj 141 363 mtx_sum; #X obj 270 347 mtx_sum; #X obj 270 367 mtx_sum; #X msg 87 134 bang; #X obj 87 155 mtx_rand 5; #X obj 174 157 mtx_eye 5; #X obj 264 157 mtx_egg 5; #X text 68 9 mtx_matcher:: match 2 sets of vectors; #X text 22 45 mtx_matcher tries to match 2 sets of vectors. The vector-sets are expressed as matrices; #X connect 0 0 13 0; #X connect 0 1 4 0; #X connect 1 0 21 0; #X connect 2 0 20 0; #X connect 5 0 6 0; #X connect 6 0 14 0; #X connect 8 0 0 0; #X connect 8 1 5 0; #X connect 9 0 0 1; #X connect 9 1 5 1; #X connect 9 2 10 1; #X connect 10 0 11 0; #X connect 11 0 16 0; #X connect 13 0 3 0; #X connect 13 1 10 0; #X connect 14 0 15 0; #X connect 15 0 7 0; #X connect 16 0 17 0; #X connect 17 0 12 0; #X connect 18 0 19 0; #X connect 19 0 8 0; #X connect 20 0 8 0; #X connect 21 0 9 0; Index: mtx_spivot.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_spivot.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** mtx_spivot.pd 10 May 2005 10:50:40 -0000 1.2 --- mtx_spivot.pd 10 May 2005 12:21:19 -0000 1.3 *************** *** 1,13 **** #N canvas 835 313 564 462 10; ! #X obj 154 247 mtx; ! #X obj 154 338 mtx_*; #X obj 115 78 inlet; ! #X obj 115 115 t a a; ! #X obj 154 398 mtx_*; ! #X obj 154 368 t a a; ! #X obj 115 144 mtx_pivot \$1; ! #X obj 154 420 outlet pivoted; ! #X obj 260 421 outlet pivoter; ! #X obj 154 196 t b a a; #N canvas 118 188 669 439 resizer 0; #X obj 322 204 mtx_size; --- 1,13 ---- #N canvas 835 313 564 462 10; ! #X obj 154 166 mtx; ! #X obj 154 208 mtx_*; #X obj 115 78 inlet; ! #X obj 115 99 t a a; ! #X obj 154 248 mtx_*; ! #X obj 154 228 t a a; ! #X obj 115 119 mtx_pivot \$1; ! #X obj 154 270 outlet pivoted; ! #X obj 260 271 outlet pivoter; ! #X obj 154 139 t b a a; #N canvas 118 188 669 439 resizer 0; #X obj 322 204 mtx_size; *************** *** 48,52 **** #X connect 11 0 0 0; #X connect 16 0 12 0; ! #X restore 154 274 pd resizer; #X connect 0 0 10 0; #X connect 1 0 5 0; --- 48,57 ---- #X connect 11 0 0 0; #X connect 16 0 12 0; ! #X restore 154 187 pd resizer; ! #X text 72 316 (c) 2005 by IOhannes m zmoelnig \, IEM KUG \, graz austria ! ; ! #X text 72 333 for license-details see LICENSE.txt that must come with ! iemmatrix.; ! #X text 62 38 semi-pivotize a matrix; #X connect 0 0 10 0; #X connect 1 0 5 0; Index: mtx_symasym.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_symasym.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** mtx_symasym.pd 27 Apr 2005 16:52:49 -0000 1.1 --- mtx_symasym.pd 10 May 2005 12:21:19 -0000 1.2 *************** *** 1,3 **** ! #N canvas 0 0 450 300 10; #X obj 61 66 inlet matrix; #X obj 61 255 outlet symmetric; --- 1,3 ---- ! #N canvas 0 0 493 363 10; #X obj 61 66 inlet matrix; #X obj 61 255 outlet symmetric; *************** *** 14,17 **** --- 14,21 ---- #X text 240 120 A=0.5*(M-M'); #X text 240 76 M=S+A; + #X text 38 289 (c) 2005 by IOhannes m zmoelnig \, IEM KUG \, graz austria + ; + #X text 38 306 for license-details see LICENSE.txt that must come with + iemmatrix.; #X connect 0 0 4 0; #X connect 3 0 8 0; --- NEW FILE: mtx_symasym-help.pd --- #N canvas 302 270 518 410 10; #X msg 174 116 bang; #X obj 174 160 t a a; #X msg 87 114 bang; #X obj 87 135 mtx_rand 5; #X obj 174 137 mtx_eye 5; #X obj 264 137 mtx_egg 5; #X obj 174 240 mtx_symasym; #X obj 246 271 mtx_print asymmetric; #X obj 174 297 mtx_print symmetric; #X obj 204 205 mtx_print original; #X msg 264 114 bang; #X text 26 12 mtx_symasym:: decompose a matrix into symmetric & asymmetric parts; #X text 22 45 each square matrix can be decomposed into a symmetric and an assymmetric part \, with; #X text 205 79 M=S+A; #X text 70 336 (c) 2005 by IOhannes m zmoelnig \, IEM KUG \, graz austria ; #X text 70 353 for license-details see LICENSE.txt that must come with iemmatrix.; #X connect 0 0 4 0; #X connect 1 0 6 0; #X connect 1 1 9 0; #X connect 2 0 3 0; #X connect 3 0 1 0; #X connect 4 0 1 0; #X connect 5 0 1 0; #X connect 6 0 8 0; #X connect 6 1 7 0; #X connect 10 0 5 0; Index: mtx_matcher.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_matcher.pd,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** mtx_matcher.pd 31 Mar 2005 12:00:04 -0000 1.1.1.1 --- mtx_matcher.pd 10 May 2005 12:21:19 -0000 1.2 *************** *** 1,13 **** ! #N canvas 411 75 586 409 10; ! #X obj 61 120 mtx_distance2; ! #X obj 61 96 t a a; ! #X obj 61 164 t a a; ! #X obj 61 199 mtx_*; ! #X obj 61 245 outlet matched; ! #X obj 171 245 outlet matcher; ! #X obj 147 97 inlet dest; ! #X obj 61 69 inlet source; ! #X text 25 25 both "source" and "dest" must have the same number of ! columns (dimension in feature-space); #N canvas 0 0 618 479 mtx_rowpermutate 0; #X obj 150 214 t b a; --- 1,13 ---- ! #N canvas 411 75 676 452 10; ! #X obj 61 190 mtx_distance2; ! #X obj 61 166 t a a; ! #X obj 61 234 t a a; ! #X obj 61 269 mtx_*; ! #X obj 61 315 outlet matched; ! #X obj 171 315 outlet matcher; ! #X obj 147 167 inlet dest; ! #X obj 61 139 inlet source; ! #X text 235 131 both "source" and "dest" must have the same number ! of columns (dimension in feature-space); #N canvas 0 0 618 479 mtx_rowpermutate 0; #X obj 150 214 t b a; *************** *** 26,37 **** #X connect 3 2 1 1; #X connect 6 0 3 0; ! #X restore 61 141 pd mtx_rowpermutate; ! #X text 34 303 this algorithm is _far_ from being perfect! the [mtx_rowpermutate] does not really guarantee that the trace of the result is a global mimimum \; if it is not \, than the match will be sub-optimal! this will be even worse \, if there are several _equal_ (sub)minima in the distance-matrix.; ! #X text 158 114 greater distances have an extra penalty (^2) \; is this ok?; #X connect 0 0 9 0; #X connect 1 0 0 0; --- 26,46 ---- #X connect 3 2 1 1; #X connect 6 0 3 0; ! #X restore 61 211 pd mtx_rowpermutate; ! #X text 220 224 this algorithm is _far_ from being perfect! the [mtx_rowpermutate] does not really guarantee that the trace of the result is a global mimimum \; if it is not \, than the match will be sub-optimal! this will be even worse \, if there are several _equal_ (sub)minima in the distance-matrix.; ! #X text 158 184 greater distances have an extra penalty (^2) \; is this ok?; + #X text 120 346 (c) 2005 by IOhannes m zmoelnig \, IEM KUG \, graz + austria; + #X text 120 363 for license-details see LICENSE.txt that must come + with iemmatrix.; + #X text 57 12 mtx_matcher:: match 2 sets of vectors; + #X text 46 42 2 vectors are matching if their euclidean distance is + a minimum. each "source" vector is assigned to a "dest" vector in order + to get a maximum matching. the output is a permutation "matched" of + the "source" vector-field \, and a permutation matrix "matcher".; #X connect 0 0 9 0; #X connect 1 0 0 0;

1 0

externals/iem/iemmatrix/src mtx_sum.c, NONE, 1.1 iemmatrix.c, 1.5, 1.6 mtx_prod.c, 1.1, 1.2
by IOhannes m zmölnig 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/iem/iemmatrix/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24092 Modified Files: iemmatrix.c mtx_prod.c Added Files: mtx_sum.c Log Message: added mtx_sum --- NEW FILE: mtx_sum.c --- /* * iemmatrix * * objects for manipulating simple matrices * mostly refering to matlab/octave matrix functions * * Copyright (c) IOhannes m zmölnig, forum::für::umläute * IEM, Graz, Austria * * For information on usage and redistribution, and for a DISCLAIMER OF ALL * WARRANTIES, see the file, "LICENSE.txt," in this distribution. * */ #include "iemmatrix.h" /* mtx_sum */ /* column-wise sum */ static t_class *mtx_sum_class; static void mtx_sum_matrix(t_matrix *x, t_symbol *s, int argc, t_atom *argv) { int row=atom_getfloat(argv++); int col=atom_getfloat(argv++); int n; if(row*col>argc-2)post("mtx_sum: sparse matrices not yet supported : use \"mtx_check\""); else { t_atom *ap = (t_atom *)getbytes(col * sizeof(t_atom)), *dummy=ap; for(n=0;n<col;n++, dummy++){ int i=row; t_float f=0.f; t_atom*ap2=argv+n; while(i--){ f+=atom_getfloat(ap2+col*i); } SETFLOAT(dummy, f); } outlet_list(x->x_obj.ob_outlet, gensym("prod"), col, ap); freebytes(ap, (col * sizeof(t_atom))); } } static void mtx_sum_list(t_matrix *x, t_symbol *s, int argc, t_atom *argv){ t_float f=0.f; while(argc--)f+=atom_getfloat(argv++); outlet_float(x->x_obj.ob_outlet, f); } static void *mtx_sum_new() { t_matrix *x = (t_matrix *)pd_new(mtx_sum_class); outlet_new(&x->x_obj, 0); x->row = x->col = 0; x->atombuffer = 0; return (x); } void mtx_sum_setup(void) { mtx_sum_class = class_new(gensym("mtx_sum"), (t_newmethod)mtx_sum_new, (t_method)matrix_free, sizeof(t_matrix), 0, A_GIMME, 0); class_addlist (mtx_sum_class, mtx_sum_list); // class_addbang (mtx_sum_class, matrix_bang); class_addmethod(mtx_sum_class, (t_method)mtx_sum_matrix, gensym("matrix"), A_GIMME, 0); class_sethelpsymbol(mtx_sum_class, gensym("iemmatrix/mtx_sum")); } void iemtx_sum_setup(void){ void mtx_sum_setup(void); } Index: mtx_prod.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/mtx_prod.c,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** mtx_prod.c 9 May 2005 16:27:23 -0000 1.1 --- mtx_prod.c 10 May 2005 12:16:49 -0000 1.2 *************** *** 15,19 **** /* mtx_prod */ ! /* prod(diag(A)) */ static t_class *mtx_prod_class; --- 15,19 ---- /* mtx_prod */ ! /* column-wise product */ static t_class *mtx_prod_class; Index: iemmatrix.c =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/src/iemmatrix.c,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** iemmatrix.c 10 May 2005 09:38:51 -0000 1.5 --- iemmatrix.c 10 May 2005 12:16:49 -0000 1.6 *************** *** 38,41 **** --- 38,42 ---- void mtx_scroll_setup(); void mtx_size_setup(); + void mtx_sum_setup(); void mtx_trace_setup(); void mtx_transpose_setup(); *************** *** 68,71 **** --- 69,73 ---- mtx_scroll_setup(); mtx_size_setup(); + mtx_sum_setup(); mtx_trace_setup(); mtx_transpose_setup();

1 0

pd/src s_audio.c,1.5.4.11,1.5.4.12
by Tim Blechmann 10 May '05

10 May '05

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10622 Modified Files: Tag: devel_0_38 s_audio.c Log Message: small sleepgrain fix Index: s_audio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_audio.c,v retrieving revision 1.5.4.11 retrieving revision 1.5.4.12 diff -C2 -d -r1.5.4.11 -r1.5.4.12 *** s_audio.c 8 Apr 2005 12:42:04 -0000 1.5.4.11 --- s_audio.c 10 May 2005 11:16:03 -0000 1.5.4.12 *************** *** 394,399 **** /* tb { * cut'n'paste from m_scheduler to adapt the sleepgrain with the latency */ ! if (sys_schedadvance < 20000) ! sys_sleepgrain = sys_schedadvance/4; if (sys_sleepgrain < 100) sys_sleepgrain = 100; --- 394,398 ---- /* tb { * cut'n'paste from m_scheduler to adapt the sleepgrain with the latency */ ! sys_sleepgrain = sys_schedadvance/4; if (sys_sleepgrain < 100) sys_sleepgrain = 100; *************** *** 456,459 **** --- 455,461 ---- } + + + /* open audio using whatever parameters were last used */ void sys_reopen_audio( void)

1 0

externals/grill/flext/source flcontainers.h, 1.5, 1.6 flmap.h, 1.19, 1.20 flstdc.h, 1.34, 1.35
by Thomas Grill 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/grill/flext/source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6289/source Modified Files: flcontainers.h flmap.h flstdc.h Log Message: better c++ compliance fixes for MinGW fixes for older compilers added X86-64 code for lockfree fifos Index: flmap.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flmap.h,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** flmap.h 1 May 2005 03:12:05 -0000 1.19 --- flmap.h 10 May 2005 10:56:47 -0000 1.20 *************** *** 179,182 **** --- 179,187 ---- void _getsmall(Data &dt); void _getbig(Data &dt); + + private: + // hide, so that it can't be used..... + explicit TableAnyMap(const TableAnyMap &): data(NULL) {} + TableAnyMap &operator =(const TableAnyMap &) { return *this; } }; *************** *** 241,244 **** --- 246,252 ---- int count; Data slots[N]; + + private: + explicit TablePtrMap(const TableAnyMap &p) {} }; Index: flstdc.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flstdc.h,v retrieving revision 1.34 retrieving revision 1.35 diff -C2 -d -r1.34 -r1.35 *** flstdc.h 31 Mar 2005 03:52:38 -0000 1.34 --- flstdc.h 10 May 2005 10:56:47 -0000 1.35 *************** *** 27,35 **** #endif ! #ifdef FLEXT_DEBUG ! #if FLEXT_OS == FLEXT_OS_WIN #include <crtdbg.h> #endif - #endif // PD stuff --- 27,33 ---- #endif ! #ifdef _MSC_VER #include <crtdbg.h> #endif // PD stuff *************** *** 232,236 **** /* If FLEXT_LOGGING is defined implement logging */ ! #if FLEXT_OS == FLEXT_OS_WIN #define FLEXT_LOG(s) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",s) #define FLEXT_LOG1(s,v1) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",s,v1) --- 230,234 ---- /* If FLEXT_LOGGING is defined implement logging */ ! #ifdef _MSC_VER #define FLEXT_LOG(s) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",s) #define FLEXT_LOG1(s,v1) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",s,v1) *************** *** 273,277 **** #ifdef FLEXT_DEBUG ! #if FLEXT_OS == FLEXT_OS_WIN #define FLEXT_ASSERT(b) (!(b)?_CrtDbgReport(_CRT_ASSERT,__FILE__,__LINE__,"flext",#b):1) #define FLEXT_WARN(str) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",NULL) --- 271,275 ---- #ifdef FLEXT_DEBUG ! #ifdef _MSC_VER #define FLEXT_ASSERT(b) (!(b)?_CrtDbgReport(_CRT_ASSERT,__FILE__,__LINE__,"flext",#b):1) #define FLEXT_WARN(str) _CrtDbgReport(_CRT_WARN,__FILE__,__LINE__,"flext",NULL) Index: flcontainers.h =================================================================== RCS file: /cvsroot/pure-data/externals/grill/flext/source/flcontainers.h,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** flcontainers.h 12 Mar 2005 04:56:34 -0000 1.5 --- flcontainers.h 10 May 2005 10:56:47 -0000 1.6 *************** *** 181,187 **** return n; } ! #elif defined(__GNUC__) && FLEXT_CPU == FLEXT_CPU_X64_64 ! #error x86-64 architecture not supported yet #elif defined(__GNUC__) && FLEXT_CPU == FLEXT_CPU_PPC --- 181,249 ---- return n; } ! #elif defined(__GNUC__) && FLEXT_CPU == FLEXT_CPU_X86_64 ! /* attention - this only works for EMT64 or newer revisions of AMD 64-bit cpus */ ! inline void Push(Cell *cl) ! { ! __asm__ __volatile__ ( ! "# LFPUSH \n\t" ! "push %%rbx \n\t" ! "push %%rcx \n\t" ! "mov 0(%%rsi), %%rax \n\t" ! "mov 8(%%rsi), %%rdx \n" ! "1: \t" ! "mov %%rax, %%rbx \n\t" ! "inc %%rbx \n\t" ! "mov %%rdx, (%%rcx) \n\t" ! SMPLOCK "cmpxchg16b (%%rsi) \n\t" ! "jnz 1b \n\t" ! "pop %%rcx \n\t" ! "pop %%rbx \n\t" ! :/* no output */ ! :"S" (this), "c" (cl) ! :"memory", "rax", "rdx"); ! } ! ! inline Cell *Pop() ! { ! Cell *v=0; ! __asm__ __volatile__ ( ! "# LFPOP \n\t" ! "push %%rbx \n\t" ! "push %%rcx \n\t" ! "mov 8(%%rsi), %%rdx \n\t" ! "mov (%%rsi), %%rax \n\t" ! "test %%rax, %%rax \n\t" ! "jz 20f \n" ! "10: \t" ! "mov (%%rax), %%rbx \n\t" ! "mov %%rdx, %%rcx \n\t" ! "inc %%rcx \n\t" ! SMPLOCK "cmpxchg16b (%%rsi) \n\t" ! "jz 20f \n\t" ! "test %%rax, %%rax \n\t" ! "jnz 10b \n" ! "20: \t" ! "pop %%rcx \n\t" ! "pop %%rbx \n\t" ! :"=a" (v) ! :"S" (&this->top) ! :"memory", "rdx"); ! return v; ! } ! ! inline size_t Size() const ! { ! size_t n; ! __asm__ __volatile__ ( ! "# LFSIZE \n\t" ! "mov 16(%%rsi), %%rdx \n\t" ! "mov (%%rsi), %%rax \n\t" ! "sub %%rdx, %%rax \n\t" ! :"=a" (n) ! :"S" (this) ! :"memory", "rdx"); ! return n; ! } #elif defined(__GNUC__) && FLEXT_CPU == FLEXT_CPU_PPC

1 0

externals/iem/iemmatrix/abs mtx_spivot.pd,1.1.1.1,1.2
by IOhannes m zmölnig 10 May '05

10 May '05

Update of /cvsroot/pure-data/externals/iem/iemmatrix/abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4051 Modified Files: mtx_spivot.pd Log Message: improved version that can also handle non-square matrices known bug: if #rows<#cols the pivoting matrix is uncorrectly resized, leading to zeroing out entire rows (which is plain wrong) Index: mtx_spivot.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_spivot.pd,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** mtx_spivot.pd 31 Mar 2005 12:00:04 -0000 1.1.1.1 --- mtx_spivot.pd 10 May 2005 10:50:40 -0000 1.2 *************** *** 1,23 **** ! #N canvas 254 220 462 354 10; ! #X obj 154 166 t b a; ! #X obj 154 187 mtx; ! #X obj 154 208 mtx_*; #X obj 115 78 inlet; - #X obj 154 290 outlet; - #X obj 230 291 outlet; #X obj 115 115 t a a; ! #X obj 154 268 mtx_*; ! #X obj 154 238 t a a; #X obj 115 144 mtx_pivot \$1; ! #X connect 0 0 1 0; ! #X connect 0 1 2 1; ! #X connect 1 0 2 0; ! #X connect 2 0 8 0; #X connect 3 0 6 0; ! #X connect 6 0 9 0; ! #X connect 6 1 7 1; ! #X connect 7 0 4 0; ! #X connect 8 0 7 0; ! #X connect 8 1 5 0; ! #X connect 9 1 0 0; ! #X connect 9 2 1 1; --- 1,64 ---- ! #N canvas 835 313 564 462 10; ! #X obj 154 247 mtx; ! #X obj 154 338 mtx_*; #X obj 115 78 inlet; #X obj 115 115 t a a; ! #X obj 154 398 mtx_*; ! #X obj 154 368 t a a; #X obj 115 144 mtx_pivot \$1; ! #X obj 154 420 outlet pivoted; ! #X obj 260 421 outlet pivoter; ! #X obj 154 196 t b a a; ! #N canvas 118 188 669 439 resizer 0; ! #X obj 322 204 mtx_size; ! #X obj 236 283 mtx_eye; ! #X obj 366 303 mtx_eye; ! #X obj 322 225 pack; ! #X obj 206 231 t a a; ! #X obj 206 263 mtx_resize; ! #X obj 236 323 mtx_-; ! #X obj 236 303 mtx_resize; ! #X obj 322 246 t l l l; ! #X text 138 30 what's going on here ?; ! #X obj 206 182 inlet A; ! #X obj 322 182 inlet B; ! #X obj 206 379 outlet C; ! #X text 153 52 a matrix A should be resized to the same size as a reference ! matrix B. the missing elements should be taken from the identity-matrix ! rather than from the zeros-matrix.; ! #X text 153 100 what we do is: resize A (with zeros) \, calculate the ! missing identity matrix (by subtracting a (zero-padded) resized I-matrix ! from a big I-matrix) and add them together; ! #X text 159 150 C=A+I(B)-I(A); ! #X obj 206 350 mtx_-; ! #X connect 0 0 3 0; ! #X connect 0 1 3 1; ! #X connect 1 0 7 0; ! #X connect 2 0 6 1; ! #X connect 3 0 8 0; ! #X connect 4 0 5 0; ! #X connect 4 1 1 0; ! #X connect 5 0 16 0; ! #X connect 6 0 16 1; ! #X connect 7 0 6 0; ! #X connect 8 0 5 1; ! #X connect 8 1 7 1; ! #X connect 8 2 2 0; ! #X connect 10 0 4 0; ! #X connect 11 0 0 0; ! #X connect 16 0 12 0; ! #X restore 154 274 pd resizer; ! #X connect 0 0 10 0; ! #X connect 1 0 5 0; ! #X connect 2 0 3 0; #X connect 3 0 6 0; ! #X connect 3 1 4 1; ! #X connect 4 0 7 0; ! #X connect 5 0 4 0; ! #X connect 5 1 8 0; ! #X connect 6 1 9 0; ! #X connect 6 2 0 1; ! #X connect 9 0 0 0; ! #X connect 9 1 1 1; ! #X connect 9 2 10 1; ! #X connect 10 0 1 0;

1 0

← Newer
1
...
28
29
30
31
32
33
34
...
41
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs May 2005