Pd-cvs April 2006

pd-cvs@lists.iem.at

15 participants
271 discussions

pd/src m_sched.c,1.5.4.35.2.9,1.5.4.35.2.10
by Tim Blechmann 09 Apr '06

09 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7850 Modified Files: Tag: devel_0_39 m_sched.c Log Message: closing audio before exiting Index: m_sched.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_sched.c,v retrieving revision 1.5.4.35.2.9 retrieving revision 1.5.4.35.2.10 diff -C2 -d -r1.5.4.35.2.9 -r1.5.4.35.2.10 *** m_sched.c 30 Nov 2005 13:36:58 -0000 1.5.4.35.2.9 --- m_sched.c 9 Apr 2006 01:01:10 -0000 1.5.4.35.2.10 *************** *** 524,528 **** sys_keepsched = 1; } ! sys_unlock(); return (0); --- 524,529 ---- sys_keepsched = 1; } ! ! sys_close_audio(); sys_unlock(); return (0);

1 0

externals Makefile,1.45,1.46
by Hans-Christoph Steiner 09 Apr '06

09 Apr '06

Update of /cvsroot/pure-data/externals In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21922 Modified Files: Makefile Log Message: included bsaylor's objects, except partconv~, which requires fftw3 Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/Makefile,v retrieving revision 1.45 retrieving revision 1.46 diff -C2 -d -r1.45 -r1.46 *** Makefile 7 Apr 2006 05:10:14 -0000 1.45 --- Makefile 9 Apr 2006 00:30:59 -0000 1.46 *************** *** 110,115 **** # Pd-extended. For libraries that build on all platforms, add them directly # below, otherwise add to the correct platforms below. ! LIB_TARGETS = buildsrc creb cxc cyclone ext13 freeverb hardware iemabs iemlib \ ! iemmatrix loaders mapping markex maxlib mjlib motex oscx pddp pdogg pmpd \ sigpack smlib toxy unauthorized vbap zexy --- 110,115 ---- # Pd-extended. For libraries that build on all platforms, add them directly # below, otherwise add to the correct platforms below. ! LIB_TARGETS = bsaylor buildsrc creb cxc cyclone ext13 freeverb hardware iemabs \ ! iemlib iemmatrix loaders mapping markex maxlib mjlib motex oscx pddp pdogg pmpd \ sigpack smlib toxy unauthorized vbap zexy *************** *** 256,260 **** # BSAYLOR BSAYLOR_NAME=bsaylor ! BSAYLOR_OBJECTS := $(wildcard $(externals_src)/bsaylor/*~.c) bsaylor: $(BSAYLOR_OBJECTS:.c=.$(EXTENSION)) --- 256,261 ---- # BSAYLOR BSAYLOR_NAME=bsaylor ! # partconv~.c requires fftw3, which is not part of the build system yet ! BSAYLOR_OBJECTS := $(wildcard $(externals_src)/bsaylor/[a-oq-z]*~.c) bsaylor: $(BSAYLOR_OBJECTS:.c=.$(EXTENSION))

1 0

externals/build/src split_path.c,NONE,1.1
by Hans-Christoph Steiner 09 Apr '06

09 Apr '06

Update of /cvsroot/pure-data/externals/build/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28650 Added Files: split_path.c Log Message: wrote [strip_path] to separate path from filename, and to handle filenames without paths properly; added instance counters so that the version is only displayed on the first instantiation --- NEW FILE: split_path.c --- #include "../../hcs/split_path.c"

1 0

externals/hcs split_path.c, NONE, 1.1 split_path-help.pd, NONE, 1.1 TODO, 1.4, 1.5 folder_list.c, 1.8, 1.9
by Hans-Christoph Steiner 09 Apr '06

09 Apr '06

