Pd-cvs January 2009

pd-cvs@lists.iem.at

23 participants
357 discussions

autobuild: pd-extended debian-stable-powerpc 2009-01-29 06.27.53
by pd＠debian-stable-powerpc.idmi.poly.edu 29 Jan '09

29 Jan '09

/bin/sh: -c: line 1: syntax error: unexpected end of file /home/pd/auto-build/pd-extended/externals/iem/iemgui/src/iemlib.h:84: internal compiler error: Illegal instruction ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync error: error in rsync protocol data stream (code 12) at io.c(453) [receiver=2.6.9] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2009-01-29/logs/2009-01-29_06.27.…

1 0

SF.net SVN: pure-data:[10676] trunk/externals/pdvjtools/colorgrid/colorgrid .c
by lluisbigorda＠users.sourceforge.net 29 Jan '09

29 Jan '09

Revision: 10676 http://pure-data.svn.sourceforge.net/pure-data/?rev=10676&view=rev Author: lluisbigorda Date: 2009-01-29 06:41:17 +0000 (Thu, 29 Jan 2009) Log Message: ----------- bug solved on tcl proc declarations Modified Paths: -------------- trunk/externals/pdvjtools/colorgrid/colorgrid.c Modified: trunk/externals/pdvjtools/colorgrid/colorgrid.c =================================================================== --- trunk/externals/pdvjtools/colorgrid/colorgrid.c 2009-01-29 03:48:16 UTC (rev 10675) +++ trunk/externals/pdvjtools/colorgrid/colorgrid.c 2009-01-29 06:41:17 UTC (rev 10676) @@ -55,75 +55,6 @@ t_symbol* x_fname; } t_colorgrid; -void load_tk_procs () { - // ########### colorgrid procedures -- ydegoyon(a)free.fr ######### - // package require Img - sys_gui("package require base64\n"); - sys_gui("proc colorgrid_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_colorgrid [concat graph_colorgrid_$vid]\n"); - sys_gui("global $var_graph_colorgrid\n"); - sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); - sys_gui("global $var_graph_xlines\n"); - sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); - sys_gui("global $var_graph_ylines\n"); - sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_xlines] [eval concat $$var_graph_ylines] [eval concat $$var_graph_colorgrid] \\;]\n"); - // puts stderr $cmd - sys_gui("pd $cmd\n"); - sys_gui("}\n"); - sys_gui("proc colorgrid_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 colorgrid_ok {id} {\n"); - sys_gui("colorgrid_apply $id\n"); - sys_gui("colorgrid_cancel $id\n"); - sys_gui("}\n"); - sys_gui("proc pdtk_colorgrid_dialog {id xlines ylines colorgrid} {\n"); - sys_gui("set vid [string trimleft $id .]\n"); - sys_gui("set var_graph_colorgrid [concat graph_colorgrid_$vid]\n"); - sys_gui("global $var_graph_colorgrid\n"); - sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); - sys_gui("global $var_graph_xlines\n"); - sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); - sys_gui("global $var_graph_ylines\n"); - sys_gui("set $var_graph_colorgrid $colorgrid\n"); - sys_gui("set $var_graph_xlines $xlines\n"); - sys_gui("set $var_graph_ylines $ylines\n"); - sys_gui("toplevel $id\n"); - sys_gui("wm title $id {colorgrid}\n"); - sys_gui("wm protocol $id WM_DELETE_WINDOW [concat colorgrid_cancel $id]\n"); - sys_gui("label $id.label -text {COLORGRID 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 \"colorgrid_cancel $id\"\n"); - sys_gui("button $id.buttonframe.apply -text {Apply} -command \"colorgrid_apply $id\"\n"); - sys_gui("button $id.buttonframe.ok -text {OK} -command \"colorgrid_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.42rangef\n"); - sys_gui("pack $id.42rangef -side top\n"); - sys_gui("label $id.42rangef.lxlines -text \"X sections :\"\n"); - sys_gui("entry $id.42rangef.xlines -textvariable $var_graph_xlines -width 7\n"); - sys_gui("pack $id.42rangef.lxlines $id.42rangef.xlines -side left\n"); - sys_gui("frame $id.72rangef\n"); - sys_gui("pack $id.72rangef -side top\n"); - sys_gui("label $id.72rangef.lylines -text \"Y sections :\"\n"); - sys_gui("entry $id.72rangef.ylines -textvariable $var_graph_ylines -width 7\n"); - sys_gui("pack $id.72rangef.lylines $id.72rangef.ylines -side left\n"); - sys_gui("checkbutton $id.showcolorgrid -text {Show Grid} -variable $var_graph_colorgrid -anchor w\n"); - sys_gui("pack $id.showcolorgrid -side top\n"); - sys_gui("bind $id.42rangef.xlines <KeyPress-Return> [concat colorgrid_ok $id]\n"); - sys_gui("bind $id.72rangef.ylines <KeyPress-Return> [concat colorgrid_ok $id]\n"); - sys_gui("focus $id.42rangef.xlines\n"); - sys_gui("}\n"); - // ########### colorgrid procedures END -- lluis(a)artefacte.org ######### -} t_widgetbehavior colorgrid_widgetbehavior; static t_class *colorgrid_class; @@ -1633,7 +1564,74 @@ void colorgrid_setup(void) { - load_tk_procs(); + // ########### colorgrid procedures -- ydegoyon(a)free.fr ######### + // package require Img + sys_gui("package require base64\n"); + sys_gui("proc colorgrid_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_colorgrid [concat graph_colorgrid_$vid]\n"); + sys_gui("global $var_graph_colorgrid\n"); + sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); + sys_gui("global $var_graph_xlines\n"); + sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); + sys_gui("global $var_graph_ylines\n"); + sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_xlines] [eval concat $$var_graph_ylines] [eval concat $$var_graph_colorgrid] \\;]\n"); + // puts stderr $cmd + sys_gui("pd $cmd\n"); + sys_gui("}\n"); + sys_gui("proc colorgrid_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 colorgrid_ok {id} {\n"); + sys_gui("colorgrid_apply $id\n"); + sys_gui("colorgrid_cancel $id\n"); + sys_gui("}\n"); + sys_gui("proc pdtk_colorgrid_dialog {id xlines ylines colorgrid} {\n"); + sys_gui("set vid [string trimleft $id .]\n"); + sys_gui("set var_graph_colorgrid [concat graph_colorgrid_$vid]\n"); + sys_gui("global $var_graph_colorgrid\n"); + sys_gui("set var_graph_xlines [concat graph_xlines_$vid]\n"); + sys_gui("global $var_graph_xlines\n"); + sys_gui("set var_graph_ylines [concat graph_ylines_$vid]\n"); + sys_gui("global $var_graph_ylines\n"); + sys_gui("set $var_graph_colorgrid $colorgrid\n"); + sys_gui("set $var_graph_xlines $xlines\n"); + sys_gui("set $var_graph_ylines $ylines\n"); + sys_gui("toplevel $id\n"); + sys_gui("wm title $id {colorgrid}\n"); + sys_gui("wm protocol $id WM_DELETE_WINDOW [concat colorgrid_cancel $id]\n"); + sys_gui("label $id.label -text {COLORGRID 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 \"colorgrid_cancel $id\"\n"); + sys_gui("button $id.buttonframe.apply -text {Apply} -command \"colorgrid_apply $id\"\n"); + sys_gui("button $id.buttonframe.ok -text {OK} -command \"colorgrid_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.42rangef\n"); + sys_gui("pack $id.42rangef -side top\n"); + sys_gui("label $id.42rangef.lxlines -text \"X sections :\"\n"); + sys_gui("entry $id.42rangef.xlines -textvariable $var_graph_xlines -width 7\n"); + sys_gui("pack $id.42rangef.lxlines $id.42rangef.xlines -side left\n"); + sys_gui("frame $id.72rangef\n"); + sys_gui("pack $id.72rangef -side top\n"); + sys_gui("label $id.72rangef.lylines -text \"Y sections :\"\n"); + sys_gui("entry $id.72rangef.ylines -textvariable $var_graph_ylines -width 7\n"); + sys_gui("pack $id.72rangef.lylines $id.72rangef.ylines -side left\n"); + sys_gui("checkbutton $id.showcolorgrid -text {Show Grid} -variable $var_graph_colorgrid -anchor w\n"); + sys_gui("pack $id.showcolorgrid -side top\n"); + sys_gui("bind $id.42rangef.xlines <KeyPress-Return> [concat colorgrid_ok $id]\n"); + sys_gui("bind $id.72rangef.ylines <KeyPress-Return> [concat colorgrid_ok $id]\n"); + sys_gui("focus $id.42rangef.xlines\n"); + sys_gui("}\n"); + // ########### colorgrid procedures END -- lluis(a)artefacte.org ######### + post ( colorgrid_version ); colorgrid_class = class_new(gensym("colorgrid"), (t_newmethod)colorgrid_new, (t_method)colorgrid_free, sizeof(t_colorgrid), 0, A_GIMME, 0); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10675] branches/pd-devel/0.41.4/src
by eighthave＠users.sourceforge.net 29 Jan '09

