Pd-cvs May 2006

pd-cvs@lists.iem.at

12 participants
138 discussions

pd/src desire.tk,1.1.2.199,1.1.2.200
by Mathieu Bouchard 07 May '06

07 May '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24091 Modified Files: Tag: devel_0_39 desire.tk Log Message: [lastlevel] gives the length of the callstack minus one Tcl box now evals in the global frame using [lastlevel] Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.199 retrieving revision 1.1.2.200 diff -C2 -d -r1.1.2.199 -r1.1.2.200 *** desire.tk 6 May 2006 23:46:40 -0000 1.1.2.199 --- desire.tk 7 May 2006 04:36:09 -0000 1.1.2.200 *************** *** 18,22 **** --- 18,29 ---- #-----------------------------------------------------------------------------------# # some list processing functions and some math too + # these could become another library like objective.tcl + # if they become substantial enough + # min finds the smallest of two values + # max finds the biggest of two values + # [clip $v $min $max] does [max $min [min $max $v]] + proc min {x y} {if {$x<$y} {return $x} {return $y}} + proc max {x y} {if {$x>$y} {return $x} {return $y}} proc clip {x min max} { if {$x<$min} {return $min} *************** *** 24,37 **** return $x } ! proc min {x y} {if {$x<$y} {return $x} {return $y}} ! proc max {x y} {if {$x>$y} {return $x} {return $y}} proc mset {vars list} {uplevel 1 "foreach {$vars} {$list} {}"} proc l+ { al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a + $b]}; return $r} proc l- { al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a - $b]}; return $r} proc lzip {op al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a $op $b]}; return $r} proc lmap {op al } {set r {}; foreach a $al b $bl {lappend r [expr $a $op ]}; return $r} proc l/2 { al } {set r {}; foreach a $al {lappend r [expr $a / 2]}; return $r} proc lsum {al} {set r 0; foreach a $al {set r [expr $r+$a]}; return $r} proc lprod {al} {set r 1; foreach a $al {set r [expr $r*$a]}; return $r} proc lreverse {list} { set r {} --- 31,54 ---- return $x } ! ! # set several variables from elements of a list proc mset {vars list} {uplevel 1 "foreach {$vars} {$list} {}"} + + # add or substract one value to a list proc l+ { al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a + $b]}; return $r} proc l- { al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a - $b]}; return $r} + + # like l+ or l- but for any infix supported by expr proc lzip {op al bl} {set r {}; foreach a $al b $bl {lappend r [expr $a $op $b]}; return $r} proc lmap {op al } {set r {}; foreach a $al b $bl {lappend r [expr $a $op ]}; return $r} + + # halve a list proc l/2 { al } {set r {}; foreach a $al {lappend r [expr $a / 2]}; return $r} + + # sum and product of a list, like math's capital Sigma and capital Pi. proc lsum {al} {set r 0; foreach a $al {set r [expr $r+$a]}; return $r} proc lprod {al} {set r 1; foreach a $al {set r [expr $r*$a]}; return $r} + + # all elements from end to beginning proc lreverse {list} { set r {} *************** *** 40,43 **** --- 57,62 ---- } + # list substraction is like set substraction but order-preserving + # this is the same algorithm as Ruby's - operation on Arrays proc lwithout {a b} { set r {} *************** *** 47,50 **** --- 66,70 ---- } + # removes duplicates from a list, but it must be already sorted. proc luniq {a} { set r {} *************** *** 58,61 **** --- 78,94 ---- } + # finds the current length of the callstack, minus one. + # uplevel [thislevel] {...} gives access to the global context. + proc lastlevel {} { + set m 0; set n 1 + while {![catch {uplevel $n {}}]} {set m $n; incr n $n} + # from now on, m <= lastlevel < n + while {$n-$m>1} { + set p [expr ($m+$n)/2] + if {[catch {uplevel $p {}}]} {set n $p} {set m $p} + } + return [expr $m-1] + } + #-----------------------------------------------------------------------------------# # Observer pattern *************** *** 3115,3119 **** } ! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [eval $l]"} proc pd_eval {self l} {post %s "pd: $l"; pd $l} proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"} --- 3148,3152 ---- } ! proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [lastlevel] $l]"} proc pd_eval {self l} {post %s "pd: $l"; pd $l} proc gdb_eval {self l} {post %s "gdb: $l"; global gdb; puts $gdb "$l"}

1 0

pd/src desire.tk,1.1.2.198,1.1.2.199
by chunlee 07 May '06