Update of /cvsroot/pure-data/externals/hcs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28410 Modified Files: TODO folder_list.c Added Files: split_path.c split_path-help.pd Log Message: wrote [strip_path] to separate path from filename, and to handle filenames without paths properly; added instance counters so that the version is only displayed on the first instantiation Index: folder_list.c =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/folder_list.c,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** folder_list.c 27 Mar 2006 03:16:14 -0000 1.8 --- folder_list.c 8 Apr 2006 23:48:38 -0000 1.9 *************** *** 37,40 **** --- 37,42 ---- static char *version = "$Revision$"; + t_int folder_list_instance_count; + #define DEBUG(x) //#define DEBUG(x) x *************** *** 164,169 **** t_folder_list *x = (t_folder_list *)pd_new(folder_list_class); ! post("[folder_list] %s",version); ! post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); /* TODO set current dir of patch as default */ #ifdef _WIN32 --- 166,176 ---- t_folder_list *x = (t_folder_list *)pd_new(folder_list_class); ! if(!folder_list_instance_count) ! { ! post("[folder_list] %s",version); ! post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); ! } ! folder_list_instance_count++; ! /* TODO set current dir of patch as default */ #ifdef _WIN32 Index: TODO =================================================================== RCS file: /cvsroot/pure-data/externals/hcs/TODO,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** TODO 26 Mar 2006 23:48:04 -0000 1.4 --- TODO 8 Apr 2006 23:48:38 -0000 1.5 *************** *** 1,3 **** --- 1,5 ---- + - rename [folder_list] to [file/match] and make other file lib objects + - make [file/match] handle lists of patterns - write [version] object --- NEW FILE: split_path-help.pd --- #N canvas 0 22 458 308 10; #X obj 111 141 split_path; #X symbolatom 111 201 0 0 0 3 path - -; #X symbolatom 175 165 0 0 0 3 filename - -; #X msg 80 43 symbol just-a-file.pd; #X msg 108 71 symbol /path/to/a/file; #X obj 95 161 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 159 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X connect 0 0 1 0; #X connect 0 0 5 0; #X connect 0 1 2 0; #X connect 0 1 6 0; #X connect 3 0 0 0; #X connect 4 0 0 0; --- NEW FILE: split_path.c --- /* (C) Guenter Geiger <geiger(a)epy.co.at> */ /* I started with stripdir.c and turned it into split_path.c <hans(a)at.or.at> */ #include <m_pd.h> #include <string.h> #include <sys/param.h> #ifdef _MSC_VER #pragma warning( disable : 4244 ) #pragma warning( disable : 4305 ) #endif static char *version = "$Revision: 1.1 $"; t_int strip_path_instance_count; /* ------------------------ split_path ----------------------------- */ static t_class *split_path_class; typedef struct _split_path { t_object x_obj; t_outlet *x_path_outlet; t_outlet *x_filename_outlet; } t_split_path; void split_path_symbol(t_split_path *x, t_symbol *s) { int length = strlen(s->s_name); char path_buffer[MAXPATHLEN] = ""; while (length--) if (*(s->s_name + length) == '/') break; if (length < MAXPATHLEN) outlet_symbol(x->x_filename_outlet,gensym(s->s_name + length + 1)); else error("[split_path] filename name too long. The limit is %d characters",MAXPATHLEN); while (length > 0) { length--; if(*(s->s_name + length) != '/') break; } if (length < MAXPATHLEN) { strncpy(path_buffer, s->s_name, length + 1); outlet_symbol(x->x_path_outlet,gensym(path_buffer)); } else { error("[split_path] path name too long. The limit is %d characters",MAXPATHLEN); } } static void *split_path_new() { t_split_path *x = (t_split_path *)pd_new(split_path_class); x->x_path_outlet = (t_outlet *)outlet_new(&x->x_obj, &s_symbol); x->x_filename_outlet = (t_outlet *)outlet_new(&x->x_obj, &s_symbol); if(!strip_path_instance_count) { post("[strip_path] %s",version); post("\twritten by Hans-Christoph Steiner <hans(a)at.or.at>"); } strip_path_instance_count++; return (x); } void split_path_setup(void) { split_path_class = class_new(gensym("split_path"), (t_newmethod)split_path_new, 0, sizeof(t_split_path), 0,0); class_addsymbol(split_path_class,split_path_symbol); }

1 0