29 Jan '09

Revision: 10675 http://pure-data.svn.sourceforge.net/pure-data/?rev=10675&view=rev Author: eighthave Date: 2009-01-29 03:48:16 +0000 (Thu, 29 Jan 2009) Log Message: ----------- - copied array code and got arrays and graphs to display. They still need work to get everything going. Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd.tk branches/pd-devel/0.41.4/src/pd_bindings.tcl branches/pd-devel/0.41.4/src/pd_menus.tcl branches/pd-devel/0.41.4/src/pdtk_canvas.tcl branches/pd-devel/0.41.4/src/pkgIndex.tcl Added Paths: ----------- branches/pd-devel/0.41.4/src/pdtk_array.tcl Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-29 03:46:51 UTC (rev 10674) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-29 03:48:16 UTC (rev 10675) @@ -56,6 +56,7 @@ package require pd_bindings package require pd_post package require pd_iemgui +package require pdtk_array package require pdtk_canvas package require pdtk_text # TODO eliminate this kludge: @@ -238,7 +239,7 @@ } proc create_pdwindow {} { - ::pd_menus::create_menubar .menubar + ::pd_menus::create_menubar .menubar . . configure -menu .menubar -width 400 -height 250 ::pd_menus::configure_pdwindow .menubar ::pd_bindings::pdwindow_bindings . Modified: branches/pd-devel/0.41.4/src/pd_bindings.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-29 03:46:51 UTC (rev 10674) +++ branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-29 03:48:16 UTC (rev 10675) @@ -73,7 +73,7 @@ #bind $mytoplevel <FocusIn> {pdtk_pdwindowmaintenance} } -proc ::pd_bindings::panel_bindings {mytoplevel} { +proc ::pd_bindings::panel_bindings {mytoplevel panelname} { variable modifier window_bindings $mytoplevel Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-29 03:46:51 UTC (rev 10674) +++ branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-29 03:48:16 UTC (rev 10675) @@ -34,7 +34,7 @@ # ------------------------------------------------------------------------------ # -proc ::pd_menus::create_menubar {mymenubar} { +proc ::pd_menus::create_menubar {mymenubar mytoplevel} { variable accelerator if {$::windowingsystem eq "aqua"} { set accelerator "Cmd" @@ -49,7 +49,7 @@ menu $mymenubar.$mymenu $mymenubar add cascade -label [string totitle $mymenu] \ -menu $mymenubar.$mymenu - [format build_%s_menu $mymenu] $mymenubar.$mymenu PLACEHOLDER + [format build_%s_menu $mymenu] $mymenubar.$mymenu $mytoplevel if {$::windowingsystem eq "win32"} { # fix menu font size on Windows with tk scaling = 1 $mymenubar.$mymenu configure -font menufont Added: branches/pd-devel/0.41.4/src/pdtk_array.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_array.tcl (rev 0) +++ branches/pd-devel/0.41.4/src/pdtk_array.tcl 2009-01-29 03:48:16 UTC (rev 10675) @@ -0,0 +1,350 @@ +package provide pdtk_array 0.1 + +package require pd_connect + +#### jsarlo ##### +proc pdtk_array_listview_setpage {arrayName page} { + global pd_array_listview_page + set pd_array_listview_page($arrayName) $page +} + +proc pdtk_array_listview_changepage {arrayName np} { + global pd_array_listview_page + pdtk_array_listview_setpage \ + $arrayName [expr $pd_array_listview_page($arrayName) + $np] + pdtk_array_listview_fillpage $arrayName +} + +proc pdtk_array_listview_fillpage {arrayName} { + global pd_array_listview_page + global pd_array_listview_id + set windowName [format ".%sArrayWindow" $arrayName] + set topItem [expr [lindex [$windowName.lb yview] 0] * \ + [$windowName.lb size]] + + if {[winfo exists $windowName]} { + set cmd "$pd_array_listview_id($arrayName) \ + arrayviewlistfillpage \ + $pd_array_listview_page($arrayName) \ + $topItem" + + pdsend $cmd + } +} + +proc pdtk_array_listview_new {id arrayName page} { + global pd_nt + global pd_array_listview_page + global pd_array_listview_id + global fontname fontweight + set pd_array_listview_page($arrayName) $page + set pd_array_listview_id($arrayName) $id + set windowName [format ".%sArrayWindow" $arrayName] + if [winfo exists $windowName] then [destroy $windowName] + toplevel $windowName + wm protocol $windowName WM_DELETE_WINDOW \ + "pdtk_array_listview_close $id $arrayName" + wm title $windowName [concat $arrayName "(list view)"] + # FIXME + set font 12 + set $windowName.lb [listbox $windowName.lb -height 20 -width 25\ + -selectmode extended \ + -relief solid -background white -borderwidth 1 \ + -font [format {{%s} %d %s} $fontname $font $fontweight]\ + -yscrollcommand "$windowName.lb.sb set"] + set $windowName.lb.sb [scrollbar $windowName.lb.sb \ + -command "$windowName.lb yview" -orient vertical] + place configure $windowName.lb.sb -relheight 1 -relx 0.9 -relwidth 0.1 + pack $windowName.lb -expand 1 -fill both + bind $windowName.lb <Double-ButtonPress-1> \ + "pdtk_array_listview_edit $arrayName $page $font" + # handle copy/paste + if {$pd_nt == 0} { + selection handle $windowName.lb \ + "pdtk_array_listview_lbselection $arrayName" + } else { + if {$pd_nt == 1} { + bind $windowName.lb <ButtonPress-3> \ + "pdtk_array_listview_popup $arrayName" + } + } + set $windowName.prevBtn [button $windowName.prevBtn -text "<-" \ + -command "pdtk_array_listview_changepage $arrayName -1"] + set $windowName.nextBtn [button $windowName.nextBtn -text "->" \ + -command "pdtk_array_listview_changepage $arrayName 1"] + pack $windowName.prevBtn -side left -ipadx 20 -pady 10 -anchor s + pack $windowName.nextBtn -side right -ipadx 20 -pady 10 -anchor s + focus $windowName +} + +proc pdtk_array_listview_lbselection {arrayName off size} { + set windowName [format ".%sArrayWindow" $arrayName] + set itemNums [$windowName.lb curselection] + set cbString "" + for {set i 0} {$i < [expr [llength $itemNums] - 1]} {incr i} { + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + append cbString "\n" + } + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + set last $cbString +} + +# Win32 uses a popup menu for copy/paste +proc pdtk_array_listview_popup {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + if [winfo exists $windowName.popup] then [destroy $windowName.popup] + menu $windowName.popup -tearoff false + $windowName.popup add command -label {Copy} \ + -command "pdtk_array_listview_copy $arrayName; \ + destroy $windowName.popup" + $windowName.popup add command -label {Paste} \ + -command "pdtk_array_listview_paste $arrayName; \ + destroy $windowName.popup" + tk_popup $windowName.popup [winfo pointerx $windowName] \ + [winfo pointery $windowName] 0 +} + +proc pdtk_array_listview_copy {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + set itemNums [$windowName.lb curselection] + set cbString "" + for {set i 0} {$i < [expr [llength $itemNums] - 1]} {incr i} { + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + append cbString "\n" + } + set listItem [$windowName.lb get [lindex $itemNums $i]] + append cbString [string range $listItem \ + [expr [string first ") " $listItem] + 2] \ + end] + clipboard clear + clipboard append $cbString +} + +proc pdtk_array_listview_paste {arrayName} { + global pd_array_listview_page + global pd_array_listview_pagesize + set cbString [selection get -selection CLIPBOARD] + set lbName [format ".%sArrayWindow.lb" $arrayName] + set itemNum [lindex [$lbName curselection] 0] + set splitChars ", \n" + set itemString [split $cbString $splitChars] + set flag 1 + for {set i 0; set counter 0} {$i < [llength $itemString]} {incr i} { + if {[lindex $itemString $i] != {}} { + pdsend "$arrayName [expr $itemNum + \ + [expr $counter + \ + [expr $pd_array_listview_pagesize \ + * $pd_array_listview_page($arrayName)]]] \ + [lindex $itemString $i]" + incr counter + set flag 0 + } + } +} + +proc pdtk_array_listview_edit {arrayName page font} { + global pd_array_listview_entry + global pd_nt + global fontname fontweight + set lbName [format ".%sArrayWindow.lb" $arrayName] + if {[winfo exists $lbName.entry]} { + pdtk_array_listview_update_entry \ + $arrayName $pd_array_listview_entry($arrayName) + unset pd_array_listview_entry($arrayName) + } + set itemNum [$lbName index active] + set pd_array_listview_entry($arrayName) $itemNum + set bbox [$lbName bbox $itemNum] + set y [expr [lindex $bbox 1] - 4] + set $lbName.entry [entry $lbName.entry \ + -font [format {{%s} %d %s} $fontname $font $fontweight]] + $lbName.entry insert 0 [] + place configure $lbName.entry -relx 0 -y $y -relwidth 1 + lower $lbName.entry + focus $lbName.entry + bind $lbName.entry <Return> \ + "pdtk_array_listview_update_entry $arrayName $itemNum;" +} + +proc pdtk_array_listview_update_entry {arrayName itemNum} { + global pd_array_listview_page + global pd_array_listview_pagesize + set lbName [format ".%sArrayWindow.lb" $arrayName] + set splitChars ", \n" + set itemString [split [$lbName.entry get] $splitChars] + set flag 1 + for {set i 0; set counter 0} {$i < [llength $itemString]} {incr i} { + if {[lindex $itemString $i] != {}} { + pdsend [concat $arrayName [expr $itemNum + \ + [expr $counter + \ + [expr $pd_array_listview_pagesize \ + * $pd_array_listview_page($arrayName)]]] \ + [lindex $itemString $i] \;] + incr counter + set flag 0 + } + } + pdtk_array_listview_fillpage $arrayName + destroy $lbName.entry +} + +proc pdtk_array_listview_closeWindow {arrayName} { + set windowName [format ".%sArrayWindow" $arrayName] + destroy $windowName +} + +proc pdtk_array_listview_close {id arrayName} { + pdtk_array_listview_closeWindow $arrayName + pdsend "$id arrayviewclose" +} +##### end jsarlo ##### + +############ pdtk_array_dialog -- dialog window for arrays ######### +# see comments above (pdtk_gatom_dialog) about variable name handling + +proc array_apply {id} { + # strip "." from the TK id to make a variable name suffix + set vid [string trimleft $id .] + # for each variable, make a local variable to hold its name... + set var_array_name [concat array_name_$vid] + global $var_array_name + set var_array_n [concat array_n_$vid] + global $var_array_n + set var_array_saveit [concat array_saveit_$vid] + global $var_array_saveit + set var_array_drawasrects [concat array_drawasrects_$vid] + global $var_array_drawasrects + set var_array_otherflag [concat array_otherflag_$vid] + global $var_array_otherflag + set mofo [eval concat $$var_array_name] + if {[string index $mofo 0] == "$"} { + set mofo [string replace $mofo 0 0 #] } + + set saveit [eval concat $$var_array_saveit] + set drawasrects [eval concat $$var_array_drawasrects] + + pdsend "$id arraydialog $mofo [eval concat $$var_array_n] \ + [expr $saveit + 2 * $drawasrects] [eval concat $$var_array_otherflag]" +} + +# jsarlo +proc array_viewlist {id} { + pdsend "$id arrayviewlistnew" +} +# end jsarlo + +proc array_cancel {id} { + pdsend "$id cancel" +} + +proc array_ok {id} { + array_apply $id + array_cancel $id +} + +proc pdtk_array_dialog {id name n flags newone} { + set vid [string trimleft $id .] + + set var_array_name [concat array_name_$vid] + global $var_array_name + set var_array_n [concat array_n_$vid] + global $var_array_n + set var_array_saveit [concat array_saveit_$vid] + global $var_array_saveit + set var_array_drawasrects [concat array_drawasrects_$vid] + global $var_array_drawasrects + set var_array_otherflag [concat array_otherflag_$vid] + global $var_array_otherflag + + set $var_array_name $name + set $var_array_n $n + set $var_array_saveit [expr ( $flags & 1 ) != 0] + set $var_array_drawasrects [expr ( $flags & 2 ) != 0] + set $var_array_otherflag 0 + + toplevel $id + wm title $id {array} + wm resizable $id 0 0 + wm protocol $id WM_DELETE_WINDOW [concat array_cancel $id] + + ::pd_bindings::panel_bindings $id "array" + + frame $id.name + pack $id.name -side top + label $id.name.label -text "name" + entry $id.name.entry -textvariable $var_array_name + pack $id.name.label $id.name.entry -side left + + frame $id.n + pack $id.n -side top + label $id.n.label -text "size" + entry $id.n.entry -textvariable $var_array_n + pack $id.n.label $id.n.entry -side left + + checkbutton $id.saveme -text {save contents} -variable $var_array_saveit \ + -anchor w + pack $id.saveme -side top + + frame $id.drawasrects + pack $id.drawasrects -side top + radiobutton $id.drawasrects.drawasrects0 -value 0 \ + -variable $var_array_drawasrects \ + -text "draw as points" + radiobutton $id.drawasrects.drawasrects1 -value 1 \ + -variable $var_array_drawasrects \ + -text "polygon" + radiobutton $id.drawasrects.drawasrects2 -value 2 \ + -variable $var_array_drawasrects \ + -text "bezier curve" + pack $id.drawasrects.drawasrects0 -side top -anchor w + pack $id.drawasrects.drawasrects1 -side top -anchor w + pack $id.drawasrects.drawasrects2 -side top -anchor w + + if {$newone != 0} { + frame $id.radio + pack $id.radio -side top + radiobutton $id.radio.radio0 -value 0 \ + -variable $var_array_otherflag \ + -text "in new graph" + radiobutton $id.radio.radio1 -value 1 \ + -variable $var_array_otherflag \ + -text "in last graph" + pack $id.radio.radio0 -side top -anchor w + pack $id.radio.radio1 -side top -anchor w + } else { + checkbutton $id.deleteme -text {delete me} \ + -variable $var_array_otherflag -anchor w + pack $id.deleteme -side top + } + # jsarlo + if {$newone == 0} { + button $id.listview -text {View list}\ + -command "array_viewlist $id $name 0" + pack $id.listview -side left + } + # end jsarlo + frame $id.buttonframe + pack $id.buttonframe -side bottom -fill x -pady 2m + button $id.buttonframe.cancel -text {Cancel}\ + -command "array_cancel $id" + if {$newone == 0} {button $id.buttonframe.apply -text {Apply}\ + -command "array_apply $id"} + button $id.buttonframe.ok -text {OK}\ + -command "array_ok $id" + pack $id.buttonframe.cancel -side left -expand 1 + if {$newone == 0} {pack $id.buttonframe.apply -side left -expand 1} + pack $id.buttonframe.ok -side left -expand 1 + + $id.name.entry select from 0 + $id.name.entry select adjust end + focus $id.name.entry +} Modified: branches/pd-devel/0.41.4/src/pdtk_canvas.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-29 03:46:51 UTC (rev 10674) +++ branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-29 03:48:16 UTC (rev 10675) @@ -15,7 +15,7 @@ proc pdtk_canvas_new {mytoplevel width height geometry editable} { # TODO check size of window toplevel $mytoplevel -width $width -height $height -class CanvasWindow - ::pd_menus::create_menubar $mytoplevel.menubar + ::pd_menus::create_menubar $mytoplevel.menubar $mytoplevel $mytoplevel configure -menu $mytoplevel.menubar # TODO slide off screen windows into view Modified: branches/pd-devel/0.41.4/src/pkgIndex.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pkgIndex.tcl 2009-01-29 03:46:51 UTC (rev 10674) +++ branches/pd-devel/0.41.4/src/pkgIndex.tcl 2009-01-29 03:48:16 UTC (rev 10675) @@ -16,6 +16,7 @@ package ifneeded pd_menus 0.1 [list source [file join $dir pd_menus.tcl]] package ifneeded pd_post 0.1 [list source [file join $dir pd_post.tcl]] package ifneeded pd_say 0.1 [list source [file join $dir pd_say.tcl]] +package ifneeded pdtk_array 0.1 [list source [file join $dir pdtk_array.tcl]] package ifneeded pdtk_canvas 0.1 [list source [file join $dir pdtk_canvas.tcl]] package ifneeded pdtk_text 0.1 [list source [file join $dir pdtk_text.tcl]] package ifneeded wheredoesthisgo 0.1 [list source [file join $dir wheredoesthisgo.tcl]] This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10674] branches/pd-devel/0.41.4/src/s_main.c
by eighthave＠users.sourceforge.net 29 Jan '09