07 May '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18555 Modified Files: Tag: devel_0_39 desire.tk Log Message: commited some code for auto completion... its just the beginning Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.198 retrieving revision 1.1.2.199 diff -C2 -d -r1.1.2.198 -r1.1.2.199 *** desire.tk 5 May 2006 16:20:59 -0000 1.1.2.198 --- desire.tk 6 May 2006 23:46:40 -0000 1.1.2.199 *************** *** 1321,1325 **** if {$@edit} {return} set t .$(a)canvas.c.${self}text ! set propose .$(a)canvas.c.${self}propose set @edit 1 set @tab_repeats 0 --- 1321,1327 ---- if {$@edit} {return} set t .$(a)canvas.c.${self}text ! #--------------------------------------- label completion ! #set propose .$(a)canvas.c.${self}propose ! #--------------------------------------- set @edit 1 set @tab_repeats 0 *************** *** 1330,1337 **** $self update_size $self changed ! # for display tab completion ! text $propose -height 1 -width [expr [string length $@text]+1] -relief flat \ ! -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ ! -font $font(str) -fg red text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ --- 1332,1340 ---- $self update_size $self changed ! #--------------------------------------- label completion ! #text $propose -height 1 -width [expr [string length $@text]+1] -relief flat \ ! # -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ ! # -font $font(str) -fg red ! #--------------------------------------- text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ *************** *** 1342,1349 **** bind $t <Return> "$self unedit" mset {cx cy} [$self xy] ! # for display tab completion ! # need to look into this font(height) for setting the -height..... no idea why ! .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ ! -window $propose -anchor nw -tags "${self}propose $self" -height $font(height) .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ -window $t -anchor nw -tags "${self}text $self" --- 1345,1354 ---- bind $t <Return> "$self unedit" mset {cx cy} [$self xy] ! #--------------------------------------- label completion ! ## for display tab completion ! ## need to look into this font(height) for setting the -height..... no idea why ! #.$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ ! # -window $propose -anchor nw -tags "${self}propose $self" -height $font(height) ! #--------------------------------------- .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ -window $t -anchor nw -tags "${self}text $self" *************** *** 1359,1364 **** switch -- $key { Tab {$self propose_completions; $widget configure -state disabled} ! #default {.$(a)canvas.c coords ${self}propose -100 -100; set @tab_repeats 0} ! default {lower .$(a)canvas.c.${self}propose $widget; set @tab_repeats 0} } } --- 1364,1370 ---- switch -- $key { Tab {$self propose_completions; $widget configure -state disabled} ! #--------------------------------------- label completion ! #default {lower .$(a)canvas.c.${self}propose $widget; set @tab_repeats 0} ! #--------------------------------------- } } *************** *** 1437,1441 **** $self erase after 1 "destroy $t" ! after 1 "destroy $propose" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} --- 1443,1449 ---- $self erase after 1 "destroy $t" ! #--------------------------------------- label completion ! #after 1 "destroy $propose" ! #--------------------------------------- set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} *************** *** 3342,3345 **** --- 3350,3382 ---- ############ completions + def* Canvas show_completions {x y text {on_hide ""}} { + global font look + set f .$self.comp + listbox $f -width 5 -height 5 -relief raised -bg red + .$self.c create window [expr $x+2] [expr $y+2] \ + -window $f -anchor nw -tags "${self}completebox $self" + # -window $f -anchor nw -tags "${self}completebox $self" -height [expr $font(height) * 22] -width [expr $font(height) * 22] + # global tooltip + # if {$tooltip(visible) && [string compare $text $tooltip(text)]==0} {return} + # $self hide_tooltip + # set border 4 + # set x [expr $x+$border+4] + # set c .$self.c + # $c create text $x $y -text $text -anchor w -tags tooltip_fg + # mset {x1 y1 x2 y2} [$c bbox tooltip_fg] + # set w 0 + # set h 0 + # $c create rectangle \ + # [expr $x1-$border] [expr $y1-$border] \ + # [expr $x2+$border] [expr $y2+$border] \ + # -fill "#ffffcc" -outline "#000000" -tags tooltip_bg + # $c lower tooltip_bg tooltip_fg + # set tooltip(curpos) $@curpos + # set tooltip(canvas) $self + # set tooltip(visible) 1 + # set tooltip(text) $text + # set tooltip(on_hide) $on_hide + } + def TextBox propose_completions {} { global class_list *************** *** 3371,3384 **** } set r [join $r "\n"] ! set next_obj [lindex $c $@tab_repeats] ! puts "tab....$@tab_repeats ::: $next_obj" ! $propose configure -width [string length $next_obj] ! $propose delete 1.0 1.end ! $propose insert 1.0 $next_obj mset {x1 y1 x2 y2} [$self bbox] ! #.$(a)canvas.c coords ${self}propose [expr $x1+1] [expr $y1+1] ! raise $propose $widget ! #$@canvas show_tooltip $x2 $y1 $r ! incr @tab_repeats } --- 3408,3422 ---- } set r [join $r "\n"] ! #--------------------------------------- label completion ! #set next_obj [lindex $c $@tab_repeats] ! #puts "tab....$@tab_repeats ::: $next_obj" ! #$propose configure -width [string length $next_obj] ! #$propose delete 1.0 1.end ! #$propose insert 1.0 $next_obj ! #raise $propose $widget ! #incr @tab_repeats ! #--------------------------------------- mset {x1 y1 x2 y2} [$self bbox] ! $@canvas show_completions $x2 $y1 $r }

1 0

pd/src s_audio_portaudio.c,1.1.2.4,1.1.2.5
by Thomas Grill 06 May '06

