Pd-cvs November 2008

pd-cvs@lists.iem.at

13 participants
111 discussions

SF.net SVN: pure-data:[10399] trunk/externals/iem/iemguts/src/canvasargs.c
by zmoelnig＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10399 http://pure-data.svn.sourceforge.net/pure-data/?rev=10399&view=rev Author: zmoelnig Date: 2008-11-27 17:10:04 +0000 (Thu, 27 Nov 2008) Log Message: ----------- accept parent-depth as argument Modified Paths: -------------- trunk/externals/iem/iemguts/src/canvasargs.c Modified: trunk/externals/iem/iemguts/src/canvasargs.c =================================================================== --- trunk/externals/iem/iemguts/src/canvasargs.c 2008-11-27 15:59:32 UTC (rev 10398) +++ trunk/externals/iem/iemguts/src/canvasargs.c 2008-11-27 17:10:04 UTC (rev 10399) @@ -91,11 +91,19 @@ { } -static void *canvasargs_new(void) +static void *canvasargs_new(t_floatarg f) { t_canvasargs *x = (t_canvasargs *)pd_new(canvasargs_class); t_glist *glist=(t_glist *)canvas_getcurrent(); t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); + + int depth=(int)f; + if(depth<0)depth=0; + + while(depth && canvas) { + canvas=canvas->gl_owner; + depth--; + } x->x_canvas = canvas; @@ -106,7 +114,7 @@ void canvasargs_setup(void) { canvasargs_class = class_new(gensym("canvasargs"), (t_newmethod)canvasargs_new, - (t_method)canvasargs_free, sizeof(t_canvasargs), 0, 0); + (t_method)canvasargs_free, sizeof(t_canvasargs), 0, A_DEFFLOAT, 0); class_addlist(canvasargs_class, (t_method)canvasargs_list); class_addbang(canvasargs_class, (t_method)canvasargs_bang); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10398] trunk/externals/iem/iemguts
by zmoelnig＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10398 http://pure-data.svn.sourceforge.net/pure-data/?rev=10398&view=rev Author: zmoelnig Date: 2008-11-27 15:59:32 +0000 (Thu, 27 Nov 2008) Log Message: ----------- renamed [saveargs] to [canvasargs] Modified Paths: -------------- trunk/externals/iem/iemguts/examples/gopcanvas.pd Added Paths: ----------- trunk/externals/iem/iemguts/help/canvasargs-help.pd Removed Paths: ------------- trunk/externals/iem/iemguts/help/saveargs-help.pd Modified: trunk/externals/iem/iemguts/examples/gopcanvas.pd =================================================================== --- trunk/externals/iem/iemguts/examples/gopcanvas.pd 2008-11-27 15:57:15 UTC (rev 10397) +++ trunk/externals/iem/iemguts/examples/gopcanvas.pd 2008-11-27 15:59:32 UTC (rev 10398) @@ -200,7 +200,7 @@ #X connect 39 1 37 0; #X connect 39 2 38 0; #X restore 138 304 pd propertyguts; -#X obj 223 331 saveargs; +#X obj 223 331 canvasargs; #X text 43 37 this is a simple abstraction that displays a canvas via gop.; #X text 38 168 the canvas-color can be changed via a properties-panel Copied: trunk/externals/iem/iemguts/help/canvasargs-help.pd (from rev 10396, trunk/externals/iem/iemguts/help/saveargs-help.pd) =================================================================== --- trunk/externals/iem/iemguts/help/canvasargs-help.pd (rev 0) +++ trunk/externals/iem/iemguts/help/canvasargs-help.pd 2008-11-27 15:59:32 UTC (rev 10398) @@ -0,0 +1,25 @@ +#N canvas 315 241 645 450 10; +#X text 39 77 usage:; +#X text 367 336 (c) IOhannes m zmoelnig @ iem \, 2007; +#X obj 90 43 canvasargs; +#X text 174 44 manipulate the abstractions arguments (and name) on +saving; +#X obj 71 384 canvasargs; +#X msg 71 281 list 10 20; +#X msg 91 303 list quite a lot of arguments; +#X msg 102 340 abstraction1; +#X msg 118 357 abstraction2 argument1; +#X text 83 78 put the [canvasargs] in your abstraction; +#X text 81 114 send a _list_ of new arguments to the [canvasargs]; +#X text 82 130 save the parent patch; +#X text 83 94 put the abstraction in your parent patch; +#X text 74 150 --> the parent patch will save your abstraction with +the arguments you sent to [canvasargs] instead of the original ones; +#X text 77 203 you can also change the (saved) name of the abstraction +\, by using a selector other than "list" (and the like).; +#X text 77 226 take care \, as this can totally change the behaviour +of your patch (or break it); +#X connect 5 0 4 0; +#X connect 6 0 4 0; +#X connect 7 0 4 0; +#X connect 8 0 4 0; Property changes on: trunk/externals/iem/iemguts/help/canvasargs-help.pd ___________________________________________________________________ Added: svn:mergeinfo + Deleted: trunk/externals/iem/iemguts/help/saveargs-help.pd =================================================================== --- trunk/externals/iem/iemguts/help/saveargs-help.pd 2008-11-27 15:57:15 UTC (rev 10397) +++ trunk/externals/iem/iemguts/help/saveargs-help.pd 2008-11-27 15:59:32 UTC (rev 10398) @@ -1,25 +0,0 @@ -#N canvas 315 241 645 450 10; -#X text 39 77 usage:; -#X text 367 336 (c) IOhannes m zmoelnig @ iem \, 2007; -#X obj 90 43 saveargs; -#X text 174 44 manipulate the abstractions arguments (and name) on -saving; -#X obj 71 384 saveargs; -#X msg 71 281 list 10 20; -#X msg 91 303 list quite a lot of arguments; -#X msg 102 340 abstraction1; -#X msg 118 357 abstraction2 argument1; -#X text 83 78 put the [saveargs] in your abstraction; -#X text 81 114 send a _list_ of new arguments to the [saveargs]; -#X text 82 130 save the parent patch; -#X text 83 94 put the abstraction in your parent patch; -#X text 74 150 --> the parent patch will save your abstraction with -the arguments you sent to [saveargs] instead of the original ones; -#X text 77 203 you can also change the (saved) name of the abstraction -\, by using a selector other than "list" (and the like).; -#X text 77 226 take care \, as this can totally change the behaviour -of your patch (or break it); -#X connect 5 0 4 0; -#X connect 6 0 4 0; -#X connect 7 0 4 0; -#X connect 8 0 4 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10397] trunk/externals/iem/iemguts/src
by zmoelnig＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10397 http://pure-data.svn.sourceforge.net/pure-data/?rev=10397&view=rev Author: zmoelnig Date: 2008-11-27 15:57:15 +0000 (Thu, 27 Nov 2008) Log Message: ----------- renamed [saveargs] to [canvasargs] Added Paths: ----------- trunk/externals/iem/iemguts/src/canvasargs.c Removed Paths: ------------- trunk/externals/iem/iemguts/src/saveargs.c Copied: trunk/externals/iem/iemguts/src/canvasargs.c (from rev 10396, trunk/externals/iem/iemguts/src/saveargs.c) =================================================================== --- trunk/externals/iem/iemguts/src/canvasargs.c (rev 0) +++ trunk/externals/iem/iemguts/src/canvasargs.c 2008-11-27 15:57:15 UTC (rev 10397) @@ -0,0 +1,112 @@ +/****************************************************** + * + * canvasargs - implementation file + * + * copyleft (c) IOhannes m zm-b\xF6lnig-A + * + * 2007:forum::f-b\xFCr::uml\xE4ute:2007-A + * + * institute of electronic music and acoustics (iem) + * + ****************************************************** + * + * license: GNU General Public License v.2 + * + ******************************************************/ + + +/* + * this object provides a way to manipulate the parent-patches arguments (and name!) + * usage: + * + put this object into an abstraction + * + put the abstraction in a patch + * + send the object a _list_ of arguments + * + the next time the patch (wherein the abstraction that holds this object lives) + * is saved, it will be saved with the new arguments instead of the old ones! + * - example: "list 2 3 4" will save the object as [<absname> 2 3 4] + * + you can also change the abstraction name itself by using a selector other than "list" + * - example: "bonkers 8 9" will save the object as [bonkers 8 9] regardless of it's original name + * - use with care! + * + * nice, eh? + */ + +#include "m_pd.h" +#include "g_canvas.h" + + +/* ------------------------- canvasargs ---------------------------- */ + +static t_class *canvasargs_class; + +typedef struct _canvasargs +{ + t_object x_obj; + + t_canvas *x_canvas; +} t_canvasargs; + + +static void canvasargs_list(t_canvasargs *x, t_symbol*s, int argc, t_atom*argv) +{ + t_canvas*c=x->x_canvas; + t_binbuf*b=0; + t_atom name[1]; + + if(!x->x_canvas) return; + b=x->x_canvas->gl_obj.te_binbuf; + + if(!b)return; + + if(s==0 || s==gensym("") || s==&s_list || s==&s_bang || s==&s_float || s==&s_symbol || s==&s_) { + t_atom*ap=binbuf_getvec(b); + s=atom_getsymbol(ap); + } + SETSYMBOL(name, s); + + binbuf_clear(b); + binbuf_add(b, 1, name); + binbuf_add(b, argc, argv); +} + +static void canvasargs_bang(t_canvasargs *x) +{ + int argc=0; + t_atom*argv=0; + t_binbuf*b; + + if(!x->x_canvas) return; + b=x->x_canvas->gl_obj.te_binbuf; + + if(!b)return; + + argc=binbuf_getnatom(b); + argv=binbuf_getvec(b); + post("..."); + outlet_list(x->x_obj.ob_outlet, &s_list, argc-1, argv+1); +} + + +static void canvasargs_free(t_canvasargs *x) +{ +} + +static void *canvasargs_new(void) +{ + t_canvasargs *x = (t_canvasargs *)pd_new(canvasargs_class); + t_glist *glist=(t_glist *)canvas_getcurrent(); + t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); + + x->x_canvas = canvas; + + outlet_new(&x->x_obj, 0); + return (x); +} + +void canvasargs_setup(void) +{ + canvasargs_class = class_new(gensym("canvasargs"), (t_newmethod)canvasargs_new, + (t_method)canvasargs_free, sizeof(t_canvasargs), 0, 0); + class_addlist(canvasargs_class, (t_method)canvasargs_list); + class_addbang(canvasargs_class, (t_method)canvasargs_bang); +} Property changes on: trunk/externals/iem/iemguts/src/canvasargs.c ___________________________________________________________________ Added: svn:mergeinfo + Deleted: trunk/externals/iem/iemguts/src/saveargs.c =================================================================== --- trunk/externals/iem/iemguts/src/saveargs.c 2008-11-27 09:44:12 UTC (rev 10396) +++ trunk/externals/iem/iemguts/src/saveargs.c 2008-11-27 15:57:15 UTC (rev 10397) @@ -1,92 +0,0 @@ - -/****************************************************** - * - * saveargs - implementation file - * - * copyleft (c) IOhannes m zm-b\xF6lnig-A - * - * 2007:forum::f-b\xFCr::uml\xE4ute:2007-A - * - * institute of electronic music and acoustics (iem) - * - ****************************************************** - * - * license: GNU General Public License v.2 - * - ******************************************************/ - - -/* - * this object provides a way to manipulate the parent-patches arguments (and name!) - * usage: - * + put this object into an abstraction - * + put the abstraction in a patch - * + send the object a _list_ of arguments - * + the next time the patch (wherein the abstraction that holds this object lives) - * is saved, it will be saved with the new arguments instead of the old ones! - * - example: "list 2 3 4" will save the object as [<absname> 2 3 4] - * + you can also change the abstraction name itself by using a selector other than "list" - * - example: "bonkers 8 9" will save the object as [bonkers 8 9] regardless of it's original name - * - use with care! - * - * nice, eh? - */ - -#include "m_pd.h" -#include "g_canvas.h" - - -/* ------------------------- saveargs ---------------------------- */ - -static t_class *saveargs_class; - -typedef struct _saveargs -{ - t_object x_obj; - - t_canvas *x_canvas; -} t_saveargs; - - -static void saveargs_list(t_saveargs *x, t_symbol*s, int argc, t_atom*argv) -{ - t_canvas*c=x->x_canvas; - t_binbuf*b=0; - t_atom name[1]; - - if(!x->x_canvas) return; - b=x->x_canvas->gl_obj.te_binbuf; - - if(!b)return; - - if(s==0 || s==gensym("") || s==&s_list || s==&s_bang || s==&s_float || s==&s_symbol || s==&s_) { - t_atom*ap=binbuf_getvec(b); - s=atom_getsymbol(ap); - } - SETSYMBOL(name, s); - - binbuf_clear(b); - binbuf_add(b, 1, name); - binbuf_add(b, argc, argv); -} - -static void saveargs_free(t_saveargs *x) -{ -} - -static void *saveargs_new(void) -{ - t_saveargs *x = (t_saveargs *)pd_new(saveargs_class); - t_glist *glist=(t_glist *)canvas_getcurrent(); - t_canvas *canvas=(t_canvas*)glist_getcanvas(glist); - - x->x_canvas = canvas; - return (x); -} - -void saveargs_setup(void) -{ - saveargs_class = class_new(gensym("saveargs"), (t_newmethod)saveargs_new, - (t_method)saveargs_free, sizeof(t_saveargs), 0, 0); - class_addanything(saveargs_class, (t_method)saveargs_list); -} This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended fedora8-i386 2008-11-27 04.30.22
by pd＠fedora8-i386.idmi.poly.edu 27 Nov '08