29 Jan '09

Revision: 10674 http://pure-data.svn.sourceforge.net/pure-data/?rev=10674&view=rev Author: eighthave Date: 2009-01-29 03:46:51 +0000 (Thu, 29 Jan 2009) Log Message: ----------- use a better font on Mac OS X Modified Paths: -------------- branches/pd-devel/0.41.4/src/s_main.c Modified: branches/pd-devel/0.41.4/src/s_main.c =================================================================== --- branches/pd-devel/0.41.4/src/s_main.c 2009-01-28 21:58:21 UTC (rev 10673) +++ branches/pd-devel/0.41.4/src/s_main.c 2009-01-29 03:46:51 UTC (rev 10674) @@ -62,8 +62,8 @@ int sys_midioutdevlist[MAXMIDIOUTDEV] = {1}; char sys_font[100] = -#ifdef MSW - "Courier"; +#ifdef __APPLE__ + "Monaco"; #else "Courier"; #endif This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10673] trunk/externals/mrpeach/tab2flist/ tab2flist-help.pd
by mrpeach＠users.sourceforge.net 28 Jan '09

28 Jan '09

Revision: 10673 http://pure-data.svn.sourceforge.net/pure-data/?rev=10673&view=rev Author: mrpeach Date: 2009-01-28 21:58:21 +0000 (Wed, 28 Jan 2009) Log Message: ----------- Updated to reflect changed object. Modified Paths: -------------- trunk/externals/mrpeach/tab2flist/tab2flist-help.pd Modified: trunk/externals/mrpeach/tab2flist/tab2flist-help.pd =================================================================== --- trunk/externals/mrpeach/tab2flist/tab2flist-help.pd 2009-01-28 21:57:54 UTC (rev 10672) +++ trunk/externals/mrpeach/tab2flist/tab2flist-help.pd 2009-01-28 21:58:21 UTC (rev 10673) @@ -1,29 +1,32 @@ -#N canvas 650 129 535 246 10; -#X obj 117 117 tab2flist zig; +#N canvas 650 129 535 282 10; +#X obj 152 152 tab2flist zig; #X obj 10 -5 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -257985 -1; -#X obj 117 138 print; -#X obj 155 138 table zig; -#X text 110 208 2009 1 21 Martin Peach; -#X floatatom 192 89 5 0 0 0 - - -; +#X obj 152 173 print; +#X obj 190 173 table zig; +#X floatatom 227 124 5 0 0 0 - - -; #X floatatom 64 48 5 0 0 0 - - -; #X text 33 -8 Banging tab2flist outputs a list of floats from the table. ; #X msg 36 19 set zag; -#X text 205 117 Argument is table name.; -#X text 115 155 Points outside the table will be output as zeroes. +#X text 240 152 Argument is table name.; +#X text 150 190 Points outside the table will be output as zeroes. ; #X text 98 47 A single float sets offset.; #X text 89 18 Set the table by name.; -#X obj 215 138 table zag; +#X obj 250 173 table zag; #X msg 86 69 5 10; -#X text 115 169 Negative length outputs a list as long as the table. +#X text 150 204 Negative length outputs a list as long as the table. ; -#X text 229 86 Float in second inlet sets length of list.; +#X text 263 123 Float in second inlet sets length of list.; #X text 118 68 Two floats set offset and length.; +#X msg 109 92 delimiter 10 13; +#X text 207 91 Output stops when a delimiter is encountered.; +#X text 145 243 2009_1_28 Martin Peach; #X connect 0 0 2 0; #X connect 1 0 0 0; -#X connect 5 0 0 1; -#X connect 6 0 0 0; -#X connect 8 0 0 0; -#X connect 14 0 0 0; +#X connect 4 0 0 1; +#X connect 5 0 0 0; +#X connect 7 0 0 0; +#X connect 13 0 0 0; +#X connect 17 0 0 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10672] trunk/externals/mrpeach/flist2tab/ flist2tab-help.pd
by mrpeach＠users.sourceforge.net 28 Jan '09