06 May '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16791/src Modified Files: Tag: devel_0_39 s_audio_portaudio.c Log Message: added default return values (index not found) Index: s_audio_portaudio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/s_audio_portaudio.c,v retrieving revision 1.1.2.4 retrieving revision 1.1.2.5 diff -C2 -d -r1.1.2.4 -r1.1.2.5 *** s_audio_portaudio.c 5 May 2006 20:55:52 -0000 1.1.2.4 --- s_audio_portaudio.c 6 May 2006 18:11:20 -0000 1.1.2.5 *************** *** 592,595 **** --- 592,597 ---- } } + + return -1; } *************** *** 611,613 **** --- 613,617 ---- } } + + return -1; }

1 0

pd/src s_audio_portaudio.c,1.1.2.3,1.1.2.4
by Tim Blechmann 05 May '06

05 May '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19642/src Modified Files: Tag: devel_0_39 s_audio_portaudio.c Log Message: reverting portaudio/pd indexing Index: s_audio_portaudio.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/s_audio_portaudio.c,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** s_audio_portaudio.c 23 Apr 2006 12:13:45 -0000 1.1.2.3 --- s_audio_portaudio.c 5 May 2006 20:55:52 -0000 1.1.2.4 *************** *** 67,70 **** --- 67,73 ---- static int pa_bufferpos; + static int pdindev2paindev(int pdindev); + static int pdoutdev2paoutdev(int pdoutdev); + int process (const void *input, void *output, unsigned long frameCount, const PaStreamCallbackTimeInfo* timeInfo, *************** *** 112,132 **** if (inchans > 0) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(indeviceno); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) { ! pa_indev = indeviceno; } } ! if (outchans > 0) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(outdeviceno); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) { ! pa_outdev = outdeviceno; } } if (1/* sys_verbose */) --- 115,156 ---- if (inchans > 0) { ! for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(j); ! int maxchans = info->maxInputChannels; ! if (maxchans > 0) ! { ! if (devno == indeviceno) ! { ! if (maxchans < inchans) ! inchans = maxchans; ! pa_indev = j; ! break; ! } ! devno++; ! } } } ! if (outchans > 0) { ! for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) { ! const PaDeviceInfo *info = Pa_GetDeviceInfo(j); ! int maxchans = info->maxOutputChannels; ! if (maxchans > 0) ! { ! if (devno == outdeviceno) ! { ! if (maxchans < outchans) ! outchans = maxchans; ! pa_outdev = j; ! break; ! } ! devno++; ! } } } + if (1/* sys_verbose */) *************** *** 430,434 **** { const PaDeviceInfo *pdi = Pa_GetDeviceInfo(i); ! if (nin < maxndev) { PaHostApiIndex api = pdi->hostApi; --- 454,458 ---- { const PaDeviceInfo *pdi = Pa_GetDeviceInfo(i); ! if (pdi->maxInputChannels > 0 && nin < maxndev) { PaHostApiIndex api = pdi->hostApi; *************** *** 441,445 **** nin++; } ! if (nout < maxndev) { PaHostApiIndex api = pdi->hostApi; --- 465,469 ---- nin++; } ! if (pdi->maxOutputChannels > 0 && nout < maxndev) { PaHostApiIndex api = pdi->hostApi; *************** *** 460,464 **** void pa_getaudioindevinfo(t_float f) { ! int i = (int)f; const PaDeviceInfo * pdi; --- 484,488 ---- void pa_getaudioindevinfo(t_float f) { ! int i = pdindev2paindev((int)f); const PaDeviceInfo * pdi; *************** *** 481,485 **** void pa_getaudiooutdevinfo(t_float f) { ! int i = (int)f; const PaDeviceInfo * pdi; --- 505,509 ---- void pa_getaudiooutdevinfo(t_float f) { ! int i = pdoutdev2paoutdev((int)f); const PaDeviceInfo * pdi; *************** *** 525,528 **** --- 549,555 ---- PaStreamParameters inputParameters, outputParameters; + indev = pdindev2paindev(indev); + outdev = pdoutdev2paoutdev(outdev); + if ((pa_indev == -1) && (pa_outdev == -1)) { *************** *** 547,548 **** --- 574,613 ---- } } + + static int pdindev2paindev(int pdindev) + { + int j; + int devno; + for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) + { + const PaDeviceInfo *info = Pa_GetDeviceInfo(j); + int maxchans = info->maxInputChannels; + if (maxchans > 0) + { + if (devno == pdindev) + { + return devno; + } + devno++; + } + } + } + + static int pdoutdev2paoutdev(int pdoutdev) + { + int j; + int devno; + for (j = 0, devno = 0; j < Pa_GetDeviceCount(); j++) + { + const PaDeviceInfo *info = Pa_GetDeviceInfo(j); + int maxchans = info->maxOutputChannels; + if (maxchans > 0) + { + if (devno == pdoutdev) + { + return devno; + } + devno++; + } + } + }

1 0

pd/src desire.tk,1.1.2.197,1.1.2.198
by chunlee 05 May '06