27 Nov '08

atom_alphabet.c:137: error: 'gfsmPdAtomAlphabet' has no member named 'aa_binbuf' atom_alphabet.c:137: error: 'gfsmPdAtomAlphabet' has no member named 'aa_binbuf' atom_alphabet.c:138: error: 'gfsmAlphabet' undeclared (first use in this function) atom_alphabet.c:138: error: expected expression before ')' token readdir.c:244: error: 'PACKAGE_VERSION' undeclared (first use in this function) readdir.c:244: error: (Each undeclared identifier is reported only once readdir.c:244: error: for each function it appears in.) weightmap.c:345: error: 'PACKAGE_VERSION' undeclared (first use in this function) weightmap.c:345: error: (Each undeclared identifier is reported only once weightmap.c:345: error: for each function it appears in.) pdstring.c:41: error: expected ',' or ';' before 'PACKAGE_VERSION' any2string.c:76: error: expected ',' or ';' before 'PACKAGE_VERSION' string2any.c:59: error: expected ',' or ';' before 'PACKAGE_VERSION' sprinkler.c:175: error: 'PACKAGE_VERSION' undeclared (first use in this function) sprinkler.c:175: error: (Each undeclared identifier is reported only once sprinkler.c:175: error: for each function it appears in.) configure: error: libquicktime not found ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync error: error in rsync protocol data stream (code 12) at io.c(453) [receiver=2.6.9] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2008-11-27/logs/2008-11-27_04.30.…

