Pd-cvs July 2006

pd-cvs@lists.iem.at

14 participants
147 discussions

abstractions Makefile,1.27,1.28 TODO,1.2,1.3
by Hans-Christoph Steiner 27 Jul '06

27 Jul '06

Update of /cvsroot/pure-data/abstractions In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13968 Modified Files: Makefile TODO Log Message: fixed up LIB_TARGETS to work with rpm and deb package building scripts Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/abstractions/Makefile,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** Makefile 7 Jul 2006 04:12:26 -0000 1.27 --- Makefile 27 Jul 2006 20:45:28 -0000 1.28 *************** *** 24,30 **** # if your library isn't included in LIB_TARGETS, it won't be built with ! # Pd-extended. ! LIB_TARGETS = gyre keyboardkeys la-kitchen list-abs memento \ ! nusmuk nqpoly parazit pddp pixeltango purepd rradical # in case anything needs to be compiled or processed somehow before installing --- 24,32 ---- # if your library isn't included in LIB_TARGETS, it won't be built with ! # Pd-extended. ! # ! # WARNING! this MUST be all on one line because the automatic package ! # building scripts rely on it being that way. ! LIB_TARGETS = gyre keyboardkeys la-kitchen list-abs memento nusmuk nqpoly parazit pddp pixeltango purepd rradical # in case anything needs to be compiled or processed somehow before installing Index: TODO =================================================================== RCS file: /cvsroot/pure-data/abstractions/TODO,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** TODO 27 Nov 2005 04:51:57 -0000 1.2 --- TODO 27 Jul 2006 20:45:28 -0000 1.3 *************** *** 1 **** --- 1,5 ---- + - fix up Makefile to use auto _install and _clean target generation, like in + externals/Makefile + +

1 0

pd/src u_main.tk,1.4.4.10.2.12,1.4.4.10.2.13
by Tim Blechmann 27 Jul '06