05 May '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4120 Modified Files: Tag: devel_0_39 desire.tk Log Message: commit some code for the object name tab completion, will continue on this a bit later.... Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.197 retrieving revision 1.1.2.198 diff -C2 -d -r1.1.2.197 -r1.1.2.198 *** desire.tk 3 May 2006 14:01:15 -0000 1.1.2.197 --- desire.tk 5 May 2006 16:20:59 -0000 1.1.2.198 *************** *** 1295,1299 **** class_new TextBox {Box} ! def TextBox draw {} { # TEXT = the text label # text = the input text field --- 1295,1299 ---- class_new TextBox {Box} ! def* TextBox draw {} { # TEXT = the text label # text = the input text field *************** *** 1320,1346 **** global look font if {$@edit} {return} set @edit 1 $@canvas obj_in_edit= $self set @selected? 1 .$(a)canvas.c delete ${self}TEXT #set @oldtext $@text - set t .$(a)canvas.c.${self}text $self update_size $self changed text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ -font $font(str) -fg $look(objectfg) ! #text $t -height 1 -width $@textchars -relief flat \ ! # -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ ! # -font [format -*-courier-medium--normal--%d-* $font(size)] bind $t <Key> "$self key %W %x %y %K %A 0" bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" mset {cx cy} [$self xy] .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ ! -window $t -anchor nw -tags "${self}text $self" #$self draw $t configure -pady 0 -padx 1 ! $t insert 1.0 $@text focus $t } --- 1320,1355 ---- global look font if {$@edit} {return} + set t .$(a)canvas.c.${self}text + set propose .$(a)canvas.c.${self}propose set @edit 1 + set @tab_repeats 0 $@canvas obj_in_edit= $self set @selected? 1 .$(a)canvas.c delete ${self}TEXT #set @oldtext $@text $self update_size $self changed + # for display tab completion + text $propose -height 1 -width [expr [string length $@text]+1] -relief flat \ + -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ + -font $font(str) -fg red text $t -height 1 -width [expr [string length $@text]+1] -relief flat \ -bg ${look(objectbg)} -borderwidth 0 -highlightthickness 0\ -font $font(str) -fg $look(objectfg) ! #${look(objectbg)} bind $t <Key> "$self key %W %x %y %K %A 0" bind $t <Control-Return> "$self key %W %x %y 10 %A 0" bind $t <Return> "$self unedit" mset {cx cy} [$self xy] + # for display tab completion + # need to look into this font(height) for setting the -height..... no idea why .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ ! -window $propose -anchor nw -tags "${self}propose $self" -height $font(height) ! .$(a)canvas.c create window [expr $cx+2] [expr $cy+2] \ ! -window $t -anchor nw -tags "${self}text $self" #$self draw $t configure -pady 0 -padx 1 ! $t insert 1.0 $@text ! #set @entered [$t get 1.0 1.end] focus $t } *************** *** 1350,1353 **** --- 1359,1364 ---- switch -- $key { Tab {$self propose_completions; $widget configure -state disabled} + #default {.$(a)canvas.c coords ${self}propose -100 -100; set @tab_repeats 0} + default {lower .$(a)canvas.c.${self}propose $widget; set @tab_repeats 0} } } *************** *** 1391,1395 **** } ! def ObjectBox draw {} { $self update_size set xs $@xs --- 1402,1406 ---- } ! def* ObjectBox draw {} { $self update_size set xs $@xs *************** *** 1422,1428 **** --- 1433,1441 ---- set c .$(a)canvas.c set t $c.${self}text + set propose $c.${self}propose set @text [$t get 1.0 1.end] $self erase after 1 "destroy $t" + after 1 "destroy $propose" set l {} foreach char [split $@text ""] {lappend l [scan $char %c]} *************** *** 3331,3334 **** --- 3344,3351 ---- def TextBox propose_completions {} { global class_list + # .x8241f48.c.x8242130text + set widget .$(a)canvas.c.${self}text + set propose .$(a)canvas.c.${self}propose + #$propose configure -state normal if {![info exists class_list]} { pd pd update-class-list $self propose_completions *************** *** 3337,3340 **** --- 3354,3358 ---- } set r {} + set c {} set n 0 set prev "" *************** *** 3343,3348 **** --- 3361,3368 ---- if {[string compare [say $class] "{{$class}}"]} { lappend r "$class : [say $class]" + lappend c $class } { lappend r $class + lappend c $class } incr n *************** *** 3350,3357 **** if {$n > 16} {lappend r ...; break} } - #post_to_gui "$r\n" set r [join $r "\n"] mset {x1 y1 x2 y2} [$self bbox] ! $@canvas show_tooltip $x2 $y1 $r } --- 3370,3384 ---- if {$n > 16} {lappend r ...; break} } set r [join $r "\n"] + set next_obj [lindex $c $@tab_repeats] + puts "tab....$@tab_repeats ::: $next_obj" + $propose configure -width [string length $next_obj] + $propose delete 1.0 1.end + $propose insert 1.0 $next_obj mset {x1 y1 x2 y2} [$self bbox] ! #.$(a)canvas.c coords ${self}propose [expr $x1+1] [expr $y1+1] ! raise $propose $widget ! #$@canvas show_tooltip $x2 $y1 $r ! incr @tab_repeats }

