Pd-cvs December 2006

pd-cvs@lists.iem.at

19 participants
825 discussions

pd/src desire.tk,1.1.2.600.2.23,1.1.2.600.2.24
by Mathieu Bouchard 06 Dec '06

06 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24438 Modified Files: Tag: desiredata desire.tk Log Message: fixed bug in detection of bad serials Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.23 retrieving revision 1.1.2.600.2.24 diff -C2 -d -r1.1.2.600.2.23 -r1.1.2.600.2.24 *** desire.tk 5 Dec 2006 22:00:32 -0000 1.1.2.600.2.23 --- desire.tk 6 Dec 2006 00:02:21 -0000 1.1.2.600.2.24 *************** *** 215,219 **** proc serial {n obj} { global serial replyset ! if {$n > $serial} {error "object creation serial number is in the future"} eval [concat $replyset($n) [list $obj]] array unset replyset $n --- 215,219 ---- proc serial {n obj} { global serial replyset ! if {$n >= $serial} {error "object creation serial number is in the future"} eval [concat $replyset($n) [list $obj]] array unset replyset $n *************** *** 1755,1760 **** } } ! def Canvas reload {} {pd .$self map 0; pd .$self map 1} ! def Canvas redraw {} { $self changed --- 1755,1762 ---- } } ! def Canvas reload {} { ! netsend ".$self map 0" ! netsend ".$self map 1" ! } def Canvas redraw {} { $self changed

1 0

pd/src desire.c, 1.1.2.217.2.30, 1.1.2.217.2.31 desire.h, 1.1.2.49.2.3, 1.1.2.49.2.4
by Mathieu Bouchard 06 Dec '06

06 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18262 Modified Files: Tag: desiredata desire.c desire.h Log Message: debugging for serial. Index: desire.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.h,v retrieving revision 1.1.2.49.2.3 retrieving revision 1.1.2.49.2.4 diff -C2 -d -r1.1.2.49.2.3 -r1.1.2.49.2.4 *** desire.h 3 Dec 2006 04:04:20 -0000 1.1.2.49.2.3 --- desire.h 5 Dec 2006 23:45:49 -0000 1.1.2.49.2.4 *************** *** 326,329 **** --- 326,331 ---- //EXTERN int pd_pickle(t_foo *foo, char *fmt, ...); void pd_set_newest (t_pd *x); + void pd_set_newest_debug (t_pd *x, const char *file, int line); + #define pd_set_newest(x) pd_set_newest_debug(x,__FILE__,__LINE__) #if defined(_LANGUAGE_C_PLUS_PLUS) || defined(__cplusplus) Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.30 retrieving revision 1.1.2.217.2.31 diff -C2 -d -r1.1.2.217.2.30 -r1.1.2.217.2.31 *** desire.c 5 Dec 2006 20:15:40 -0000 1.1.2.217.2.30 --- desire.c 5 Dec 2006 23:45:47 -0000 1.1.2.217.2.31 *************** *** 864,874 **** --- 864,887 ---- } + void glob_newest_table(t_pd*); + + #undef pd_set_newest + void pd_set_newest_debug (t_pd *x, const char *file, int line) { + post("pd_set_newest(x%lx) called from %s at line %d",(long)x,file,line); + pd_set_newest(x); + } + void pd_set_newest (t_pd *x) { newest = x; if (!pd_origin()) return; /* the following only applies to objects created by client */ unsigned short serial = manager->serial++; + //post("hash_set newest_table x%lx %d",(void*)x,(int)serial); + if (hash_exists(newest_table,x)) post("WARNING: duplicate serial for object x%lx",(long)x); hash_set(newest_table,x,(void*)serial); + //glob_newest_table(0); /* sys_vgui("serial %d x%lx\n",serial,(long)x);*/ } + #define pd_set_newest(x) pd_set_newest_debug(x,__FILE__,__LINE__); + /* called by m_class.c */ *************** *** 6621,6625 **** --- 6634,6640 ---- } if (hash_exists(newest_table,x)) { + //glob_newest_table(0); sys_vgui("serial %d x%lx\n",hash_get(newest_table,x),(long)x); + //post("hash_delete newest_table x%lx",(long)x); hash_delete(newest_table,x); } *************** *** 7795,7798 **** --- 7810,7820 ---- } + void glob_newest_table(t_pd *ignore) { + hashkey k; + hashvalue v; + post("newest_table = {"); + hash_foreach(k,v,newest_table) post(" x%lx -> %5d",(void*)k,(int)v); + post("}"); + } extern t_class *glob_pdobject; *************** *** 7854,7857 **** --- 7876,7880 ---- class_addmethod3(c,glob_help, "help", "s"); class_addmethod3(c,glob_redraw, "redraw", ""); + class_addmethod3(c,glob_newest_table, "newest_table", ""); class_addanything(c, max_default); pd_bind((t_pd *)&glob_pdobject, gensym("pd"));

1 0

pd/src m_class.c, 1.3.4.7.2.22.2.1, 1.3.4.7.2.22.2.2 x_list.c, 1.2.2.9, 1.2.2.9.2.1 x_connective.c, 1.3.4.1.2.10.2.1, 1.3.4.1.2.10.2.2
by Mathieu Bouchard 06 Dec '06

06 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15325 Modified Files: Tag: desiredata m_class.c x_list.c x_connective.c Log Message: use desire.h instead of redeclaring pd_set_newest Index: m_class.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/m_class.c,v retrieving revision 1.3.4.7.2.22.2.1 retrieving revision 1.3.4.7.2.22.2.2 diff -C2 -d -r1.3.4.7.2.22.2.1 -r1.3.4.7.2.22.2.2 *** m_class.c 30 Nov 2006 03:34:23 -0000 1.3.4.7.2.22.2.1 --- m_class.c 5 Dec 2006 23:38:22 -0000 1.3.4.7.2.22.2.2 *************** *** 4,8 **** #define PD_CLASS_DEF ! #include "m_pd.h" #include "m_imp.h" #include "s_stuff.h" --- 4,8 ---- #define PD_CLASS_DEF ! #include "desire.h" #include "m_imp.h" #include "s_stuff.h" *************** *** 576,593 **** ! t_symbol *gensym(char *s) ! { ! return(dogensym(s, 0)); ! } ! ! static t_symbol *addfileextent(t_symbol *s) ! { ! char namebuf[MAXPDSTRING], *str = s->s_name; ! int ln = strlen(str); ! if (!strcmp(str + ln - 3, ".pd")) return (s); ! strcpy(namebuf, str); ! strcpy(namebuf+ln, ".pd"); ! return (gensym(namebuf)); ! } static int tryingalready; --- 576,580 ---- ! t_symbol *gensym(char *s) {return dogensym(s, 0);} static int tryingalready; *************** *** 745,750 **** t_floatarg d1, t_floatarg d2, t_floatarg d3, t_floatarg d4, t_floatarg d5); - void pd_set_newest(t_pd *x); - void pd_typedmess(t_pd *x, t_symbol *s, int argc, t_atom *argv) { --- 732,735 ---- Index: x_connective.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_connective.c,v retrieving revision 1.3.4.1.2.10.2.1 retrieving revision 1.3.4.1.2.10.2.2 diff -C2 -d -r1.3.4.1.2.10.2.1 -r1.3.4.1.2.10.2.2 *** x_connective.c 30 Nov 2006 03:57:10 -0000 1.3.4.1.2.10.2.1 --- x_connective.c 5 Dec 2006 23:38:22 -0000 1.3.4.1.2.10.2.2 *************** *** 5,9 **** /* connective objects */ ! #include "m_pd.h" #include <string.h> --- 5,9 ---- /* connective objects */ ! #include "desire.h" #include <string.h> *************** *** 11,16 **** extern t_pd *newest; - void pd_set_newest(t_pd *); - /* -------------------------- int ------------------------------ */ static t_class *pdint_class; --- 11,14 ---- Index: x_list.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/x_list.c,v retrieving revision 1.2.2.9 retrieving revision 1.2.2.9.2.1 diff -C2 -d -r1.2.2.9 -r1.2.2.9.2.1 *** x_list.c 29 Nov 2006 16:06:29 -0000 1.2.2.9 --- x_list.c 5 Dec 2006 23:38:22 -0000 1.2.2.9.2.1 *************** *** 13,17 **** #define LIST_NGETBYTE 100 /* bigger that this we use alloc, not alloca */ ! #include "m_pd.h" /* #include <string.h> */ #ifdef MSW --- 13,17 ---- #define LIST_NGETBYTE 100 /* bigger that this we use alloc, not alloca */ ! #include "desire.h" /* #include <string.h> */ #ifdef MSW *************** *** 396,403 **** static void *list_new(t_pd *dummy, t_symbol *s, int argc, t_atom *argv) { - #ifdef DESIRE - void pd_set_newest(t_pd *); t_pd *newest = 0; /* hide global var */ - #endif if (!argc || argv[0].a_type != A_SYMBOL) newest = list_append_new(s, argc, argv); --- 396,400 ----

1 0

pd/src desire.tk,1.1.2.600.2.22,1.1.2.600.2.23
by chunlee 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12438 Modified Files: Tag: desiredata desire.tk Log Message: removed more old calls to proc pd Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.22 retrieving revision 1.1.2.600.2.23 diff -C2 -d -r1.1.2.600.2.22 -r1.1.2.600.2.23 *** desire.tk 5 Dec 2006 18:45:17 -0000 1.1.2.600.2.22 --- desire.tk 5 Dec 2006 22:00:32 -0000 1.1.2.600.2.23 *************** *** 2361,2365 **** $@history add [list $self ins $i [$o deconstruct]] } ! pd .$self object_delete !$o } --- 2361,2365 ---- $@history add [list $self ins $i [$o deconstruct]] } ! netsend [join [list .$self "object_delete" !$o]] } *************** *** 2881,2895 **** set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]] ! pd .$self push set paste(state) $self foreach mess [pd_mess_split [$::clipboard value]] { set type [lindex $mess 1] switch $type { ! canvas {set in 1; pd $mess} "" {} connect { mset {from outlet to inlet} [lrange $mess 2 end] set count [llength $@children] set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet] ! if {$in} {pd $mess} else {pd $mess2; incr @wire_count} } default { --- 2881,2896 ---- set ref [lsearch $ycoords [lindex [lsort -increasing $ycoords] 0]] ! #pd .$self push ! netsend [join [list .$self "push"]] set paste(state) $self foreach mess [pd_mess_split [$::clipboard value]] { set type [lindex $mess 1] switch $type { ! canvas {set in 1; netsend $mess} "" {} connect { mset {from outlet to inlet} [lrange $mess 2 end] set count [llength $@children] set mess2 [list #X connect [expr $from+$count] $outlet [expr $to+$count] $inlet] ! if {$in} {netsend $mess} else {netsend $mess2; incr @wire_count} } default { *************** *** 2898,2902 **** set mess2 [lreplace $mess 2 3 $x $y] if {$in} { ! pd $mess } else { if {!$visible} { --- 2899,2903 ---- set mess2 [lreplace $mess 2 3 $x $y] if {$in} { ! netsend $mess [list $self new_object_callback] } else { if {!$visible} { *************** *** 2907,2911 **** set mess2 [lreplace $mess 2 3 $x2 $y2] } ! pd [join $mess2] incr @obj_count } --- 2908,2912 ---- set mess2 [lreplace $mess 2 3 $x2 $y2] } ! netsend [join $mess2] [list $self new_object_callback] incr @obj_count } *************** *** 2913,2917 **** } } ! pd #X pop 1 } --- 2914,2918 ---- } } ! netsend "#X pop 1" [list $self new_object_callback] } *************** *** 2995,3003 **** set @keynav_tab_sel "wire" $self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]] ! mset {from outlet to inlet} $wire; pd .$self disconnect $from $outlet $to $inlet $@history add [list $self connect $wire] } def Canvas connect {wire} { ! mset {from outlet to inlet} $wire; pd .$self connect $from $outlet $to $inlet $@history add [list $self disconnect $wire] } --- 2996,3006 ---- set @keynav_tab_sel "wire" $self selection_wire-= [lindex $@wires_pair [expr [lsearch $@wires_pair $wire]+1]] ! mset {from outlet to inlet} $wire ! netsend [join [list .$self disconnect $from $outlet $to $inlet]] $@history add [list $self connect $wire] } def Canvas connect {wire} { ! mset {from outlet to inlet} $wire ! netsend [join [list .$self connect $from $outlet $to $inlet]] $@history add [list $self disconnect $wire] }

1 0

packages/darwin_app Makefile,1.62,1.63
by Hans-Christoph Steiner 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/packages/darwin_app In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9686 Modified Files: Makefile Log Message: only embed the Tcl/Tk frameworks if not using the built-in one in /System. i.e. only embed the frameworks if building on a machine where other Tcl/Tk Frameworks have been installed Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/darwin_app/Makefile,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** Makefile 4 Dec 2006 00:36:48 -0000 1.62 --- Makefile 5 Dec 2006 21:52:52 -0000 1.63 *************** *** 102,106 **** "$(WISH_CONTENTS)/Resources/$(WISH_NAME).rsrc" \ "$(PD_APP_CONTENTS)/Resources" ! # embed Tcl/Tk Frameworks and remove cruft install -d $(PD_APP_CONTENTS)/Frameworks \ $(PD_APP_CONTENTS)/Frameworks/Tcl.framework \ --- 102,107 ---- "$(WISH_CONTENTS)/Resources/$(WISH_NAME).rsrc" \ "$(PD_APP_CONTENTS)/Resources" ! # only embed the Tcl/Tk Frameworks if not building against the built-in ones ! ifneq (/System,$(findstring /System,$(WISH_FRAMEWORKS_SOURCE))) install -d $(PD_APP_CONTENTS)/Frameworks \ $(PD_APP_CONTENTS)/Frameworks/Tcl.framework \ *************** *** 127,130 **** --- 128,132 ---- fix_install_name "$(PD_APP_CONTENTS)/MacOS/$(WISH_NAME)" Tcl && \ fix_install_name "$(PD_APP_CONTENTS)/MacOS/$(WISH_NAME)" Tk + endif # NOT /System # set up app wrapper install -d "$(PD_APP_CONTENTS)/Resources/Scripts"

1 0

pd/src desire.c,1.1.2.217.2.29,1.1.2.217.2.30
by Mathieu Bouchard 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6728 Modified Files: Tag: desiredata desire.c Log Message: serial guaranteed to be after first update_object. Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.29 retrieving revision 1.1.2.217.2.30 diff -C2 -d -r1.1.2.217.2.29 -r1.1.2.217.2.30 *** desire.c 5 Dec 2006 19:32:06 -0000 1.1.2.217.2.29 --- desire.c 5 Dec 2006 20:15:40 -0000 1.1.2.217.2.30 *************** *** 273,276 **** --- 273,277 ---- static t_class *manager_class; t_manager *manager; + t_hash *newest_table; void manager_call (void *foo) { *************** *** 285,289 **** o->g_adix->dirtyc = 0; } ! clock_delay(self->clock,500); } --- 286,290 ---- o->g_adix->dirtyc = 0; } ! clock_delay(self->clock,50); } *************** *** 867,871 **** if (!pd_origin()) return; /* the following only applies to objects created by client */ unsigned short serial = manager->serial++; ! sys_vgui("serial %d x%lx\n",serial,(long)x); } --- 868,873 ---- if (!pd_origin()) return; /* the following only applies to objects created by client */ unsigned short serial = manager->serial++; ! hash_set(newest_table,x,(void*)serial); ! /* sys_vgui("serial %d x%lx\n",serial,(long)x);*/ } *************** *** 6618,6621 **** --- 6620,6627 ---- } } + if (hash_exists(newest_table,x)) { + sys_vgui("serial %d x%lx\n",hash_get(newest_table,x),(long)x); + hash_delete(newest_table,x); + } } *************** *** 7646,7649 **** --- 7652,7656 ---- extern "C" void desire_setup(void) { + newest_table = hash_new(31); s_empty = gensym("empty"); s_Pd = gensym("Pd");

1 0

pd/src desire.c,1.1.2.217.2.28,1.1.2.217.2.29
by Mathieu Bouchard 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22638 Modified Files: Tag: desiredata desire.c Log Message: fixed duplicate serial Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.28 retrieving revision 1.1.2.217.2.29 diff -C2 -d -r1.1.2.217.2.28 -r1.1.2.217.2.29 *** desire.c 5 Dec 2006 15:29:08 -0000 1.1.2.217.2.28 --- desire.c 5 Dec 2006 19:32:06 -0000 1.1.2.217.2.29 *************** *** 6015,6019 **** } /* make a "broken object", that is, one that should appear with a dashed contour. */ ! if (!x) x = (t_text *)pd_new(text_class); x->binbuf = b; x->x = xpix; --- 6015,6022 ---- } /* make a "broken object", that is, one that should appear with a dashed contour. */ ! if (!x) { ! x = (t_text *)pd_new(text_class); ! pd_set_newest(x); ! } x->binbuf = b; x->x = xpix; *************** *** 6024,6028 **** if (x->_class== vinlet_class) canvas_resortinlets(canvas_getcanvas(gl)); if (x->_class==voutlet_class) canvas_resortoutlets(canvas_getcanvas(gl)); - pd_set_newest(x); pd_popsym(gl); } --- 6027,6030 ----