1 0

SF.net SVN: pure-data:[10396] trunk/externals/iem/iemguts/src/Makefile
by zmoelnig＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10396 http://pure-data.svn.sourceforge.net/pure-data/?rev=10396&view=rev Author: zmoelnig Date: 2008-11-27 09:44:12 +0000 (Thu, 27 Nov 2008) Log Message: ----------- better arch-autodetection; more cleanup; Modified Paths: -------------- trunk/externals/iem/iemguts/src/Makefile Modified: trunk/externals/iem/iemguts/src/Makefile =================================================================== --- trunk/externals/iem/iemguts/src/Makefile 2008-11-27 09:27:31 UTC (rev 10395) +++ trunk/externals/iem/iemguts/src/Makefile 2008-11-27 09:44:12 UTC (rev 10396) @@ -16,28 +16,33 @@ # if no filename-extension is supplied by the user # try to guess one, based on what "uname" tells us -UNAME := $(shell uname -s) -ifeq ($(UNAME),Linux) +UNAME_SYSTEM := $(shell uname -s) +UNAME_ARCH := $(shell uname -m) +ifeq ($(UNAME_SYSTEM),Linux) DEFAULTEXTENSION= pd_linux -else - ifeq ($(UNAME),Darwin) + ifeq ($(UNAME_ARCH),x86_64) + DEFAULTEXTENSION= l_ia64 + else ifeq ($(UNAME_ARCH),i686) + DEFAULTEXTENSION= l_i386 + endif +else ifeq ($(UNAME_SYSTEM),Darwin) DEFAULTEXTENSION= pd_darwin + ifeq ($(UNAME_ARCH),i386) + DEFAULTEXTENSION= d_i386 + else ifeq ($(UNAME_ARCH),PowerPC) + DEFAULTEXTENSION= d_ppc + endif +else ifeq (MINGW,$(findstring MINGW,$(UNAME_SYSTEM))) + DEFAULTEXTENSION= pd_nt +else ifeq ($(UNAME_SYSTEM),IRIX) + UNAME_IRIXVERSION := $(shell uname -R) + ifeq (6.,$(findstring 6.,$(UNAME_IRIXVERSION))) + DEFAULTEXTENSION= pd_irix6 else - ifeq (MINGW,$(findstring MINGW,$(UNAME))) - DEFAULTEXTENSION= pd_nt - else - ifeq ($(UNAME),IRIX) - UNAMEV := $(shell uname -R) - ifeq (6.,$(findstring 6.,$(UNAMEV))) - DEFAULTEXTENSION= pd_irix6 - else - DEFAULTEXTENSION= pd_irix5 - endif - else - DEFAULTEXTENSION=help - endif - endif + DEFAULTEXTENSION= pd_irix5 endif +else + DEFAULTEXTENSION=help endif # if no extension is given, call "make" again with a guessed extension @@ -50,7 +55,8 @@ # delete old build files clean: - -rm -f *.dll *.pd_* *.o *.obj *~ + -rm -f *.dll *.w_i386 *.pd_linux *.l_ia64 *.l_i386 *.pd_darwin *.d_fat *.d_ppc *.d_i386 *.pd_irix5 *.pd_irix6 + -rm -f *.o *.obj *~ # we want to compile all C-files we find in the current directory SOURCES=$(sort $(filter %.c, $(wildcard *.c))) This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10395] trunk/externals/iem/iemguts/examples/ versioning.pd
by zmoelnig＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10395 http://pure-data.svn.sourceforge.net/pure-data/?rev=10395&view=rev Author: zmoelnig Date: 2008-11-27 09:27:31 +0000 (Thu, 27 Nov 2008) Log Message: ----------- an abstraction that provides versioning of it's parent Added Paths: ----------- trunk/externals/iem/iemguts/examples/versioning.pd Added: trunk/externals/iem/iemguts/examples/versioning.pd =================================================================== --- trunk/externals/iem/iemguts/examples/versioning.pd (rev 0) +++ trunk/externals/iem/iemguts/examples/versioning.pd 2008-11-27 09:27:31 UTC (rev 10395) @@ -0,0 +1,82 @@ +#N canvas 474 208 450 587 10; +#X msg 151 401 savetofile \$1.pd .; +#X obj 198 105 canvasname 1; +#X obj 124 68 savebangs 2; +#X obj 151 421 sendcanvas 1; +#N canvas 159 471 450 398 versioning 0; +#X obj 114 39 inlet; +#X obj 114 262 outlet; +#X text 179 266 new name; +#X text 164 39 old name; +#X obj 114 129 list split 1; +#X obj 114 217 list append; +#N canvas 0 0 450 455 reversion 0; +#X obj 78 394 outlet; +#N canvas 437 238 450 300 symbolize 0; +#X obj 72 50 inlet; +#X obj 72 262 outlet; +#X obj 181 124 symbol; +#X obj 72 147 makefilename %d; +#X obj 72 177 t s; +#X obj 72 100 route float bang; +#X msg 126 121 0; +#X connect 0 0 5 0; +#X connect 2 0 4 0; +#X connect 3 0 4 0; +#X connect 4 0 1 0; +#X connect 5 0 3 0; +#X connect 5 1 6 0; +#X connect 5 2 2 0; +#X connect 6 0 3 0; +#X restore 78 83 pd symbolize; +#X obj 78 363 l2s :; +#X obj 78 126 s2l :; +#X obj 78 46 inlet next; +#X obj 78 148 t l l; +#X obj 110 171 list length; +#X obj 110 193 - 1; +#X obj 78 215 list split; +#X obj 78 339 list append; +#X obj 152 265 + 1; +#X obj 152 243 t f; +#X obj 152 311 t l b; +#X obj 152 288 list append 0; +#X connect 1 0 3 0; +#X connect 2 0 0 0; +#X connect 3 0 5 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 5 1 6 0; +#X connect 6 0 7 0; +#X connect 7 0 8 1; +#X connect 8 0 9 0; +#X connect 8 1 11 0; +#X connect 9 0 2 0; +#X connect 10 0 13 0; +#X connect 11 0 10 0; +#X connect 12 0 9 1; +#X connect 12 1 13 1; +#X connect 13 0 12 0; +#X restore 154 171 pd reversion; +#X obj 328 62 inlet branch!; +#X obj 114 102 s2l |; +#X obj 114 239 l2s |; +#X connect 0 0 8 0; +#X connect 4 0 5 0; +#X connect 4 1 6 0; +#X connect 5 0 9 0; +#X connect 6 0 5 1; +#X connect 8 0 4 0; +#X connect 9 0 1 0; +#X restore 198 293 pd versioning; +#X symbolatom 222 252 10 0 0 0 - - -; +#X msg 222 228 bang; +#X obj 119 291 t s s; +#X connect 0 0 3 0; +#X connect 1 0 4 0; +#X connect 2 1 1 0; +#X connect 4 0 7 0; +#X connect 5 0 4 0; +#X connect 6 0 5 0; +#X connect 7 0 1 0; +#X connect 7 1 0 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10394] trunk/abstractions/footils/list-abs
by fbar＠users.sourceforge.net 27 Nov '08