1 0

externals/bbogart/entry entry-help.pd,1.1,1.2
by Hans-Christoph Steiner 05 May '06

05 May '06

Update of /cvsroot/pure-data/externals/bbogart/entry In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26989 Modified Files: entry-help.pd Log Message: added creation arguments Index: entry-help.pd =================================================================== RCS file: /cvsroot/pure-data/externals/bbogart/entry/entry-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** entry-help.pd 20 Mar 2004 23:52:47 -0000 1.1 --- entry-help.pd 5 May 2006 09:51:56 -0000 1.2 *************** *** 1,13 **** ! #N canvas 0 22 407 362 10; ! #X obj 43 152 entry 150 100 grey95 black; ! #X obj 28 88 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 68 284 print; ! #X msg 154 79 clear; ! #X msg 158 111 set one two three four five six; ! #X msg 124 292 Can you see what I am; ! #X msg 124 268 set \$1 \$2 \$3 \$4 \$5 \$6; ! #X msg 103 55 fgcolour yellow; ! #X msg 67 27 bgcolour purple; #X connect 0 0 2 0; #X connect 0 0 6 0; --- 1,18 ---- ! #N canvas 200 48 434 445 10; ! #X obj 73 132 entry 150 100 grey95 black; ! #X obj 11 84 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; ! #X obj 32 266 print; ! #X msg 137 75 clear; ! #X msg 141 107 set one two three four five six; ! #X msg 88 274 Can you see what I am; ! #X msg 88 250 set \$1 \$2 \$3 \$4 \$5 \$6; ! #X msg 86 51 fgcolour yellow; ! #X msg 50 23 bgcolour purple; ! #X obj 128 363 entry 150 50 grey70 purple; ! #X text 11 336 The one was created with: entry 150 50 grey70 purple ! ; ! #X text 8 305 Creation arguments are: width height bgcolor fgcolor. ! The width and height are in pixels.; #X connect 0 0 2 0; #X connect 0 0 6 0;

1 0

doc/tutorials/networking 07.matching_with_wildcards.pd, NONE, 1.1
by Hans-Christoph Steiner 05 May '06

05 May '06

Update of /cvsroot/pure-data/doc/tutorials/networking In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30727 Added Files: 07.matching_with_wildcards.pd Log Message: super quick OSC wildcard example --- NEW FILE: 07.matching_with_wildcards.pd --- #N canvas 129 112 644 464 10; #X obj 8 10 cnv 15 400 40 empty empty matching_with_wildcards 20 12 0 24 -228992 -66577 0; #X text 10 69 OSC gives you a very useful feature which regular [route] does not: wildcards. Wildcards are characters that match any pattern. The * is the most common \, it means match any amount of any character: ; #X obj 38 236 bng 15 250 50 0 empty empty match 18 8 0 12 -262144 -1 -1; #X obj 130 236 bng 15 250 50 0 empty empty unmatched 18 8 0 12 -262144 -1 -1; #X msg 30 134 /test/message data; #X obj 37 216 OSCroute /*; #X msg 56 185 /1/2/3 data; #X msg 56 159 /some/other/message 1 2 3; #X text 142 214 <-- notice the * in the pattern; #X text 320 347 <-- notice the * in the pattern; #X msg 212 278 /inst2/note B; #X msg 110 279 /inst1/note C; #X msg 229 319 /inst3/note F; #X obj 202 346 OSCroute /*; #X msg 219 298 /player3/note D; #X obj 274 366 bng 15 250 50 0 empty empty unmatched 18 8 0 12 -262144 -1 -1; #X obj 294 409 bng 15 250 50 0 empty empty unmatched 18 8 0 12 -262144 -1 -1; #X obj 202 388 OSCroute /note; #X obj 202 410 symbol; #X symbolatom 202 432 10 0 0 0 - - -; #X connect 4 0 5 0; #X connect 5 0 2 0; #X connect 5 1 3 0; #X connect 6 0 5 0; #X connect 7 0 5 0; #X connect 10 0 13 0; #X connect 11 0 13 0; #X connect 12 0 13 0; #X connect 13 0 17 0; #X connect 13 1 15 0; #X connect 14 0 13 0; #X connect 17 0 18 0; #X connect 17 1 16 0; #X connect 18 0 19 0;

1 0

doc/tutorials/networking 06.routing_OSC.pd,NONE,1.1
by Hans-Christoph Steiner 05 May '06

05 May '06

