Pd-cvs January 2009

pd-cvs@lists.iem.at

23 participants
357 discussions

autobuild: pd-devel planetccrma9-i386 2009-01-25 04.08.44
by pd＠planetccrma9-i386.idmi.poly.edu 25 Jan '09

25 Jan '09

rsync error: syntax or usage error (code 1) at main.c(1216) [receiver=3.0.4] the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2009-01-25/logs/2009-01-25_04.08.…

1 0

autobuild: pd-main+libs debian-stable-i386 2009-01-25 01.51.18
by pd＠debian-stable-i386.idmi.poly.edu 25 Jan '09

25 Jan '09

/bin/sh: -c: line 1: syntax error: unexpected end of file filmGMERLIN.cpp:43: error: expected `{' before 'm_lastFrame' filmGMERLIN.cpp:43: error: expected constructor, destructor, or type conversion before '(' token the full logfile - if it has been succesfully uploaded - can be viewed at: http://autobuild.puredata.info/auto-build/2009-01-25/logs/2009-01-25_01.51.…

1 0

autobuild: pd-extended debian-stable-i386 2009-01-25 01.51.18
by pd＠debian-stable-i386.idmi.poly.edu 25 Jan '09

25 Jan '09

/bin/sh: -c: line 1: syntax error: unexpected end of file 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-25/logs/2009-01-25_01.51.…

1 0

SF.net SVN: pure-data:[10633] branches/pd-devel/0.41.4/devel_doc
by eighthave＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10633 http://pure-data.svn.sourceforge.net/pure-data/?rev=10633&view=rev Author: eighthave Date: 2009-01-25 06:43:15 +0000 (Sun, 25 Jan 2009) Log Message: ----------- updated with lots of ideas from dev work Modified Paths: -------------- branches/pd-devel/0.41.4/devel_doc/TODO Added Paths: ----------- branches/pd-devel/0.41.4/devel_doc/ChangeLog.txt Added: branches/pd-devel/0.41.4/devel_doc/ChangeLog.txt =================================================================== --- branches/pd-devel/0.41.4/devel_doc/ChangeLog.txt (rev 0) +++ branches/pd-devel/0.41.4/devel_doc/ChangeLog.txt 2009-01-25 06:43:15 UTC (rev 10633) @@ -0,0 +1,14 @@ + +- pure Tcl GUI. The C build system now has zero Tcl dependencies. + +- Pd can now handle filenames that include ,;" characters in them. The + only caveat is that SaveAs doesn't work with names with " in it. + +- unlike the earlier 'pd' command in Tcl, 'pdsend' handles the semi-colon + +- exception handling on commands being sent from pd->pd-gui, so we should see + fewer Tcl exception windows + +- The File->Open panel can open multiple files at once + +- arbitary fonts now fit into the fixed box sizes Modified: branches/pd-devel/0.41.4/devel_doc/TODO =================================================================== --- branches/pd-devel/0.41.4/devel_doc/TODO 2009-01-25 06:42:32 UTC (rev 10632) +++ branches/pd-devel/0.41.4/devel_doc/TODO 2009-01-25 06:43:15 UTC (rev 10633) @@ -12,14 +12,56 @@ [ ] figure out parent window/window list for Window menu [ ] canvas scrollbar logic [ ] flash menu when accelerator hits (i.e. flash Edit when Ctrl-E) +[ ] make File->New default dir the dir of the current top window (pdsend_map) +[ ] use gnocl for GNOME feel - panels ------ [ ] find panel [ ] send message panel [ ] restructure Pd window for cleaner UI and code +[ ] font panel [ ] unified preference panel with tabs (like standard on GNOME, Mac OS X, Win) [ ] help browser [ ] wm attributes -topmost for panels like Find, message [ ] MacWindowStyle for panels: http://wiki.tcl.tk/13428 +[ ] Open/Save panel dirs with separate dirs for openpanel and savepanel + http://lists.puredata.info/pipermail/pd-list/2008-05/062630.html + + + +post-GUI rewrite +================ + +These are things to address once the initial Tcl-only GUI rewrite is complete. + +[ ] streamline pdsend_key and the C side of things, using %N +[ ] implement [wm attributes -titlepath] on Mac OS X and change pdsend_map +[ ] move sys_font setting from 'pd' to 'pd-gui', probably in pdtk_pd_startup + +- switch to using toplevel classes instead of creating the bindings each time + bind MyCanvas + bind MyToplevel + + +[2:07pm] ijchain: <patthoyts> If you bind to the classname of the toplevel you;ll only get the Map event from that toplevel. +[2:07pm] ijchain: <patthoyts> eg: bind Dialog <Map> {puts "map %W"} ; toplevel .t -class Dialog; pack [canvas .t.c]; wm withdraw .t; wm deiconify .t +[2:08pm] ijchain: <patthoyts> will only show a Map from .t +[2:09pm] hans_: patthoyts: hmm, I am getting two messages, one from the toplevel, one from the canvas +[2:09pm] hans_: here's the code where the bind happens: +[2:09pm] hans_: http://pure-data.svn.sourceforge.net/viewvc/pure-data/branches/pd-devel/0.4… +[2:09pm] hans_: line 155 +[2:09pm] ijchain: <patthoyts> yes. Because you bound to the window name. +[2:09pm] ijchain: <patthoyts> read what I wrote. bind to the classname of the toplevel. +[2:10pm] hans_: ok, let me try that +[2:10pm] hans_: thanks +[2:10pm] ijchain: <patthoyts> If you dont want to change the bindings, in the function itself you could test the class using [winfo class %W] +[2:10pm] hans_: is there a preferred approach? +[2:10pm] hans_: I could do either +[2:11pm] ijchain: <patthoyts> I'd bind to the class if I was writing it from scratch. +[2:11pm] hans_: ok, sounds good, I am rewriting an app from scratch, so I am trying to use the cleanest Tcl style +[2:12pm] ijchain: <patthoyts> For instance, looking at your code, you have to run through the bindings each time you make a toplevel. +[2:12pm] ijchain: <patthoyts> Instead you can do the binding to the class name once in the initialization for the application. +[2:13pm] ijchain: <patthoyts> Then any toplevel created with that class will automatically get the correct bindings. +[2:14pm] ijchain: <patthoyts> If you look at the code in tk/library/*.tcl where the widget bindings are all setup you can see thats how its done for Tk's own stuff. Mostly anyway. +[2:15pm] hans_: thanks, very helpfuil! 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:[10632] branches/pd-devel/0.41.4/src
by eighthave＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10632 http://pure-data.svn.sourceforge.net/pure-data/?rev=10632&view=rev Author: eighthave Date: 2009-01-25 06:42:32 +0000 (Sun, 25 Jan 2009) Log Message: ----------- - worked on font code started by mescalinum to make it receive the font family and weight from pd as well as standardizing variable and proc names - created dummy font panel - renamed pdtk_canvas_map/unmap to pdsend_map/unmap since it is not called from 'pd', it only send to 'pd' - renamed enquote_filename to enquote_path for the sake of clarity - updated version test to properly create Mac OS X preferences in Apple menu - if a saved directory (pd_opendir, etc) has disappeared, use $HOME 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_menucommands.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/s_main.c branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 06:42:32 UTC (rev 10632) @@ -25,13 +25,23 @@ # for testing which platform we are running on ("aqua", "win32", or "x11") set windowingsystem "" -# FONT STUFF: -# default font family/weight, changed later in 'init' (if needed) -set font_family {Bitstream Vera Sans Mono} -set font_weight {normal} -# this contains the font metric that Pd expects (we have to respect those -# when creating fonts in proc pdtk_init_fonts) -set font_fixed_metrics {8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45} +# canvas font, received from pd in pdtk_pd_startup, set in s_main.c +set font_family "" +set font_weight "" +# sizes of chars for each of the Pd fixed font sizes: +# fontsize width(pixels) height(pixels) +set font_fixed_metrics { + 8 5 10 + 9 6 11 + 10 6 13 + 12 7 15 + 14 8 17 + 16 10 20 + 18 11 22 + 24 14 30 + 30 18 37 + 36 22 45 +} set pd_opendir [pwd] set pd_untitleddir [pwd] @@ -115,7 +125,6 @@ {{Max Patch Files (.pat)} {.pat} } {{Max Text Files (.mxt)} {.mxt} } } - set ::font_family {Monaco} } "win32" { font create menufont -family Tahoma -size -11 @@ -137,24 +146,28 @@ # this proc creates all the needed fonts so that they fit # into the metrics given by $::font_fixed_metrics -proc pdtk_init_fonts {} { +proc fit_font_into_metrics {} { foreach {size width height} $::font_fixed_metrics { - set fnt [pdtk_font_name $size] - font create $fnt -family $::font_family -weight $::font_weight \ + set myfont [pdtk_font_name $size] + font create $myfont -family $::font_family -weight $::font_weight \ -size [expr {-$height}] - while {[font measure $fnt M] > $width} { + while {[font measure $myfont M] > $width} { incr height -1 - font configure $fnt -size [expr {-$height}] + font configure $myfont -size [expr {-$height}] } } } proc pdtk_pd_startup {version {args ""}} { - pdtk_post "version: $version" - pdtk_post "args: $args" + pdtk_post "pdtk_pd_startup $version $args" + pdtk_post "\tversion: $version" + pdtk_post "\targs: $args" set oldtclversion 0 - pdtk_init_fonts - pdsend "pd init [enquote_filename [pwd]] $oldtclversion $::font_fixed_metrics" + pdsend "pd init [enquote_path [pwd]] $oldtclversion $::font_fixed_metrics" + set ::font_family [lindex $args 2] + set ::font_weight [lindex $args 3] + puts "setting font to: $::font_family $::font_weight" + fit_font_into_metrics # TODO what else is needed from the original? } Modified: branches/pd-devel/0.41.4/src/pd_bindings.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/pd_bindings.tcl 2009-01-25 06:42:32 UTC (rev 10632) @@ -113,7 +113,7 @@ if {$::windowingsystem eq "aqua"} { bind $mytoplevel <$modifier-Key-m> "menu_minimize $mytoplevel" - bind $mytoplevel <$modifier-Key-t> "menu_font $mytoplevel" + bind $mytoplevel <$modifier-Key-t> "menu_font_panel $mytoplevel" bind $mytoplevel <$modifier-quoteleft> "menu_raisenextwindow" } else { bind $mytoplevel <$modifier-Key-m> "menu_message_panel" @@ -152,8 +152,8 @@ #TODO bind $mytoplevel <MouseWheel> # event bindings ----------------------------------------------------------- - bind $mytoplevel <Map> "pdtk_canvas_map %W" - bind $mytoplevel <Unmap> "pdtk_canvas_unmap %W" + bind $mytoplevel <Map> "pdsend_map %W" + bind $mytoplevel <Unmap> "pdsend_unmap %W" #TODO bind $mytoplevel <Configure> "pdtk_canvas_getscroll %W" # do window maintenance when entering a window (Window menu, scrollbars...) Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl 2009-01-25 06:42:32 UTC (rev 10632) @@ -15,15 +15,15 @@ proc ::pd_menucommands::menu_new {} { variable untitled_number - if { ! [file isdirectory $::pd_untitleddir]} {set ::pd_untitleddir [pwd]} - pdsend "pd filename Untitled-$untitled_number [enquote_filename $::pd_untitleddir]" + if { ! [file isdirectory $::pd_untitleddir]} {set ::pd_untitleddir $::env(HOME)} + pdsend "pd filename Untitled-$untitled_number [enquote_path $::pd_untitleddir]" pdsend "#N canvas" pdsend "#X pop 1" - set untitled_number [expr $untitled_number + 1] + incr untitled_number } proc ::pd_menucommands::menu_open {} { - if { ! [file isdirectory $::pd_opendir]} {set ::pd_opendir [pwd]} + if { ! [file isdirectory $::pd_opendir]} {set ::pd_opendir $::env(HOME)} set files [tk_getOpenFile -defaultextension .pd \ -multiple true \ -filetypes $::filetypes \ @@ -80,6 +80,20 @@ # console text. hmm that would be nice! } +proc ::pd_menucommands::menu_font_panel {mytoplevel} { + if {[winfo exists .font]} { + raise .font + } else { + # TODO insert real preference panel here + toplevel .font + wm title .font "Font" + ::pd_bindings::panel_bindings .font + frame .font.frame + label .font.label -text "font" -width 30 -height 15 + pack .font.label .font.frame -side top -expand yes -fill both + } +} + proc ::pd_menucommands::menu_preferences_panel {} { if {[winfo exists .preferences]} { raise .preferences Modified: branches/pd-devel/0.41.4/src/pd_menus.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/pd_menus.tcl 2009-01-25 06:42:32 UTC (rev 10632) @@ -110,12 +110,12 @@ $mymenu add command -label [say "Text Editor"] \ -command "menu_texteditor $mytoplevel" $mymenu add command -label [say "Font"] -accelerator "$accelerator+T" \ - -command "menu_font $mytoplevel" + -command "menu_font_panel $mytoplevel" } else { $mymenu add command -label [say "Text Editor"] -accelerator "$accelerator+T"\ -command "menu_texteditor $mytoplevel" $mymenu add command -label [say "Font"] \ - -command "menu_font $mytoplevel" + -command "menu_font_panel $mytoplevel" } $mymenu add command -label [say "Tidy Up"] \ -command "pdsend \"$mytoplevel tidy\"" @@ -240,9 +240,10 @@ $mymenu add cascade -label "Apple" -menu $mymenu.apple $mymenu.apple add separator # starting in 8.4.14, this is created automatically - if {[regsub -- {[0-9]\.[0-9]\.([0-9][0-9]*)} [info patchlevel] {\1}] < 14} { + set patchlevel [split [info patchlevel] .] + if {[lindex $patchlevel 1] < 5 && [lindex $patchlevel 2] < 14} { $mymenu.apple add command -label [say "Preferences..."] \ - -command "menu_preferences" -accelerator "Cmd+," + -command "menu_preferences_panel" -accelerator "Cmd+," } } Modified: branches/pd-devel/0.41.4/src/pdtk_canvas.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/pdtk_canvas.tcl 2009-01-25 06:42:32 UTC (rev 10632) @@ -44,7 +44,7 @@ } proc pdtk_canvas_saveas {name initialfile initialdir} { - if { ! [file isdirectory $initialdir]} {set initialdir [pwd]} + if { ! [file isdirectory $initialdir]} {set initialdir $::env(HOME)} set filename [tk_getSaveFile -initialfile $initialfile -initialdir $initialdir \ -defaultextension .pd -filetypes $::filetypes] if {$filename eq ""} return; # they clicked cancel @@ -63,7 +63,7 @@ } set dirname [file dirname $filename] set basename [file tail $filename] - pdsend "$name savetofile [enquote_filename $basename] [enquote_filename $dirname]" + pdsend "$name savetofile [enquote_path $basename] [enquote_path $dirname]" set ::pd_untitleddir $dirname } @@ -105,11 +105,13 @@ # "map" event tells us when the canvas becomes visible (arg is "0") or # invisible (arg is ""). Invisibility means the Window Manager has minimized # us. We don't get a final "unmap" event when we destroy the window. -proc pdtk_canvas_map {mytoplevel} { +proc pdsend_map {mytoplevel} { pdsend "$mytoplevel map 1" + #[regsub -- "" [wm title $mytoplevel]] + #set ::pd_untitleddir $dirname } -proc pdtk_canvas_unmap {mytoplevel} { +proc pdsend_unmap {mytoplevel} { pdsend "$mytoplevel map 0" } Modified: branches/pd-devel/0.41.4/src/s_main.c =================================================================== --- branches/pd-devel/0.41.4/src/s_main.c 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/s_main.c 2009-01-25 06:42:32 UTC (rev 10632) @@ -65,9 +65,9 @@ #ifdef MSW "Courier"; #else - "Courier"; + "Andale Mono"; #endif -char sys_fontweight[] = "bold "; /* currently only used for iemguis */ +char sys_fontweight[] = "normal "; /* currently only used for iemguis */ static int sys_main_srate; static int sys_main_advance; static int sys_main_callback; Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-25 02:06:22 UTC (rev 10631) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-25 06:42:32 UTC (rev 10632) @@ -25,7 +25,7 @@ set directory [file dirname $filename] set basename [file tail $filename] if {[regexp -nocase -- "\.(pd|pat|mxt)$" $filename]} { - pdsend "pd open [enquote_filename $basename] [enquote_filename $directory]" + pdsend "pd open [enquote_path $basename] [enquote_path $directory]" set ::pd_opendir $directory } } @@ -34,7 +34,7 @@ # quoting functions # enquote a filename to send it to pd, " isn't handled properly tho... -proc enquote_filename {message} { +proc enquote_path {message} { string map {"," "\\," ";" "\\;" " " "\\ "} $message } 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:[10631] trunk/externals/pdvjtools/pix_preview/BUGS
by lluisbigorda＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10631 http://pure-data.svn.sourceforge.net/pure-data/?rev=10631&view=rev Author: lluisbigorda Date: 2009-01-25 02:06:22 +0000 (Sun, 25 Jan 2009) Log Message: ----------- added BUGS file Added Paths: ----------- trunk/externals/pdvjtools/pix_preview/BUGS Added: trunk/externals/pdvjtools/pix_preview/BUGS =================================================================== --- trunk/externals/pdvjtools/pix_preview/BUGS (rev 0) +++ trunk/externals/pdvjtools/pix_preview/BUGS 2009-01-25 02:06:22 UTC (rev 10631) @@ -0,0 +1,3 @@ +if you open a patch with two pix_preview objects pd crashes +if you click in the 0,0 coordinate of a pix_preview pd crashes + 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:[10630] branches/pd-devel/0.41.4/src
by mescalinum＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10630 http://pure-data.svn.sourceforge.net/pure-data/?rev=10630&view=rev Author: mescalinum Date: 2009-01-25 01:57:16 +0000 (Sun, 25 Jan 2009) Log Message: ----------- Fix font size issues, by determining the best pixelsize for each pointsize that fits into our hardcoded font metrics. This would fix for example text wider than object boxes et similar. Modified Paths: -------------- branches/pd-devel/0.41.4/src/pd.tk branches/pd-devel/0.41.4/src/pdtk_text.tcl Modified: branches/pd-devel/0.41.4/src/pd.tk =================================================================== --- branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 01:30:08 UTC (rev 10629) +++ branches/pd-devel/0.41.4/src/pd.tk 2009-01-25 01:57:16 UTC (rev 10630) @@ -25,6 +25,14 @@ # for testing which platform we are running on ("aqua", "win32", or "x11") set windowingsystem "" +# FONT STUFF: +# default font family/weight, changed later in 'init' (if needed) +set font_family {Bitstream Vera Sans Mono} +set font_weight {normal} +# this contains the font metric that Pd expects (we have to respect those +# when creating fonts in proc pdtk_init_fonts) +set font_fixed_metrics {8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45} + set pd_opendir [pwd] set pd_untitleddir [pwd] @@ -107,6 +115,7 @@ {{Max Patch Files (.pat)} {.pat} } {{Max Text Files (.mxt)} {.mxt} } } + set ::font_family {Monaco} } "win32" { font create menufont -family Tahoma -size -11 @@ -120,13 +129,32 @@ } } +# this proc gets the internal font name associated with each size +proc pdtk_font_name {size} { + # TODO: return an error if size is not in $::font_fixed_metrics + return "pd_font_${size}" +} +# this proc creates all the needed fonts so that they fit +# into the metrics given by $::font_fixed_metrics +proc pdtk_init_fonts {} { + foreach {size width height} $::font_fixed_metrics { + set fnt [pdtk_font_name $size] + font create $fnt -family $::font_family -weight $::font_weight \ + -size [expr {-$height}] + while {[font measure $fnt M] > $width} { + incr height -1 + font configure $fnt -size [expr {-$height}] + } + } +} + proc pdtk_pd_startup {version {args ""}} { pdtk_post "version: $version" pdtk_post "args: $args" set oldtclversion 0 - set fontlist "8 5 10 9 6 11 10 6 13 12 7 15 14 8 17 16 10 20 18 11 22 24 14 30 30 18 37 36 22 45" - pdsend "pd init [enquote_filename [pwd]] $oldtclversion $fontlist" + pdtk_init_fonts + pdsend "pd init [enquote_filename [pwd]] $oldtclversion $::font_fixed_metrics" # TODO what else is needed from the original? } Modified: branches/pd-devel/0.41.4/src/pdtk_text.tcl =================================================================== --- branches/pd-devel/0.41.4/src/pdtk_text.tcl 2009-01-25 01:30:08 UTC (rev 10629) +++ branches/pd-devel/0.41.4/src/pdtk_text.tcl 2009-01-25 01:57:16 UTC (rev 10630) @@ -1,16 +1,10 @@ package provide pdtk_text 0.1 -set font_family "Monaco" -set font_weight "normal" -#set default_font_family "Bitstream Vera Sans Mono" - -# TODO use a Tk 'font' as the main font - ############ pdtk_text_new -- create a new text object #2########### proc pdtk_text_new {mycanvas canvasitem x y text font_size color} { $mycanvas create text $x $y -tags $canvasitem -text $text -fill $color \ - -anchor nw -font "$::font_family $font_size $::font_weight" + -anchor nw -font [pdtk_font_name $font_size] $mycanvas bind $canvasitem <Home> "$mycanvas icursor $canvasitem 0" $mycanvas bind $canvasitem <End> "$mycanvas icursor $canvasitem end" if {$::windowingsystem eq "aqua"} { # emacs bindings for Mac OS X 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:[10629] trunk/externals/pdvjtools/pix_preview/ pix_preview.tk2c
by lluisbigorda＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10629 http://pure-data.svn.sourceforge.net/pure-data/?rev=10629&view=rev Author: lluisbigorda Date: 2009-01-25 01:30:08 +0000 (Sun, 25 Jan 2009) Log Message: ----------- new tcl-socket procedure to get frame-data and paint into canvas Modified Paths: -------------- trunk/externals/pdvjtools/pix_preview/pix_preview.tk2c Modified: trunk/externals/pdvjtools/pix_preview/pix_preview.tk2c =================================================================== --- trunk/externals/pdvjtools/pix_preview/pix_preview.tk2c 2009-01-25 01:16:22 UTC (rev 10628) +++ trunk/externals/pdvjtools/pix_preview/pix_preview.tk2c 2009-01-25 01:30:08 UTC (rev 10629) @@ -1,66 +1,34 @@ -// ########### colorgrid procedures -- ydegoyon(a)free.fr ######### -sys_gui("package require Img\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 ######### +sys_vgui("package require Img\n"); +sys_vgui("proc Echo_Server%d {port} {\n", whoami); +sys_vgui(" set s [socket -server EchoAccept%d $port]\n", whoami); +sys_vgui(" puts \"server%d socket created on port $port\"\n", whoami); +sys_vgui("}\n"); +sys_vgui("proc EchoAccept%d {sock addr port} {\n", whoami); +sys_vgui(" global echo\n"); +sys_vgui(" # Record the client's information\n"); +sys_vgui(" puts \"Accept $sock from $addr port $port\"\n"); +sys_vgui(" set echo(addr,$sock) [list $addr $port]\n"); +sys_vgui(" # Ensure that each \"puts\" by the server\n"); +sys_vgui(" # results in a network transmission\n"); +sys_vgui(" fconfigure $sock -buffering line\n"); +sys_vgui(" # Set up a callback for when the client sends data\n"); +sys_vgui(" fileevent $sock readable [list Echo%d $sock]\n", whoami); +sys_vgui("}\n"); +sys_vgui("# Echo --\n"); +sys_vgui("# This procedure is called when the server\n"); +sys_vgui("# can read data from the client\n"); +sys_vgui("# Arguments:\n"); +sys_vgui("# sock The socket connection to the client\n"); +sys_vgui("proc Echo%d {sock} {\n", whoami); +sys_vgui(" global echo\n"); +sys_vgui(" # Check end of file or abnormal connection drop,\n"); +sys_vgui(" # then echo data back to the client.\n"); +sys_vgui(" if {[eof $sock] || [catch {gets $sock line}]} {\n"); +sys_vgui(" close $sock\n"); +sys_vgui(" puts \"Close $echo(addr,$sock)\"\n"); +sys_vgui(" unset echo(addr,$sock)\n"); +sys_vgui(" } else {\n"); +sys_vgui(" #puts $sock $line\n"); +sys_vgui(" imgPREVIEW%d put $line\n", whoami); +sys_vgui(" }\n"); +sys_vgui("}\n"); 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:[10628] trunk/externals/pdvjtools/pix_preview/ pix_preview.h
by lluisbigorda＠users.sourceforge.net 25 Jan '09

25 Jan '09

Revision: 10628 http://pure-data.svn.sourceforge.net/pure-data/?rev=10628&view=rev Author: lluisbigorda Date: 2009-01-25 01:16:22 +0000 (Sun, 25 Jan 2009) Log Message: ----------- new tcl-socket way to get frame-data and paint it into the canvas Modified Paths: -------------- trunk/externals/pdvjtools/pix_preview/pix_preview.h Modified: trunk/externals/pdvjtools/pix_preview/pix_preview.h =================================================================== --- trunk/externals/pdvjtools/pix_preview/pix_preview.h 2009-01-25 01:14:06 UTC (rev 10627) +++ trunk/externals/pdvjtools/pix_preview/pix_preview.h 2009-01-25 01:16:22 UTC (rev 10628) @@ -1,24 +1,7 @@ -/*----------------------------------------------------------------- -LOG -GEM - Graphics Environment for Multimedia -Get pixel information - -Copyright (c) 1997-1998 Mark Danks. mark(a)danks.org -Copyright (c) G\xFCnther Geiger. geiger(a)epy.co.at -Copyright (c) 2001-2002 IOhannes m zmoelnig. forum::f\xFCr::uml\xE4ute. IEM. zmoelnig(a)iem.kug.ac.at -Copyright (c) 2002 James Tittle & Chris Clepper -For information on usage and redistribution, and for a DISCLAIMER OF ALL -WARRANTIES, see the file, "GEM.LICENSE.TERMS" in this distribution. - ------------------------------------------------------------------*/ - /*----------------------------------------------------------------- pix_preview - 0409:forum::f\xFCr::uml\xE4ute:2000 - IOhannes m zmoelnig - mailto:zmoelnig@iem.kug.ac.at -----------------------------------------------------------------*/ #ifndef INCLUDE_PIX_DUMP_H_ @@ -28,14 +11,15 @@ /*needed for base64 conversion*/ #include <string> +#include <sys/types.h> +#include <netinet/in.h> +#include <sys/socket.h> +#include <arpa/inet.h> +#include <netdb.h> std::string base64_encode(unsigned char const* , unsigned int len); - - - - /*----------------------------------------------------------------- ------------------------------------------------------------------- CLASS @@ -62,6 +46,7 @@ // Constructor pix_preview(t_floatarg fx, t_floatarg fy); int x_width, x_height; + static int counter; protected: @@ -80,6 +65,7 @@ void trigger(); int getx(); int gety(); + void connectMess(); ////////// // The color outlet @@ -95,6 +81,8 @@ int oldimagex; int oldimagey; + int widgetwidth; + int widgetheight; ////////// // navigation @@ -111,9 +99,13 @@ t_widgetbehavior image_widgetbehavior; + int s; + int connected; + struct addrinfo *res; + struct addrinfo hints; + int whoami; - private: ////////// @@ -122,6 +114,7 @@ static void GREYMessCallback(void *dump); static void RGBAMessCallback(void *dump); static void RGBMessCallback(void *dump); + static void connectMessCallback(void *dump); static void image_drawme(pix_preview *x, t_glist *glist, int firsttime, int m_xsize, int m_ysize); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

1 0

autobuild: pd-extended macosx104-powerpc 2009-01-24 19.04.13
by pd＠macosx104-powerpc.idmi.poly.edu 25 Jan '09

25 Jan '09

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-24/logs/2009-01-24_19.04.…

1 0

← Newer
1
...
12
13
14
15
16
17
18
...
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