1 0

[PD-cvs] externals/plugin~ plugin~-gui.pd, NONE, 1.1 plugin~-help.pd, 1.3, 1.4 help-plugin~.pd, 1.1, NONE
by Hans-Christoph Steiner 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/externals/plugin~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13812 Modified Files: plugin~-help.pd Added Files: plugin~-gui.pd Removed Files: help-plugin~.pd Log Message: cleaned up help file situation to be usable while saving all patches --- help-plugin~.pd DELETED --- Index: plugin~-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/plugin~/plugin~-help.pd,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** plugin~-help.pd 30 Apr 2005 20:30:53 -0000 1.3 --- plugin~-help.pd 5 Dec 2006 19:07:11 -0000 1.4 *************** *** 1,134 **** ! #N canvas 0 220 950 684 12; ! #X obj 497 2 adc~; ! #X obj 450 78 dac~; ! #X msg 240 3 info; ! #X msg 274 2 listplugins; ! #X obj 388 105 route id name label maker; ! #X obj 387 103 widget q q1 -bg black -fg "#ff0045" -height 42 -width ! 5; ! #X obj 418 103 widget q q1 -bg black -fg white -height 42 -width 23 ! ; ! #X obj 443 622 route scroll; ! #X msg 444 645 scroll \$1; ! #X obj 422 106 prepend add; ! #X obj 557 103 widget q q1 -bg black -fg orange -height 42 -width 16 ! ; ! #X obj 567 642 route scroll; ! #X msg 566 667 scroll \$1; ! #X obj 391 644 route scroll; ! #X msg 391 667 scroll \$1; ! #X obj 686 629 route scroll; ! #X msg 684 652 scroll \$1; ! #X obj 654 103 widget q q1 -bg black -fg cyan -height 42 -width 49 ! ; ! #X obj 390 106 prepend add; ! #X obj 560 107 prepend add; ! #X obj 658 109 prepend add; ! #X obj 319 50 plugin~ tap_equalizer; ! #X obj 41 69 widget q q1 -width 24 -bg gray -fg purple -height 18; ! #X obj 107 76 unpack s f f; ! #X obj 298 100 route port; ! #X obj 298 119 route in; ! #X obj 298 138 route control; ! #X obj 87 76 a2l; ! #X msg 238 70 add \$1; ! #X msg 189 70 add \$1; ! #X obj 187 69 widget q q1 -width 8 -bg gray -fg purple -height 18; ! #X obj 237 69 widget q q1 -width 8 -bg gray -fg purple -height 18; ! #X msg 188 70 clear; ! #X obj 113 425 widget ngrid n1 #w 256 #h 256; ! #X obj 193 325 niagara 1; ! #X obj 193 382 glue; ! #X obj 193 363 a2l; ! #X obj 193 401 prepend add; ! #X msg 112 393 move swarm; ! #X msg 120 373 move; ! #X obj 369 8 prepend control; ! #X text 557 7 plusgin~; ! #X text 570 23 currently supports LADSPA; ! #X text 643 400 if you can see this \, you need widgets from /extensions/gui/ix ! ; ! #X msg 114 428 redefine; ! #X obj 242 344 expr $f1 + ($f2-$f1)/2.; ! #X obj 193 344 Append; ! #X text 41 51 param; ! #X text 211 52 min; ! #X text 261 52 max; ! #X text 388 85 id; ! #X text 522 85 name; ! #X text 628 85 label; ! #X text 916 85 maker; ! #X obj 559 667 route symbol; ! #X msg 497 45 plug \$1; ! #X obj 590 59 plugain~; ! #X obj 422 28 demux; ! #X connect 0 0 21 1; ! #X connect 0 1 56 1; ! #X connect 2 0 32 0; ! #X connect 2 0 57 0; ! #X connect 3 0 21 0; ! #X connect 4 0 18 0; ! #X connect 4 1 9 0; ! #X connect 4 2 19 0; ! #X connect 4 3 20 0; ! #X connect 5 0 13 0; ! #X connect 6 0 7 0; ! #X connect 7 0 8 0; ! #X connect 8 0 5 0; ! #X connect 8 0 10 0; ! #X connect 8 0 17 0; ! #X connect 9 0 6 0; ! #X connect 10 0 11 0; ! #X connect 10 0 54 0; ! #X connect 11 0 12 0; ! #X connect 12 0 5 0; ! #X connect 12 0 6 0; ! #X connect 12 0 17 0; ! #X connect 13 0 14 0; ! #X connect 14 0 6 0; ! #X connect 14 0 10 0; ! #X connect 14 0 17 0; ! #X connect 15 0 16 0; ! #X connect 16 0 5 0; ! #X connect 16 0 6 0; ! #X connect 16 0 10 0; ! #X connect 17 0 15 0; ! #X connect 18 0 5 0; ! #X connect 19 0 10 0; ! #X connect 20 0 17 0; ! #X connect 21 0 4 0; ! #X connect 21 0 24 0; ! #X connect 21 1 1 0; ! #X connect 23 0 22 0; ! #X connect 23 1 29 0; ! #X connect 23 2 28 0; ! #X connect 24 0 25 0; ! #X connect 25 0 26 0; ! #X connect 26 0 27 0; ! #X connect 26 0 34 0; ! #X connect 27 0 23 0; ! #X connect 28 0 31 0; ! #X connect 29 0 30 0; ! #X connect 32 0 30 0; ! #X connect 32 0 22 0; ! #X connect 32 0 31 0; ! #X connect 32 0 44 0; ! #X connect 33 0 40 0; ! #X connect 34 0 46 0; ! #X connect 34 1 45 0; ! #X connect 34 1 35 1; ! #X connect 35 0 37 0; ! #X connect 36 0 35 0; ! #X connect 37 0 33 0; ! #X connect 38 0 33 0; ! #X connect 39 0 33 0; ! #X connect 40 0 57 0; ! #X connect 44 0 33 0; ! #X connect 45 0 46 1; ! #X connect 46 0 36 0; ! #X connect 54 0 55 0; ! #X connect 55 0 56 0; ! #X connect 56 0 24 0; ! #X connect 56 1 1 1; ! #X connect 57 0 21 0; ! #X connect 57 1 56 0; --- 1,71 ---- ! #N canvas 107 33 838 540 10; ! #X floatatom 700 248 0 0 0 0 - - -; ! #X msg 700 218 440; ! #X obj 650 185 loadbang; ! #X msg 699 277 control freq \$1; ! #X msg 601 276 control amp \$1; ! #X msg 601 219 0.7; ! #X floatatom 601 250 0 0 0 0 - - -; ! #X obj 97 439 plugin~ amp_stereo amp.so; ! #X msg 67 401 control gain \$1; ! #X floatatom 67 376 0 0 0 0 - - -; ! #X obj 658 353 plugin~ sine_fcac; ! #X msg 564 309 print; ! #X obj 200 486 dac~; ! #X obj 20 47 plugin~ lpf; ! #X obj 429 50 plugin~ lpf filter.so; ! #X text 13 11 plugin~: LADSPA plug-in hosting for Pd.; ! #X obj 66 319 loadbang; ! #X msg 16 390 print; ! #N canvas 0 22 450 300 graph1 0; ! #X array array1 100 float 0; ! #X coords 0 1 100 -1 200 140 1; ! #X restore 338 376 graph; ! #X obj 659 422 tabwrite~ array1; ! #X obj 569 391 metro 500; ! #X msg 568 369 1; ! #X obj 568 347 loadbang; ! #X text 19 65 Create a plug-in by label. All LADSPA plug-in libraries ! will be searched.; ! #X text 429 70 Create a plug-in by label and library name. Only the ! selected LADSPA plug-in library is searched.; ! #X text 30 296 Example: stereo amplifier from LADSPA SDK; ! #X text 424 154 Example: sine oscillator from LADSPA SDK; ! #X obj 126 218 plugin~ lpf; ! #X text 106 114 In- and outlet functionality:; ! #X text 6 249 You can investigate the inputs and outputs by sending ! a "print" message to the first inlet.; ! #X msg 130 181 print; ! #X text 12 140 The first inlet is for control input messages. The first ! outlet is for control output messages \, correspondingly.; ! #X text 425 114 The rest inlets are for audio input and the rest outlets ! are for audio output signals.; ! #X msg 14 360 reset; ! #X msg 561 284 reset; ! #X obj 202 356 osc~ 220; ! #X msg 66 350 0.05; ! #X connect 0 0 3 0; ! #X connect 1 0 0 0; ! #X connect 2 0 1 0; ! #X connect 2 0 5 0; ! #X connect 3 0 10 0; ! #X connect 4 0 10 0; ! #X connect 5 0 6 0; ! #X connect 6 0 4 0; ! #X connect 7 1 12 0; ! #X connect 7 2 12 1; ! #X connect 8 0 7 0; ! #X connect 9 0 8 0; ! #X connect 10 1 19 0; ! #X connect 11 0 10 0; ! #X connect 16 0 36 0; ! #X connect 17 0 7 0; ! #X connect 20 0 19 0; ! #X connect 21 0 20 0; ! #X connect 22 0 21 0; ! #X connect 30 0 27 0; ! #X connect 33 0 7 0; ! #X connect 34 0 10 0; ! #X connect 35 0 7 1; ! #X connect 35 0 7 2; ! #X connect 36 0 9 0; --- NEW FILE: plugin~-gui.pd --- #N canvas 0 220 950 684 12; #X obj 497 2 adc~; #X obj 450 78 dac~; #X msg 240 3 info; #X msg 274 2 listplugins; #X obj 388 105 route id name label maker; #X obj 387 103 widget q q1 -bg black -fg "#ff0045" -height 42 -width 5; #X obj 418 103 widget q q1 -bg black -fg white -height 42 -width 23 ; #X obj 443 622 route scroll; #X msg 444 645 scroll \$1; #X obj 422 106 prepend add; #X obj 557 103 widget q q1 -bg black -fg orange -height 42 -width 16 ; #X obj 567 642 route scroll; #X msg 566 667 scroll \$1; #X obj 391 644 route scroll; #X msg 391 667 scroll \$1; #X obj 686 629 route scroll; #X msg 684 652 scroll \$1; #X obj 654 103 widget q q1 -bg black -fg cyan -height 42 -width 49 ; #X obj 390 106 prepend add; #X obj 560 107 prepend add; #X obj 658 109 prepend add; #X obj 319 50 plugin~ tap_equalizer; #X obj 41 69 widget q q1 -width 24 -bg gray -fg purple -height 18; #X obj 107 76 unpack s f f; #X obj 298 100 route port; #X obj 298 119 route in; #X obj 298 138 route control; #X obj 87 76 a2l; #X msg 238 70 add \$1; #X msg 189 70 add \$1; #X obj 187 69 widget q q1 -width 8 -bg gray -fg purple -height 18; #X obj 237 69 widget q q1 -width 8 -bg gray -fg purple -height 18; #X msg 188 70 clear; #X obj 113 425 widget ngrid n1 #w 256 #h 256; #X obj 193 325 niagara 1; #X obj 193 382 glue; #X obj 193 363 a2l; #X obj 193 401 prepend add; #X msg 112 393 move swarm; #X msg 120 373 move; #X obj 369 8 prepend control; #X text 557 7 plusgin~; #X text 570 23 currently supports LADSPA; #X text 643 400 if you can see this \, you need widgets from /extensions/gui/ix ; #X msg 114 428 redefine; #X obj 242 344 expr $f1 + ($f2-$f1)/2.; #X obj 193 344 Append; #X text 41 51 param; #X text 211 52 min; #X text 261 52 max; #X text 388 85 id; #X text 522 85 name; #X text 628 85 label; #X text 916 85 maker; #X obj 559 667 route symbol; #X msg 497 45 plug \$1; #X obj 590 59 plugain~; #X obj 422 28 demux; #X connect 0 0 21 1; #X connect 0 1 56 1; #X connect 2 0 32 0; #X connect 2 0 57 0; #X connect 3 0 21 0; #X connect 4 0 18 0; #X connect 4 1 9 0; #X connect 4 2 19 0; #X connect 4 3 20 0; #X connect 5 0 13 0; #X connect 6 0 7 0; #X connect 7 0 8 0; #X connect 8 0 5 0; #X connect 8 0 10 0; #X connect 8 0 17 0; #X connect 9 0 6 0; #X connect 10 0 11 0; #X connect 10 0 54 0; #X connect 11 0 12 0; #X connect 12 0 5 0; #X connect 12 0 6 0; #X connect 12 0 17 0; #X connect 13 0 14 0; #X connect 14 0 6 0; #X connect 14 0 10 0; #X connect 14 0 17 0; #X connect 15 0 16 0; #X connect 16 0 5 0; #X connect 16 0 6 0; #X connect 16 0 10 0; #X connect 17 0 15 0; #X connect 18 0 5 0; #X connect 19 0 10 0; #X connect 20 0 17 0; #X connect 21 0 4 0; #X connect 21 0 24 0; #X connect 21 1 1 0; #X connect 23 0 22 0; #X connect 23 1 29 0; #X connect 23 2 28 0; #X connect 24 0 25 0; #X connect 25 0 26 0; #X connect 26 0 27 0; #X connect 26 0 34 0; #X connect 27 0 23 0; #X connect 28 0 31 0; #X connect 29 0 30 0; #X connect 32 0 30 0; #X connect 32 0 22 0; #X connect 32 0 31 0; #X connect 32 0 44 0; #X connect 33 0 40 0; #X connect 34 0 46 0; #X connect 34 1 45 0; #X connect 34 1 35 1; #X connect 35 0 37 0; #X connect 36 0 35 0; #X connect 37 0 33 0; #X connect 38 0 33 0; #X connect 39 0 33 0; #X connect 40 0 57 0; #X connect 44 0 33 0; #X connect 45 0 46 1; #X connect 46 0 36 0; #X connect 54 0 55 0; #X connect 55 0 56 0; #X connect 56 0 24 0; #X connect 56 1 1 1; #X connect 57 0 21 0; #X connect 57 1 56 0;