28 Jan '09

Revision: 10672 http://pure-data.svn.sourceforge.net/pure-data/?rev=10672&view=rev Author: mrpeach Date: 2009-01-28 21:57:54 +0000 (Wed, 28 Jan 2009) Log Message: ----------- Updated to reflect changed object. Modified Paths: -------------- trunk/externals/mrpeach/flist2tab/flist2tab-help.pd Modified: trunk/externals/mrpeach/flist2tab/flist2tab-help.pd =================================================================== --- trunk/externals/mrpeach/flist2tab/flist2tab-help.pd 2009-01-28 21:47:05 UTC (rev 10671) +++ trunk/externals/mrpeach/flist2tab/flist2tab-help.pd 2009-01-28 21:57:54 UTC (rev 10672) @@ -1,23 +1,26 @@ -#N canvas 437 577 450 300 10; -#X obj 241 227 table pig; -#X obj 170 200 flist2tab pig; -#X obj 147 160 any2string; -#X msg 147 137 Hello; -#X floatatom 245 159 5 0 0 0 - - -; -#X msg 61 74 81 28 0 33 55 1 2 3; -#X text 10 -15 flist2tab loads floats or lists of floats into a table +#N canvas 437 577 420 300 10; +#X obj -12 175 table pig; +#X obj 115 203 flist2tab pig; +#X obj 92 163 any2string; +#X msg 92 140 Hello; +#X floatatom 190 162 5 0 0 0 - - -; +#X msg 6 77 81 28 0 33 55 1 2 3; +#X text -45 -12 flist2tab loads floats or lists of floats into a table ; -#X text 10 1 at an offset determined by a float in the second inlet. +#X text -45 4 at an offset determined by a float in the second inlet. ; -#X text 10 17 Negative offsets will be ignored.; -#X obj 170 227 table twig; -#X msg 91 104 set twig; -#X text 148 103 set the working table; -#X text 258 200 argument is table name; -#X text 257 257 2009 1 21 Martin Peach; -#X text 10 33 Offsets greater than the table length cause the table +#X text -45 20 Negative offsets will be ignored.; +#X obj -12 152 table twig; +#X msg 36 107 set twig; +#X text 93 106 set the working table; +#X text 203 203 argument is table name; +#X text -45 36 Offsets greater than the table length cause the table to be resized to fit.; -#X text 279 159 default offset is 0; +#X text 224 162 default offset is 0; +#X floatatom 62 220 7 0 0 0 - - -; +#X text 108 220 Array size is output after each input.; +#X text 202 260 2009_01_28 Martin Peach; +#X connect 1 0 15 0; #X connect 2 0 1 0; #X connect 3 0 2 0; #X connect 4 0 1 1; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10671] trunk/externals/mrpeach/tabfind/tabfind.c
by mrpeach＠users.sourceforge.net 28 Jan '09