Update of /cvsroot/pure-data/doc/tutorials/networking In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26661 Added Files: 06.routing_OSC.pd Log Message: made basic OSC routing example, could use some work --- NEW FILE: 06.routing_OSC.pd --- #N canvas 158 45 644 464 10; #X obj 8 10 cnv 15 400 40 empty empty routing_OSC 20 12 0 24 -228992 -66577 0; #X text 13 61 OSC messages have two parts \, the identifier and the data. The idenifier is made up of symbols separated by slashes ("/"). [OSCroute] is similar to [route] but is specifically for OSC messages. ; #X obj 24 168 OSCroute /test; #X obj 24 223 OSCroute /message; #X obj 35 193 print first; #X obj 23 272 symbol; #X symbolatom 23 296 0 0 0 0 - - -; #X obj 362 272 symbol; #X symbolatom 362 296 0 0 0 0 - - -; #X obj 363 168 route test; #X obj 363 223 route message; #X obj 35 246 print second; #X msg 25 123 /test/message OSCdata; #X msg 363 124 test message pddata; #X obj 374 193 print 1st; #X obj 374 247 print 2nd; #X msg 33 145 /test/message otherOSCdata; #X msg 378 145 test message otherpddata; #X text 17 321 Like [route] \, [OSCroute] outputs anything that didn't match out of the right-most outlet. This includes patterns not starting with a / and patterns starting with a number.; #X obj 165 435 bng 15 250 50 0 empty empty match 18 8 0 12 -262144 -1 -1; #X obj 257 435 bng 15 250 50 0 empty empty unmatched 18 8 0 12 -262144 -1 -1; #X msg 204 375 test/message data; #X msg 42 376 /test/message data; #X obj 165 413 OSCroute /test; #X connect 2 0 3 0; #X connect 2 0 4 0; #X connect 3 0 5 0; #X connect 3 0 11 0; #X connect 5 0 6 0; #X connect 7 0 8 0; #X connect 9 0 10 0; #X connect 9 0 14 0; #X connect 10 0 7 0; #X connect 10 0 15 0; #X connect 12 0 2 0; #X connect 13 0 9 0; #X connect 16 0 2 0; #X connect 17 0 9 0; #X connect 21 0 23 0; #X connect 22 0 23 0; #X connect 23 0 19 0; #X connect 23 1 20 0;

1 0

doc/tutorials/networking 01.network_ports.pd, NONE, 1.1 02.netsend_netreceive.pd, NONE, 1.1 03.tcp_and_udp.pd, NONE, 1.1 04.netserver_and_netclient.pd, NONE, 1.1 05.OSC.pd, NONE, 1.1 TODO, NONE, 1.1 01.netsend_netreceive.pd, 1.2, NONE 02.tcp_and_udp.pd, 1.1, NONE
by Hans-Christoph Steiner 05 May '06

05 May '06