1 0

pd/src desire.tk,1.1.2.600.2.21,1.1.2.600.2.22
by chunlee 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5434 Modified Files: Tag: desiredata desire.tk Log Message: remove isnew stuff in update_object2 Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.21 retrieving revision 1.1.2.600.2.22 diff -C2 -d -r1.1.2.600.2.21 -r1.1.2.600.2.22 *** desire.tk 5 Dec 2006 17:41:35 -0000 1.1.2.600.2.21 --- desire.tk 5 Dec 2006 18:45:17 -0000 1.1.2.600.2.22 *************** *** 1769,1772 **** --- 1769,1773 ---- set y1 [expr $y/$@zoom] switch $sel { + obj {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_edit]} msg {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_edit]} default {netsend [join [concat [list .$self $sel $x $y] $args]] [list $self new_object_callback]} *************** *** 2130,2133 **** --- 2131,2135 ---- set @noutlets 0 set @pdclass "" + set @isnew 0 } *************** *** 2202,2206 **** set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} ! netsend [join [list .$@canvas text_setto !$self $l]] $self changed if {[$@canvas action] == "insert"} { --- 2204,2208 ---- set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} ! netsend [join [list .$@canvas text_setto !$self $l]] [list $@canvas new_object_callback] $self changed if {[$@canvas action] == "insert"} { *************** *** 4339,4343 **** # this is not the same @isnew as $isnew ! # in the future, @isnew should go elsewhere or disappear ! set _($self:isnew) [expr [llength $mess] == 4] } if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess} --- 4341,4345 ---- # this is not the same @isnew as $isnew ! # in the future, @isnew should go elsewhere or disappear ! # set _($self:isnew) [expr [llength $mess] == 4] } if {$isnew} {$_class new_as $self $mess} else {$self reinit $mess}

1 0

pd/src desire.tk,1.1.2.600.2.20,1.1.2.600.2.21
by Mathieu Bouchard 05 Dec '06

05 Dec '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14881 Modified Files: Tag: desiredata desire.tk Log Message: use new titlebar icon Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.20 retrieving revision 1.1.2.600.2.21 diff -C2 -d -r1.1.2.600.2.20 -r1.1.2.600.2.21 *** desire.tk 5 Dec 2006 17:01:11 -0000 1.1.2.600.2.20 --- desire.tk 5 Dec 2006 17:41:35 -0000 1.1.2.600.2.21 *************** *** 711,714 **** --- 711,715 ---- . configure -menu .mbar wm title . "DesireData" + wm iconphoto . icon_pd post "DesireData 0.39.A, Tcl %s, Tk %s" $::tcl_patchLevel $::tk_patchLevel } *************** *** 1598,1601 **** --- 1599,1603 ---- set c [$self widget] toplevel $win -menu $win.m + wm iconphoto $win icon_pd set butts [[ButtonBar new $self] widget] # turn buttonbar on/off *************** *** 5670,5693 **** } ! proc load_button_bar {} { ! global butt cmdline ! set dir $cmdline(icons) ! foreach icon {mode_edit mode_run} { ! image create photo icon_$icon -file $dir/$icon.gif ! } ! foreach b $butt { ! mset {icon name cmd} $b ! image create photo icon_$icon -file $dir/$icon.gif ! } } - set buttons_loaded 0 class_new ButtonBar {Thing} def ButtonBar init {canvas} { ! global buttons_loaded butt set @canvas $canvas set bb .$(a)canvas.bbar - if {!$buttons_loaded} {load_button_bar} frame $bb pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left --- 5672,5690 ---- } ! set dir $cmdline(icons) ! foreach icon {mode_edit mode_run pd} { ! image create photo icon_$icon -file $dir/$icon.gif ! } ! foreach b $butt { ! mset {icon name cmd} $b ! image create photo icon_$icon -file $dir/$icon.gif } class_new ButtonBar {Thing} def ButtonBar init {canvas} { ! global butt set @canvas $canvas set bb .$(a)canvas.bbar frame $bb pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left

1 0

← Newer
1
...
70
71
72
73
74
75
76
...
83
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 December 2006