28 Jan '09

Revision: 10671 http://pure-data.svn.sourceforge.net/pure-data/?rev=10671&view=rev Author: mrpeach Date: 2009-01-28 21:47:05 +0000 (Wed, 28 Jan 2009) Log Message: ----------- Added bang method which does nothing. Modified Paths: -------------- trunk/externals/mrpeach/tabfind/tabfind.c Modified: trunk/externals/mrpeach/tabfind/tabfind.c =================================================================== --- trunk/externals/mrpeach/tabfind/tabfind.c 2009-01-28 21:45:26 UTC (rev 10670) +++ trunk/externals/mrpeach/tabfind/tabfind.c 2009-01-28 21:47:05 UTC (rev 10671) @@ -19,6 +19,7 @@ t_int x_nth; /* which match to find */ } t_tabfind; +static void tabfind_bang(t_tabfind *x); static void tabfind_float(t_tabfind *x, t_float f); static void tabfind_list(t_tabfind *x, t_symbol *s, int argc, t_atom *argv); static void tabfind_nth(t_tabfind *x, t_float nth); @@ -88,6 +89,10 @@ } } +static void tabfind_bang(t_tabfind *x) +{ +} + static void tabfind_float(t_tabfind *x, t_float f) { /* find the nth occurrence of the float f in the array */ @@ -143,6 +148,7 @@ { tabfind_class = class_new(gensym("tabfind"), (t_newmethod)tabfind_new, 0, sizeof(t_tabfind), 0, A_DEFSYM, 0); + class_addbang(tabfind_class, (t_method)tabfind_bang); class_addfloat(tabfind_class, (t_method)tabfind_float); class_addlist(tabfind_class, (t_method)tabfind_list); class_addmethod(tabfind_class, (t_method)tabfind_nth, gensym("nth"), A_FLOAT, 0); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10670] trunk/externals/mrpeach/tab2flist/tab2flist.c
by mrpeach＠users.sourceforge.net 28 Jan '09