Update of /cvsroot/pure-data/doc/tutorials/networking In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16710 Added Files: 01.network_ports.pd 02.netsend_netreceive.pd 03.tcp_and_udp.pd 04.netserver_and_netclient.pd 05.OSC.pd TODO Removed Files: 01.netsend_netreceive.pd 02.tcp_and_udp.pd Log Message: first sketch on net intro --- NEW FILE: 05.OSC.pd --- #N canvas 115 56 644 464 10; #X obj 8 10 cnv 15 400 40 empty empty OSC 20 12 0 24 -228992 -66577 0; #X obj 80 298 sendOSC; #X floatatom 79 323 5 0 0 0 - - -; #X msg 113 271 disconnect; #X floatatom 123 322 5 0 0 0 - - -; #X msg 21 164 send /kuva \$1; #X floatatom 22 149 5 0 0 0 - - -; #X floatatom 122 148 5 0 0 0 - - -; #X floatatom 342 295 5 0 0 0 - - -; #X obj 338 312 print kuva; #X msg 122 164 send /space \$1; #X obj 340 231 dumpOSC 30200; #X msg 109 249 connect localhost 30200; #X floatatom 231 147 5 0 0 0 - - -; #X msg 231 163 send /asdf \$1; #X obj 339 259 OSCroute /kuva /space; #X obj 414 312 print space; #X obj 498 312 print other; #X floatatom 421 295 5 0 0 0 - - -; #X text 10 65 OSC is a protocol for sharing data across networks and applications. OSC stands for Open Sound Control. It was originally designed to replace MIDI \, but it has caught on instead for inter-application communication.; #X text 21 361 On the most basic level \, it works very similarly to [netsend] and [netreceive].; #X connect 1 0 2 0; #X connect 1 1 4 0; #X connect 3 0 1 0; #X connect 5 0 1 0; #X connect 6 0 5 0; #X connect 7 0 10 0; #X connect 10 0 1 0; #X connect 11 0 15 0; #X connect 12 0 1 0; #X connect 13 0 14 0; #X connect 14 0 1 0; #X connect 15 0 8 0; #X connect 15 0 9 0; #X connect 15 1 16 0; #X connect 15 1 18 0; #X connect 15 2 17 0; --- NEW FILE: 01.network_ports.pd --- #N canvas 16 37 648 468 10; #X obj 8 10 cnv 15 400 40 empty empty network_ports 20 12 0 24 -228992 -66577 0; #X obj 49 418 pddp/pddplink http://en.wikipedia.org/wiki/TCP_and_UDP_port ; #X text 10 63 In computer speak \, a "port" is an interface thru which data is sent and received. Network ports are numbered \, and can be 1-65535. Network services are usually registered to use a specific network port. HTTP uses port 80 \, sending email uses port 25 \, IMAP uses port 143; #X text 10 140 Before using a network port for your application \, you should check to make sure that it isn't already used. You can see a list of registered ports in a file called "services". On UNIX-based systems \, its located in /etc/services. On Windows \, its located in C:/WINDOWS/system32/drivers/etc/services; #X text 10 231 On UNIX-based systems \, ports 0-1024 can only be used by the administrator account "root". Windows does not have this restriction. Most of the ports below 1024 are claimed anyway \, so its best to use port numbers higher than 1024; #X text 9 331 root-only; #X text 101 330 often used; #X text 255 330 mostly available; #X text 6 348 0.......1024............10000..........................65535 ; --- NEW FILE: 04.netserver_and_netclient.pd --- #N canvas 15 58 644 464 10; #X obj 8 10 cnv 15 400 40 empty empty netserver_and_netclient 20 12 0 24 -228992 -66577 0; #X floatatom 61 243 5 0 0 0 - - -; #X floatatom 91 224 5 0 0 0 - - -; #X symbolatom 165 178 10 0 0 0 - - -; #X floatatom 122 201 5 0 0 0 - - -; #X text 160 203 socket number; #X obj 125 375 netclient; #X msg 164 344 disconnect; #X floatatom 184 397 5 0 0 0 - - -; #X msg 141 296 send \$1; #X obj 338 373 netclient; #X msg 355 343 disconnect; #X floatatom 395 394 5 0 0 0 - - -; #X msg 338 303 send \$1; #X obj 338 419 print client2; #X floatatom 140 278 5 0 0 0 - - -; #X floatatom 337 285 5 0 0 0 - - -; #X obj 61 177 netserver 3001; #X msg 124 323 connect localhost 3001; #X msg 307 324 connect localhost 3001; #X msg 62 144 broadcast hello kuva!; #X text 99 244 data; #X text 133 225 connections; #X text 164 163 IP address; #X obj 125 419 print client1; #X text 302 162 netserver connects; #X text 301 174 different clients over; #X text 301 188 a network \, broadcasting; #X text 301 200 stream of information; #X text 300 211 through a server; #X text 13 71 [netserver] and [netclient] gives you a bi-directional connection so you can send data back and forth thru it. Also \, [netserver] helps you manage multiple connections.; #X connect 6 0 24 0; #X connect 6 1 8 0; #X connect 7 0 6 0; #X connect 9 0 6 0; #X connect 10 0 14 0; #X connect 10 1 12 0; #X connect 11 0 10 0; #X connect 13 0 10 0; #X connect 15 0 9 0; #X connect 16 0 13 0; #X connect 17 0 1 0; #X connect 17 1 2 0; #X connect 17 2 4 0; #X connect 17 3 3 0; #X connect 18 0 6 0; #X connect 19 0 10 0; #X connect 20 0 17 0; --- 01.netsend_netreceive.pd DELETED --- --- NEW FILE: 02.netsend_netreceive.pd --- #N canvas 15 58 636 456 10; #X obj 8 10 cnv 15 400 40 empty empty netsend_netreceive 20 12 0 24 -228992 -66577 0; #X obj 56 211 send \$0-local-data; #X obj 56 342 receive \$0-local-data; #X obj 60 174 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225271 -1 -1 0 1; #X obj 59 381 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 311 174 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225280 -1 -1 0 1; #X obj 311 381 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 -1 -1 0 1; #X obj 308 261 netsend; #X obj 308 341 netreceive 34567; #X msg 326 222 connect localhost 34567; #X obj 308 280 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 415 360 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X text 329 279 <-- connection status; #X text 433 360 <-- connection status; #X msg 327 241 disconnect; #X msg 308 199 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; --- 02.tcp_and_udp.pd DELETED --- --- NEW FILE: TODO --- Topics to Add ------------- - netsend/netreceive - tcp and udp - netclient/netserver - chat client/server exercise - OSC - running Pd as a daemon - netpd --- NEW FILE: 03.tcp_and_udp.pd --- #N canvas 185 93 648 468 10; #X obj 511 62 import maxlib; #X obj 10 10 cnv 15 400 40 empty empty tcp_and_udp 20 12 0 24 -228992 -66577 0; #X text 11 66 There are two main protocols for transmitting data over networks: TCP and UDP.; #X text 35 119 TCP is the most common \, it stands for Transmission Control Protocol. Basically \, that means that the protocol manages the transmission of the data. With TCP \, when you send a packet of data \, its guaranteed to arrive.; #X text 34 202 By default \, most networking objects in Pd use TCP: ; #X obj 54 223 netsend; #X obj 266 224 netclient; #X obj 359 224 netserver; #X text 178 285 UDP stands for User Datagram Protocol. It is a lightweight \, simple protocol that is meant to be as quick and small as possible. The downside is that the data packets are not guaranteed to arrive. ; #X obj 35 180 pddp/pddplink http://en.wikipedia.org/wiki/Transmission_Control_Protocol ; #X obj 177 345 pddp/pddplink http://en.wikipedia.org/wiki/User_Datagram_Protocol ; #X obj 132 224 netreceive 32194; #X obj 265 376 netreceive 32194 1; #X obj 187 376 netsend 1; #X obj 407 376 sendOSC; #X obj 478 376 dumpOSC 32192; #X text 180 399 One advantage to UDP is that you do not need to maintain a connection to receive data. Whenever you open a UDP port \, you will start receiving data.;

