Pd-cvs August 2007

pd-cvs@lists.iem.at

18 participants
618 discussions

pd/src desire.tk,1.1.2.600.2.315,1.1.2.600.2.316
by chunlee 08 Aug '07

08 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10710 Modified Files: Tag: desiredata desire.tk Log Message: fix wire delete Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.315 retrieving revision 1.1.2.600.2.316 diff -C2 -d -r1.1.2.600.2.315 -r1.1.2.600.2.316 *** desire.tk 7 Aug 2007 20:24:29 -0000 1.1.2.600.2.315 --- desire.tk 8 Aug 2007 05:03:20 -0000 1.1.2.600.2.316 *************** *** 2374,2377 **** --- 2374,2378 ---- } + #this don't make sense when multiple window, and should be re implemeneted somehow def Macro calc_size {} { set x1 66666; set x2 0 *************** *** 2392,2396 **** set cx2 [$c canvasx $cwidth]; set cy2 [$c canvasy $cheight] mset {x1 y1 x2 y2} [$self calc_size] - puts "[winfo pointerxy $c]" } --- 2393,2396 ---- *************** *** 2807,2811 **** def Canvas wires {} {return $@wires} - def Canvas wires-= {wire} {$@wires remove $wire} def Canvas delete_selection {} { --- 2807,2810 ---- *************** *** 3773,3777 **** def Canvas wire_idx {connects} { set wire ""; set idx 0 ! foreach x $@wires { if {[string compare [join $connects] [join [$x connects]]] == 0} { set wire $x --- 3772,3776 ---- def Canvas wire_idx {connects} { set wire ""; set idx 0 ! foreach x [$@wires values] { if {[string compare [join $connects] [join [$x connects]]] == 0} { set wire $x *************** *** 3999,4002 **** --- 3998,4002 ---- set from_idx [[$@canvas objects] search $@from] set to_idx [[$@canvas objects] search $@to] + puts "from :: $@from || to :: $@to" if {$from_idx >= 0 && $to_idx >= 0 && $@from != $@to} { $@canvas connect [list $from_idx $@outlet $to_idx $@inlet] *************** *** 5059,5063 **** $@from delete_wire $self $@to delete_wire $self - $@canvas wires-= $self super } --- 5059,5062 ----

1 0

pd/src desire.c,1.1.2.217.2.193,1.1.2.217.2.194
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1495 Modified Files: Tag: desiredata desire.c Log Message: refix objects_reinit,wires_reinit Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.193 retrieving revision 1.1.2.217.2.194 diff -C2 -d -r1.1.2.217.2.193 -r1.1.2.217.2.194 *** desire.c 7 Aug 2007 18:46:38 -0000 1.1.2.217.2.193 --- desire.c 7 Aug 2007 21:03:38 -0000 1.1.2.217.2.194 *************** *** 6013,6020 **** t_canvas *can = (t_canvas *)self; char *bar=foo; *foo=0; ! canvas_each(y,can) bar+=sprintf(bar,"%lx x%lx ",y->dix->index,(long)y); sys_mgui(self,"objects_reinit","S",foo); bar=foo; *foo=0; ! canvas_wires_each(oc,t,can) bar+=sprintf(bar,"%lx x%lx ",oc->dix->index,(long)oc); sys_mgui(self,"wires_reinit","S",foo); sys_mgui(self,"name=","s",can->name); --- 6013,6020 ---- t_canvas *can = (t_canvas *)self; char *bar=foo; *foo=0; ! canvas_each(y,can) bar+=sprintf(bar,"%ld x%lx ",y->dix->index,(long)y); sys_mgui(self,"objects_reinit","S",foo); bar=foo; *foo=0; ! canvas_wires_each(oc,t,can) bar+=sprintf(bar,"%ld x%lx ",oc->dix->index,(long)oc); sys_mgui(self,"wires_reinit","S",foo); sys_mgui(self,"name=","s",can->name);

1 0