28 Jan '09

Revision: 10670 http://pure-data.svn.sourceforge.net/pure-data/?rev=10670&view=rev Author: mrpeach Date: 2009-01-28 21:45:26 +0000 (Wed, 28 Jan 2009) Log Message: ----------- Added "delimiter" message to enable output from offset to first delimiter. Modified Paths: -------------- trunk/externals/mrpeach/tab2flist/tab2flist.c Modified: trunk/externals/mrpeach/tab2flist/tab2flist.c =================================================================== --- trunk/externals/mrpeach/tab2flist/tab2flist.c 2009-01-28 21:42:46 UTC (rev 10669) +++ trunk/externals/mrpeach/tab2flist/tab2flist.c 2009-01-28 21:45:26 UTC (rev 10670) @@ -20,12 +20,17 @@ t_symbol *x_arrayname; t_float x_offset; t_float x_length; + t_float *x_delimiters; + int x_n_delimiters; } t_tab2flist; +static void tab2flist_delimit(t_tab2flist *x, int *argc, t_atom *argv); //static void tab2flist_list(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv); static void tab2flist_float(t_tab2flist *x, t_float f); static void tab2flist_bang(t_tab2flist *x); static void tab2flist_set(t_tab2flist *x, t_symbol *s); +static void tab2flist_delimiter(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv); +static void tab2flist_free(t_tab2flist *x); static void *tab2flist_new(t_symbol *s); void tab2flist_setup(void); @@ -33,6 +38,7 @@ { /* output a list of x_length floats from the table starting from x_offset */ /* output zero for elements outside the table (e.g. negative x_offset) */ + /* if delimiters are specified, stop when encountering a delimiter */ t_garray *a; int n, i, tabpoints, listpoints; @@ -86,12 +92,34 @@ } i++; } + if (x->x_n_delimiters > 0) tab2flist_delimit(x, &listpoints, atomlist); outlet_list(x->x_listout, &s_list, listpoints, atomlist); freebytes(atomlist, listsize); } } } +static void tab2flist_delimit(t_tab2flist *x, int *argc, t_atom *argv) +{ + /* for each element in argv, check if it matches a delimiter */ + /* if so, truncate the list and set the new length */ + int i,j, n = *argc; + t_float f; + + for (i = 0; i < n; ++i) + { + f = atom_getfloat(&argv[i]); + for (j = 0; j < x->x_n_delimiters; ++j) + { + if (f == x->x_delimiters[j]) + { + *argc = i; + return; + } + } + } + +} #ifdef NOWAY static void tab2flist_list(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv) @@ -132,12 +160,47 @@ x->x_arrayname = s; } +static void tab2flist_delimiter(t_tab2flist *x, t_symbol *s, int argc, t_atom *argv) +{ + int i; + /* expect a list of at least one float for delimiter values */ + + /* Check the incoming list for floatness... */ + for (i = 0; i < argc; ++i) + { + if (argv[i].a_type != A_FLOAT) + { + pd_error(x, "tab2flist_delimiter: list must contain only floats"); + return; + } + } + /* allocate storage for the delimiters */ + if (x->x_delimiters == NULL) x->x_delimiters = getbytes(argc*sizeof(t_float)); + else + x->x_delimiters = resizebytes(x->x_delimiters, x->x_n_delimiters*sizeof(t_float), argc*sizeof(t_float)); + if (x->x_delimiters == NULL) + { + pd_error(x, "tab2flist_delimiter can't get %lu bytes for delimiters", argc*sizeof(t_float)); + x->x_n_delimiters = 0; + return; + } + x->x_n_delimiters = argc; + for (i = 0; i < argc; ++i) + x->x_delimiters[i] = atom_getfloat(&argv[i]); +} + +static void tab2flist_free(t_tab2flist *x) +{ + if (x->x_n_delimiters > 0) freebytes(x->x_delimiters, x->x_n_delimiters*sizeof(t_float)); +} + static void *tab2flist_new(t_symbol *s) { t_tab2flist *x = (t_tab2flist *)pd_new(tab2flist_class); x->x_listout = outlet_new(&x->x_obj, &s_list); floatinlet_new(&x->x_obj, &x->x_length); - x->x_offset = 0; + x->x_offset = x->x_n_delimiters = 0; + x->x_delimiters = NULL; x->x_length = -1; /* default to output the whole table */ x->x_arrayname = s; return (x); @@ -146,11 +209,13 @@ void tab2flist_setup(void) { tab2flist_class = class_new(gensym("tab2flist"), (t_newmethod)tab2flist_new, - 0, sizeof(t_tab2flist), 0, A_DEFSYM, 0); + (t_method) tab2flist_free, sizeof(t_tab2flist), 0, A_DEFSYM, 0); class_addbang(tab2flist_class, (t_method)tab2flist_bang); // class_addlist(tab2flist_class, (t_method)tab2flist_list); class_addfloat(tab2flist_class, (t_method)tab2flist_float); class_addmethod(tab2flist_class, (t_method)tab2flist_set, gensym("set"), A_SYMBOL, 0); + class_addmethod(tab2flist_class, (t_method)tab2flist_delimiter, gensym("delimiter"), + A_GIMME, 0); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