abstractions/pddp open-help.pd, NONE, 1.1 dsp.pd, 1.1, 1.2 open.pd, 1.1, 1.2
by Hans-Christoph Steiner 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/abstractions/pddp In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15483 Modified Files: dsp.pd open.pd Added Files: open-help.pd Log Message: ported to 0.39 GOP; added status querying to dsp.pd, and made open.pd support relative paths --- NEW FILE: open-help.pd --- #N canvas 176 296 462 312 10; #X text 48 47 open the specified file on the click of the button:; #X text 66 200 only relative paths work \, no absolute.; #X text 29 241 for better or worse \, the .pd is automatically appended ; #X obj 56 78 pddp/open dsp-help; #X text 19 9 BUG: relative paths now work \, but files with no path don't; #X obj 57 107 pddp/open dsp-help; #X obj 57 137 pddp/open ../../3.audio.examples/F02.just.say; Index: dsp.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pddp/dsp.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dsp.pd 21 Nov 2005 15:54:14 -0000 1.1 --- dsp.pd 8 Apr 2006 21:45:24 -0000 1.2 *************** *** 1,30 **** ! #N canvas 358 124 60 18 10; #X obj 19 1 cnv 16 40 16 empty pddp_dsp_canvas dsp 7 8 0 14 -233017 -33289 0; ! #X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET pddp_dsp empty 1 8 1 9 -233017 -33289 -33289 0 1; ! #X obj 82 146 select 0 1; ! #X msg 127 179 76; ! #X msg 92 180 10; ! #X msg 61 228 \; pddp_dsp color \$1 12 12 \; pddp_dsp_canvas color ! \$1 12 12; ! #X obj 81 16 r pd; #X obj 81 37 route dsp; ! #X obj 82 75 f; ! #X msg 109 100 \; pddp_dsp set \$1; ! #X msg 2 82 \; pd dsp \$1; ! #X text 239 298 released under the GNU GPL; ! #X text 22 284 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; ! #X text 154 2 [pddp_dsp]; ! #X connect 1 0 8 0; ! #X connect 1 0 10 0; #X connect 2 0 4 0; #X connect 2 1 3 0; ! #X connect 3 0 5 0; ! #X connect 4 0 5 0; ! #X connect 6 0 7 0; ! #X connect 7 0 8 0; ! #X connect 8 0 9 0; ! #X connect 8 0 2 0; ! #X coords 0 0 1 1 60 18 1; --- 1,45 ---- ! #N canvas 412 173 479 364 10; #X obj 19 1 cnv 16 40 16 empty pddp_dsp_canvas dsp 7 8 0 14 -233017 -33289 0; ! #X obj 0 0 tgl 18 0 THIS_IS_HERE_TO_GET_RID_OF_THE_OUTLET GLOBAL_PDDP_DSP_TOGGLE empty 1 8 1 9 -233017 -33289 -33289 0 1; ! #X obj 82 216 select 0 1; ! #X msg 115 238 76; ! #X msg 80 238 10; #X obj 81 37 route dsp; ! #X msg 1 180 \; pd dsp \$1; ! #X text 239 338 released under the GNU GPL; ! #X text 22 324 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; ! #X msg 109 179 \; GLOBAL_PDDP_DSP_TOGGLE set \$1; ! #X obj 194 113 float; ! #X obj 82 115 float; ! #X obj 81 16 receive pd; ! #X obj 194 11 receive GLOBAL_PDDP_DSP; ! #X obj 194 60 bang; ! #X msg 99 268 \; GLOBAL_PDDP_DSP_TOGGLE color \$1 12 12 \; pddp_dsp_canvas ! color \$1 12 12; ! #X obj 308 31 loadbang; ! #X obj 316 72 send GLOBAL_PDDP_DSP; ! #X obj 194 80 spigot 0; ! #X msg 280 55 1; ! #X connect 1 0 6 0; ! #X connect 1 0 11 0; #X connect 2 0 4 0; #X connect 2 1 3 0; ! #X connect 3 0 15 0; ! #X connect 4 0 15 0; ! #X connect 5 0 11 0; ! #X connect 5 0 10 1; ! #X connect 10 0 9 0; ! #X connect 10 0 6 0; ! #X connect 11 0 9 0; ! #X connect 11 0 2 0; ! #X connect 12 0 5 0; ! #X connect 13 0 14 0; ! #X connect 14 0 18 0; ! #X connect 16 0 17 0; ! #X connect 16 0 19 0; ! #X connect 18 0 10 0; ! #X connect 19 0 18 1; ! #X coords 0 0 1 1 60 18 1 0 0; Index: open.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/pddp/open.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** open.pd 21 Nov 2005 15:54:14 -0000 1.1 --- open.pd 8 Apr 2006 21:45:24 -0000 1.2 *************** *** 1,30 **** ! #N canvas 416 398 124 30 10; ! #X obj 107 2 inlet; ! #X msg 86 225 \; pd open \$1.pd \$2; ! #X obj 86 192 pack s s; ! #X obj 86 137 symbol; ! #X obj 108 111 t a b; ! #X obj 46 0 bng 18 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1; ! #X obj 0 61 symbol \$1; ! #X obj 58 40 symbol; ! #X text 313 346 released under the GNU GPL; ! #X text 98 318 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; ! #X text 90 63 <-- store the last value so that the GOP bang will open it; ! #X text 20 287 This patch opens a patch either from the first argument or sent in as a message.; ! #X obj 0 0 cnv 16 45 18 empty empty open: 6 9 0 14 -233017 -1 0; ! #X text 279 176 GOP: 168x18; ! #X obj 137 166 getdir; ! #X connect 0 0 4 0; ! #X connect 0 0 7 0; ! #X connect 2 0 1 0; ! #X connect 3 0 2 0; ! #X connect 4 0 3 0; ! #X connect 4 1 14 0; ! #X connect 5 0 6 0; ! #X connect 6 0 4 0; #X connect 7 0 6 1; ! #X connect 14 0 2 1; ! #X coords 0 0 1 1 124 18 1; --- 1,66 ---- ! #N canvas 663 95 578 431 10; ! #X obj 200 -3 inlet; ! #X msg 112 265 \; pd open \$1.pd \$2; ! #X obj 47 0 bng 17 250 50 0 \$0- \$0- empty 0 -6 0 8 -44926 -1 -1; ! #X obj 40 61 symbol \$1; ! #X obj 98 40 symbol; ! #X text 315 370 released under the GNU GPL; ! #X text 98 358 (C) Copyright 2005 Hans-Christoph Steiner <hans(a)at.or.at> ; ! #X text 111 61 <-- store the last value so that the GOP bang will open it; ! #X text 20 327 This patch opens a patch either from the first argument or sent in as a message.; ! #X obj 0 0 cnv 16 46 18 empty empty open: 6 9 0 14 -233017 -1 0; ! #X text 20 174 GOP: 168x18; ! #X obj 289 123 getdir; ! #X obj 112 232 pack symbol symbol; ! #X msg 289 162 set \$1; ! #X obj 233 208 makefilename; ! #X obj 112 101 trigger symbol symbol bang; ! #X obj 289 143 makefilename %s/%%s; ! #X obj 112 209 ext13/strippath; ! #N canvas 178 406 458 308 splitfilename 0; ! #X obj 124 58 inlet; ! #X obj 173 253 outlet; ! #X text 21 8 this is a kludge to work around a bug in [splitfilename] ! which makes it output a filename with no slashes as a folder rather ! than a file.; ! #X obj 210 155 select symbol; ! #X obj 297 133 symbol; ! #X obj 210 105 trigger symbol bang; ! #X obj 173 207 spigot; ! #X msg 359 162 1; ! #X msg 190 182 0; ! #X obj 124 84 splitfilename; ! #X msg 249 207 symbol /; ! #X connect 0 0 9 0; ! #X connect 3 0 8 0; ! #X connect 3 0 10 0; ! #X connect 4 0 3 1; ! #X connect 5 0 3 0; ! #X connect 5 1 4 0; ! #X connect 5 1 7 0; ! #X connect 6 0 1 0; #X connect 7 0 6 1; ! #X connect 8 0 6 1; ! #X connect 9 0 6 0; ! #X connect 9 1 5 0; ! #X connect 10 0 1 0; ! #X restore 154 151 pd splitfilename; ! #X connect 0 0 4 0; ! #X connect 0 0 15 0; ! #X connect 2 0 3 0; ! #X connect 3 0 15 0; ! #X connect 4 0 3 1; ! #X connect 11 0 16 0; ! #X connect 12 0 1 0; ! #X connect 13 0 14 0; ! #X connect 14 0 12 1; ! #X connect 15 0 17 0; ! #X connect 15 1 18 0; ! #X connect 15 2 11 0; ! #X connect 16 0 13 0; ! #X connect 17 0 12 0; ! #X connect 18 0 14 0; ! #X coords 0 0 1 1 124 17 1 0 0;

1 0