27 Nov '08

Revision: 10394 http://pure-data.svn.sourceforge.net/pure-data/?rev=10394&view=rev Author: fbar Date: 2008-11-27 07:16:15 +0000 (Thu, 27 Nov 2008) Log Message: ----------- changed interface of list-pad to be more traditional Modified Paths: -------------- trunk/abstractions/footils/list-abs/list-pad-help.pd trunk/abstractions/footils/list-abs/list-pad.pd Modified: trunk/abstractions/footils/list-abs/list-pad-help.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-pad-help.pd 2008-11-26 19:38:31 UTC (rev 10393) +++ trunk/abstractions/footils/list-abs/list-pad-help.pd 2008-11-27 07:16:15 UTC (rev 10394) @@ -1,47 +1,30 @@ -#N canvas 272 125 614 647 10; -#X obj 159 205 list-pad; -#X obj 159 285 list trim; -#X obj 159 263 list prepend set; -#X msg 62 169 bang; -#X msg 270 205 a b c d e f; -#X msg 159 171 1 2 3; -#X msg 227 172 1 2 3 4 5 6 7 8 9; -#X text 111 367 Using an idiom by Michal Seta; -#X obj 50 29 list-pad; -#X msg 125 171 1; -#X text 106 418 The pad values can also be computed on demand:; -#X obj 125 471 list-pad; -#X obj 250 471 list-random 100 8; -#X obj 125 523 list trim; -#X obj 125 501 list prepend set; -#X obj 250 523 list trim; -#X obj 250 501 list prepend set; -#X msg 125 448 a b c d; -#X msg 159 330; -#X msg 125 568; -#X msg 250 568; -#X text 373 208 <= pad values; +#N canvas 272 125 544 509 10; +#X obj 159 285 list-pad; +#X obj 159 335 list trim; +#X obj 159 313 list prepend set; +#X msg 62 209 bang; +#X msg 212 253 a b c d e f; +#X msg 159 211 1 2 3; +#X msg 206 210 1 2 3 4 5 6 7 8 9; +#X text 111 417 Using an idiom by Michal Seta; +#X msg 125 211 1; #X text 97 53 Use [list-pad] when you want to complete a list with more values \, if the incoming list is too short. Longer lists get passed unchanged.; -#X text 100 105 The list of padding values is provided by a message -or [list] cross connected to the rightmost in- and outlets as in the -example.; +#X obj 50 29 list-pad; +#X text 315 256 <= pad to these values; +#X obj 212 233 loadbang; +#X msg 159 380; +#X text 97 105 The list of padding values is provided through the second +inlet.; +#X text 96 149 The result list consists of the first list padded with +the respective values of the second list.; #X connect 0 0 2 0; -#X connect 0 1 4 0; -#X connect 1 0 18 0; +#X connect 1 0 13 0; #X connect 2 0 1 0; #X connect 3 0 0 0; #X connect 4 0 0 1; #X connect 5 0 0 0; #X connect 6 0 0 0; -#X connect 9 0 0 0; -#X connect 11 0 14 0; -#X connect 11 1 12 0; -#X connect 12 0 11 1; -#X connect 12 0 16 0; -#X connect 13 0 19 0; -#X connect 14 0 13 0; -#X connect 15 0 20 0; -#X connect 16 0 15 0; -#X connect 17 0 11 0; +#X connect 8 0 0 0; +#X connect 12 0 4 0; Modified: trunk/abstractions/footils/list-abs/list-pad.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-pad.pd 2008-11-26 19:38:31 UTC (rev 10393) +++ trunk/abstractions/footils/list-abs/list-pad.pd 2008-11-27 07:16:15 UTC (rev 10394) @@ -1,20 +1,21 @@ #N canvas 325 242 450 300 10; #X obj 129 41 inlet; -#X obj 215 113 list; -#X obj 215 140 list length; -#X obj 148 190 list split; -#X obj 149 146 outlet; -#X obj 148 168 inlet; +#X obj 216 113 list; +#X obj 216 140 list length; +#X obj 149 190 list split; +#X obj 228 43 inlet; #X obj 129 256 outlet; #X obj 129 74 t a b b a; #X obj 129 229 list append; -#X connect 0 0 7 0; +#X obj 149 166 list; +#X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 2 0 3 1; -#X connect 3 1 8 1; -#X connect 5 0 3 0; -#X connect 7 0 8 0; -#X connect 7 1 4 0; -#X connect 7 2 8 1; -#X connect 7 3 1 0; -#X connect 8 0 6 0; +#X connect 3 1 7 1; +#X connect 4 0 8 1; +#X connect 6 0 7 0; +#X connect 6 1 8 0; +#X connect 6 2 7 1; +#X connect 6 3 1 0; +#X connect 7 0 5 0; +#X connect 8 0 3 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10393] trunk/abstractions/footils/list-abs
by fbar＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10393 http://pure-data.svn.sourceforge.net/pure-data/?rev=10393&view=rev Author: fbar Date: 2008-11-26 19:38:31 +0000 (Wed, 26 Nov 2008) Log Message: ----------- added list-pad Added Paths: ----------- trunk/abstractions/footils/list-abs/list-pad-help.pd trunk/abstractions/footils/list-abs/list-pad.pd Added: trunk/abstractions/footils/list-abs/list-pad-help.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-pad-help.pd (rev 0) +++ trunk/abstractions/footils/list-abs/list-pad-help.pd 2008-11-26 19:38:31 UTC (rev 10393) @@ -0,0 +1,47 @@ +#N canvas 272 125 614 647 10; +#X obj 159 205 list-pad; +#X obj 159 285 list trim; +#X obj 159 263 list prepend set; +#X msg 62 169 bang; +#X msg 270 205 a b c d e f; +#X msg 159 171 1 2 3; +#X msg 227 172 1 2 3 4 5 6 7 8 9; +#X text 111 367 Using an idiom by Michal Seta; +#X obj 50 29 list-pad; +#X msg 125 171 1; +#X text 106 418 The pad values can also be computed on demand:; +#X obj 125 471 list-pad; +#X obj 250 471 list-random 100 8; +#X obj 125 523 list trim; +#X obj 125 501 list prepend set; +#X obj 250 523 list trim; +#X obj 250 501 list prepend set; +#X msg 125 448 a b c d; +#X msg 159 330; +#X msg 125 568; +#X msg 250 568; +#X text 373 208 <= pad values; +#X text 97 53 Use [list-pad] when you want to complete a list with +more values \, if the incoming list is too short. Longer lists get +passed unchanged.; +#X text 100 105 The list of padding values is provided by a message +or [list] cross connected to the rightmost in- and outlets as in the +example.; +#X connect 0 0 2 0; +#X connect 0 1 4 0; +#X connect 1 0 18 0; +#X connect 2 0 1 0; +#X connect 3 0 0 0; +#X connect 4 0 0 1; +#X connect 5 0 0 0; +#X connect 6 0 0 0; +#X connect 9 0 0 0; +#X connect 11 0 14 0; +#X connect 11 1 12 0; +#X connect 12 0 11 1; +#X connect 12 0 16 0; +#X connect 13 0 19 0; +#X connect 14 0 13 0; +#X connect 15 0 20 0; +#X connect 16 0 15 0; +#X connect 17 0 11 0; Added: trunk/abstractions/footils/list-abs/list-pad.pd =================================================================== --- trunk/abstractions/footils/list-abs/list-pad.pd (rev 0) +++ trunk/abstractions/footils/list-abs/list-pad.pd 2008-11-26 19:38:31 UTC (rev 10393) @@ -0,0 +1,20 @@ +#N canvas 325 242 450 300 10; +#X obj 129 41 inlet; +#X obj 215 113 list; +#X obj 215 140 list length; +#X obj 148 190 list split; +#X obj 149 146 outlet; +#X obj 148 168 inlet; +#X obj 129 256 outlet; +#X obj 129 74 t a b b a; +#X obj 129 229 list append; +#X connect 0 0 7 0; +#X connect 1 0 2 0; +#X connect 2 0 3 1; +#X connect 3 1 8 1; +#X connect 5 0 3 0; +#X connect 7 0 8 0; +#X connect 7 1 4 0; +#X connect 7 2 8 1; +#X connect 7 3 1 0; +#X connect 8 0 6 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10392] trunk/externals/iem/iemguts/src/propertybang. c
by zmoelnig＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10392 http://pure-data.svn.sourceforge.net/pure-data/?rev=10392&view=rev Author: zmoelnig Date: 2008-11-26 13:08:39 +0000 (Wed, 26 Nov 2008) Log Message: ----------- fixed typo Modified Paths: -------------- trunk/externals/iem/iemguts/src/propertybang.c Modified: trunk/externals/iem/iemguts/src/propertybang.c =================================================================== --- trunk/externals/iem/iemguts/src/propertybang.c 2008-11-26 11:22:02 UTC (rev 10391) +++ trunk/externals/iem/iemguts/src/propertybang.c 2008-11-26 13:08:39 UTC (rev 10392) @@ -52,7 +52,7 @@ } static void propertybang_properties(t_gobj*z, t_glist*owner) { - t_iemguts_objlist*obj=objectsInCanvas((t_pd*)z); + t_iemguts_objlist*objs=objectsInCanvas((t_pd*)z); while(objs) { t_propertybang*x=(t_propertybang*)objs->obj; propertybang_bang(x); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10391] trunk/externals/iem/iemguts/src/propertybang. c
by zmoelnig＠users.sourceforge.net 26 Nov '08