SF.net SVN: pure-data:[10669] trunk/externals/mrpeach/flist2tab/flist2tab.c
by mrpeach＠users.sourceforge.net 28 Jan '09

28 Jan '09

Revision: 10669 http://pure-data.svn.sourceforge.net/pure-data/?rev=10669&view=rev Author: mrpeach Date: 2009-01-28 21:42:46 +0000 (Wed, 28 Jan 2009) Log Message: ----------- Added an outlet for the array size. The outlet is updated with each incoming list or float. This makes it easier to append to existing arrays. Modified Paths: -------------- trunk/externals/mrpeach/flist2tab/flist2tab.c Modified: trunk/externals/mrpeach/flist2tab/flist2tab.c =================================================================== --- trunk/externals/mrpeach/flist2tab/flist2tab.c 2009-01-28 18:57:42 UTC (rev 10668) +++ trunk/externals/mrpeach/flist2tab/flist2tab.c 2009-01-28 21:42:46 UTC (rev 10669) @@ -19,6 +19,7 @@ t_symbol *x_arrayname; t_float x_ft1; t_float x_offset; + t_outlet *x_sizeout; } t_flist2tab; static void flist2tab_list(t_flist2tab *x, t_symbol *s, int argc, t_atom *argv); @@ -80,6 +81,8 @@ vec[i+offset] = argv[i].a_w.w_float; #endif } + /* output the size of the array */ + outlet_float(x->x_sizeout, npoints); } } @@ -119,6 +122,8 @@ vec[offset] = f; #endif garray_redraw(a); + /* output the size of the array */ + outlet_float(x->x_sizeout, npoints); } } @@ -132,6 +137,7 @@ t_flist2tab *x = (t_flist2tab *)pd_new(flist2tab_class); x->x_offset = 0; x->x_arrayname = s; + x->x_sizeout = outlet_new(&x->x_obj, &s_float); floatinlet_new(&x->x_obj, &x->x_offset); return (x); } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended macosx105-i386 2009-01-28 13.41.05
by pd＠macosx105-i386.idmi.poly.edu 28 Jan '09