pd/src desire.tk,1.1.2.147,1.1.2.148
by chunlee 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20878 Modified Files: Tag: devel_0_39 desire.tk Log Message: some wire hilite fixes... Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.147 retrieving revision 1.1.2.148 diff -C2 -d -r1.1.2.147 -r1.1.2.148 *** desire.tk 8 Apr 2006 14:06:51 -0000 1.1.2.147 --- desire.tk 8 Apr 2006 16:00:55 -0000 1.1.2.148 *************** *** 1443,1447 **** set born [lwithout $wires $@wires];foreach x $born {$x subscribe $self;$x changed;$x canvas= $self} ! puts "===== born:$born" --- 1443,1447 ---- set born [lwithout $wires $@wires];foreach x $born {$x subscribe $self;$x changed;$x canvas= $self} ! puts "===== born:$born children:$@children" *************** *** 1482,1486 **** } ! def view move {dx dy} { mset {x y} [$self xy] set @x1 [expr $@x1+$dx] --- 1482,1486 ---- } ! def* view move {dx dy} { mset {x y} [$self xy] set @x1 [expr $@x1+$dx] *************** *** 1666,1680 **** } ! def canvas select_all {} { foreach o $@children {$o selected?= 0} set @selection $@children } ! def canvas deselect_all {} { #puts "selection:$@selection" foreach o $@selection {$o selected?= 0} set @selection {} ! if {$@selection_wire != ""} {$@selection_wire select 0} ! #set @select_by "" } --- 1666,1682 ---- } ! def* canvas select_all {} { foreach o $@children {$o selected?= 0} set @selection $@children } ! def* canvas deselect_all {} { #puts "selection:$@selection" foreach o $@selection {$o selected?= 0} set @selection {} ! if {$@selection_wire != ""} { ! foreach wire $@selection_wire {$wire select 0} ! } ! set @select_by "" } *************** *** 1764,1777 **** set element_tags {} set ids {} foreach tag $selected_elements { if {[regexp {^x([a-f0-9]{6,8})} [$c gettags $tag] id]} {lappend ids $id} } set selected_objs [lsort -unique $ids] foreach obj $selected_objs { set i [lsearch $@selection $obj] if {$i<0} {lappend @selection $obj} } ! puts "selected_objs:$selected_objs selection:$@selection" foreach obj $@selection {$c itemconfigure ${obj}BASE -outline $look(objectframe4)} } set @select_by "selrect" --- 1766,1794 ---- set element_tags {} set ids {} + set wids {} foreach tag $selected_elements { + # to get objects if {[regexp {^x([a-f0-9]{6,8})} [$c gettags $tag] id]} {lappend ids $id} + # to get wires + if {[regexp {^([0-9a-f]{6,8})} [$c gettags $tag] id]} {lappend wids $id} } set selected_objs [lsort -unique $ids] + set selected_wires [lsort -unique $wids] + foreach obj $selected_objs { set i [lsearch $@selection $obj] if {$i<0} {lappend @selection $obj} } ! ! foreach wire $selected_wires { ! set i [lsearch $@selection_wire $wire] ! if {$i<0} {lappend @selection_wire $wire} ! } ! ! puts "selected_objs:$selected_objs selection:$@selection selection_wire:$@selection_wire" ! # hilite objects foreach obj $@selection {$c itemconfigure ${obj}BASE -outline $look(objectframe4)} + # hilite wire + foreach wire $@selection_wire {$wire select 1} } set @select_by "selrect" *************** *** 1953,1960 **** def* box move {dx dy} { super $dx $dy ! $self draw_wires } def* box clickedit {x y butt key in_selection selection} { #handles the shift click --- 1970,1984 ---- def* box move {dx dy} { + global _ super $dx $dy ! #$self draw_wires ! foreach wire $@wires { ! # the select_by is ugly, remove later... $_($@canvas:select_by) ! set _($wire:select_by) $_($@canvas:select_by) ! $wire draw ! } } + def* box clickedit {x y butt key in_selection selection} { #handles the shift click *************** *** 2011,2017 **** lappend _($@obj1:wires) $self lappend _($@obj2:wires) $self ! #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" ! # no time to carry on for now...... ! } --- 2035,2040 ---- lappend _($@obj1:wires) $self lappend _($@obj2:wires) $self ! # select_by is a hack to get wires remain hilited if selected by serect.... ! set @select_by "" } *************** *** 2032,2037 **** if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] $self item WIRE line $xys -width $thick -smooth yes \ ! -arrow $arrow -arrowshape $arrowshape -fill $look(wirefg) #puts ".......tags: [.$(a)canvas.c gettags $self]" --- 2055,2063 ---- if {$arrowsize < 5} {set arrow none} {set arrow last} set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] + # need this, maybe... + if {$@select_by == "selrect"} {set wire_color $look(wirefg2)} {set wire_color $look(wirefg)} + #set wire_color $look(wirefg) $self item WIRE line $xys -width $thick -smooth yes \ ! -arrow $arrow -arrowshape $arrowshape -fill $wire_color #puts ".......tags: [.$(a)canvas.c gettags $self]" *************** *** 2049,2053 **** def* wire select {flag} { global look ! if {$flag} {set colour #ff8000} {set colour $look(wirefg)} .$(a)canvas.c itemconfigure ${self}WIRE -fill $colour } --- 2075,2079 ---- def* wire select {flag} { global look ! if {$flag} {set colour $look(wirefg2)} {set colour $look(wirefg)} .$(a)canvas.c itemconfigure ${self}WIRE -fill $colour } *************** *** 2062,2067 **** } - # mset [list @obj1 @port1 @obj2 @port2] [lrange $d 0 3] - #-----------------------------------------------------------------------------------# ############ colouring --- 2088,2091 ----

1 0

pd/src desire.tk,1.1.2.146,1.1.2.147
by chunlee 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10305 Modified Files: Tag: devel_0_39 desire.tk Log Message: small fix for updating the wires when moving objects. next, deleting object with selrect Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.146 retrieving revision 1.1.2.147 diff -C2 -d -r1.1.2.146 -r1.1.2.147 *** desire.tk 23 Feb 2006 16:24:31 -0000 1.1.2.146 --- desire.tk 8 Apr 2006 14:06:51 -0000 1.1.2.147 *************** *** 1707,1711 **** switch $type { object { ! # handles the wire drawing mset {x1 y1 x2 y2} [$id bbox] set outs 0; set outs [$id noutlets] --- 1707,1711 ---- switch $type { object { ! # handles the dash wire drawing mset {x1 y1 x2 y2} [$id bbox] set outs 0; set outs [$id noutlets] *************** *** 1950,1962 **** $wire draw } - - # for {set x 0} {$x<$@ninlets} {incr x} { - # set v $self:i:$x - # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} - # } - # for {set x 0} {$x<$@noutlets} {incr x} { - # set v $self:o:$x - # if {[info exists _($v)]} {foreach wire $_($v) {$wire draw $self}} - # } } --- 1950,1953 ---- *************** *** 2015,2022 **** set @port2 $inno set @canvas $canvas ! #set _($@obj1:wires) [list $from $outno $to $inno] ! #set _($@obj2:wires) [list $from $outno $to $inno] ! set _($@obj1:wires) $self ! set _($@obj2:wires) $self #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" # no time to carry on for now...... --- 2006,2014 ---- set @port2 $inno set @canvas $canvas ! #set _($@obj1:wires) $self ! #set _($@obj2:wires) $self ! # associate wires to its connected objects ! lappend _($@obj1:wires) $self ! lappend _($@obj2:wires) $self #puts "......from:$@obj1 outlet:$@port1 to:$@obj2 inlet:$@port2" # no time to carry on for now......

1 0

externals/zexy/abs polyfun-help.pd, NONE, 1.1 polyfun.pd, NONE, 1.1
by IOhannes m zmölnig 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/externals/zexy/abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21611 Added Files: polyfun-help.pd polyfun.pd Log Message: polynomial function --- NEW FILE: polyfun-help.pd --- #N canvas 137 170 448 308 10; #X text 338 10 part of zexy; #X text 122 40 calculate a polynomial function; #X text 289 279 updated for zexy-2.1; #X floatatom 45 164 0 0 0 0 x - -; #X floatatom 45 264 0 0 0 0 y - -; #X msg 89 189 1 2; #X text 128 190 y=2x+1; #X msg 110 214 3 0 -1; #X text 166 215 y=3-x^2; #X text 32 80 on the right inlet you give the coefficients (a0..aN) of the polynomial function: y=a0+a1*x+a2*x^2+...+aN*x^N; #X text 33 109 the length of the coefficient list determines the order of the polynomial function.; #X obj 60 39 polyfun; #X obj 45 238 polyfun; #X connect 3 0 12 0; #X connect 5 0 12 1; #X connect 7 0 12 1; #X connect 12 0 4 0; --- NEW FILE: polyfun.pd --- #N canvas 618 139 492 542 10; #X obj 97 112 inlet x; #X obj 97 437 outlet y=a0+a1*x+a2*x^2+a3*x^3+...; #X obj 97 415 f; #X obj 119 335 +; #X obj 119 302 * 1; #X obj 97 133 t b b f; #X obj 119 195 t l f; #X obj 199 111 inlet coefficients; #X obj 119 173 list; #X text 36 29 the right inlet takes the coefficients a0...aN \; whenever a value 'x' appears on the left inlet \, 'y' is calculated by:; #X text 96 68 y=a0+a1*x+a2*x^2+...+aN*x^N; #X text 93 14 polynomial function of order N; #X text 11 86 N is determined at execution time (depending on length of coeff-list).; #N canvas 0 0 543 426 repack 0; #X obj 158 194 list split 1; #X obj 158 284 list; #X obj 158 305 route list float; #X obj 211 331 t l; #X obj 119 126 list split 1; #X obj 188 241 outlet; #X obj 119 65 inlet; #X text 137 110 discard the 1st element (it is extracted outside); #X obj 158 218 t b f; #X connect 0 0 8 0; #X connect 0 1 1 1; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 2 1 3 0; #X connect 3 0 0 0; #X connect 4 1 0 0; #X connect 6 0 4 0; #X connect 8 0 1 0; #X connect 8 1 5 0; #X restore 119 220 pd repack 1; #N canvas 0 0 450 300 x^n 0; #X obj 158 203 * 1; #X obj 158 225 t f f; #X obj 158 182 f; #X msg 204 178 1; #X obj 174 157 t f b; #X obj 158 123 inlet bang; #X obj 249 123 inlet x; #X obj 158 250 outlet; #X connect 0 0 1 0; #X connect 1 0 7 0; #X connect 1 1 0 1; #X connect 2 0 0 0; #X connect 3 0 0 1; #X connect 4 0 2 1; #X connect 4 1 3 0; #X connect 5 0 2 0; #X connect 6 0 4 0; #X restore 149 273 pd x^n; #X obj 119 249 t f b; #X text 148 314 an*x^n; #X text 147 349 sum; #X obj 119 382 t f f; #X connect 0 0 5 0; #X connect 2 0 1 0; #X connect 3 0 18 0; #X connect 4 0 3 0; #X connect 5 0 2 0; #X connect 5 1 8 0; #X connect 5 2 14 1; #X connect 6 0 13 0; #X connect 6 1 3 1; #X connect 7 0 8 1; #X connect 8 0 6 0; #X connect 13 0 15 0; #X connect 14 0 4 1; #X connect 15 0 4 0; #X connect 15 1 14 0; #X connect 18 0 3 1; #X connect 18 1 2 1;

1 0

[PD-cvs] externals/nusmuk/msd 03_msdwave.pd, 1.5, 1.6 filet.pd, 1.3, 1.4
by Nicolas Montgermont 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/externals/nusmuk/msd In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1729 Modified Files: 03_msdwave.pd filet.pd Log Message: msdwave updated Index: 03_msdwave.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/msd/03_msdwave.pd,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** 03_msdwave.pd 28 Jun 2005 15:37:25 -0000 1.5 --- 03_msdwave.pd 8 Apr 2006 10:35:25 -0000 1.6 *************** *** 1,3 **** ! #N canvas 303 67 947 811 10; #X obj 32 13 loadbang; #X obj 603 265 gemwin; --- 1,3 ---- ! #N canvas 493 42 947 811 10; #X obj 32 13 loadbang; #X obj 603 265 gemwin; *************** *** 17,24 **** #X obj 127 136 t b f; #X obj 127 57 unpack f f f; - #X obj 48 283 cuboid 0.065 0.065 0.07; #X obj 64 114 gemhead 45; #X connect 0 0 5 0; ! #X connect 1 0 6 0; #X connect 2 0 1 0; #X connect 3 0 2 0; --- 17,25 ---- #X obj 127 136 t b f; #X obj 127 57 unpack f f f; #X obj 64 114 gemhead 45; + #X obj 48 239 color 0.2 0.2 0.2; + #X obj 48 283 cuboid 0.005 0.15 0.08; #X connect 0 0 5 0; ! #X connect 1 0 7 0; #X connect 2 0 1 0; #X connect 3 0 2 0; *************** *** 27,37 **** #X connect 5 0 4 0; #X connect 5 1 1 2; ! #X connect 5 2 6 3; ! #X connect 7 0 3 1; #X restore 274 531 pd massrender; #X msg 203 83 symbol reset; #X text 793 205 Select view; #X obj 145 38 t b b b b; - #X text 418 114 Filet abstraction : x0 y0 stepx stepy ny nx; #X obj 63 403 msd -------------; #X obj 425 423 msd2D --------------------------------; --- 28,38 ---- #X connect 5 0 4 0; #X connect 5 1 1 2; ! #X connect 5 2 8 3; ! #X connect 6 0 3 1; ! #X connect 7 0 8 0; #X restore 274 531 pd massrender; #X msg 203 83 symbol reset; #X text 793 205 Select view; #X obj 145 38 t b b b b; #X obj 63 403 msd -------------; #X obj 425 423 msd2D --------------------------------; *************** *** 56,63 **** -1 -1 0 1; #X msg 56 682 posX 0 \$1; - #X msg 621 311 45; - #X msg 603 223 view 4 0 0.5 0 0 0 0 0 1; - #X msg 603 185 view 0 0.5 6 0 0 0 0 1 0; - #X msg 650 311 45; #X msg 603 138 reset \, dimen 800 800 \, create \, lighting 1 \, 1 ; --- 57,60 ---- *************** *** 65,69 **** #X msg 145 199 Xmax 4 \, Xmin -4; #X obj 603 161 t b; - #X obj 183 113 filet -3.2 -2 0.1685 0.1685 20 40; #X msg 164 140 setFixed 0 \, setFixed 39 \, setFixed 760 \, setFixed 799; --- 62,65 ---- *************** *** 73,77 **** #X msg 112 742 posX 760 \$1; #X text 28 514 Move corners to send a wave!; ! #X text 330 559 Each time a mass2D position is send \, the corresponding z is asked to the 1D model.; #X text 389 35 X-Y : 2D model; --- 69,73 ---- #X msg 112 742 posX 760 \$1; #X text 28 514 Move corners to send a wave!; ! #X text 327 559 Each time a mass2D position is send \, the corresponding z is asked to the 1D model.; #X text 389 35 X-Y : 2D model; *************** *** 87,148 **** #X obj 481 502 f; #X obj 425 485 t b f; #X connect 0 0 12 0; #X connect 2 0 1 0; ! #X connect 3 0 26 0; ! #X connect 5 0 16 0; ! #X connect 5 0 18 0; #X connect 6 0 12 0; #X connect 7 0 5 0; ! #X connect 8 0 22 0; ! #X connect 10 0 40 1; ! #X connect 12 0 37 0; ! #X connect 12 0 38 0; ! #X connect 12 1 41 0; ! #X connect 12 2 40 0; #X connect 12 3 7 0; #X connect 12 3 10 0; ! #X connect 14 0 24 0; ! #X connect 15 0 20 0; ! #X connect 16 0 17 0; ! #X connect 16 1 14 0; ! #X connect 17 0 14 0; ! #X connect 18 0 19 0; ! #X connect 18 1 15 0; ! #X connect 19 0 15 0; ! #X connect 20 0 54 0; ! #X connect 21 0 15 0; ! #X connect 22 0 21 0; ! #X connect 22 1 14 0; ! #X connect 23 0 9 0; ! #X connect 24 0 55 0; ! #X connect 25 0 14 0; ! #X connect 26 0 4 0; ! #X connect 27 0 31 0; ! #X connect 28 0 43 0; ! #X connect 29 0 44 0; ! #X connect 30 0 45 0; ! #X connect 31 0 14 0; ! #X connect 32 0 26 1; ! #X connect 33 0 1 0; ! #X connect 34 0 1 0; ! #X connect 35 0 26 2; #X connect 36 0 1 0; ! #X connect 36 0 39 0; ! #X connect 37 0 15 0; ! #X connect 38 0 14 0; ! #X connect 39 0 34 0; ! #X connect 39 0 35 0; ! #X connect 39 0 32 0; ! #X connect 40 0 5 0; ! #X connect 41 0 5 0; ! #X connect 42 0 1 0; ! #X connect 43 0 14 0; ! #X connect 44 0 14 0; ! #X connect 45 0 14 0; ! #X connect 54 0 57 0; ! #X connect 54 1 56 1; ! #X connect 54 2 23 1; ! #X connect 55 1 23 2; ! #X connect 56 0 23 0; ! #X connect 57 0 56 0; ! #X connect 57 1 25 0; --- 83,156 ---- #X obj 481 502 f; #X obj 425 485 t b f; + #X msg 611 72 border 1; + #X text 453 114 Filet abstraction : x0 y0 stepx stepy ny nx M; + #X msg 603 223 view 5 -1 0.5 0 0 0 0 0 1; + #X msg 714 275 color 1 1 1; + #X msg 621 311 45; + #X msg 650 311 45; + #X msg 603 185 view 0 0.5 6 0 0 0 0 1 0; + #X msg 709 318 view 0 0.3 6 0 0 0 0 1 0; + #X obj 183 113 filet -3.2 -3 0.1685 0.3 20 40 100; #X connect 0 0 12 0; #X connect 2 0 1 0; ! #X connect 3 0 25 0; ! #X connect 5 0 15 0; ! #X connect 5 0 17 0; #X connect 6 0 12 0; #X connect 7 0 5 0; ! #X connect 8 0 21 0; ! #X connect 10 0 60 1; ! #X connect 12 0 32 0; ! #X connect 12 0 33 0; ! #X connect 12 1 35 0; ! #X connect 12 2 60 0; #X connect 12 3 7 0; #X connect 12 3 10 0; ! #X connect 13 0 23 0; ! #X connect 14 0 19 0; ! #X connect 15 0 16 0; ! #X connect 15 1 13 0; ! #X connect 16 0 13 0; ! #X connect 17 0 18 0; ! #X connect 17 1 14 0; ! #X connect 18 0 14 0; ! #X connect 19 0 48 0; ! #X connect 20 0 14 0; ! #X connect 21 0 20 0; ! #X connect 21 1 13 0; ! #X connect 22 0 9 0; ! #X connect 23 0 49 0; ! #X connect 24 0 13 0; ! #X connect 25 0 4 0; ! #X connect 26 0 30 0; ! #X connect 27 0 37 0; ! #X connect 28 0 38 0; ! #X connect 29 0 39 0; ! #X connect 30 0 13 0; ! #X connect 31 0 1 0; ! #X connect 31 0 34 0; ! #X connect 32 0 14 0; ! #X connect 33 0 13 0; ! #X connect 34 0 58 0; ! #X connect 34 0 57 0; ! #X connect 34 0 56 0; ! #X connect 35 0 5 0; #X connect 36 0 1 0; ! #X connect 37 0 13 0; ! #X connect 38 0 13 0; ! #X connect 39 0 13 0; ! #X connect 48 0 51 0; ! #X connect 48 1 50 1; ! #X connect 48 2 22 1; ! #X connect 49 1 22 2; ! #X connect 50 0 22 0; ! #X connect 51 0 50 0; ! #X connect 51 1 24 0; ! #X connect 52 0 1 0; ! #X connect 54 0 1 0; ! #X connect 55 0 1 0; ! #X connect 56 0 25 1; ! #X connect 57 0 25 2; ! #X connect 58 0 1 0; ! #X connect 59 0 1 0; ! #X connect 60 0 5 0; Index: filet.pd =================================================================== RCS file: /cvsroot/pure-data/externals/nusmuk/msd/filet.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** filet.pd 28 Jun 2005 15:37:25 -0000 1.3 --- filet.pd 8 Apr 2006 10:35:25 -0000 1.4 *************** *** 11,15 **** #X msg 297 77 -1; #X obj 46 211 t f f; - #X obj 150 323 pack f f; #X obj 46 50 inlet; #X obj 297 28 select reset; --- 11,14 ---- *************** *** 25,29 **** #X obj 46 234 mod \$6; #X obj 176 234 div \$6; - #X text 445 35 x0 y0 xstep ystep M N; #X obj 414 314 - 1; #X obj 357 297 mod \$6; --- 24,27 ---- *************** *** 44,56 **** #X obj 176 256 * \$4; #X msg 335 468 link fil \$1 \$2 10 10; ! #X msg 54 359 mass filet 1 10 \$1 \$2 0; #X connect 1 0 5 0; ! #X connect 1 0 40 0; #X connect 2 0 5 1; ! #X connect 2 0 26 0; #X connect 3 0 6 0; #X connect 4 0 7 0; #X connect 5 0 4 1; ! #X connect 5 0 19 0; #X connect 6 2 1 0; #X connect 6 3 2 0; --- 42,58 ---- #X obj 176 256 * \$4; #X msg 335 468 link fil \$1 \$2 10 10; ! #X obj 150 323 pack f f 50; ! #X obj 228 269 loadbang; ! #X obj 230 300 f \$7; ! #X msg 54 359 mass filet 1 \$3 \$1 \$2 0; ! #X text 325 106 Filet abstraction : x0 y0 stepx stepy ny nx M; #X connect 1 0 5 0; ! #X connect 1 0 38 0; #X connect 2 0 5 1; ! #X connect 2 0 24 0; #X connect 3 0 6 0; #X connect 4 0 7 0; #X connect 5 0 4 1; ! #X connect 5 0 18 0; #X connect 6 2 1 0; #X connect 6 3 2 0; *************** *** 60,106 **** #X connect 8 0 10 0; #X connect 9 0 7 1; ! #X connect 9 0 17 1; ! #X connect 10 0 23 0; ! #X connect 10 1 24 0; ! #X connect 11 0 44 0; ! #X connect 12 0 15 0; ! #X connect 13 0 9 0; ! #X connect 13 0 31 0; ! #X connect 14 0 13 0; #X connect 15 0 16 0; - #X connect 15 1 4 0; #X connect 16 0 17 0; ! #X connect 17 0 18 0; ! #X connect 18 0 17 1; ! #X connect 18 0 34 0; ! #X connect 19 0 16 1; ! #X connect 20 0 32 0; ! #X connect 21 0 11 0; ! #X connect 22 0 11 1; ! #X connect 23 0 41 0; ! #X connect 24 0 42 0; ! #X connect 26 0 20 1; ! #X connect 27 0 20 0; ! #X connect 28 0 35 0; ! #X connect 29 0 30 1; ! #X connect 30 0 43 0; ! #X connect 31 0 1 0; ! #X connect 31 1 2 0; ! #X connect 32 0 33 0; ! #X connect 33 0 30 0; ! #X connect 34 0 27 0; ! #X connect 34 1 29 0; ! #X connect 34 1 33 1; ! #X connect 34 2 28 0; ! #X connect 34 3 39 0; ! #X connect 34 3 38 1; ! #X connect 35 0 37 0; ! #X connect 36 0 43 0; ! #X connect 37 0 38 0; ! #X connect 38 0 36 0; ! #X connect 39 0 36 1; ! #X connect 40 0 35 1; ! #X connect 41 0 21 0; ! #X connect 42 0 22 0; ! #X connect 43 0 0 0; ! #X connect 44 0 0 0; --- 62,110 ---- #X connect 8 0 10 0; #X connect 9 0 7 1; ! #X connect 9 0 16 1; ! #X connect 10 0 22 0; ! #X connect 10 1 23 0; ! #X connect 11 0 14 0; ! #X connect 12 0 9 0; ! #X connect 12 0 29 0; ! #X connect 13 0 12 0; ! #X connect 14 0 15 0; ! #X connect 14 1 4 0; #X connect 15 0 16 0; #X connect 16 0 17 0; ! #X connect 17 0 16 1; ! #X connect 17 0 32 0; ! #X connect 18 0 15 1; ! #X connect 19 0 30 0; ! #X connect 20 0 42 0; ! #X connect 21 0 42 1; ! #X connect 22 0 39 0; ! #X connect 23 0 40 0; ! #X connect 24 0 19 1; ! #X connect 25 0 19 0; ! #X connect 26 0 33 0; ! #X connect 27 0 28 1; ! #X connect 28 0 41 0; ! #X connect 29 0 1 0; ! #X connect 29 1 2 0; ! #X connect 30 0 31 0; ! #X connect 31 0 28 0; ! #X connect 32 0 25 0; ! #X connect 32 1 27 0; ! #X connect 32 1 31 1; ! #X connect 32 2 26 0; ! #X connect 32 3 37 0; ! #X connect 32 3 36 1; ! #X connect 33 0 35 0; ! #X connect 34 0 41 0; ! #X connect 35 0 36 0; ! #X connect 36 0 34 0; ! #X connect 37 0 34 1; ! #X connect 38 0 33 1; ! #X connect 39 0 20 0; ! #X connect 40 0 21 0; ! #X connect 41 0 0 0; ! #X connect 42 0 45 0; ! #X connect 43 0 44 0; ! #X connect 44 0 42 2; ! #X connect 45 0 0 0;

1 0

doc/tutorials/networking 01.netsend_netreceive.pd, NONE, 1.1 TEMPLATE.pd, NONE, 1.1
by Hans-Christoph Steiner 08 Apr '06

08 Apr '06

Update of /cvsroot/pure-data/doc/tutorials/networking In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12674 Added Files: 01.netsend_netreceive.pd TEMPLATE.pd Log Message: first quick sketch for networking tuts --- NEW FILE: TEMPLATE.pd --- #N canvas 15 58 632 452 10; #X obj 8 10 cnv 15 400 40 empty empty TEMPLATE 20 12 0 24 -228992 -66577 0; #X obj 56 151 send \$0-local-data; #X obj 56 192 receive \$0-local-data; #X obj 60 124 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 3700 1; #X obj 59 221 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 3700 1; #X obj 342 124 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 341 221 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 338 192 netreceive; #X obj 338 151 netsend; #X text 45 78 At the most basic level \, networking in Pd works like the standard [send] and [receive] objects:; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 5 0 8 0; #X connect 7 0 6 0; --- NEW FILE: 01.netsend_netreceive.pd --- #N canvas 15 58 632 452 10; #X obj 8 10 cnv 15 400 40 empty empty netsend_netreceive 20 12 0 24 -228992 -66577 0; #X obj 56 181 send \$0-local-data; #X obj 56 292 receive \$0-local-data; #X obj 60 144 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225271 -1 -1 7600 1; #X obj 59 331 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 7600 1; #X obj 311 144 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225280 -1 -1 1400 1; #X obj 311 331 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 1400 1; #X obj 308 231 netsend; #X obj 308 291 netreceive 34567; #X msg 326 192 connect localhost 34567; #X obj 308 250 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 415 310 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X text 329 249 <-- connection status; #X text 433 310 <-- connection status; #X msg 327 211 disconnect; #X msg 308 169 send \$1; #X text 45 78 At the most basic level \, networking in Pd works a lot like the standard [send] and [receive] objects \, except there is a network port number rather than a send/receive name:; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 5 0 15 0; #X connect 7 0 10 0; #X connect 8 0 6 0; #X connect 8 1 11 0; #X connect 9 0 7 0; #X connect 14 0 7 0; #X connect 15 0 7 0;

1 0

← Newer
1
...
19
20
21
22
23
24
25
...
28
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 April 2006