26 Nov '08

Revision: 10391 http://pure-data.svn.sourceforge.net/pure-data/?rev=10391&view=rev Author: zmoelnig Date: 2008-11-26 11:22:02 +0000 (Wed, 26 Nov 2008) Log Message: ----------- discard the $0-hack and use the objlist features of iemguts Modified Paths: -------------- trunk/externals/iem/iemguts/src/propertybang.c Modified: trunk/externals/iem/iemguts/src/propertybang.c =================================================================== --- trunk/externals/iem/iemguts/src/propertybang.c 2008-11-26 11:13:07 UTC (rev 10390) +++ trunk/externals/iem/iemguts/src/propertybang.c 2008-11-26 11:22:02 UTC (rev 10391) @@ -28,7 +28,7 @@ */ -#include "m_pd.h" +#include "iemguts-objlist.h" #include "g_canvas.h" @@ -39,33 +39,25 @@ typedef struct _propertybang { t_object x_obj; - t_symbol *x_d0name; } t_propertybang; static void propertybang_free(t_propertybang *x) { - pd_unbind(&x->x_obj.ob_pd, x->x_d0name); + removeObjectFromCanvases((t_pd*)x); } static void propertybang_bang(t_propertybang *x) { outlet_bang(x->x_obj.ob_outlet); } -static void propertybang_properties(t_gobj*z, t_glist*owner) { - /* argh: z is the abstraction! but we need to access ourselfs! - * we handle this by binding to a special symbol. e.g. "$0 propertybang" - * (we use the space between in order to make it hard for the ordinary user - * to use this symbol for other things... - */ - /* alternatively we could just search the abstraction for all instances of propertybang_class - * and bang these; - * but using the pd_bind-trick is simpler for now - * though not as sweet, as somebody could use our bind-symbol for other things... - */ - - t_symbol*s_d0name=canvas_realizedollar((t_canvas*)z, gensym("$0 propertybang")); - pd_bang(s_d0name->s_thing); +static void propertybang_properties(t_gobj*z, t_glist*owner) { + t_iemguts_objlist*obj=objectsInCanvas((t_pd*)z); + while(objs) { + t_propertybang*x=(t_propertybang*)objs->obj; + propertybang_bang(x); + objs=objs->next; + } } static void *propertybang_new(void) @@ -77,10 +69,9 @@ outlet_new(&x->x_obj, &s_bang); - x->x_d0name=canvas_realizedollar(canvas, gensym("$0 propertybang")); - pd_bind(&x->x_obj.ob_pd, x->x_d0name); - class_setpropertiesfn(class, propertybang_properties); + + addObjectToCanvas((t_pd*)canvas, (t_pd*)x); return (x); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs November 2008