pd/src desire.tk,1.1.2.600.2.314,1.1.2.600.2.315
by chunlee 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19634 Modified Files: Tag: desiredata desire.tk Log Message: fixes to keynav Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.314 retrieving revision 1.1.2.600.2.315 diff -C2 -d -r1.1.2.600.2.314 -r1.1.2.600.2.315 *** desire.tk 7 Aug 2007 19:49:28 -0000 1.1.2.600.2.314 --- desire.tk 7 Aug 2007 20:24:29 -0000 1.1.2.600.2.315 *************** *** 2894,2898 **** def Canvas quadrant {du dv array} { ! if {!$@keynav_current} {set @keynav_current [lindex [$@objects keys] 0]} set foo {} set bar {} --- 2894,2898 ---- def Canvas quadrant {du dv array} { ! if {$@keynav_current == 0} {set @keynav_current [$@objects get [lindex [$@objects keys] 0]]} set foo {} set bar {} *************** *** 2907,2912 **** set best [lindex $foo [lsearch_minimum $bar]] return $best - #set @keynav_current $best - #$self selection= $best } --- 2907,2910 ---- *************** *** 3673,3677 **** def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {$@objectsel clear} def Canvas popup_help {} {$::main class_browser} --- 3671,3675 ---- def Canvas select_all {} {$@objectsel reinit [$objects list]} ! def Canvas deselect_all {} {$@objectsel clear; $@wiresel clear} def Canvas popup_help {} {$::main class_browser} *************** *** 4297,4301 **** set olength [$@objectsel size] set wlength [ $@wiresel size] - puts "$@keynav_current ::: $@keynav_tab_sel" if {$@keynav_tab_sel == "object"} { if {[$@wires size]} {set @keynav_tab_sel "wire"} --- 4295,4298 ---- *************** *** 4363,4367 **** } } ! } else if {$olength == 1} { set @keynav_current [lindex [$@objectsel values] 0] $self deselect_all --- 4360,4364 ---- } } ! } elseif {$olength == 1} { set @keynav_current [lindex [$@objectsel values] 0] $self deselect_all *************** *** 4414,4418 **** } #if {[lsearch $@objectsel $@keynav_next] < 0} {lappend @selection $@keynav_next} ! $@keynav_next selected?= 1 set @keynav_current $@keynav_next } --- 4411,4416 ---- } #if {[lsearch $@objectsel $@keynav_next] < 0} {lappend @selection $@keynav_next} ! #$@keynav_next selected?= 1 ! $self selection+= $@keynav_next set @keynav_current $@keynav_next } *************** *** 4636,4640 **** if {![llength $@keynav_iosel_i] && ![llength $@keynav_iosel_o]} { if {[$@objectsel size] == 1} { ! mset {bx1 by1 bx2 by2} [$@selection bbox] set x1 [expr ($bx1+$bx2)/2]; set y1 [expr ($by1+$by2)/2] $self click_wrap $x1 $y1 1 $f --- 4634,4638 ---- if {![llength $@keynav_iosel_i] && ![llength $@keynav_iosel_o]} { if {[$@objectsel size] == 1} { ! mset {bx1 by1 bx2 by2} [[$self selection] bbox] set x1 [expr ($bx1+$bx2)/2]; set y1 [expr ($by1+$by2)/2] $self click_wrap $x1 $y1 1 $f

1 0

pd/src desire.tk,1.1.2.600.2.313,1.1.2.600.2.314
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6599 Modified Files: Tag: desiredata desire.tk Log Message: fix selection-= and selection_wire-= about removing objects that already aren't in the table Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.313 retrieving revision 1.1.2.600.2.314 diff -C2 -d -r1.1.2.600.2.313 -r1.1.2.600.2.314 *** desire.tk 7 Aug 2007 18:30:48 -0000 1.1.2.600.2.313 --- desire.tk 7 Aug 2007 19:49:28 -0000 1.1.2.600.2.314 *************** *** 2158,2169 **** def Canvas objects {} {return $@objects} #def Canvas wires {} {return $@wires} ! def Canvas selection {} {$@objectsel values} ! def Canvas selection= {objs} {$@objectsel clear; $self selection+= $objs} ! def Canvas selection+= {objs} {foreach obj $objs {$@objectsel set [$obj index] $obj}} ! def Canvas selection-= {objs} {foreach obj $objs {$@objectsel unset [$obj index]}} ! def Canvas selection_wire {} {$@wiresel values} ! def Canvas selection_wire= {objs} {$@wiresel clear; $self selection_wire+= $objs} def Canvas selection_wire+= {objs} {foreach obj $objs {$@wiresel set [$obj index] $obj}} ! def Canvas selection_wire-= {objs} {foreach obj $objs {$@wiresel unset [$obj index]}} def Canvas Object {} {$self new_object obj} --- 2158,2169 ---- def Canvas objects {} {return $@objects} #def Canvas wires {} {return $@wires} ! def Canvas selection {} {$@objectsel values} ! def Canvas selection= {objs} {$@objectsel clear; $self selection+= $objs} ! def Canvas selection+= {objs} {foreach obj $objs {$@objectsel set [$obj index] $obj}} ! def Canvas selection-= {objs} {foreach obj $objs {set k [$obj index]; if {[$@objectsel exists $k]} {$@objectsel unset $k}}} ! def Canvas selection_wire {} {$@wiresel values} ! def Canvas selection_wire= {objs} {$@wiresel clear; $self selection_wire+= $objs} def Canvas selection_wire+= {objs} {foreach obj $objs {$@wiresel set [$obj index] $obj}} ! def Canvas selection_wire-= {objs} {foreach obj $objs {set k [$obj index]; if {[ $@wiresel exists $k]} { $@wiresel unset $k}}} def Canvas Object {} {$self new_object obj}

1 0

pd/src bgerror.tcl,1.1.2.2,1.1.2.2.2.1
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32626 Modified Files: Tag: desiredata bgerror.tcl Log Message: some meta-error handling (error while processing an error...) Index: bgerror.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/bgerror.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.2.2.1 diff -C2 -d -r1.1.2.2 -r1.1.2.2.2.1 *** bgerror.tcl 19 Nov 2006 05:58:24 -0000 1.1.2.2 --- bgerror.tcl 7 Aug 2007 19:30:35 -0000 1.1.2.2.2.1 *************** *** 33,36 **** --- 33,40 ---- proc ::tk::dialog::error::Details {} { + if {[catch {Details2}]} {::error_dump} + } + + proc ::tk::dialog::error::Details2 {} { set w .bgerrorDialog set caption [option get $w.function text {}] *************** *** 80,84 **** # err - The error message. ! proc ::tk::dialog::error::bgerror err { global errorInfo tcl_platform variable button --- 84,88 ---- # err - The error message. ! proc ::tk::dialog::error::bgerror {err} {if {[catch { global errorInfo tcl_platform variable button *************** *** 271,275 **** return -code break } ! } namespace eval :: { --- 275,281 ---- return -code break } ! }]} { ! ::error_dump ! }} namespace eval :: {

1 0

pd/src desire.c, 1.1.2.217.2.192, 1.1.2.217.2.193 desire.h, 1.1.2.49.2.39, 1.1.2.49.2.40
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16172 Modified Files: Tag: desiredata desire.c desire.h Log Message: added new wire index counter in canvas Index: desire.h =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.h,v retrieving revision 1.1.2.49.2.39 retrieving revision 1.1.2.49.2.40 diff -C2 -d -r1.1.2.49.2.39 -r1.1.2.49.2.40 *** desire.h 3 Aug 2007 14:57:15 -0000 1.1.2.49.2.39 --- desire.h 7 Aug 2007 18:46:40 -0000 1.1.2.49.2.40 *************** *** 150,154 **** #else struct _glist { ! t_object gl_obj; /* header in case we're a canvas */ #endif t_gobj *list; /* the actual data */ --- 150,154 ---- #else struct _glist { ! t_object gl_obj; /* header in case we're a [pd] or abstraction */ #endif t_gobj *list; /* the actual data */ *************** *** 172,176 **** unsigned int isgraph:1; /* show as graph on parent */ unsigned int hidetext:1; /* hide object-name + args when doing graph on parent */ ! long next_index; /* next index. to be incremented on each use */ }; --- 172,177 ---- unsigned int isgraph:1; /* show as graph on parent */ unsigned int hidetext:1; /* hide object-name + args when doing graph on parent */ ! long next_o_index; /* next object index. to be incremented on each use */ ! long next_w_index; /* next wire index. to be incremented on each use */ }; *************** *** 232,239 **** t_symbol *name; /* unexpanded name (possibly with leading '$') */ t_symbol *realname; /* expanded name (symbol we're bound to) */ ! char usedindsp; /* true if some DSP routine is using this */ ! char saveit; /* true if we should save this with parent */ ! char listviewing; /* true if list view window is open */ ! char hidename; /* don't print name above graph */ }; --- 233,240 ---- t_symbol *name; /* unexpanded name (possibly with leading '$') */ t_symbol *realname; /* expanded name (symbol we're bound to) */ ! unsigned int usedindsp:1; /* true if some DSP routine is using this */ ! unsigned int saveit:1; /* true if we should save this with parent */ ! unsigned int listviewing:1; /* true if list view window is open */ ! unsigned int hidename:1; /* don't print name above graph */ }; Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.192 retrieving revision 1.1.2.217.2.193 diff -C2 -d -r1.1.2.217.2.192 -r1.1.2.217.2.193 *** desire.c 7 Aug 2007 07:34:56 -0000 1.1.2.217.2.192 --- desire.c 7 Aug 2007 18:46:38 -0000 1.1.2.217.2.193 *************** *** 1219,1224 **** } /* move the selected part to the end */ ! if (!nonhead) x->list = selhead; ! else x->list = nonhead, nontail->g_next = selhead; /* add connections to binbuf */ t_binbuf *buf = binbuf_new(); --- 1219,1223 ---- } /* move the selected part to the end */ ! if (!nonhead) x->list = selhead; else {x->list = nonhead; nontail->g_next = selhead;} /* add connections to binbuf */ t_binbuf *buf = binbuf_new(); *************** *** 1262,1265 **** --- 1261,1265 ---- pd_set_newest(oc); gobj_setcanvas(oc,x); + oc->dix->index = x->next_w_index++; return; bad: *************** *** 2054,2058 **** gobj_setcanvas(y,x); y->g_next = 0; ! y->dix->index = x->next_index++; if (!x->list) x->list = y; else { //if (x->next_add<0) { --- 2054,2058 ---- gobj_setcanvas(y,x); y->g_next = 0; ! y->dix->index = x->next_o_index++; if (!x->list) x->list = y; else { //if (x->next_add<0) { *************** *** 2860,2865 **** } ! /* save a "root" canvas to a file; cf. canvas_saveto() which saves the ! body (and which is called recursively.) */ static void canvas_savetofile(t_canvas *x, t_symbol *filename, t_symbol *dir) { t_binbuf *b = binbuf_new(); --- 2860,2864 ---- } ! /* save a "root" canvas to a file; cf. canvas_saveto() which saves the body (and which is called recursively.) */ static void canvas_savetofile(t_canvas *x, t_symbol *filename, t_symbol *dir) { t_binbuf *b = binbuf_new(); *************** *** 6025,6033 **** if (c==gatom_class) { t_gatom *g = (t_gatom *)x; ! if (g->atom.a_type==A_SYMBOL) { ! sys_mgui(g,"set","s",g->atom.a_symbol); ! } else { ! sys_mgui(g,"set","f",g->atom.a_float); ! } } if (object_table->exists(self)) { --- 6024,6029 ---- if (c==gatom_class) { t_gatom *g = (t_gatom *)x; ! if (g->atom.a_type==A_SYMBOL) sys_mgui(g,"set","s",g->atom.a_symbol); ! else sys_mgui(g,"set","f",g->atom.a_float); } if (object_table->exists(self)) {

1 0

pd/src desire.tk,1.1.2.600.2.312,1.1.2.600.2.313
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10349 Modified Files: Tag: desiredata desire.tk Log Message: correct reindexing for the copy (clipboard) feature Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.312 retrieving revision 1.1.2.600.2.313 diff -C2 -d -r1.1.2.600.2.312 -r1.1.2.600.2.313 *** desire.tk 7 Aug 2007 16:49:00 -0000 1.1.2.600.2.312 --- desire.tk 7 Aug 2007 18:30:48 -0000 1.1.2.600.2.313 *************** *** 3588,3594 **** $self copy_times= 1 array unset obj_index_sel $self:* foreach i [lsort [$@objectsel keys]] { set child [$@objectsel get $i] ! set obj_index_sel($self:$child) [$@objectsel search $child] $child deconstruct_to $clipboard } --- 3588,3596 ---- $self copy_times= 1 array unset obj_index_sel $self:* + set j 0 foreach i [lsort [$@objectsel keys]] { set child [$@objectsel get $i] ! #set obj_index_sel($self:$child) [$@objectsel search $child] ! set obj_index_sel($self:$child) $j; incr j $child deconstruct_to $clipboard } *************** *** 3735,3743 **** mset {from outlet to inlet} [$wire report] switch $type { ! i {if {$to==$obj && $inlet==$port} {$self disconnect [$wire connects]; if {!$inlet} {lappend @auto_wire_from $from}}} ! o {if {$from==$obj && $outlet==$port} {$self disconnect [$wire connects]; if {!$outlet} {lappend @auto_wire_to $to}}} none { $self disconnect [$wire connects] ! if {$from==$obj && !$outlet} {lappend @auto_wire_to $to} if { $to==$obj && ! $inlet} {lappend @auto_wire_from $from} } --- 3737,3745 ---- mset {from outlet to inlet} [$wire report] switch $type { ! i {if { $to==$obj && $inlet==$port} {$self disconnect [$wire connects]; if { !$inlet} {lappend @auto_wire_from $from}}} ! o {if {$from==$obj && $outlet==$port} {$self disconnect [$wire connects]; if {!$outlet} {lappend @auto_wire_to $to }}} none { $self disconnect [$wire connects] ! if {$from==$obj && !$outlet} {lappend @auto_wire_to $to } if { $to==$obj && ! $inlet} {lappend @auto_wire_from $from} } *************** *** 3833,3837 **** netsend [list #X restore $x $y pd sub] netsend [list .$self "pop"] - } --- 3835,3838 ---- *************** *** 4110,4114 **** return } - } --- 4111,4114 ----

1 0

pd/src kernel.c,1.1.2.80,1.1.2.81
by Mathieu Bouchard 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17000 Modified Files: Tag: desiredata kernel.c Log Message: writing of #X connect uses new indices on socket but old indices in file Index: kernel.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/kernel.c,v retrieving revision 1.1.2.80 retrieving revision 1.1.2.81 diff -C2 -d -r1.1.2.80 -r1.1.2.81 *** kernel.c 3 Aug 2007 14:59:33 -0000 1.1.2.80 --- kernel.c 7 Aug 2007 17:21:19 -0000 1.1.2.81 *************** *** 606,614 **** void wire_free (t_wire *self) {/* nothing here */} void wire_save (t_wire *self, t_binbuf *b) { ! t_canvas *c = self->dix->canvas; binbuf_addv(b,"ttiiii;","#X","connect", ! canvas_getindex(c,(t_gobj *)self->from), self->outlet, ! canvas_getindex(c,(t_gobj *)self->to), self->inlet); appendix_save((t_gobj *)self,b); } --- 606,617 ---- void wire_free (t_wire *self) {/* nothing here */} + /* this is only used for pd_upload yet, right? so, it can use the new indices instead already */ void wire_save (t_wire *self, t_binbuf *b) { ! // t_canvas *c = self->dix->canvas; binbuf_addv(b,"ttiiii;","#X","connect", ! // canvas_getindex(c,self->from), self->outlet, ! // canvas_getindex(c,self->to ), self-> inlet); ! self->from->dix->index, self->outlet, ! self->to ->dix->index, self-> inlet); appendix_save((t_gobj *)self,b); }

1 0

doc/tutorials/intro 46.pure_data_files.pd, 1.1.2.1, 1.1.2.2
by Hans-Christoph Steiner 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/doc/tutorials/intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9048 Modified Files: Tag: branch-v0-39-2-extended 46.pure_data_files.pd Log Message: checked in bug fix from Bjoern Hartmann Index: 46.pure_data_files.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/intro/46.pure_data_files.pd,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** 46.pure_data_files.pd 13 Feb 2007 03:34:57 -0000 1.1.2.1 --- 46.pure_data_files.pd 7 Aug 2007 16:57:32 -0000 1.1.2.2 *************** *** 1,53 **** ! #N canvas 461 69 588 551 10; ! #X obj 191 249 textfile; ! #X obj 111 279 print all; ! #X msg 191 213 rewind; ! #X obj 131 347 route canvas; ! #X obj 112 474 print width; ! #X obj 51 425 print Xpos; ! #X obj 81 450 print Ypos; ! #X obj 143 499 print heigth; ! #X obj 174 424 print fontsize; ! #X obj 51 394 unpack f f f f f; ! #X obj 295 427 s pd-clone; ! #X obj 191 274 route #N #X; ! #X obj 234 106 tgl 20 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ! ; ! #X msg 294 338 vis 1 \, clear; ! #X obj 142 174 + 1; ! #X obj 100 174 float; ! #X obj 272 152 select 1; ! #X obj 98 150 metro 300; ! #X text 35 54 Even .pd files use the same message format.; ! #X text 34 75 Here is a patch that reads the file of this patch and ! sends it to the "clone" subpatch \, making a clone:; ! #X obj 8 10 cnv 15 400 40 empty empty pure_data_files 10 15 0 24 -228992 ! -66577 0; ! #N canvas 0 22 556 607 clone 1; ! #X restore 428 494 pd clone; ! #X msg 317 214 read 46.pure_data_files.pd; ! #X obj 100 213 bang; ! #X connect 0 0 1 0; ! #X connect 0 0 11 0; ! #X connect 0 1 12 0; ! #X connect 2 0 0 0; ! #X connect 3 0 9 0; ! #X connect 9 0 5 0; ! #X connect 9 1 6 0; ! #X connect 9 2 4 0; ! #X connect 9 3 7 0; ! #X connect 9 4 8 0; ! #X connect 11 0 3 0; ! #X connect 11 1 10 0; ! #X connect 12 0 16 0; ! #X connect 12 0 17 0; ! #X connect 13 0 10 0; ! #X connect 14 0 15 1; ! #X connect 15 0 14 0; ! #X connect 15 0 23 0; ! #X connect 16 0 22 0; ! #X connect 16 0 2 0; ! #X connect 16 0 13 0; ! #X connect 17 0 15 0; ! #X connect 22 0 0 0; ! #X connect 23 0 0 0; --- 1,53 ---- ! #N canvas 690 65 592 555 10; ! #X obj 191 249 textfile; ! #X obj 111 279 print all; ! #X msg 191 213 rewind; ! #X obj 131 347 route canvas; ! #X obj 112 474 print width; ! #X obj 51 425 print Xpos; ! #X obj 81 450 print Ypos; ! #X obj 143 499 print heigth; ! #X obj 174 424 print fontsize; ! #X obj 51 394 unpack f f f f f; ! #X obj 295 427 s pd-clone; ! #X obj 191 274 route #N #X; ! #X obj 234 106 tgl 20 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ! ; ! #X msg 294 338 vis 1 \, clear; ! #X obj 142 174 + 1; ! #X obj 100 174 float; ! #X obj 272 152 select 1; ! #X obj 98 150 metro 300; ! #X text 35 54 Even .pd files use the same message format.; ! #X text 34 75 Here is a patch that reads the file of this patch and ! sends it to the "clone" subpatch \, making a clone:; ! #X obj 8 10 cnv 15 400 40 empty empty pure_data_files 10 15 0 24 -228992 ! -66577 0; ! #X msg 317 214 read 46.pure_data_files.pd; ! #X obj 100 213 bang; ! #N canvas 102 66 580 554 clone 1; ! #X restore 433 456 pd clone; ! #X connect 0 0 1 0; ! #X connect 0 0 11 0; ! #X connect 0 1 12 0; ! #X connect 2 0 0 0; ! #X connect 3 0 9 0; ! #X connect 9 0 5 0; ! #X connect 9 1 6 0; ! #X connect 9 2 4 0; ! #X connect 9 3 7 0; ! #X connect 9 4 8 0; ! #X connect 11 0 3 0; ! #X connect 11 1 10 0; ! #X connect 12 0 16 0; ! #X connect 12 0 17 0; ! #X connect 13 0 10 0; ! #X connect 14 0 15 1; ! #X connect 15 0 14 0; ! #X connect 15 0 22 0; ! #X connect 16 0 21 0; ! #X connect 16 0 2 0; ! #X connect 16 0 13 0; ! #X connect 17 0 15 0; ! #X connect 21 0 0 0; ! #X connect 22 0 0 0;

1 0

doc/tutorials/intro 46.pure_data_files.pd,1.1,1.2
by Hans-Christoph Steiner 07 Aug '07

07 Aug '07

Update of /cvsroot/pure-data/doc/tutorials/intro In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9017 Modified Files: 46.pure_data_files.pd Log Message: checked in bug fix from Bjoern Hartmann Index: 46.pure_data_files.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/intro/46.pure_data_files.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 46.pure_data_files.pd 7 May 2006 22:50:38 -0000 1.1 --- 46.pure_data_files.pd 7 Aug 2007 16:57:06 -0000 1.2 *************** *** 1,54 **** ! #N canvas 461 69 584 547 10; ! #X obj 191 249 textfile; ! #X obj 111 279 print all; ! #X msg 100 223 bang; ! #X msg 191 213 rewind; ! #X obj 131 347 route canvas; ! #X obj 112 474 print width; ! #X obj 51 425 print Xpos; ! #X obj 81 450 print Ypos; ! #X obj 143 499 print heigth; ! #X obj 174 424 print fontsize; ! #X obj 51 394 unpack f f f f f; ! #X obj 295 427 s pd-clone; ! #X obj 191 274 route #N #X; ! #X obj 234 106 tgl 20 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ! ; ! #X msg 294 338 vis 1 \, clear; ! #X obj 142 174 + 1; ! #X obj 100 174 float; ! #X obj 272 152 select 1; ! #X obj 98 150 metro 300; ! #X text 35 54 Even .pd files use the same message format.; ! #X text 34 75 Here is a patch that reads the file of this patch and ! sends it to the "clone" subpatch \, making a clone:; ! #X obj 8 10 cnv 15 400 40 empty empty pure_data_files 20 12 0 24 -228992 ! -66577 0; ! #X obj 100 198 moses 52; ! #N canvas 0 22 552 603 clone 1; ! #X restore 428 494 pd clone; ! #X msg 317 214 read 46.pure_data_files.pd; ! #X connect 0 0 1 0; ! #X connect 0 0 12 0; ! #X connect 2 0 0 0; ! #X connect 3 0 0 0; ! #X connect 4 0 10 0; ! #X connect 10 0 6 0; ! #X connect 10 1 7 0; ! #X connect 10 2 5 0; ! #X connect 10 3 8 0; ! #X connect 10 4 9 0; ! #X connect 12 0 4 0; ! #X connect 12 1 11 0; ! #X connect 13 0 17 0; ! #X connect 13 0 18 0; ! #X connect 14 0 11 0; ! #X connect 15 0 16 1; ! #X connect 16 0 15 0; ! #X connect 16 0 22 0; ! #X connect 17 0 24 0; ! #X connect 17 0 3 0; ! #X connect 17 0 14 0; ! #X connect 18 0 16 0; ! #X connect 22 0 2 0; ! #X connect 24 0 0 0; --- 1,53 ---- ! #N canvas 690 65 592 555 10; ! #X obj 191 249 textfile; ! #X obj 111 279 print all; ! #X msg 191 213 rewind; ! #X obj 131 347 route canvas; ! #X obj 112 474 print width; ! #X obj 51 425 print Xpos; ! #X obj 81 450 print Ypos; ! #X obj 143 499 print heigth; ! #X obj 174 424 print fontsize; ! #X obj 51 394 unpack f f f f f; ! #X obj 295 427 s pd-clone; ! #X obj 191 274 route #N #X; ! #X obj 234 106 tgl 20 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1 ! ; ! #X msg 294 338 vis 1 \, clear; ! #X obj 142 174 + 1; ! #X obj 100 174 float; ! #X obj 272 152 select 1; ! #X obj 98 150 metro 300; ! #X text 35 54 Even .pd files use the same message format.; ! #X text 34 75 Here is a patch that reads the file of this patch and ! sends it to the "clone" subpatch \, making a clone:; ! #X obj 8 10 cnv 15 400 40 empty empty pure_data_files 10 15 0 24 -228992 ! -66577 0; ! #X msg 317 214 read 46.pure_data_files.pd; ! #X obj 100 213 bang; ! #N canvas 102 66 580 554 clone 1; ! #X restore 433 456 pd clone; ! #X connect 0 0 1 0; ! #X connect 0 0 11 0; ! #X connect 0 1 12 0; ! #X connect 2 0 0 0; ! #X connect 3 0 9 0; ! #X connect 9 0 5 0; ! #X connect 9 1 6 0; ! #X connect 9 2 4 0; ! #X connect 9 3 7 0; ! #X connect 9 4 8 0; ! #X connect 11 0 3 0; ! #X connect 11 1 10 0; ! #X connect 12 0 16 0; ! #X connect 12 0 17 0; ! #X connect 13 0 10 0; ! #X connect 14 0 15 1; ! #X connect 15 0 14 0; ! #X connect 15 0 22 0; ! #X connect 16 0 21 0; ! #X connect 16 0 2 0; ! #X connect 16 0 13 0; ! #X connect 17 0 15 0; ! #X connect 21 0 0 0; ! #X connect 22 0 0 0;

1 0

← Newer
1
...
38
39
40
41
42
43
44
...
62
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 August 2007