Pd-cvs August 2006

pd-cvs@lists.iem.at

15 participants
462 discussions

pd/src defaults.ddrc,NONE,1.1.2.1
by Mathieu Bouchard 30 Aug '06

30 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16135 Added Files: Tag: devel_0_39 defaults.ddrc Log Message: defaults for ddrc are stored here instead of as a different format inside desire.tk --- NEW FILE: defaults.ddrc --- look { Box { extrapix 1 } Canvas { bgedit #dddddd bgrun #ffffff buttonbar 1 compbg #ffffff compfg #000000 compselectbg #000000 compselectfg #ffffff crosshair #ff14ff hairsnap 1 hairstate 1 showcomp 10 statusbar 1 } Comment { bg #cccccc fg #000000 frame1 #ffffff frame2 #888888 frame3 #cccccc } FutureWire { dash #ee0012 } SelRect { rect #ff12ff } Slider { bg #ccebff } Thing { fontfamily courier fontheight 13 fontitalic 0 fontpadx 5 fontpady 3 fontsize 12 fontstring *-courier-medium-r-normal--12-* fontstring2 *-courier-medium-r-normal--%d-* fontstyle normal fontwidth 7 } View { bg #ffffff fg #000000 frame1 #99cccc frame2 #668888 frame3 #000000 inletfg #ff0000 iopos 0 iowidth 7 minobjwidth 21 outletfg #ff0000 selectframe #0080ff tooltip 1 } Wire { dspfg #890098 fg #888888 fg2 #ee0000 thick 1 } } key { Canvas { Array {} Bang Alt+b Canvas Alt+c Comment Ctrl+5 Graph {} Hradio Alt+i Hslider Alt+h Message Ctrl+2 Number Ctrl+3 Number2 Alt+n Object Ctrl+1 Pdwindow {} Symbol Ctrl+4 Toggle Alt+t VU Alt+u Vradio Alt+d Vslider Alt+v about {} audio_off Ctrl+period audio_on Ctrl+slash class_browser {} close Ctrl+w copy Ctrl+c crosshair {} cut Ctrl+x decr_scale Ctrl+UNDERSCORE decr_zoom Ctrl+minus dropper Alt+x duplicate Ctrl+d editmodeswitch Ctrl+e find Ctrl+f find_again Ctrl+g find_last_error {} font_bomb Ctrl+F incr_scale Ctrl+PLUS incr_zoom Ctrl+equal key_nav_down Ctrl+down key_nav_down_shift Ctrl+DOWN key_nav_ioselect Ctrl+tab key_nav_left Ctrl+left key_nav_left_shift Ctrl+LEFT key_nav_right Ctrl+right key_nav_right_shift Ctrl+RIGHT key_nav_up Ctrl+up key_nav_up_shift Ctrl+UP latency_meter {} load_meter {} new_file Ctrl+n open_file Ctrl+o parentwindow {} paste Ctrl+v paths {} popup_help {} popup_open {} popup_properties {} print Ctrl+p quit Ctrl+q redo Ctrl+Z redraw {} reload Ctrl+r save Ctrl+s save_as Ctrl+S select_all Ctrl+a send_message Ctrl+m text_editor Ctrl+t tidy_up {} undo Ctrl+z } Client { Canvas Alt+c about {} audio_off Ctrl+period audio_on Ctrl+slash audio_settings {} class_browser {} client_class_tree Ctrl+grave ddrc_editor Ctrl+l find Ctrl+f find_again Ctrl+g find_last_error {} font_bomb {} latency_meter {} load_meter {} midi_settings {} new_file Ctrl+n open_file Ctrl+o paths {} pdrc_editor Ctrl+p quit Ctrl+q send_message Ctrl+m test_audio_and_midi {} text_editor Ctrl+t } }

1 0

pd/src desire.tk,1.1.2.423,1.1.2.424
by Mathieu Bouchard 30 Aug '06

30 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7500 Modified Files: Tag: devel_0_39 desire.tk Log Message: fix luniq and the missing "key Canvas" section in ddrc Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.423 retrieving revision 1.1.2.424 diff -C2 -d -r1.1.2.423 -r1.1.2.424 *** desire.tk 29 Aug 2006 21:03:57 -0000 1.1.2.423 --- desire.tk 30 Aug 2006 00:26:15 -0000 1.1.2.424 *************** *** 110,115 **** # removes duplicates from a list, but it must be already sorted. proc luniq {a} { ! set r {} ! set last "" set i 0 foreach x $a { --- 110,115 ---- # removes duplicates from a list, but it must be already sorted. proc luniq {a} { ! set last [lindex $a 0] ! set r [list $last] set i 0 foreach x $a { *************** *** 5233,5237 **** ############ .pdrc editor #Turns #rgb into 3 elem list of decimal vals. ! proc rgb2dec c { set c [string tolower $c] if {[regexp -nocase {^#([0-9a-f])([0-9a-f])([0-9a-f])$} $c x r g b]} { --- 5233,5237 ---- ############ .pdrc editor #Turns #rgb into 3 elem list of decimal vals. ! proc rgb2dec {c} { set c [string tolower $c] if {[regexp -nocase {^#([0-9a-f])([0-9a-f])([0-9a-f])$} $c x r g b]} { *************** *** 5722,5726 **** foreach class $class_list { puts $fd " $class \{" ! foreach name [array names $category -glob $class:*] { mset {class var} [split $name ":"] # the eval here annoys me a bit because of possible special chars -- matju --- 5722,5726 ---- foreach class $class_list { puts $fd " $class \{" ! foreach name [lsort [array names $category -glob $class:*]] { mset {class var} [split $name ":"] # the eval here annoys me a bit because of possible special chars -- matju

1 0

pd/src TODO,1.1.2.14,1.1.2.15
by Mathieu Bouchard 30 Aug '06

30 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2711 Modified Files: Tag: devel_0_39 TODO Log Message: . Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.14 retrieving revision 1.1.2.15 diff -C2 -d -r1.1.2.14 -r1.1.2.15 *** TODO 21 Aug 2006 05:01:54 -0000 1.1.2.14 --- TODO 30 Aug 2006 00:12:22 -0000 1.1.2.15 *************** *** 9,13 **** `---------------------------' ! 0.39.A: [m] sort thru old TODO list (0.37.B and 0.37.C) --- 9,33 ---- `---------------------------' ! ---------------------------------------------------------------- 0.39.A ! SHOWSTOPPERS: ! ! [1] desiredata.goto10.org is down ! [2] [pd] problems ! <matju> in particular, i think that there's a problem with closing subpatches? ! <chun> yes and the rendering ! <chun> somehow a copy of [pd foo] box is also drawn on the subpatch canvas itself ! <chun> and things like hilite and hilite io and even moving got updated in the subpatch ! [3] GOP problems ! [3.1] Canvas doesn't distinguish itself from its window ! [3.2] there's no distinction between $@canvas and the canvas that things are really going to be drawn on ! [3.3] canvas properties is pretty broken ! [3.4] introduce coordinate recomputation in View xy ! [3.5] introduce cropping using 0.39's "red rectangle" ! [4] array/graph (0.39.B ?) ! ! [ ] ddrc: key Canvas missing ! [ ] right-click properties ! ! [m] sort thru old TODO list (0.37.B and 0.37.C) *************** *** 19,23 **** [ ] kill global canvas [ ] kill global tooltip variable ? - [ ] merge global font with global look [ ] complete the merging of b,f in click/motion/unclick [ ] change ddrc format: --- 39,42 ---- *************** *** 62,65 **** --- 81,88 ---- [ ] fix vu [ ] implement garray + [ ] actually implement freeing objects + [ ] implement a mark-and-sweep in order to find leaks... (?) + + ---------------------------------------------------------------- 0.39.B or LATER 0.39.???: *************** *** 91,105 **** ------------------8<--------cut-here--------8<------------------ - matju's devel_0_39 TODO list - - [ ] portaudio : src/s_audio_pablio.h:49:24: ringbuffer.h: No such file or directory - [ ] without portaudio : - src/s_audio_jack.c: In function `jack_open_audio': - src/s_audio_jack.c:368: error: `copyvec_simd' undeclared (first use in this function) - [ ] audio stuck, closing audio - [ ] simd - [ ] fftw - - ------------------8<--------cut-here--------8<------------------ Old TODO list (should be cleaned and merged with the new ones) --- 114,117 ----

1 0

pd/src s_midi_pm.c,1.4.4.1.2.5,1.4.4.1.2.6
by Thomas Grill 30 Aug '06

30 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv859 Modified Files: Tag: devel_0_39 s_midi_pm.c Log Message: fixing midi input Index: s_midi_pm.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/s_midi_pm.c,v retrieving revision 1.4.4.1.2.5 retrieving revision 1.4.4.1.2.6 diff -C2 -d -r1.4.4.1.2.5 -r1.4.4.1.2.6 *** s_midi_pm.c 7 Aug 2006 11:31:31 -0000 1.4.4.1.2.5 --- s_midi_pm.c 29 Aug 2006 22:38:38 -0000 1.4.4.1.2.6 *************** *** 220,224 **** void sys_poll_midi(void) { ! int i, nmess; PmEvent buffer; for (i = 0; i < mac_nmidiindev; i++) --- 220,224 ---- void sys_poll_midi(void) { ! int i, j, nmess; PmEvent buffer; for (i = 0; i < mac_nmidiindev; i++) *************** *** 227,254 **** if (nmess > 0) { ! int status = Pm_MessageStatus(buffer.message); ! int data1 = Pm_MessageData1(buffer.message); ! int data2 = Pm_MessageData2(buffer.message); ! int msgtype = (status >> 4) - 8; ! switch (msgtype) ! { ! case 0: ! case 1: ! case 2: ! case 3: ! case 6: ! sys_midibytein(i, status); ! sys_midibytein(i, data1); ! sys_midibytein(i, data2); ! break; ! case 4: ! case 5: ! sys_midibytein(i, status); ! sys_midibytein(i, data1); ! break; ! case 7: ! sys_midibytein(i, status); ! break; ! } } } --- 227,274 ---- if (nmess > 0) { ! PmMessage msg = buffer.message; ! int status = Pm_MessageStatus(msg); ! if(status == 0xf0 || !(status&0x80)) { ! // sysex ! for(j = 0; j < 4; ++j,msg >>= 8) { ! int data = msg&0xff; ! sys_midibytein(i, data); ! if(data == 0xf7) break; //sysex end ! } ! } ! else { ! // non-sysex ! sys_midibytein(i, status); ! ! switch(status>>4) ! { ! case 0x8: // note off ! case 0x9: // note on ! case 0xa: // poly pressure ! case 0xb: // control change ! case 0xe: // pitch bend ! sys_midibytein(i, Pm_MessageData1(msg)); ! sys_midibytein(i, Pm_MessageData2(msg)); ! break; ! case 0xc: // program change ! case 0xd: // channel pressure ! sys_midibytein(i, Pm_MessageData1(msg)); ! break; ! case 0xf: // system common/realtime messages ! switch(status) ! { ! case 0xf1: // time code ! case 0xf3: // song select ! case 0xf6: // tune request ! sys_midibytein(i, Pm_MessageData1(msg)); ! break; ! case 0xf2: // song position pointer ! sys_midibytein(i, Pm_MessageData1(msg)); ! sys_midibytein(i, Pm_MessageData2(msg)); ! break; ! } ! break; ! } ! } } }

1 0

pd/src desire.tk,1.1.2.422,1.1.2.423
by Mathieu Bouchard 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30626 Modified Files: Tag: devel_0_39 desire.tk Log Message: yet another .ddrc format Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.422 retrieving revision 1.1.2.423 diff -C2 -d -r1.1.2.422 -r1.1.2.423 *** desire.tk 29 Aug 2006 19:25:15 -0000 1.1.2.422 --- desire.tk 29 Aug 2006 21:03:57 -0000 1.1.2.423 *************** *** 494,498 **** } #-----------------------------------------------------------------------------------# ! set look(extrapix) [switch $OS { osx {concat 2} default {concat 1}}] --- 494,498 ---- } #-----------------------------------------------------------------------------------# ! set look(Box:extrapix) [switch $OS { osx {concat 2} default {concat 1}}] *************** *** 1041,1044 **** --- 1041,1056 ---- set contents [read $fd] close $fd + foreach {category category_data} $contents { + foreach {class class_data} $category_data { + foreach {var val} $class_data {set ${category}($class:$var) $val} + } + } + set_fontstring + } + proc read_ddrc_old {} { + global cmdline look key + set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] + set contents [read $fd] + close $fd foreach category_pair $contents { *************** *** 5696,5701 **** def ClientPrefsDialog read {} {read_ddrc} - #this writes the ddrc def ClientPrefsDialog write {} { global ddrc_options cmdline look accels key $self get_val --- 5708,5740 ---- def ClientPrefsDialog read {} {read_ddrc} def ClientPrefsDialog write {} { + global cmdline look key + $self get_val + set fd [open $cmdline(ddrcfilename) w] + foreach category {look key} { + set class_list {} + puts $fd "$category \{" + foreach name [array names $category] { + mset {class var} [split $name ":"] + lappend class_list $class + } + set class_list [luniq [lsort $class_list]] + foreach class $class_list { + puts $fd " $class \{" + foreach name [array names $category -glob $class:*] { + mset {class var} [split $name ":"] + # the eval here annoys me a bit because of possible special chars -- matju + puts $fd " $var [eval list \$${category}($class:$var)]" + } + puts $fd " \}" + } + puts $fd "\}" + } + close $fd + set_fontstring + } + + #this writes the ddrc + def ClientPrefsDialog write_old {} { global ddrc_options cmdline look accels key $self get_val

1 0

pd/src desire.tk,1.1.2.421,1.1.2.422
by chunlee 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26267 Modified Files: Tag: devel_0_39 desire.tk Log Message: small fix to wire draw Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.421 retrieving revision 1.1.2.422 diff -C2 -d -r1.1.2.421 -r1.1.2.422 *** desire.tk 29 Aug 2006 19:20:19 -0000 1.1.2.421 --- desire.tk 29 Aug 2006 19:25:15 -0000 1.1.2.422 *************** *** 3072,3078 **** set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] if {[$self selected?]} {set wire_color [$self look fg2]} else { if {[regexp -nocase {~$} [lindex $_($@obj1:text) 0]] && \ [regexp -nocase {~$} [lindex $_($@obj2:text) 0]]} { ! set wire_color [$self look dspfg] set wire_width [expr [$self look thick] * 2] } else { --- 3072,3079 ---- set arrowshape [list $arrowsize [expr $arrowsize*4/5] [expr $arrowsize/3]] if {[$self selected?]} {set wire_color [$self look fg2]} else { + if {[info exists _($@obj1:text)] && [info exists _($@obj2:text)]} { if {[regexp -nocase {~$} [lindex $_($@obj1:text) 0]] && \ [regexp -nocase {~$} [lindex $_($@obj2:text) 0]]} { ! set wire_color [$self look fg] set wire_width [expr [$self look thick] * 2] } else { *************** *** 3080,3083 **** --- 3081,3088 ---- set wire_width [$self look thick] } + } else { + set wire_color [$self look fg] + set wire_width [$self look thick] + } } $self item WIRE line $xys -width $wire_width -smooth yes \

1 0

pd/src desire.tk,1.1.2.420,1.1.2.421
by Mathieu Bouchard 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24504 Modified Files: Tag: devel_0_39 desire.tk Log Message: removing old readers for ddrc Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.420 retrieving revision 1.1.2.421 diff -C2 -d -r1.1.2.420 -r1.1.2.421 *** desire.tk 29 Aug 2006 14:21:11 -0000 1.1.2.420 --- desire.tk 29 Aug 2006 19:20:19 -0000 1.1.2.421 *************** *** 1037,1041 **** #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global ddrc_options cmdline look key set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] set contents [read $fd] --- 1037,1041 ---- #-----------------------------------------------------------------------------------# proc read_ddrc {} { ! global cmdline look key set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] set contents [read $fd] *************** *** 1043,1063 **** foreach category_pair $contents { - #puts "reading category ---> [lindex $category 0]" set category [lindex $category_pair 0] foreach class_pair [lindex $category_pair 1] { - #puts " reading class ---> [lindex $class 0]" set class [lindex $class_pair 0] foreach var_pair [lindex $class_pair 1] { set var [lindex $var_pair 0] set val [lindex $var_pair 1] - #puts "$category ($class:$var) ::: $val" set ${category}($class:$var) $val } } } - puts "category = $category" - set_fontstring - #if {[regexp {^#} $line comment]} {continue} ;# skip comments } read_ddrc --- 1043,1057 ---- *************** *** 5693,5760 **** } - class_new ClientPrefsDialog {PagedDialog} ! def ClientPrefsDialog apply {} {$self write} ! ! def ClientPrefsDialog read {} { ! global ddrc_options cmdline look key ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] ! set contents [read $fd] ! close $fd ! ! foreach category_pair $contents { ! #puts "reading category ---> [lindex $category 0]" ! set category [lindex $category_pair 0] ! foreach class_pair [lindex $category_pair 1] { ! #puts " reading class ---> [lindex $class 0]" ! set class [lindex $class_pair 0] ! foreach var_pair [lindex $class_pair 1] { ! set var [lindex $var_pair 0] ! set val [lindex $var_pair 1] ! #puts "$category ($class:$var) ::: $val" ! set ${category}($class:$var) $val ! } ! } ! } ! } ! ! def ClientPrefsDialog read2 {} { ! global ddrc_options ddrc_options_h cmdline look key crosshair bar ! set fd [open $cmdline(ddrcfilename) "RDONLY CREAT"] ! #set contents [split [string map {"\n" " "} [read $fd]] " "] ! set contents [split [read $fd] "\n"] ! close $fd ! foreach {type name} $ddrc_options { ! set @$name "" ! foreach subname [split $name |] { ! foreach item $subname { ! set ddrc_options_h($item) [list $type $name] ! } ! } ! } ! set i 0 ! foreach line $contents { ! foreach {type item value} $line { ! if {![info exists ddrc_options_h($item)]} { ! post "unknown option: %s" $item ! } ! switch $type { ! folders {incr i; lappend @$name [lindex $contents $i]} ! files {incr i; lappend @$name [lindex $contents $i]} ! void {set @$name 1} ! color {set look($item) $value} ! key {set key($item) $value} ! crosshair {set crosshair($item) $value; set _($self:crosshair($item)) $value} ! bar {set bar($item) $value; set _($self:bar($item)) $value} ! default {incr i; set @$name [lindex $contents $i]} ! } ! } ! ! } ! } ! ! #proc cons {x y} { list $x $y } ! #proc car {l} { lindex $l 0} } ! #proc cdr {l} { lindex $l 1 } #this writes the ddrc --- 5687,5693 ---- } class_new ClientPrefsDialog {PagedDialog} ! def ClientPrefsDialog apply {} {$self write} ! def ClientPrefsDialog read {} {read_ddrc} #this writes the ddrc

1 0

pd/src desire.tk,1.1.2.419,1.1.2.420
by chunlee 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7638 Modified Files: Tag: devel_0_39 desire.tk Log Message: trivial commit for cosmetics and some ident correction Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.419 retrieving revision 1.1.2.420 diff -C2 -d -r1.1.2.419 -r1.1.2.420 *** desire.tk 29 Aug 2006 11:58:56 -0000 1.1.2.419 --- desire.tk 29 Aug 2006 14:21:11 -0000 1.1.2.420 *************** *** 536,539 **** --- 536,540 ---- set look(SelRect:rect) #ff12ff set look(Wire:fg) #888888 + set look(Wire:dspfg) #890098 set look(Wire:fg2) #ee0000 set look(Wire:thick) 1 *************** *** 3019,3036 **** def Wire init {canvas from outlet to inlet} { [...2922 lines suppressed...] ! } } --- 6239,6254 ---- def Wire deconstruct {{selcanvas ""}} { ! global obj_index_sel ! # the selcanvas system could be abstracted out using an ObjectList such that ! # Canvas<ObjectList and $selection class == ObjectList ! if {$selcanvas == ""} { ! list #X connect \ ! [$@canvas index $@obj1] $@port1 \ ! [$@canvas index $@obj2] $@port2 ! } { ! list #X connect \ ! $obj_index_sel($@canvas:$@obj1) $@port1 \ ! $obj_index_sel($@canvas:$@obj2) $@port2 ! } }

1 0

pd/src desire.tk,1.1.2.418,1.1.2.419
by chunlee 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18466 Modified Files: Tag: devel_0_39 desire.tk Log Message: tab keyboard traversal for dialog window Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.418 retrieving revision 1.1.2.419 diff -C2 -d -r1.1.2.418 -r1.1.2.419 *** desire.tk 29 Aug 2006 00:07:17 -0000 1.1.2.418 --- desire.tk 29 Aug 2006 11:58:56 -0000 1.1.2.419 *************** *** 1062,1101 **** read_ddrc #-----------------------------------------------------------------------------------# - proc read_ddrc2 {} { - set fd [open "~/.ddrc2" "RDONLY CREAT"] - puts "fd: $fd" - set contents {} - #foreach line [split [read $fd] "\n"] { - # if {[string index $line 0] != "#"} {lappend contents [string trimleft $line]} - #} - set contents [read $fd] - close $fd - #set contents [concat [join $contents " "]] ;# concat casts to list type (faster) - - foreach {section value} $contents { - puts "$section" - foreach {class value} $value { - puts " $class" - foreach {var value} $value { - puts " $var :: $value" - } - } - } - #for {set i 0} {$i < [llength $contents]} {incr i 2} { - # set conf [lindex $contents $i] - # puts "$conf" - # for {set n 0} {$n < [llength [lindex $contents [expr $i+1]]]} {incr n 2} { - # set class [lindex [lindex $contents [expr $i+1]] $n] - # puts " $class" - # for {set v 0} {$v < [llength [lindex [lindex $contents [expr $i+1]] [expr $n+1]]]} {incr v 2} { - # set var [lindex [lindex [lindex [lindex $contents [expr $i+1]] [expr $n+1]]] $v] - # set val [lindex [lindex [lindex [lindex $contents [expr $i+1]] [expr $n+1]]] [expr $v+1]] - # puts " $var : $val" - # } - # } - #} - } - #read_ddrc2 - #-----------------------------------------------------------------------------------# set pd_apilist "{ALSA 1}" --- 1062,1065 ---- *************** *** 5312,5334 **** def Dialog init {args} { ! super ! set f .$self ! set @max_label 0 ! toplevel $f ! frame $f.buttonsep -height 2 -borderwidth 1 -relief sunken ! frame $f.buttonframe ! set i 0 ! foreach a $args { ! if {[llength $args]<=1 || $i>0} { ! pack [label $f.buttonframe.$i -width 1] -side left -fill x -expand 1 } ! pack [button $f.buttonframe.$a -text [say $a] -command "$self $a"] -side left ! incr i ! } ! pack $f.buttonframe -side bottom -fill x -expand 1 -pady 2m ! pack $f.buttonsep -side bottom -fill x ! wm protocol $f WM_DELETE_WINDOW "$self cancel" } def Dialog dropmenu_open {frame} { set x [winfo rootx $frame.butt] --- 5276,5310 ---- def Dialog init {args} { ! super ! set f .$self ! set @max_label 0 ! toplevel $f ! frame $f.buttonsep -height 2 -borderwidth 1 -relief sunken ! frame $f.buttonframe ! set i 0 ! foreach a $args { ! if {[llength $args]<=1 || $i>0} { ! pack [label $f.buttonframe.$i -width 1] -side left -fill x -expand 1 ! } ! pack [button $f.buttonframe.$a -text [say $a] -command "$self $a"] -side left ! bind $f.buttonframe.$a <Return> "$self $a" ! incr i } ! pack $f.buttonframe -side bottom -fill x -expand 1 -pady 2m ! pack $f.buttonsep -side bottom -fill x ! wm protocol $f WM_DELETE_WINDOW "$self cancel" ! bind .$self <Tab> "$self traversal %K %W forward" ! bind .$self <Control-Tab> "$self traversal %K %W back" } + def Dialog traversal {k w direction} { + #puts "$k $w $direction" + switch $direction { + forward {focus [tk_focusNext $w]} + back {focus [tk_focusPrev $w]} + } + } + + def Dialog dropmenu_open {frame} { set x [winfo rootx $frame.butt] *************** *** 5398,5405 **** def PagedDialog add_section {section text} { ! set f .$self.1 ! frame $f.main.$section ! pack [button $f.bar.$section -text $text \ ! -command [list $self page_select $section]] -side left -pady {4 4} } --- 5374,5382 ---- def PagedDialog add_section {section text} { ! set f .$self.1 ! frame $f.main.$section ! pack [button $f.bar.$section -text $text \ ! -command [list $self page_select $section]] -side left -pady {4 4} ! bind $f.bar.$section <Return> "$self page_select $section" } *************** *** 5476,5483 **** def SubPagedDialog add_section {section text} { ! set f .$self ! frame $f.main.$section ! pack [button $f.bar.$section -text $text \ ! -command [list $self page_select $section]] -side left -pady {4 4} } --- 5453,5461 ---- def SubPagedDialog add_section {section text} { ! set f .$self ! frame $f.main.$section ! pack [button $f.bar.$section -text $text \ ! -command [list $self page_select $section]] -side left -pady {4 4} ! bind $f.bar.$section <Return> "$self page_select $section" } *************** *** 6035,6038 **** --- 6013,6017 ---- $self page_select 1 } + ############ font bomb ###########

1 0

externals/iem/iemmatrix/abs mtx_tab.pd,1.4,1.5
by IOhannes m zmölnig 29 Aug '06

29 Aug '06

Update of /cvsroot/pure-data/externals/iem/iemmatrix/abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1827/abs Modified Files: mtx_tab.pd Log Message: cleaned up code a bit; (removed dep on zexy's [relay]; still dependant on zexy's [tabdump] Index: mtx_tab.pd =================================================================== RCS file: /cvsroot/pure-data/externals/iem/iemmatrix/abs/mtx_tab.pd,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** mtx_tab.pd 29 Aug 2006 09:20:38 -0000 1.4 --- mtx_tab.pd 29 Aug 2006 09:44:47 -0000 1.5 *************** *** 1,81 **** ! #N canvas 98 259 645 400 10; ! #X obj 33 14 inlet; ! #X obj 247 6 inlet; ! #X obj 286 354 s \$1; ! #X obj 286 331 list prepend 0; ! #X obj 247 291 t a a; ! #X obj 286 291 mtx_size; ! #X obj 347 291 *; ! #X msg 336 310 resize \$1; ! #X obj 247 272 relay matrix; ! #X obj 33 55 t a a; ! #X obj 33 348 outlet; ! #X obj 33 34 relay matrix; ! #X obj 112 203 mtx; ! #X obj 112 56 t a b; ! #X obj 142 76 tabdump \$1; ! #X obj 142 96 list prepend matrix; ! #X obj 142 116 list trim; ! #X obj 112 176 spigot; ! #X msg 162 176 0; ! #X msg 190 176 1; ! #X obj 247 310 list split 1; ! #X obj 372 291 + 2; ! #X text 356 13 \$1 ... table name; ! #X text 446 125 part of iemmatrix.; ! #X text 434 151 requires zexy [relay]; ! #X text 495 187 see also:; ! #X obj 563 186 mtx; ! #X text 209 35 mtx_tab behaves just like a "mtx" object that stores its internal matrix in a table. So this matrix can be seen as a local/global variable of the workspace.; ! #X text 328 355 send to table; ! #X text 226 79 get from table; ! #X text 138 158 if no output: send to table anyway; ! #X text 489 276 Franz Zotter 2006; ! #X obj 112 223 t b a; ! #X obj 112 137 t b b a b; ! #X obj 111 271 spigot; ! #X msg 152 223 0; ! #X msg 181 223 1; ! #X obj 38 176 route bang; ! #X obj 142 244 t a a; ! #X connect 0 0 11 0; ! #X connect 1 0 8 0; #X connect 3 0 2 0; ! #X connect 4 0 20 0; ! #X connect 4 1 5 0; ! #X connect 5 0 6 0; ! #X connect 5 1 6 1; ! #X connect 6 0 21 0; ! #X connect 7 0 2 0; ! #X connect 8 0 4 0; ! #X connect 9 0 10 0; ! #X connect 9 1 4 0; ! #X connect 11 0 9 0; ! #X connect 11 1 13 0; ! #X connect 12 0 32 0; ! #X connect 13 0 33 0; ! #X connect 13 1 14 0; ! #X connect 14 0 15 0; ! #X connect 15 0 16 0; ! #X connect 16 0 12 1; ! #X connect 17 0 12 0; ! #X connect 18 0 17 1; ! #X connect 19 0 17 1; ! #X connect 20 1 3 0; ! #X connect 21 0 7 0; ! #X connect 32 0 18 0; ! #X connect 32 1 38 0; ! #X connect 33 0 17 0; ! #X connect 33 1 35 0; ! #X connect 33 2 37 0; ! #X connect 33 3 19 0; ! #X connect 33 3 36 0; ! #X connect 34 0 10 0; ! #X connect 35 0 34 1; ! #X connect 36 0 34 1; ! #X connect 37 0 12 0; ! #X connect 37 1 12 0; ! #X connect 38 0 34 0; ! #X connect 38 1 8 0; --- 1,105 ---- ! #N canvas 60 0 784 503 10; ! #X obj 33 154 inlet; ! #X obj 108 154 inlet; ! #X obj 33 358 outlet; ! #X text 345 160 part of iemmatrix.; ! #X text 348 215 see also:; ! #X obj 431 213 mtx; ! #X text 105 56 mtx_tab behaves just like a "mtx" object that stores its internal matrix in a table. So this matrix can be seen as a local/global variable of the workspace.; ! #X text 349 282 Franz Zotter 2006; ! #X text 347 250 requires zexy's [tabdump]; ! #X text 105 6 [mtx_tab]; ! #N canvas 0 0 657 677 mtx_tab 0; ! #X obj 33 34 inlet; ! #X obj 287 86 inlet; ! #X obj 287 624 s \$1; ! #X obj 287 601 list prepend 0; ! #X obj 287 506 t a a; ! #X obj 412 561 *; ! #X msg 412 600 resize \$1; ! #X obj 33 438 outlet; ! #X obj 156 343 mtx; ! #X obj 156 75 t a b; ! #X obj 191 156 tabdump \$1; ! #X obj 191 176 list prepend matrix; ! #X obj 191 196 list trim; ! #X obj 156 306 spigot; ! #X msg 218 305 0; ! #X msg 218 285 1; ! #X obj 412 581 + 2; ! #X text 329 625 send to table; ! #X text 298 159 get from table; ! #X obj 156 363 t b a; ! #X obj 191 411 spigot; ! #X msg 234 364 0; ! #X msg 263 364 1; ! #X obj 191 384 t a a; ! #N canvas 0 0 450 300 bang 0; ! #X obj 103 28 inlet; ! #X obj 103 59 route bang; ! #X obj 103 119 outlet; ! #X obj 103 92 b; ! #X connect 0 0 1 0; ! #X connect 1 0 3 0; ! #X connect 1 1 2 0; #X connect 3 0 2 0; ! #X restore 197 255 pd bang; ! #X obj 156 217 t b b a b b; ! #X text 301 485 <r> <c> ...; ! #X obj 287 467 route matrix; ! #X msg 412 542 \$1 \$2; ! #X obj 33 94 list prepend matrix; ! #X obj 33 114 list trim; ! #X obj 33 75 t a a; ! #X msg 201 135 set \$1; ! #X obj 33 56 route matrix set; ! #X obj 201 115 symbol; ! #X text 170 238 if no output: send to table anyway; ! #X connect 0 0 33 0; ! #X connect 1 0 27 0; ! #X connect 3 0 2 0; ! #X connect 4 0 3 0; ! #X connect 4 1 28 0; ! #X connect 5 0 16 0; ! #X connect 6 0 2 0; ! #X connect 8 0 19 0; ! #X connect 9 0 25 0; ! #X connect 9 1 10 0; ! #X connect 10 0 11 0; ! #X connect 11 0 12 0; ! #X connect 12 0 8 1; ! #X connect 13 0 8 0; ! #X connect 14 0 13 1; ! #X connect 15 0 13 1; ! #X connect 16 0 6 0; ! #X connect 19 0 14 0; ! #X connect 19 1 23 0; ! #X connect 20 0 7 0; ! #X connect 21 0 20 1; ! #X connect 22 0 20 1; ! #X connect 23 0 20 0; ! #X connect 23 1 27 0; ! #X connect 24 0 8 0; ! #X connect 25 0 13 0; ! #X connect 25 1 21 0; ! #X connect 25 2 24 0; ! #X connect 25 3 15 0; ! #X connect 25 4 22 0; ! #X connect 27 0 4 0; ! #X connect 28 0 5 0; ! #X connect 29 0 30 0; ! #X connect 30 0 7 0; ! #X connect 31 0 29 0; ! #X connect 31 1 27 0; ! #X connect 32 0 10 0; ! #X connect 33 0 31 0; ! #X connect 33 1 34 0; ! #X connect 33 2 9 0; ! #X connect 34 0 32 0; ! #X restore 33 327 pd mtx_tab; ! #X text 105 38 arguments: \$1 ... table name; ! #X connect 0 0 10 0; ! #X connect 1 0 10 1; ! #X connect 10 0 2 0;

1 0

← Newer
1
2
3
4
5
6
7
...
47
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 2006