27 Jul '06

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13121 Modified Files: Tag: devel_0_39 u_main.tk Log Message: fixed audio/midi menu bug Index: u_main.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v retrieving revision 1.4.4.10.2.12 retrieving revision 1.4.4.10.2.13 diff -C2 -d -r1.4.4.10.2.12 -r1.4.4.10.2.13 *** u_main.tk 25 Jul 2006 10:54:41 -0000 1.4.4.10.2.12 --- u_main.tk 27 Jul 2006 19:18:05 -0000 1.4.4.10.2.13 *************** *** 3515,3521 **** proc pdtk_audio_dialog {id indevlist indev1 indev2 indev3 indev4 \ ! indev5 indev6 indev7 indev8 indev9 indev10 indev11 indev12 indev13 indev14 indev15 indev16 outdevlist outdev1 outdev2 outdev3 outdev4 \ ! outdev5 outdev6 outdev7 outdev8 outdev9 outdev10 outdev11 outdev12 outdev13 outdev14 outdev15 outdev16 longform} { global audio_indev1 audio_indev2 audio_indev3 audio_indev4 --- 3515,3521 ---- proc pdtk_audio_dialog {id indevlist indev1 indev2 indev3 indev4 \ ! inchan1 inchan2 inchan3 inchan4 \ outdevlist outdev1 outdev2 outdev3 outdev4 \ ! outchan1 outchan2 outchan3 outchan4 sr dacblocksize advance multi longform} { global audio_indev1 audio_indev2 audio_indev3 audio_indev4 *************** *** 3602,3605 **** --- 3602,3911 ---- + + # input device 1 + frame $id.in1f + pack $id.in1f -side top + + checkbutton $id.in1f.x0 -variable audio_inenable1 \ + -text {input device 1} -anchor e + button $id.in1f.x1 -text [lindex $indevlist $audio_indev1] \ + -command [list audio_popup $id $id.in1f.x1 audio_indev1 $indevlist] + label $id.in1f.l2 -text "channels:" + entry $id.in1f.x2 -textvariable audio_inchan1 -width 3 + pack $id.in1f.x0 $id.in1f.x1 $id.in1f.l2 $id.in1f.x2 -side left + + # input device 2 + if {$longform && $multi > 1 && [llength $indevlist] > 1} { + frame $id.in2f + pack $id.in2f -side top + + checkbutton $id.in2f.x0 -variable audio_inenable2 \ + -text {input device 2} -anchor e + button $id.in2f.x1 -text [lindex $indevlist $audio_indev2] \ + -command [list audio_popup $id $id.in2f.x1 audio_indev2 $indevlist] + label $id.in2f.l2 -text "channels:" + entry $id.in2f.x2 -textvariable audio_inchan2 -width 3 + pack $id.in2f.x0 $id.in2f.x1 $id.in2f.l2 $id.in2f.x2 -side left + } + + # input device 3 + if {$longform && $multi > 1 && [llength $indevlist] > 2} { + frame $id.in3f + pack $id.in3f -side top + + checkbutton $id.in3f.x0 -variable audio_inenable3 \ + -text {input device 3} -anchor e + button $id.in3f.x1 -text [lindex $indevlist $audio_indev3] \ + -command [list audio_popup $id $id.in3f.x1 audio_indev3 $indevlist] + label $id.in3f.l2 -text "channels:" + entry $id.in3f.x2 -textvariable audio_inchan3 -width 3 + pack $id.in3f.x0 $id.in3f.x1 $id.in3f.l2 $id.in3f.x2 -side left + } + + # input device 4 + if {$longform && $multi > 1 && [llength $indevlist] > 3} { + frame $id.in4f + pack $id.in4f -side top + + checkbutton $id.in4f.x0 -variable audio_inenable4 \ + -text {input device 4} -anchor e + button $id.in4f.x1 -text [lindex $indevlist $audio_indev4] \ + -command [list audio_popup $id $id.in4f.x1 audio_indev4 $indevlist] + label $id.in4f.l2 -text "channels:" + entry $id.in4f.x2 -textvariable audio_inchan4 -width 3 + pack $id.in4f.x0 $id.in4f.x1 $id.in4f.l2 $id.in4f.x2 -side left + } + + # output device 1 + frame $id.out1f + pack $id.out1f -side top + + checkbutton $id.out1f.x0 -variable audio_outenable1 -text {output device 1} \ + -anchor e + if {$multi == 0} { + label $id.out1f.l1 \ + -text "(same as input device) .............. " + } else { + button $id.out1f.x1 -text [lindex $outdevlist $audio_outdev1] \ + -command \ + [list audio_popup $id $id.out1f.x1 audio_outdev1 $outdevlist] + } + label $id.out1f.l2 -text "channels:" + entry $id.out1f.x2 -textvariable audio_outchan1 -width 3 + if {$multi == 0} { + pack $id.out1f.x0 $id.out1f.l1 $id.out1f.x2 -side left + } else { + pack $id.out1f.x0 $id.out1f.x1 $id.out1f.l2 $id.out1f.x2 -side left + } + + # output device 2 + if {$longform && $multi > 1 && [llength $indevlist] > 1} { + frame $id.out2f + pack $id.out2f -side top + + checkbutton $id.out2f.x0 -variable audio_outenable2 \ + -text {output device 2} -anchor e + button $id.out2f.x1 -text [lindex $outdevlist $audio_outdev2] \ + -command \ + [list audio_popup $id $id.out2f.x1 audio_outdev2 $outdevlist] + label $id.out2f.l2 -text "channels:" + entry $id.out2f.x2 -textvariable audio_outchan2 -width 3 + pack $id.out2f.x0 $id.out2f.x1 $id.out2f.l2 $id.out2f.x2 -side left + } + + # output device 3 + if {$longform && $multi > 1 && [llength $indevlist] > 2} { + frame $id.out3f + pack $id.out3f -side top + + checkbutton $id.out3f.x0 -variable audio_outenable3 \ + -text {output device 3} -anchor e + button $id.out3f.x1 -text [lindex $outdevlist $audio_outdev3] \ + -command \ + [list audio_popup $id $id.out3f.x1 audio_outdev3 $outdevlist] + label $id.out3f.l2 -text "channels:" + entry $id.out3f.x2 -textvariable audio_outchan3 -width 3 + pack $id.out3f.x0 $id.out3f.x1 $id.out3f.l2 $id.out3f.x2 -side left + } + + # output device 4 + if {$longform && $multi > 1 && [llength $indevlist] > 3} { + frame $id.out4f + pack $id.out4f -side top + + checkbutton $id.out4f.x0 -variable audio_outenable4 \ + -text {output device 4} -anchor e + button $id.out4f.x1 -text [lindex $outdevlist $audio_outdev4] \ + -command \ + [list audio_popup $id $id.out4f.x1 audio_outdev4 $outdevlist] + label $id.out4f.l2 -text "channels:" + entry $id.out4f.x2 -textvariable audio_outchan4 -width 3 + pack $id.out4f.x0 $id.out4f.x1 $id.out4f.l2 $id.out4f.x2 -side left + } + + # if not the "long form" but if "multi" is 2, make a button to + # restart with longform set. + + if {$longform == 0 && $multi > 1} { + frame $id.longbutton + pack $id.longbutton -side top + button $id.longbutton.b -text {use multiple devices} \ + -command {pd pd audio-properties 1 \;} + pack $id.longbutton.b + } + bind $id.srf.x1 <KeyPress-Return> [concat audio_ok $id] + bind $id.srf.x2 <KeyPress-Return> [concat audio_ok $id] + bind $id.in1f.x2 <KeyPress-Return> [concat audio_ok $id] + bind $id.out1f.x2 <KeyPress-Return> [concat audio_ok $id] + $id.srf.x1 select from 0 + $id.srf.x1 select adjust end + focus $id.srf.x1 + pdtk_standardkeybindings $id.srf.x1 + pdtk_standardkeybindings $id.srf.x2 + pdtk_standardkeybindings $id.in1f.x2 + pdtk_standardkeybindings $id.out1f.x2 + } + + ####################### midi dialog ################## + + proc midi_apply {id} { + global midi_indev1 midi_indev2 midi_indev3 midi_indev4 + global midi_indev5 midi_indev6 midi_indev7 midi_indev8 + global midi_indev9 midi_indev10 midi_indev11 midi_indev12 + global midi_indev13 midi_indev14 midi_indev15 midi_indev16 + + global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 + global midi_outdev5 midi_outdev6 midi_outdev7 midi_outdev8 + global midi_outdev9 midi_outdev10 midi_outdev11 midi_outdev12 + global midi_outdev13 midi_outdev14 midi_outdev15 midi_outdev16 + + global midi_alsain midi_alsaout + + pd [concat pd midi-dialog \ + $midi_indev1 \ + $midi_indev2 \ + $midi_indev3 \ + $midi_indev4 \ + $midi_indev5 \ + $midi_indev6 \ + $midi_indev7 \ + $midi_indev8 \ + $midi_indev9 \ + $midi_indev10 \ + $midi_indev11 \ + $midi_indev12 \ + $midi_indev13 \ + $midi_indev14 \ + $midi_indev15 \ + $midi_indev16 \ + $midi_outdev1 \ + $midi_outdev2 \ + $midi_outdev3 \ + $midi_outdev4 \ + $midi_outdev5 \ + $midi_outdev6 \ + $midi_outdev7 \ + $midi_outdev8 \ + $midi_outdev9 \ + $midi_outdev10 \ + $midi_outdev11 \ + $midi_outdev12 \ + $midi_outdev13 \ + $midi_outdev14 \ + $midi_outdev15 \ + $midi_outdev16 \ + $midi_alsain \ + $midi_alsaout \ + \;] + } + + proc midi_cancel {id} { + pd [concat $id cancel \;] + } + + proc midi_ok {id} { + midi_apply $id + midi_cancel $id + } + + # callback from popup menu + proc midi_popup_action {buttonname varname devlist index} { + global midi_indevlist midi_outdevlist $varname + $buttonname configure -text [lindex $devlist $index] + # puts stderr [concat popup_action $buttonname $varname $index] + set $varname $index + } + + # create a popup menu + proc midi_popup {name buttonname varname devlist} { + if [winfo exists $name.popup] {destroy $name.popup} + menu $name.popup -tearoff false + # puts stderr [concat $devlist ] + for {set x 0} {$x<[llength $devlist]} {incr x} { + $name.popup add command -label [lindex $devlist $x] \ + -command [list midi_popup_action \ + $buttonname $varname $devlist $x] + } + tk_popup $name.popup [winfo pointerx $name] [winfo pointery $name] 0 + } + + # start a dialog window to select midi devices. "longform" asks us to make + # controls for opening several devices; if not, we get an extra button to + # turn longform on and restart the dialog. + + proc pdtk_midi_dialog {id indevlist indev1 indev2 indev3 indev4 \ + indev5 indev6 indev7 indev8 indev9 indev10 indev11 indev12 indev13 indev14 indev15 indev16 + outdevlist outdev1 outdev2 outdev3 outdev4 \ + outdev5 outdev6 outdev7 outdev8 outdev9 outdev10 outdev11 outdev12 outdev13 outdev14 outdev15 outdev16 longform} { + + global midi_indev1 midi_indev2 midi_indev3 midi_indev4 + global midi_indev5 midi_indev6 midi_indev7 midi_indev8 + global midi_indev9 midi_indev10 midi_indev11 midi_indev12 + global midi_indev13 midi_indev14 midi_indev15 midi_indev16 + + global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 + global midi_outdev5 midi_outdev6 midi_outdev7 midi_outdev8 + global midi_outdev9 midi_outdev10 midi_outdev11 midi_outdev12 + global midi_outdev13 midi_outdev14 midi_outdev15 midi_outdev16 + + global midi_indevlist midi_outdevlist + global midi_alsain midi_alsaout + + set midi_indev1 $indev1 + set midi_indev2 $indev2 + set midi_indev3 $indev3 + set midi_indev4 $indev4 + set midi_indev5 $indev5 + set midi_indev6 $indev6 + set midi_indev7 $indev7 + set midi_indev8 $indev8 + set midi_indev9 $indev9 + set midi_indev10 $indev10 + set midi_indev11 $indev11 + set midi_indev12 $indev12 + set midi_indev13 $indev13 + set midi_indev14 $indev14 + set midi_indev15 $indev15 + set midi_indev16 $indev16 + + set midi_outdev1 $outdev1 + set midi_outdev2 $outdev2 + set midi_outdev3 $outdev3 + set midi_outdev4 $outdev4 + set midi_outdev5 $outdev5 + set midi_outdev6 $outdev6 + set midi_outdev7 $outdev7 + set midi_outdev8 $outdev8 + set midi_outdev9 $outdev9 + set midi_outdev10 $outdev10 + set midi_outdev11 $outdev11 + set midi_outdev12 $outdev12 + set midi_outdev13 $outdev13 + set midi_outdev14 $outdev14 + set midi_outdev15 $outdev15 + set midi_outdev16 $outdev16 + + + set midi_indevlist $indevlist + set midi_outdevlist $outdevlist + set midi_alsain [llength $indevlist] + set midi_alsaout [llength $outdevlist] + + toplevel $id + wm title $id {midi} + wm protocol $id WM_DELETE_WINDOW [concat midi_cancel $id] + + frame $id.buttonframe + pack $id.buttonframe -side bottom -fill x -pady 2m + button $id.buttonframe.cancel -text {Cancel}\ + -command "midi_cancel $id" + button $id.buttonframe.apply -text {Apply}\ + -command "midi_apply $id" + button $id.buttonframe.ok -text {OK}\ + -command "midi_ok $id" + pack $id.buttonframe.cancel -side left -expand 1 + pack $id.buttonframe.apply -side left -expand 1 + pack $id.buttonframe.ok -side left -expand 1 + # input device 1 frame $id.in1f *************** *** 3952,4070 **** ! # if not the "long form" but if "multi" is 2, make a button to # restart with longform set. ! if {$longform == 0 && $multi > 1} { frame $id.longbutton pack $id.longbutton -side top button $id.longbutton.b -text {use multiple devices} \ ! -command {pd pd audio-properties 1 \;} pack $id.longbutton.b } - bind $id.srf.x1 <KeyPress-Return> [concat audio_ok $id] - bind $id.srf.x2 <KeyPress-Return> [concat audio_ok $id] - bind $id.in1f.x2 <KeyPress-Return> [concat audio_ok $id] - bind $id.out1f.x2 <KeyPress-Return> [concat audio_ok $id] - $id.srf.x1 select from 0 - $id.srf.x1 select adjust end - focus $id.srf.x1 - pdtk_standardkeybindings $id.srf.x1 - pdtk_standardkeybindings $id.srf.x2 - pdtk_standardkeybindings $id.in1f.x2 - pdtk_standardkeybindings $id.out1f.x2 - } - - ####################### midi dialog ################## - - proc midi_apply {id} { - global midi_indev1 midi_indev2 midi_indev3 midi_indev4 - global midi_indev5 midi_indev6 midi_indev7 midi_indev8 - global midi_indev9 midi_indev10 midi_indev11 midi_indev12 - global midi_indev13 midi_indev14 midi_indev15 midi_indev16 - - global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 - global midi_outdev5 midi_outdev6 midi_outdev7 midi_outdev8 - global midi_outdev9 midi_outdev10 midi_outdev11 midi_outdev12 - global midi_outdev13 midi_outdev14 midi_outdev15 midi_outdev16 - - global midi_alsain midi_alsaout - - pd [concat pd midi-dialog \ - $midi_indev1 \ - $midi_indev2 \ - $midi_indev3 \ - $midi_indev4 \ - $midi_indev5 \ - $midi_indev6 \ - $midi_indev7 \ - $midi_indev8 \ - $midi_indev9 \ - $midi_indev10 \ - $midi_indev11 \ - $midi_indev12 \ - $midi_indev13 \ - $midi_indev14 \ - $midi_indev15 \ - $midi_indev16 \ - $midi_outdev1 \ - $midi_outdev2 \ - $midi_outdev3 \ - $midi_outdev4 \ - $midi_outdev5 \ - $midi_outdev6 \ - $midi_outdev7 \ - $midi_outdev8 \ - $midi_outdev9 \ - $midi_outdev10 \ - $midi_outdev11 \ - $midi_outdev12 \ - $midi_outdev13 \ - $midi_outdev14 \ - $midi_outdev15 \ - $midi_outdev16 \ - $midi_alsain \ - $midi_alsaout \ - \;] - } - - proc midi_cancel {id} { - pd [concat $id cancel \;] - } - - proc midi_ok {id} { - midi_apply $id - midi_cancel $id - } - - # callback from popup menu - proc midi_popup_action {buttonname varname devlist index} { - global midi_indevlist midi_outdevlist $varname - $buttonname configure -text [lindex $devlist $index] - # puts stderr [concat popup_action $buttonname $varname $index] - set $varname $index } ! # create a popup menu ! proc midi_popup {name buttonname varname devlist} { ! if [winfo exists $name.popup] {destroy $name.popup} ! menu $name.popup -tearoff false ! # puts stderr [concat $devlist ] ! for {set x 0} {$x<[llength $devlist]} {incr x} { ! $name.popup add command -label [lindex $devlist $x] \ ! -command [list midi_popup_action \ ! $buttonname $varname $devlist $x] ! } ! tk_popup $name.popup [winfo pointerx $name] [winfo pointery $name] 0 ! } ! ! # start a dialog window to select midi devices. "longform" asks us to make ! # controls for opening several devices; if not, we get an extra button to ! # turn longform on and restart the dialog. ! ! proc pdtk_midi_dialog {id indevlist indev1 indev2 indev3 indev4 \ ! indev5 indev6 indev7 indev8 indev9 indev10 indev11 indev12 indev13 indev14 indev15 indev16 ! outdevlist outdev1 outdev2 outdev3 outdev4 \ ! outdev5 outdev6 outdev7 outdev8 outdev9 outdev10 outdev11 outdev12 outdev13 outdev14 outdev15 outdev16 longform} { ! global midi_indev1 midi_indev2 midi_indev3 midi_indev4 global midi_indev5 midi_indev6 midi_indev7 midi_indev8 --- 4258,4275 ---- ! # if not the "long form" make a button to # restart with longform set. ! if {$longform == 0} { frame $id.longbutton pack $id.longbutton -side top button $id.longbutton.b -text {use multiple devices} \ ! -command {pd pd midi-properties 1 \;} pack $id.longbutton.b } } ! proc pdtk_alsa_midi_dialog {id indevlist indev1 indev2 indev3 indev4 \ ! outdevlist outdev1 outdev2 outdev3 outdev4 longform alsa} { global midi_indev1 midi_indev2 midi_indev3 midi_indev4 global midi_indev5 midi_indev6 midi_indev7 midi_indev8 *************** *** 4080,4083 **** --- 4285,4289 ---- global midi_alsain midi_alsaout + set midi_indev1 $indev1 set midi_indev2 $indev2 *************** *** 4136,4139 **** --- 4342,4389 ---- pack $id.buttonframe.ok -side left -expand 1 + frame $id.in1f + pack $id.in1f -side top + + if {$alsa == 0} { + # input device 1 + label $id.in1f.l1 -text "input device 1:" + button $id.in1f.x1 -text [lindex $indevlist $midi_indev1] \ + -command [list midi_popup $id $id.in1f.x1 midi_indev1 $indevlist] + pack $id.in1f.l1 $id.in1f.x1 -side left + + # input device 2 + if {$longform && [llength $indevlist] > 2} { + frame $id.in2f + pack $id.in2f -side top + + label $id.in2f.l1 -text "input device 2:" + button $id.in2f.x1 -text [lindex $indevlist $midi_indev2] \ + -command [list midi_popup $id $id.in2f.x1 midi_indev2 $indevlist] + pack $id.in2f.l1 $id.in2f.x1 -side left + } + + # input device 3 + if {$longform && [llength $indevlist] > 3} { + frame $id.in3f + pack $id.in3f -side top + + label $id.in3f.l1 -text "input device 3:" + button $id.in3f.x1 -text [lindex $indevlist $midi_indev3] \ + -command [list midi_popup $id $id.in3f.x1 midi_indev3 $indevlist] + pack $id.in3f.l1 $id.in3f.x1 -side left + } + + # input device 4 + if {$longform && [llength $indevlist] > 4} { + frame $id.in4f + pack $id.in4f -side top + + label $id.in4f.l1 -text "input device 4:" + button $id.in4f.x1 -text [lindex $indevlist $midi_indev4] \ + -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] + pack $id.in4f.l1 $id.in4f.x1 -side left + } + + # input device 1 frame $id.in1f *************** *** 4492,4664 **** frame $id.longbutton pack $id.longbutton -side top - button $id.longbutton.b -text {use multiple devices} \ - -command {pd pd midi-properties 1 \;} - pack $id.longbutton.b - } - } - - proc pdtk_alsa_midi_dialog {id indevlist indev1 indev2 indev3 indev4 \ - outdevlist outdev1 outdev2 outdev3 outdev4 longform alsa} { - global midi_indev1 midi_indev2 midi_indev3 midi_indev4 - global midi_indev5 midi_indev6 midi_indev7 midi_indev8 - global midi_indev9 midi_indev10 midi_indev11 midi_indev12 - global midi_indev13 midi_indev14 midi_indev15 midi_indev16 - - global midi_outdev1 midi_outdev2 midi_outdev3 midi_outdev4 - global midi_outdev5 midi_outdev6 midi_outdev7 midi_outdev8 - global midi_outdev9 midi_outdev10 midi_outdev11 midi_outdev12 - global midi_outdev13 midi_outdev14 midi_outdev15 midi_outdev16 - - global midi_indevlist midi_outdevlist - global midi_alsain midi_alsaout - - - set midi_indev1 $indev1 - set midi_indev2 $indev2 - set midi_indev3 $indev3 - set midi_indev4 $indev4 - set midi_indev5 $indev5 - set midi_indev6 $indev6 - set midi_indev7 $indev7 - set midi_indev8 $indev8 - set midi_indev9 $indev9 - set midi_indev10 $indev10 - set midi_indev11 $indev11 - set midi_indev12 $indev12 - set midi_indev13 $indev13 - set midi_indev14 $indev14 - set midi_indev15 $indev15 - set midi_indev16 $indev16 - - set midi_outdev1 $outdev1 - set midi_outdev2 $outdev2 - set midi_outdev3 $outdev3 - set midi_outdev4 $outdev4 - set midi_outdev5 $outdev5 - set midi_outdev6 $outdev6 - set midi_outdev7 $outdev7 - set midi_outdev8 $outdev8 - set midi_outdev9 $outdev9 - set midi_outdev10 $outdev10 - set midi_outdev11 $outdev11 - set midi_outdev12 $outdev12 - set midi_outdev13 $outdev13 - set midi_outdev14 $outdev14 - set midi_outdev15 $outdev15 - set midi_outdev16 $outdev16 - - - set midi_indevlist $indevlist - set midi_outdevlist $outdevlist - set midi_alsain [llength $indevlist] - set midi_alsaout [llength $outdevlist] - - toplevel $id - wm title $id {midi} - wm protocol $id WM_DELETE_WINDOW [concat midi_cancel $id] - - frame $id.buttonframe - pack $id.buttonframe -side bottom -fill x -pady 2m - button $id.buttonframe.cancel -text {Cancel}\ - -command "midi_cancel $id" - button $id.buttonframe.apply -text {Apply}\ - -command "midi_apply $id" - button $id.buttonframe.ok -text {OK}\ - -command "midi_ok $id" - pack $id.buttonframe.cancel -side left -expand 1 - pack $id.buttonframe.apply -side left -expand 1 - pack $id.buttonframe.ok -side left -expand 1 - - frame $id.in1f - pack $id.in1f -side top - - if {$alsa == 0} { - # input device 1 - label $id.in1f.l1 -text "input device 1:" - button $id.in1f.x1 -text [lindex $indevlist $midi_indev1] \ - -command [list midi_popup $id $id.in1f.x1 midi_indev1 $indevlist] - pack $id.in1f.l1 $id.in1f.x1 -side left - - # input device 2 - if {$longform && [llength $indevlist] > 2} { - frame $id.in2f - pack $id.in2f -side top - - label $id.in2f.l1 -text "input device 2:" - button $id.in2f.x1 -text [lindex $indevlist $midi_indev2] \ - -command [list midi_popup $id $id.in2f.x1 midi_indev2 $indevlist] - pack $id.in2f.l1 $id.in2f.x1 -side left - } - - # input device 3 - if {$longform && [llength $indevlist] > 3} { - frame $id.in3f - pack $id.in3f -side top - - label $id.in3f.l1 -text "input device 3:" - button $id.in3f.x1 -text [lindex $indevlist $midi_indev3] \ - -command [list midi_popup $id $id.in3f.x1 midi_indev3 $indevlist] - pack $id.in3f.l1 $id.in3f.x1 -side left - } - - # input device 4 - if {$longform && [llength $indevlist] > 4} { - frame $id.in4f - pack $id.in4f -side top - - label $id.in4f.l1 -text "input device 4:" - button $id.in4f.x1 -text [lindex $indevlist $midi_indev4] \ - -command [list midi_popup $id $id.in4f.x1 midi_indev4 $indevlist] - pack $id.in4f.l1 $id.in4f.x1 -side left - } - - # output device 1 - - frame $id.out1f - pack $id.out1f -side top - label $id.out1f.l1 -text "output device 1:" - button $id.out1f.x1 -text [lindex $outdevlist $midi_outdev1] \ - -command [list midi_popup $id $id.out1f.x1 midi_outdev1 $outdevlist] - pack $id.out1f.l1 $id.out1f.x1 -side left - - # output device 2 - if {$longform && [llength $indevlist] > 2} { - frame $id.out2f - pack $id.out2f -side top - label $id.out2f.l1 -text "output device 2:" - button $id.out2f.x1 -text [lindex $outdevlist $midi_outdev2] \ - -command \ - [list midi_popup $id $id.out2f.x1 midi_outdev2 $outdevlist] - pack $id.out2f.l1 $id.out2f.x1 -side left - } - - # output device 3 - if {$longform && [llength $indevlist] > 3} { - frame $id.out3f - pack $id.out3f -side top - label $id.out3f.l1 -text "output device 3:" - button $id.out3f.x1 -text [lindex $outdevlist $midi_outdev3] \ - -command \ - [list midi_popup $id $id.out3f.x1 midi_outdev3 $outdevlist] - pack $id.out3f.l1 $id.out3f.x1 -side left - } - - # output device 4 - if {$longform && [llength $indevlist] > 4} { - frame $id.out4f - pack $id.out4f -side top - label $id.out4f.l1 -text "output device 4:" - button $id.out4f.x1 -text [lindex $outdevlist $midi_outdev4] \ - -command \ - [list midi_popup $id $id.out4f.x1 midi_outdev4 $outdevlist] - pack $id.out4f.l1 $id.out4f.x1 -side left - } - - # if not the "long form" make a button to - # restart with longform set. - - if {$longform == 0} { - frame $id.longbutton - pack $id.longbutton -side top button $id.longbutton.b -text {use multiple alsa devices} \ -command {pd pd midi-properties 1 \;} --- 4742,4745 ----

1 0

doc/additional/pd-msg/1.msg_and_patch 0.all_msg.pd, 1.6, 1.7
by Hans-Christoph Steiner 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/doc/additional/pd-msg/1.msg_and_patch In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6320 Modified Files: 0.all_msg.pd Log Message: updated with GOP message that I saw in IOhannes' demo patch Index: 0.all_msg.pd =================================================================== RCS file: /cvsroot/pure-data/doc/additional/pd-msg/1.msg_and_patch/0.all_msg.pd,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** 0.all_msg.pd 13 Feb 2006 03:34:24 -0000 1.6 --- 0.all_msg.pd 26 Jul 2006 18:16:20 -0000 1.7 *************** *** 1,3 **** ! #N canvas 174 23 561 721 10; #X text 14 2 Here the list of all the messages :; #X msg 40 207 array 500 190; --- 1,3 ---- ! #N canvas 174 23 565 725 10; #X text 14 2 Here the list of all the messages :; #X msg 40 207 array 500 190; *************** *** 42,61 **** #X text 22 462 reset the patch; #X msg 40 483 clear; ! #N canvas 0 22 494 344 subpatch 1; ! #X restore 210 680 pd subpatch; ! #X obj 40 679 s pd-subpatch; ! #X obj 375 678 s pd-subpatch; #X msg 40 289 connect 0 0 1 0; #X text 22 256 make connections; #X text 46 271 (connect obj# outlet# obj# inlet#); #X text 144 208 ?????; ! #X msg 40 530 read textfile.txt; ! #X msg 40 555 write textfile.txt; #X msg 375 602 vis \$1; ! #X msg 275 646 vis 1 \, clear; ! #X obj 275 624 loadbang; ! #X text 24 509 for reading/writing data structures; ! #X msg 40 598 relocate 10x20+300+400 20x30+400+500; ! #X text 26 581 this apparently relocates windows; #X connect 1 0 43 0; #X connect 2 0 43 0; --- 42,63 ---- #X text 22 462 reset the patch; #X msg 40 483 clear; ! #N canvas 0 22 498 348 subpatch 1; ! #X restore 210 700 pd subpatch; ! #X obj 40 699 s pd-subpatch; ! #X obj 375 698 s pd-subpatch; #X msg 40 289 connect 0 0 1 0; #X text 22 256 make connections; #X text 46 271 (connect obj# outlet# obj# inlet#); #X text 144 208 ?????; ! #X msg 40 525 read textfile.txt; ! #X msg 40 550 write textfile.txt; #X msg 375 602 vis \$1; ! #X msg 286 674 vis 1 \, clear; ! #X obj 286 655 loadbang; ! #X text 24 504 for reading/writing data structures; ! #X msg 40 593 relocate 10x20+300+400 20x30+400+500; ! #X text 26 576 this apparently relocates windows; ! #X msg 40 629 donecanvasdialog 1 -1 1 0 -1 1 1 50 50 100 100; ! #X text 25 614 this controls graph-on-parent; #X connect 1 0 43 0; #X connect 2 0 43 0; *************** *** 98,99 **** --- 100,102 ---- #X connect 52 0 44 0; #X connect 53 0 52 0; + #X connect 57 0 43 0;

1 0

externals/unauthorized/pianoroll help-pianoroll.pd, 1.2, 1.3 pianoroll.tk2c, NONE, 1.1 tk2c.bash, NONE, 1.1
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/pianoroll In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10362/pianoroll Added Files: help-pianoroll.pd pianoroll.tk2c tk2c.bash Log Message: fixed coordinates for GOP --- NEW FILE: pianoroll.tk2c --- // ########### pianoroll procedures -- ydegoyon(a)free.fr ######### sys_gui("proc pianoroll_apply {id} {\n"); // strip "." from the TK id to make a variable name suffix sys_gui("set vid [string trimleft $id .]\n"); // for each variable, make a local variable to hold its name... sys_gui("set var_graph_name [concat graph_name_$vid]\n"); sys_gui("global $var_graph_name\n"); sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_pmin [concat graph_pmin_$vid]\n"); sys_gui("global $var_graph_pmin\n"); sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n"); sys_gui("global $var_graph_pmax\n"); sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n"); sys_gui("global $var_graph_nbgrades\n"); sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n"); sys_gui("global $var_graph_nbsteps\n"); sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n"); sys_gui("global $var_graph_defvalue\n"); sys_gui("set var_graph_save [concat graph_save_$vid]\n"); sys_gui("global $var_graph_save\n"); sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_pmin] [eval concat $$var_graph_pmax] [eval concat $$var_graph_nbgrades] [eval concat $$var_graph_nbsteps] [eval concat $$var_graph_defvalue] [eval concat $$var_graph_save] \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc pianoroll_cancel {id} {\n"); sys_gui("set cmd [concat $id cancel \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc pianoroll_ok {id} {\n"); sys_gui("pianoroll_apply $id\n"); sys_gui("pianoroll_cancel $id\n"); sys_gui("}\n"); sys_gui("proc pdtk_pianoroll_dialog {id name width height pmin pmax nbgrades nbsteps defvalue save } {\n"); sys_gui("set vid [string trimleft $id .]\n"); sys_gui("set var_graph_name [concat graph_name_$vid]\n"); sys_gui("global $var_graph_name\n"); sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_pmin [concat graph_pmin_$vid]\n"); sys_gui("global $var_graph_pmin\n"); sys_gui("set var_graph_pmax [concat graph_pmax_$vid]\n"); sys_gui("global $var_graph_pmax\n"); sys_gui("set var_graph_nbgrades [concat graph_nbgrades_$vid]\n"); sys_gui("global $var_graph_nbgrades\n"); sys_gui("set var_graph_nbsteps [concat graph_nbsteps_$vid]\n"); sys_gui("global $var_graph_nbsteps\n"); sys_gui("set var_graph_defvalue [concat graph_defvalue_$vid]\n"); sys_gui("global $var_graph_defvalue\n"); sys_gui("set var_graph_save [concat graph_save_$vid]\n"); sys_gui("global $var_graph_save\n"); sys_gui("set $var_graph_name $name\n"); sys_gui("set $var_graph_width $width\n"); sys_gui("set $var_graph_height $height\n"); sys_gui("set $var_graph_pmin $pmin\n"); sys_gui("set $var_graph_pmax $pmax\n"); sys_gui("set $var_graph_nbgrades $nbgrades\n"); sys_gui("set $var_graph_nbsteps $nbsteps\n"); sys_gui("set $var_graph_defvalue $defvalue\n"); sys_gui("set $var_graph_save $save\n"); sys_gui("toplevel $id\n"); sys_gui("wm title $id {pianoroll}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat pianoroll_cancel $id]\n"); sys_gui("label $id.label -text {PIANOROLL PROPERTIES}\n"); sys_gui("pack $id.label -side top\n"); sys_gui("frame $id.buttonframe\n"); sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"pianoroll_cancel $id\"\n"); sys_gui("button $id.buttonframe.apply -text {Apply} -command \"pianoroll_apply $id\"\n"); sys_gui("button $id.buttonframe.ok -text {OK} -command \"pianoroll_ok $id\"\n"); sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); sys_gui("frame $id.1rangef\n"); sys_gui("pack $id.1rangef -side top\n"); sys_gui("label $id.1rangef.lname -text \"Name :\"\n"); sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 15\n"); sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n"); sys_gui("frame $id.2rangef\n"); sys_gui("pack $id.2rangef -side top\n"); sys_gui("label $id.2rangef.lwidth -text \"Width :\"\n"); sys_gui("entry $id.2rangef.width -textvariable $var_graph_width -width 7\n"); sys_gui("pack $id.2rangef.lwidth $id.2rangef.width -side left\n"); sys_gui("frame $id.3rangef\n"); sys_gui("pack $id.3rangef -side top\n"); sys_gui("label $id.3rangef.lheight -text \"Height :\"\n"); sys_gui("entry $id.3rangef.height -textvariable $var_graph_height -width 7\n"); sys_gui("pack $id.3rangef.lheight $id.3rangef.height -side left\n"); sys_gui("frame $id.4rangef\n"); sys_gui("pack $id.4rangef -side top\n"); sys_gui("label $id.4rangef.lpmin -text \"Pitch low :\"\n"); sys_gui("entry $id.4rangef.pmin -textvariable $var_graph_pmin -width 7\n"); sys_gui("pack $id.4rangef.lpmin $id.4rangef.pmin -side left\n"); sys_gui("frame $id.5rangef\n"); sys_gui("pack $id.5rangef -side top\n"); sys_gui("label $id.5rangef.lpmax -text \"Pitch high :\"\n"); sys_gui("entry $id.5rangef.pmax -textvariable $var_graph_pmax -width 7\n"); sys_gui("pack $id.5rangef.lpmax $id.5rangef.pmax -side left\n"); sys_gui("frame $id.6rangef\n"); sys_gui("pack $id.6rangef -side top\n"); sys_gui("label $id.6rangef.lnbgrades -text \"Grades :\"\n"); sys_gui("entry $id.6rangef.nbgrades -textvariable $var_graph_nbgrades -width 7\n"); sys_gui("pack $id.6rangef.lnbgrades $id.6rangef.nbgrades -side left\n"); sys_gui("frame $id.7rangef\n"); sys_gui("pack $id.7rangef -side top\n"); sys_gui("label $id.7rangef.lnbsteps -text \"Steps :\"\n"); sys_gui("entry $id.7rangef.nbsteps -textvariable $var_graph_nbsteps -width 7\n"); sys_gui("pack $id.7rangef.lnbsteps $id.7rangef.nbsteps -side left\n"); sys_gui("frame $id.8rangef\n"); sys_gui("pack $id.8rangef -side top\n"); sys_gui("label $id.8rangef.ldefvalue -text \"Default Value :\"\n"); sys_gui("entry $id.8rangef.defvalue -textvariable $var_graph_defvalue -width 7\n"); sys_gui("pack $id.8rangef.ldefvalue $id.8rangef.defvalue -side left\n"); sys_gui("checkbutton $id.save -text {Save contents} -variable $var_graph_save -anchor w\n"); sys_gui("pack $id.save -side top\n"); sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.2rangef.width <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.3rangef.height <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.4rangef.pmin <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.5rangef.pmax <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.6rangef.nbgrades <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.7rangef.nbsteps <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("bind $id.8rangef.defvalue <KeyPress-Return> [concat pianoroll_ok $id]\n"); sys_gui("focus $id.1rangef.name\n"); sys_gui("}\n"); // ########### pianoroll procedures END -- ydegoyon(a)free.fr ######### --- NEW FILE: help-pianoroll.pd --- #N canvas 90 41 827 643 10; #X floatatom 71 402 5 0 0; #X floatatom 258 400 5 0 0; #X text 523 112 (invoke with <right mouse>Properties ); #X text 524 101 You can set the following properties :; #X text 548 141 * Width : graphical x size; #X text 548 152 * Height : graphical y size; #X text 488 548 bugs and comments @ ydegoyon(a)free.fr; #X msg 587 271 \; pd dsp 0; #X msg 653 271 \; pd dsp 1; #X text 548 129 * Name; #X text 119 401 Pitch; #X text 304 399 Volume ( scaled to [0 \, 1] ); #X text 547 164 * Pitch min : minimum value delivered by left outlet ; #X text 547 176 * Pitch max : maximum value delivered by left outlet ; #X text 547 200 * Step number : number of steps; #X text 524 79 ( pitch & volume originally but \, really \, anything you like ); #X msg 238 87 transpose \$1; #X floatatom 334 89 5 0 0; #X text 240 104 You can transpose the melody ( ?? ); #X text 241 115 with a float value; #X text 548 211 * Default value : must be in [min \, max]; #X obj 65 165 pianoroll pianoroll1 400 192 -15 15 32 16 0 0 1 -12.0968 0.741935 -3.3871 0.16129 5.32258 0.16129 -4.35484 0.354839 6.29032 0.322581 6.29032 1 5.32258 1 -12.0968 0.290323 -10.1613 0.290323 -8.22581 0.580645 -5.32258 1 7.25807 1 -10.1613 0.580645 -15 0.612903 -15 0.580645 -15 1; #X msg 47 18 bang; #X obj 46 80 f; #X obj 76 80 + 1; #X floatatom 9 104 5 0 0; #X obj 47 44 metro 500; #X text 527 65 Pianoroll controls two parameters for a sequencer; #X text 548 188 * Pitch grades : number of grades for the pitch; #X msg 82 18 stop; #X floatatom 13 140 5 0 0; #X text 57 1 forward; #X text 144 0 backward; #X msg 136 15 bang; #X obj 135 77 f; #X obj 136 41 metro 500; #X msg 171 16 stop; #X obj 165 77 - 1; #X msg 239 59 init; #X text 279 60 init to default values; #X msg 241 33 load pattern#1; #X text 352 19 load and save the patterns; #X text 352 31 ( values as well as steps number .... ); #X msg 241 10 save pattern#1; #X text 544 383 you can set the pitch and; #X text 544 397 the volume with messages; #X text 544 409 ( positions start at zero ); #X msg 541 358 volume 3 0.345; #X msg 542 334 pitch 3 -5; #X connect 16 0 21 0; #X connect 17 0 16 0; #X connect 21 0 0 0; #X connect 21 1 1 0; #X connect 22 0 26 0; #X connect 23 0 21 0; #X connect 23 0 24 0; #X connect 23 0 25 0; #X connect 24 0 23 1; #X connect 26 0 23 0; #X connect 29 0 26 0; #X connect 30 0 21 0; #X connect 33 0 35 0; #X connect 34 0 37 0; #X connect 34 0 21 0; #X connect 35 0 34 0; #X connect 36 0 35 0; #X connect 37 0 34 1; #X connect 38 0 21 0; #X connect 40 0 21 0; #X connect 43 0 21 0; #X connect 47 0 21 0; #X connect 48 0 21 0; --- NEW FILE: tk2c.bash --- #!/bin/bash #set -x while read line do for word in $line do if [ "X"$word != "X"${word#\#} ] then echo // ${line#\#} break else line=${line//\'/\\\'} #useless, slashes never gets in line=${line//\\/\\\\} #this one's dirty, i know line=${line//;/\\\\;} line=${line//\"/\\\"} echo 'sys_gui("'$line'\n");' break fi done done

1 0

externals/unauthorized/exciter exciter.tk2c, NONE, 1.1 help-exciter.pd, 1.2, 1.3 tk2c.bash, NONE, 1.1
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/exciter In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10362/exciter Added Files: exciter.tk2c help-exciter.pd tk2c.bash Log Message: fixed coordinates for GOP --- NEW FILE: exciter.tk2c --- // ########### exciter procedures -- ydegoyon(a)free.fr ######### sys_gui("proc exciter_apply {id} {\n"); // strip "." from the TK id to make a variable name suffix sys_gui("set vid [string trimleft $id .]\n"); // for each variable, make a local variable to hold its name... sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_nbevents [concat graph_nbevents_$vid]\n"); sys_gui("global $var_graph_nbevents\n"); sys_gui("set var_graph_timegrain [concat graph_timegrain_$vid]\n"); sys_gui("global $var_graph_timegrain\n"); sys_gui("set var_graph_loop [concat graph_loop_$vid]\n"); sys_gui("global $var_graph_loop\n"); sys_gui("set var_graph_save [concat graph_save_$vid]\n"); sys_gui("global $var_graph_save\n"); sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_nbevents] [eval concat $$var_graph_timegrain] [eval concat $$var_graph_loop] [eval concat $$var_graph_save] \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc exciter_cancel {id} {\n"); sys_gui("set cmd [concat $id cancel \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc exciter_ok {id} {\n"); sys_gui("exciter_apply $id\n"); sys_gui("exciter_cancel $id\n"); sys_gui("}\n"); sys_gui("proc pdtk_exciter_dialog {id width height nbevents timegrain loop save } {\n"); sys_gui("set vid [string trimleft $id .]\n"); sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_nbevents [concat graph_nbevents_$vid]\n"); sys_gui("global $var_graph_nbevents\n"); sys_gui("set var_graph_timegrain [concat graph_timegrain_$vid]\n"); sys_gui("global $var_graph_timegrain\n"); sys_gui("set var_graph_loop [concat graph_loop_$vid]\n"); sys_gui("global $var_graph_loop\n"); sys_gui("set var_graph_save [concat graph_save_$vid]\n"); sys_gui("global $var_graph_save\n"); sys_gui("set $var_graph_width $width\n"); sys_gui("set $var_graph_height $height\n"); sys_gui("set $var_graph_nbevents $nbevents\n"); sys_gui("set $var_graph_timegrain $timegrain\n"); sys_gui("set $var_graph_loop $loop\n"); sys_gui("set $var_graph_save $save\n"); sys_gui("toplevel $id\n"); sys_gui("wm title $id {exciter}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat exciter_cancel $id]\n"); sys_gui("label $id.label -text {EXCITER PROPERTIES}\n"); sys_gui("pack $id.label -side top\n"); sys_gui("frame $id.buttonframe\n"); sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"exciter_cancel $id\"\n"); sys_gui("button $id.buttonframe.apply -text {Apply} -command \"exciter_apply $id\"\n"); sys_gui("button $id.buttonframe.ok -text {OK} -command \"exciter_ok $id\"\n"); sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); sys_gui("frame $id.1rangef\n"); sys_gui("pack $id.1rangef -side top\n"); sys_gui("label $id.1rangef.lwidth -text \"Width :\"\n"); sys_gui("entry $id.1rangef.width -textvariable $var_graph_width -width 7\n"); sys_gui("pack $id.1rangef.lwidth $id.1rangef.width -side left\n"); sys_gui("frame $id.2rangef\n"); sys_gui("pack $id.2rangef -side top\n"); sys_gui("label $id.2rangef.lheight -text \"Height :\"\n"); sys_gui("entry $id.2rangef.height -textvariable $var_graph_height -width 7\n"); sys_gui("pack $id.2rangef.lheight $id.2rangef.height -side left\n"); sys_gui("frame $id.3rangef\n"); sys_gui("pack $id.3rangef -side top\n"); sys_gui("label $id.3rangef.lnbevents -text \"Nb Events :\"\n"); sys_gui("entry $id.3rangef.nbevents -textvariable $var_graph_nbevents -width 7\n"); sys_gui("pack $id.3rangef.lnbevents $id.3rangef.nbevents -side left\n"); sys_gui("frame $id.4rangef\n"); sys_gui("pack $id.4rangef -side top\n"); sys_gui("label $id.4rangef.ltimegrain -text \"Time Grain (seconds) :\"\n"); sys_gui("entry $id.4rangef.timegrain -textvariable $var_graph_timegrain -width 7\n"); sys_gui("pack $id.4rangef.ltimegrain $id.4rangef.timegrain -side left\n"); sys_gui("checkbutton $id.loop -text {Loop} -variable $var_graph_loop -anchor w\n"); sys_gui("pack $id.loop -side top\n"); sys_gui("checkbutton $id.save -text {Save contents} -variable $var_graph_save -anchor w\n"); sys_gui("pack $id.save -side top\n"); sys_gui("bind $id.1rangef.width <KeyPress-Return> [concat exciter_ok $id]\n"); sys_gui("bind $id.2rangef.height <KeyPress-Return> [concat exciter_ok $id]\n"); sys_gui("bind $id.3rangef.nbevents <KeyPress-Return> [concat exciter_ok $id]\n"); sys_gui("bind $id.4rangef.timegrain <KeyPress-Return> [concat exciter_ok $id]\n"); sys_gui("focus $id.1rangef.width\n"); sys_gui("}\n"); // ########### exciter procedures END -- ydegoyon(a)free.fr ######### --- NEW FILE: help-exciter.pd --- #N canvas 103 12 970 685 10; #X text 457 89 (invoke with <right mouse>Properties ); #X text 458 78 You can set the following properties :; #X text 478 110 * Width : graphical x size; #X text 478 121 * Height : graphical y size; #X text 612 498 bugs and comments @ ydegoyon(a)free.fr; #X msg 587 271 \; pd dsp 0; #X msg 653 271 \; pd dsp 1; #X obj 32 56 exciter 400 200 16 0.1 1 1 1 14 1 15 3 52 5 30 5 69 6 8 8 20 9 32 9 74 10 79 11 14 11 74 12 79 13 40 13 79 15 78; #X text 456 50 Exciter controls a list of bang-events scheduled in time; #X obj 22 282 print e1; #X text 478 132 * Number of events : number of simultaneous events ; #X text 477 155 * Loop : looping flag; #X msg 193 29 reset; #X msg 103 29 pause; #X msg 31 29 start; #X msg 145 29 resume; #X msg 70 29 stop; #X text 44 363 so that events are triggered; #X obj 653 249 loadbang; #X msg 239 30 clear; #X text 102 389 Note 2 : the event happens in the center (?) of the polygon; #X msg 286 30 dump; #X text 478 144 * Time Grain : time grain betweeen each event; #X obj 80 283 print e3; #X obj 137 284 print e5; #X obj 194 283 print e7; #X obj 252 284 print e9; #X obj 308 284 print e11; #X obj 366 284 print e13; #X obj 429 285 print e15; #X obj 45 307 print e2; #X obj 103 308 print e4; #X obj 217 308 print e8; #X obj 275 309 print e10; #X obj 335 310 print e12; #X obj 396 309 print e14; #X obj 457 309 print e16; #X obj 160 309 print e6; #X text 523 411 ( 10 ms ) \, it won't be processed properly; #X text 523 399 WARNING : you can't set time grain below 1 clock tick ; #X text 46 352 Note 1 : the dsp has to be on; #X connect 7 0 9 0; #X connect 7 1 30 0; #X connect 7 2 23 0; #X connect 7 3 31 0; #X connect 7 4 24 0; #X connect 7 5 37 0; #X connect 7 6 25 0; #X connect 7 7 32 0; #X connect 7 8 26 0; #X connect 7 9 33 0; #X connect 7 10 27 0; #X connect 7 11 34 0; #X connect 7 12 28 0; #X connect 7 13 35 0; #X connect 7 14 29 0; #X connect 7 15 36 0; #X connect 12 0 7 0; #X connect 13 0 7 0; #X connect 14 0 7 0; #X connect 15 0 7 0; #X connect 16 0 7 0; #X connect 18 0 6 0; #X connect 19 0 7 0; #X connect 21 0 7 0; --- NEW FILE: tk2c.bash --- #!/bin/bash #set -x while read line do for word in $line do if [ "X"$word != "X"${word#\#} ] then echo // ${line#\#} break else line=${line//\'/\\\'} #useless, slashes never gets in line=${line//\\/\\\\} #this one's dirty, i know line=${line//;/\\\\;} line=${line//\"/\\\"} echo 'sys_gui("'$line'\n");' break fi done done

1 0

externals/unauthorized/filterbank~ filterbank~.tk2c, NONE, 1.1 help-filterbank~.pd, 1.2, 1.3 tk2c.bash, NONE, 1.1
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/filterbank~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10362/filterbank~ Added Files: filterbank~.tk2c help-filterbank~.pd tk2c.bash Log Message: fixed coordinates for GOP --- NEW FILE: help-filterbank~.pd --- #N canvas 122 3 868 640 10; #X text 387 606 bugs and comments @ ydegoyon(a)free.fr [-_-]; #X text 256 524 (invoke with <right mouse>Properties ); #X text 256 506 You can set the following properties :; #X text 321 108 Constructor : filterbank~ <lower freq> <higher freq> <nbfilters> | filterbank~; #X text 264 543 * Lower Frequency : lower frequency of all filters ; #X text 264 556 * Higher Frequency : higher frequency of all filters ; #X text 321 77 filterbank~ outputs the frequency response against a set of band-pass filters; #X obj 127 279 filterbank~ 0 2000 30; #X text 387 588 part of unauthorized PD ( http://ydegoyon.free.fr ) ; #X msg 31 20 bang; #X obj 31 41 openpanel; #X obj 31 62 t s b; #X obj 77 62 float \$0; #X text 31 1 Step 1 : Load a sound file; #X obj 31 83 route float; #X msg 336 250 bang; #X obj 32 179 soundfiler; #X obj 125 250 tabplay~ \$0-filterbank-sample; #X obj 31 104 makefilename %d-filterbank-sample; #X obj 32 137 pack s s; #X msg 32 158 read -resize \$1 \$2; #X obj 72 599 table \$0-filterbank-sample; #X text 321 139 Example : filterbank~ 0 3000 30; #X obj 86 330 env~; #X obj 122 307 env~; #X obj 121 329 env~; #X obj 87 306 env~; #X obj 101 359 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 113 359 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 125 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 138 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 91 250 dac~; #X obj 156 331 env~; #X obj 191 307 env~; #X obj 191 330 env~; #X obj 158 307 env~; #X obj 171 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 183 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 195 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 208 361 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 227 331 env~; #X obj 262 307 env~; #X obj 262 330 env~; #X obj 228 307 env~; #X obj 242 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 254 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 266 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 279 361 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 297 331 env~; #X obj 332 307 env~; #X obj 332 330 env~; #X obj 298 307 env~; #X obj 312 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 324 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 336 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 349 361 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 367 331 env~; #X obj 403 308 env~; #X obj 402 330 env~; #X obj 368 307 env~; #X obj 382 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 394 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 406 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 419 361 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 438 330 env~; #X obj 473 306 env~; #X obj 473 329 env~; #X obj 439 306 env~; #X obj 453 359 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 465 359 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 477 359 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 490 360 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 513 328 env~; #X obj 548 304 env~; #X obj 548 327 env~; #X obj 514 304 env~; #X obj 528 357 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 540 357 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 552 357 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 565 358 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 580 328 env~; #X obj 581 304 env~; #X obj 595 357 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X obj 607 357 vsl 8 128 0 127 0 0 empty empty empty 20 8 0 8 -262144 -1 -1 0 1; #X text 203 228 Step 2 : See the filterbank~ output; #X text 451 252 Step 3 : shift all the outputs randomly; #X msg 458 274 randomize 1; #X msg 547 274 randomize 0; #X connect 7 0 26 0; #X connect 7 1 23 0; #X connect 7 2 24 0; #X connect 7 3 25 0; #X connect 7 4 35 0; #X connect 7 5 32 0; #X connect 7 6 33 0; #X connect 7 7 34 0; #X connect 7 8 43 0; #X connect 7 9 40 0; #X connect 7 10 41 0; #X connect 7 11 42 0; #X connect 7 12 51 0; #X connect 7 13 48 0; #X connect 7 14 49 0; #X connect 7 15 50 0; #X connect 7 16 59 0; #X connect 7 17 56 0; #X connect 7 18 57 0; #X connect 7 18 58 0; #X connect 7 20 67 0; #X connect 7 21 64 0; #X connect 7 22 65 0; #X connect 7 23 66 0; #X connect 7 24 75 0; #X connect 7 25 72 0; #X connect 7 26 73 0; #X connect 7 27 74 0; #X connect 7 28 81 0; #X connect 7 29 80 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 19 0; #X connect 11 1 12 0; #X connect 12 0 14 0; #X connect 14 0 18 0; #X connect 15 0 17 0; #X connect 17 0 31 0; #X connect 17 0 7 0; #X connect 17 0 31 1; #X connect 18 0 19 1; #X connect 19 0 20 0; #X connect 20 0 16 0; #X connect 23 0 28 0; #X connect 24 0 29 0; #X connect 25 0 30 0; #X connect 26 0 27 0; #X connect 32 0 37 0; #X connect 33 0 38 0; #X connect 34 0 39 0; #X connect 35 0 36 0; #X connect 40 0 45 0; #X connect 41 0 46 0; #X connect 42 0 47 0; #X connect 43 0 44 0; #X connect 48 0 53 0; #X connect 49 0 54 0; #X connect 50 0 55 0; #X connect 51 0 52 0; #X connect 56 0 61 0; #X connect 57 0 62 0; #X connect 58 0 63 0; #X connect 59 0 60 0; #X connect 64 0 69 0; #X connect 65 0 70 0; #X connect 66 0 71 0; #X connect 67 0 68 0; #X connect 72 0 77 0; #X connect 73 0 78 0; #X connect 74 0 79 0; #X connect 75 0 76 0; #X connect 80 0 83 0; #X connect 81 0 82 0; #X connect 86 0 7 0; #X connect 87 0 7 0; --- NEW FILE: filterbank~.tk2c --- // ########### filterbank procedures -- ydegoyon(a)free.fr ######### sys_gui("proc filterbank_apply {id} {\n"); // strip "." from the TK id to make a variable name suffix sys_gui("set vid [string trimleft $id .]\n"); // for each variable, make a local variable to hold its name... sys_gui("set var_graph_lowfreq [concat graph_lowfreq_$vid]\n"); sys_gui("global $var_graph_lowfreq\n"); sys_gui("set var_graph_highfreq [concat graph_highfreq_$vid]\n"); sys_gui("global $var_graph_highfreq\n"); sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_lowfreq] [eval concat $$var_graph_highfreq] \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc filterbank_cancel {id} {\n"); sys_gui("set cmd [concat $id cancel \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc filterbank_ok {id} {\n"); sys_gui("filterbank_apply $id\n"); sys_gui("filterbank_cancel $id\n"); sys_gui("}\n"); sys_gui("proc pdtk_filterbank_dialog {id lowfreq highfreq} {\n"); sys_gui("set vid [string trimleft $id .]\n"); sys_gui("set var_graph_lowfreq [concat graph_lowfreq_$vid]\n"); sys_gui("global $var_graph_lowfreq\n"); sys_gui("set var_graph_highfreq [concat graph_highfreq_$vid]\n"); sys_gui("global $var_graph_highfreq\n"); sys_gui("set $var_graph_lowfreq $lowfreq\n"); sys_gui("set $var_graph_highfreq $highfreq\n"); sys_gui("toplevel $id\n"); sys_gui("wm title $id {filterbank}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat filterbank_cancel $id]\n"); sys_gui("label $id.label -text {FILTERBANK PROPERTIES}\n"); sys_gui("pack $id.label -side top\n"); sys_gui("frame $id.buttonframe\n"); sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"filterbank_cancel $id\"\n"); sys_gui("button $id.buttonframe.apply -text {Apply} -command \"filterbank_apply $id\"\n"); sys_gui("button $id.buttonframe.ok -text {OK} -command \"filterbank_ok $id\"\n"); sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); sys_gui("frame $id.1rangef\n"); sys_gui("pack $id.1rangef -side top\n"); sys_gui("label $id.1rangef.llowfreq -text \"Lower Frequency :\"\n"); sys_gui("entry $id.1rangef.lowfreq -textvariable $var_graph_lowfreq -width 7\n"); sys_gui("pack $id.1rangef.llowfreq $id.1rangef.lowfreq -side left\n"); sys_gui("frame $id.2rangef\n"); sys_gui("pack $id.2rangef -side top\n"); sys_gui("label $id.2rangef.lhighfreq -text \"Higher Frequency :\"\n"); sys_gui("entry $id.2rangef.highfreq -textvariable $var_graph_highfreq -width 7\n"); sys_gui("pack $id.2rangef.lhighfreq $id.2rangef.highfreq -side left\n"); sys_gui("bind $id.1rangef.lowfreq <KeyPress-Return> [concat filterbank_ok $id]\n"); sys_gui("bind $id.2rangef.highfreq <KeyPress-Return> [concat filterbank_ok $id]\n"); sys_gui("focus $id.1rangef.lowfreq\n"); sys_gui("}\n"); // ########### filterbank procedures END -- ydegoyon(a)free.fr ######### --- NEW FILE: tk2c.bash --- #!/bin/bash #set -x while read line do for word in $line do if [ "X"$word != "X"${word#\#} ] then echo // ${line#\#} break else line=${line//\'/\\\'} #useless, slashes never gets in line=${line//\\/\\\\} #this one's dirty, i know line=${line//;/\\\\;} line=${line//\"/\\\"} echo 'sys_gui("'$line'\n");' break fi done done

1 0

externals/unauthorized/audience~ audience~.tk2c, NONE, 1.1 help-audience~.pd, 1.2, 1.3
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/audience~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10362/audience~ Added Files: audience~.tk2c help-audience~.pd Log Message: fixed coordinates for GOP --- NEW FILE: help-audience~.pd --- #N canvas 207 7 763 647 10; #X text 370 378 * Width : graphical x size; #X text 371 393 * Height : graphical y size; #X text 358 456 bugs and comments @ ydegoyon(a)free.fr [-_-]; #X obj 91 492 *~ 1; #X obj 177 491 *~ 1; #X obj 134 458 / 100; #X floatatom 134 428 5 0 0; #X floatatom 174 129 5 0 0; #X floatatom 254 128 5 0 0; #X floatatom 332 128 5 0 0; #X floatatom 405 128 5 0 0; #X text 332 210 audience~ is a moving audience simulation; #X text 334 236 within a 2d space; #X text 332 223 Each sound input and each listener can be moved; #X text 371 407 * Nb Listeners : number of listeners; #X obj 129 523 dac~; #X msg 42 89 attenuation 0; #X msg 42 64 attenuation 0.1; #X msg 42 40 attenuation 1; #X obj 406 153 osc~ 10000; #X text 8 14 Sound attenuation per meter ( default = 0.01 ); #X text 338 306 Example : audience~ 200 200 4 1 0.01 0; #X text 339 349 (invoke with <right mouse>Properties ); #X text 342 339 You can set the following properties :; #X text 341 527 Note : the number of inputs + outputs is limited to 10; #X text 341 540 ( can be easily changed in the code ); #X obj 254 154 osc~ 500; #X obj 331 154 osc~ 3000; #X text 337 278 Constructor : audience~ <width> <height> <nbinputs> <nblisteners> <attenuation> <apply delay flag> | audience~; #X obj 175 155 osc~ 50; #X obj 70 196 audience~ 200 200 4 2 0.01 0 0 0 193 188 126 118 145 72 20 182 10 0; #X msg 165 66 delay 0; #X msg 165 91 delay 1; #X text 296 41 ( due to the distance between speaker and listener ) ; #X text 163 40 Apply delay option; #X connect 3 0 15 0; #X connect 4 0 15 1; #X connect 5 0 3 1; #X connect 5 0 4 1; #X connect 6 0 5 0; #X connect 7 0 29 0; #X connect 8 0 26 0; #X connect 9 0 27 0; #X connect 10 0 19 0; #X connect 16 0 30 0; #X connect 17 0 30 0; #X connect 18 0 30 0; #X connect 19 0 30 4; #X connect 26 0 30 2; #X connect 27 0 30 3; #X connect 29 0 30 1; #X connect 30 0 3 0; #X connect 30 1 4 0; #X connect 31 0 30 0; #X connect 32 0 30 0; --- NEW FILE: audience~.tk2c --- // ########### audience procedures -- ydegoyon(a)free.fr ######### sys_gui("proc audience_apply {id} {\n"); // strip "." from the TK id to make a variable name suffix sys_gui("set vid [string trimleft $id .]\n"); // for each variable, make a local variable to hold its name... sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_nboutputs [concat graph_nboutputs_$vid]\n"); sys_gui("global $var_graph_nboutputs\n"); sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_width] [eval concat $$var_graph_height] [eval concat $$var_graph_nboutputs] \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc audience_cancel {id} {\n"); sys_gui("set cmd [concat $id cancel \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc audience_ok {id} {\n"); sys_gui("audience_apply $id\n"); sys_gui("audience_cancel $id\n"); sys_gui("}\n"); sys_gui("proc pdtk_audience_dialog {id width height nboutputs} {\n"); sys_gui("set vid [string trimleft $id .]\n"); sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set var_graph_nboutputs [concat graph_nboutputs_$vid]\n"); sys_gui("global $var_graph_nboutputs\n"); sys_gui("set $var_graph_width $width\n"); sys_gui("set $var_graph_height $height\n"); sys_gui("set $var_graph_nboutputs $nboutputs\n"); sys_gui("toplevel $id\n"); sys_gui("wm title $id {audience}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat audience_cancel $id]\n"); sys_gui("label $id.label -text {2$ SPACE PROPERTIES}\n"); sys_gui("pack $id.label -side top\n"); sys_gui("frame $id.buttonframe\n"); sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"audience_cancel $id\"\n"); sys_gui("button $id.buttonframe.apply -text {Apply} -command \"audience_apply $id\"\n"); sys_gui("button $id.buttonframe.ok -text {OK} -command \"audience_ok $id\"\n"); sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); sys_gui("frame $id.1rangef\n"); sys_gui("pack $id.1rangef -side top\n"); sys_gui("label $id.1rangef.lwidth -text \"Width :\"\n"); sys_gui("entry $id.1rangef.width -textvariable $var_graph_width -width 7\n"); sys_gui("pack $id.1rangef.lwidth $id.1rangef.width -side left\n"); sys_gui("frame $id.2rangef\n"); sys_gui("pack $id.2rangef -side top\n"); sys_gui("label $id.2rangef.lheight -text \"Height :\"\n"); sys_gui("entry $id.2rangef.height -textvariable $var_graph_height -width 7\n"); sys_gui("pack $id.2rangef.lheight $id.2rangef.height -side left\n"); sys_gui("frame $id.3rangef\n"); sys_gui("pack $id.3rangef -side top\n"); sys_gui("label $id.3rangef.lnboutputs -text \"Nb Listeners :\"\n"); sys_gui("entry $id.3rangef.nboutputs -textvariable $var_graph_nboutputs -width 7\n"); sys_gui("pack $id.3rangef.lnboutputs $id.3rangef.nboutputs -side left\n"); sys_gui("bind $id.1rangef.width <KeyPress-Return> [concat audience_ok $id]\n"); sys_gui("bind $id.2rangef.height <KeyPress-Return> [concat audience_ok $id]\n"); sys_gui("bind $id.3rangef.nboutputs <KeyPress-Return> [concat audience_ok $id]\n"); sys_gui("focus $id.1rangef.width\n"); sys_gui("}\n"); // ########### audience procedures END -- ydegoyon(a)free.fr #########

1 0

externals/unauthorized/sonogram~ CHANGES.LOG, 1.3, 1.4 sonogram~.c, 1.12, 1.13
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/sonogram~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8741 Modified Files: CHANGES.LOG sonogram~.c Log Message: fixed coordinates for GOP Index: CHANGES.LOG =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/sonogram~/CHANGES.LOG,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** CHANGES.LOG 2 Mar 2005 02:48:57 -0000 1.3 --- CHANGES.LOG 26 Jul 2006 16:57:46 -0000 1.4 *************** *** 1,2 **** --- 1,4 ---- + 0.14 + remove GOP support 0.13 added GOP support Index: sonogram~.c =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/sonogram~/sonogram~.c,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** sonogram~.c 7 Apr 2006 02:06:09 -0000 1.12 --- sonogram~.c 26 Jul 2006 16:57:46 -0000 1.13 *************** *** 30,36 **** - /* this doesn't compile on MinGW */ - #ifndef _WIN32 - #include <sys/types.h> --- 30,33 ---- *************** *** 41,65 **** #include <fcntl.h> #include <sys/stat.h> - - #ifdef __APPLE__ - #include <sys/malloc.h> - #else #include <malloc.h> - #endif - #include <ctype.h> #include <pthread.h> ! #ifdef _WIN32 ! #include <io.h> ! #define random rand ! #define usleep(a) _sleep(a/1000) ! #else #include <unistd.h> #endif ! #include <math.h> ! ! #ifndef M_PI #define M_PI 3.14159265358979323846 #endif #include "m_pd.h" --- 38,51 ---- #include <fcntl.h> #include <sys/stat.h> #include <malloc.h> #include <ctype.h> #include <pthread.h> ! #ifdef UNIX #include <unistd.h> #endif ! #ifdef NT #define M_PI 3.14159265358979323846 #endif + #include <math.h> #include "m_pd.h" *************** *** 111,115 **** #define THREAD_SLEEP_TIME 100000 // 100000 us = 100 ms ! static char *sonogram_version = "sonogram~: version 0.12, written by Yves Degoyon (ydegoyon(a)free.fr)"; static t_class *sonogram_class; --- 97,101 ---- #define THREAD_SLEEP_TIME 100000 // 100000 us = 100 ms ! static char *sonogram_version = "sonogram~: version 0.14, written by Yves Degoyon (ydegoyon(a)free.fr)"; static t_class *sonogram_class; *************** *** 335,339 **** for ( i=0; i<x->x_zoom; i++ ) { ! sprintf( x->x_guicommand, "SONIMAGE%x put {%s} -to %d 0\n", (unsigned int)x, x->x_gifdata, (int) ((bnumber*x->x_zoom)+i) ); sys_gui( x->x_guicommand ); } --- 321,325 ---- for ( i=0; i<x->x_zoom; i++ ) { ! sprintf( x->x_guicommand, "SONIMAGE%x put {%s} -to %d 0\n", (unsigned int)x, x->x_gifdata, (bnumber*x->x_zoom)+i ); sys_gui( x->x_guicommand ); } *************** *** 355,359 **** for ( i=0; i<x->x_zoom; i++ ) { ! sprintf( x->x_guicommand, "FAZIMAGE%x put {%s} -to %d 0\n", (unsigned int)x, x->x_gifdata, (int) ((bnumber*x->x_zoom)+i) ); sys_gui( x->x_guicommand ); } --- 341,345 ---- for ( i=0; i<x->x_zoom; i++ ) { ! sprintf( x->x_guicommand, "FAZIMAGE%x put {%s} -to %d 0\n", (unsigned int)x, x->x_gifdata, (bnumber*x->x_zoom)+i ); sys_gui( x->x_guicommand ); } *************** *** 386,398 **** static void *sonogram_do_update_part(void *tdata) { ! t_sonogram *x = (t_sonogram*) tdata; ! t_int si; ! t_int nbpoints = 0; ! t_float percentage = 0, opercentage = 0; ! t_canvas *canvas=glist_getcanvas(x->x_glist); ! ! // loose synchro ! usleep( THREAD_SLEEP_TIME ); // check boundaries --- 372,384 ---- static void *sonogram_do_update_part(void *tdata) { ! t_sonogram *x = (t_sonogram*) tdata; ! t_int si; ! t_int nbpoints = 0; ! t_float percentage = 0, opercentage = 0; ! t_canvas *canvas=glist_getcanvas(x->x_glist); ! ! // loose synchro ! usleep( THREAD_SLEEP_TIME ); // check boundaries *************** *** 861,865 **** binbuf_addv(b, "ssiisiii", gensym("#X"),gensym("obj"), ! (t_int)x->x_xpos, (t_int)x->x_ypos, gensym("sonogram~"), x->x_size, x->x_graphic, x->x_phaso ); binbuf_addv(b, ";"); --- 847,851 ---- binbuf_addv(b, "ssiisiii", gensym("#X"),gensym("obj"), ! (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, gensym("sonogram~"), x->x_size, x->x_graphic, x->x_phaso ); binbuf_addv(b, ";"); *************** *** 2091,2094 **** class_addmethod(sonogram_class, (t_method)sonogram_undo, gensym("undo"), A_NULL); } - - #endif /* not _WIN32 */ --- 2077,2078 ----

1 0

externals/unauthorized/scrolllist CHANGES.LOG, 1.1, 1.2 Makefile, 1.1, 1.2 help-scrolllist.pd, 1.1, 1.2 scrolllist.c, 1.4, 1.5
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/scrolllist In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8368 Modified Files: CHANGES.LOG Makefile help-scrolllist.pd scrolllist.c Log Message: fixed coordinates for GOP Index: CHANGES.LOG =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/CHANGES.LOG,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** CHANGES.LOG 19 Nov 2005 03:44:29 -0000 1.1 --- CHANGES.LOG 26 Jul 2006 16:56:58 -0000 1.2 *************** *** 1,2 **** --- 1,4 ---- + 0.2 + fixed coordinates for GOP support 0.1 initial version Index: help-scrolllist.pd =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/help-scrolllist.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** help-scrolllist.pd 19 Nov 2005 03:44:29 -0000 1.1 --- help-scrolllist.pd 26 Jul 2006 16:56:58 -0000 1.2 *************** *** 51,59 **** #X obj 527 269 l2s; #X msg 525 236 add \$1; ! #X obj 748 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X obj 747 237 metro 1000; ! #X obj 35 222 scrolllist 25 400 200 {Helvetica 12 normal} black green ! #904562; #X text 470 343 the mouse in the text area; #X msg 33 57 clear; --- 51,59 ---- #X obj 527 269 l2s; #X msg 525 236 add \$1; ! #X obj 748 216 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1; #X obj 747 237 metro 1000; ! #X obj 35 222 scrolllist 25 400 200 {Courier 12 bold} black green #904562 ! ; #X text 470 343 the mouse in the text area; #X msg 33 57 clear; Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/Makefile,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Makefile 19 Nov 2005 03:44:29 -0000 1.1 --- Makefile 26 Jul 2006 16:56:58 -0000 1.2 *************** *** 30,34 **** LINUXCFLAGS = -DPD -DUNIX -O2 -funroll-loops -fomit-frame-pointer \ -Wall -W -Wno-shadow -Wstrict-prototypes \ ! -Wno-unused -Wno-parentheses -Wno-switch -Werror -g .c.pd_linux: --- 30,34 ---- LINUXCFLAGS = -DPD -DUNIX -O2 -funroll-loops -fomit-frame-pointer \ -Wall -W -Wno-shadow -Wstrict-prototypes \ ! -Wno-unused -Wno-parentheses -Wno-switch -g .c.pd_linux: Index: scrolllist.c =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scrolllist/scrolllist.c,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** scrolllist.c 18 Dec 2005 18:55:09 -0000 1.4 --- scrolllist.c 26 Jul 2006 16:56:58 -0000 1.5 *************** *** 42,48 **** #include "t_tk.h" ! #ifdef _WIN32 #include <io.h> - #include <pthread.h> #else #include <unistd.h> --- 42,47 ---- #include "t_tk.h" ! #ifdef NT #include <io.h> #else #include <unistd.h> *************** *** 56,60 **** static int guidebug=0; ! static char *scrolllist_version = "scrolllist: scrolling list of text items : version 0.1, written by Yves Degoyon (ydegoyon(a)free.fr)"; #define MIN(a,b) (a>b?b:a) --- 55,59 ---- static int guidebug=0; ! static char *scrolllist_version = "scrolllist: scrolling list of text items : version 0.2, written by Yves Degoyon (ydegoyon(a)free.fr)"; #define MIN(a,b) (a>b?b:a) *************** *** 281,285 **** // post( "saving scrolllist : %d", x->x_capacity ); binbuf_addv(b, "ssiisiiissss", gensym("#X"), gensym("obj"), ! (t_int)text_xpix(&x->x_obj, x->x_glist), (t_int)text_ypix(&x->x_obj, x->x_glist), gensym("scrolllist"), x->x_capacity, x->x_width, x->x_height, gensym(x->x_font), gensym(x->x_bgcolor), --- 280,284 ---- // post( "saving scrolllist : %d", x->x_capacity ); binbuf_addv(b, "ssiisiiissss", gensym("#X"), gensym("obj"), ! (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, gensym("scrolllist"), x->x_capacity, x->x_width, x->x_height, gensym(x->x_font), gensym(x->x_bgcolor),

1 0

externals/unauthorized/scratcher~ help-scratcher~.pd, 1.2, 1.3 scratcher~.tk2c, NONE, 1.1 tk2c.bash, NONE, 1.1 CHANGES.LOG, 1.3, 1.4 scratcher~.c, 1.11, 1.12
by Yves Degoyon 26 Jul '06

26 Jul '06

Update of /cvsroot/pure-data/externals/unauthorized/scratcher~ In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7978 Modified Files: CHANGES.LOG scratcher~.c Added Files: help-scratcher~.pd scratcher~.tk2c tk2c.bash Log Message: fixed coordinates for GOP Index: CHANGES.LOG =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scratcher~/CHANGES.LOG,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** CHANGES.LOG 2 Mar 2005 02:48:23 -0000 1.3 --- CHANGES.LOG 26 Jul 2006 16:55:55 -0000 1.4 *************** *** 1,2 **** --- 1,4 ---- + 0.10 + fixed coordinates for GOP support 0.9 added GOP support --- NEW FILE: scratcher~.tk2c --- // ########### scratcher procedures -- ydegoyon(a)free.fr ######### sys_gui("proc scratcher_apply {id} {\n"); // strip "." from the TK id to make a variable name suffix sys_gui("set vid [string trimleft $id .]\n"); // for each variable, make a local variable to hold its name... sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_width] [eval concat $$var_graph_height] \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc scratcher_cancel {id} {\n"); sys_gui("set cmd [concat $id cancel \\;]\n"); // puts stderr $cmd sys_gui("pd $cmd\n"); sys_gui("}\n"); sys_gui("proc scratcher_ok {id} {\n"); sys_gui("scratcher_apply $id\n"); sys_gui("scratcher_cancel $id\n"); sys_gui("}\n"); sys_gui("proc pdtk_scratcher_dialog {id width height} {\n"); sys_gui("set vid [string trimleft $id .]\n"); sys_gui("set var_graph_width [concat graph_width_$vid]\n"); sys_gui("global $var_graph_width\n"); sys_gui("set var_graph_height [concat graph_height_$vid]\n"); sys_gui("global $var_graph_height\n"); sys_gui("set $var_graph_width $width\n"); sys_gui("set $var_graph_height $height\n"); sys_gui("toplevel $id\n"); sys_gui("wm title $id {scratcher}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat scratcher_cancel $id]\n"); sys_gui("label $id.label -text {SCRATCHER PROPERTIES}\n"); sys_gui("pack $id.label -side top\n"); sys_gui("frame $id.buttonframe\n"); sys_gui("pack $id.buttonframe -side bottom -fill x -pady 2m\n"); sys_gui("button $id.buttonframe.cancel -text {Cancel} -command \"scratcher_cancel $id\"\n"); sys_gui("button $id.buttonframe.apply -text {Apply} -command \"scratcher_apply $id\"\n"); sys_gui("button $id.buttonframe.ok -text {OK} -command \"scratcher_ok $id\"\n"); sys_gui("pack $id.buttonframe.cancel -side left -expand 1\n"); sys_gui("pack $id.buttonframe.apply -side left -expand 1\n"); sys_gui("pack $id.buttonframe.ok -side left -expand 1\n"); sys_gui("frame $id.1rangef\n"); sys_gui("pack $id.1rangef -side top\n"); sys_gui("label $id.1rangef.lwidth -text \"Width :\"\n"); sys_gui("entry $id.1rangef.width -textvariable $var_graph_width -width 7\n"); sys_gui("pack $id.1rangef.lwidth $id.1rangef.width -side left\n"); sys_gui("frame $id.2rangef\n"); sys_gui("pack $id.2rangef -side top\n"); sys_gui("label $id.2rangef.lheight -text \"Height :\"\n"); sys_gui("entry $id.2rangef.height -textvariable $var_graph_height -width 7\n"); sys_gui("pack $id.2rangef.lheight $id.2rangef.height -side left\n"); sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat scratcher_ok $id]\n"); sys_gui("bind $id.2rangef.height <KeyPress-Return> [concat scratcher_ok $id]\n"); sys_gui("focus $id.1rangef.name\n"); sys_gui("}\n"); // ########### scratcher procedures END -- ydegoyon(a)free.fr ######### --- NEW FILE: help-scratcher~.pd --- #N canvas 0 0 450 300 10; #X obj 174 121 rs-scratcher~; #X text 201 77 Playing with the block size \,; #X text 201 87 so everything's in the subpatch; #X obj 171 160 dac~; #X connect 0 0 3 0; #X connect 0 0 3 1; Index: scratcher~.c =================================================================== RCS file: /cvsroot/pure-data/externals/unauthorized/scratcher~/scratcher~.c,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** scratcher~.c 18 Dec 2005 18:55:09 -0000 1.11 --- scratcher~.c 26 Jul 2006 16:55:55 -0000 1.12 *************** *** 38,63 **** #include <fcntl.h> #include <sys/stat.h> - - #ifdef __APPLE__ - #include <sys/malloc.h> - #else #include <malloc.h> - #endif - #include <ctype.h> #include <pthread.h> #include <time.h> #include <sys/time.h> ! #ifdef _WIN32 ! #include <io.h> ! #include "timeval.h" ! #else #include <unistd.h> ! #endif /* _WIN32 */ ! #include <math.h> ! ! #ifndef M_PI #define M_PI 3.14159265358979323846 ! #endif /* not M_PI */ #include "m_pd.h" --- 38,53 ---- #include <fcntl.h> #include <sys/stat.h> #include <malloc.h> #include <ctype.h> #include <pthread.h> #include <time.h> #include <sys/time.h> ! #ifdef UNIX #include <unistd.h> ! #endif ! #ifdef NT #define M_PI 3.14159265358979323846 ! #endif ! #include <math.h> #include "m_pd.h" *************** *** 121,125 **** #define SCRATCHER_MOVE_TIMEOUT 20 ! static char *scratcher_version = "scratcher~: version 0.9, written by Yves Degoyon (ydegoyon(a)free.fr)"; static t_class *scratcher_class; --- 111,115 ---- #define SCRATCHER_MOVE_TIMEOUT 20 ! static char *scratcher_version = "scratcher~: version 0.10, written by Yves Degoyon (ydegoyon(a)free.fr)"; static t_class *scratcher_class; *************** *** 289,293 **** binbuf_addv(b, "ssiisiiiiff", gensym("#X"),gensym("obj"), ! (t_int)text_xpix(&x->x_obj, x->x_glist), (t_int)text_ypix(&x->x_obj, x->x_glist), gensym("scratcher~"), x->x_size, x->x_width, x->x_height, x->x_sensibility, x->x_maxspeed, x->x_inertia ); --- 279,283 ---- binbuf_addv(b, "ssiisiiiiff", gensym("#X"),gensym("obj"), ! (t_int)x->x_obj.te_xpix, (t_int)x->x_obj.te_ypix, gensym("scratcher~"), x->x_size, x->x_width, x->x_height, x->x_sensibility, x->x_maxspeed, x->x_inertia ); --- NEW FILE: tk2c.bash --- #!/bin/bash #set -x while read line do for word in $line do if [ "X"$word != "X"${word#\#} ] then echo // ${line#\#} break else line=${line//\'/\\\'} #useless, slashes never gets in line=${line//\\/\\\\} #this one's dirty, i know line=${line//;/\\\\;} line=${line//\"/\\\"} echo 'sys_gui("'$line'\n");' break fi done done

1 0

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