1 0

doc/tutorials/networking 01.netsend_netreceive.pd, 1.1, 1.2 TEMPLATE.pd, 1.2, 1.3 chat-client.pd, 1.2, 1.3
by Hans-Christoph Steiner 05 May '06

05 May '06

Update of /cvsroot/pure-data/doc/tutorials/networking In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3574 Modified Files: 01.netsend_netreceive.pd TEMPLATE.pd chat-client.pd Log Message: minor tweaks Index: TEMPLATE.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/networking/TEMPLATE.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TEMPLATE.pd 11 Apr 2006 02:29:04 -0000 1.2 --- TEMPLATE.pd 5 May 2006 06:54:46 -0000 1.3 *************** *** 1,3 **** ! #N canvas 15 58 636 456 10; #X obj 8 10 cnv 15 400 40 empty empty TEMPLATE 20 12 0 24 -228992 -66577 0; --- 1,3 ---- ! #N canvas 15 58 640 460 10; #X obj 8 10 cnv 15 400 40 empty empty TEMPLATE 20 12 0 24 -228992 -66577 0; Index: chat-client.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/networking/chat-client.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** chat-client.pd 11 Apr 2006 02:36:53 -0000 1.2 --- chat-client.pd 5 May 2006 06:54:46 -0000 1.3 *************** *** 1,9 **** ! #N canvas 114 52 613 511 10; ! #X obj 446 11 import maxlib cyclone; #X msg 130 295 disconnect; #X obj 108 323 netclient; #X obj 50 233 prepend send; ! #X obj 108 377 prepend set; ! #X obj 60 377 print; #X obj 27 66 trigger bang bang; #X msg 27 88 clear; --- 1,9 ---- ! #N canvas 257 22 610 553 10; ! #X obj 413 12 import maxlib cyclone zexy; #X msg 130 295 disconnect; #X obj 108 323 netclient; #X obj 50 233 prepend send; ! #X obj 125 415 prepend set; ! #X obj 136 356 print; #X obj 27 66 trigger bang bang; #X msg 27 88 clear; *************** *** 39,52 **** #X connect 11 0 7 0; #X coords 0 -1 1 1 25 25 1 100 100; ! #X restore 181 345 pd; #X msg 108 266 connect pdbox.at.or.at 47292; #X msg 27 27 send; ! #X obj 108 398 entry 300 100 grey90 black; #X obj 49 121 entry 300 100 grey90 black; #X text 114 96 type your message in the box below \, and click send above; #X connect 1 0 2 0; - #X connect 2 0 4 0; #X connect 2 0 5 0; #X connect 2 1 10 0; #X connect 3 0 2 0; --- 39,56 ---- #X connect 11 0 7 0; #X coords 0 -1 1 1 25 25 1 100 100; ! #X restore 191 345 pd; #X msg 108 266 connect pdbox.at.or.at 47292; #X msg 27 27 send; ! #X obj 125 436 entry 300 100 grey90 black; #X obj 49 121 entry 300 100 grey90 black; #X text 114 96 type your message in the box below \, and click send above; + #X obj 67 356 niagara 1; + #X text 68 437 message:; + #X symbolatom 67 398 25 0 0 0 sender: - -; + #X obj 67 377 symbol; #X connect 1 0 2 0; #X connect 2 0 5 0; + #X connect 2 0 16 0; #X connect 2 1 10 0; #X connect 3 0 2 0; *************** *** 58,59 **** --- 62,66 ---- #X connect 12 0 6 0; #X connect 14 0 3 0; + #X connect 16 0 19 0; + #X connect 16 1 4 0; + #X connect 19 0 18 0; Index: 01.netsend_netreceive.pd =================================================================== RCS file: /cvsroot/pure-data/doc/tutorials/networking/01.netsend_netreceive.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** 01.netsend_netreceive.pd 8 Apr 2006 04:54:57 -0000 1.1 --- 01.netsend_netreceive.pd 5 May 2006 06:54:44 -0000 1.2 *************** *** 1,26 **** ! #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 --- 1,26 ---- ! #N canvas 15 58 636 456 10; #X obj 8 10 cnv 15 400 40 empty empty netsend_netreceive 20 12 0 24 -228992 -66577 0; ! #X obj 56 211 send \$0-local-data; ! #X obj 56 342 receive \$0-local-data; ! #X obj 60 174 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225271 ! -1 -1 0 1; ! #X obj 59 381 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 1; ! #X obj 311 174 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -225280 ! -1 -1 0 1; ! #X obj 311 381 hsl 150 20 0 127 0 0 empty empty empty -2 -6 0 8 -262144 ! -1 -1 0 1; ! #X obj 308 261 netsend; ! #X obj 308 341 netreceive 34567; ! #X msg 326 222 connect localhost 34567; ! #X obj 308 280 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; ! #X obj 415 360 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; ! #X text 329 279 <-- connection status; ! #X text 433 360 <-- connection status; ! #X msg 327 241 disconnect; ! #X msg 308 199 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

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs May 2006