28 Jan '09

allhammers.c:156: error: conflicting types for 'urn_setup' allhammers.c:76: error: previous declaration of 'urn_setup' was here allhammers.c:157: error: conflicting types for 'xbendin_setup' allhammers.c:77: error: previous declaration of 'xbendin_setup' was here allhammers.c:158: error: conflicting types for 'xbendin2_setup' allhammers.c:78: error: previous declaration of 'xbendin2_setup' was here allhammers.c:159: error: conflicting types for 'xbendout_setup' allhammers.c:79: error: previous declaration of 'xbendout_setup' was here allhammers.c:160: error: conflicting types for 'xbendout2_setup' allhammers.c:80: error: previous declaration of 'xbendout2_setup' was here allhammers.c:161: error: conflicting types for 'xnotein_setup' allhammers.c:81: error: previous declaration of 'xnotein_setup' was here allhammers.c:162: error: conflicting types for 'xnoteout_setup' allhammers.c:82: error: previous declaration of 'xnoteout_setup' was here allhammers.c:163: error: conflicting types for 'zl_setup' allhammers.c:83: error: previous declaration of 'zl_setup' was here allhammers.c:164: error: syntax error before '}' token ERROR: module is write only rsync error: syntax or usage error (code 1) at main.c(641) [sender=2.6.9] rsync error: error in rsync protocol data stream (code 12) at /SourceCache/rsync/rsync-35.2/rsync/io.c(452) [receiver=2.6.9] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2009-01-28/logs/2009-01-28_13.41.…

1 0

← Newer
1
2
3
4
5
6
7
8
...
36
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 January 2009