Pd-cvs July 2007

pd-cvs@lists.iem.at

20 participants
623 discussions

packages/linux_make/debian control,NONE,1.3.2.1
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/linux_make/debian In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28715/debian Added Files: Tag: branch-v0-39-2-extended control Log Message: backported debian package hack from HEAD --- NEW FILE: control --- Package: pd-extended Version: 0.39.2rc5-1 Section: sound Priority: optional Architecture: any Depends: libjack0.100.0-0, ttf-bitstream-vera, tcl8.4, tk8.4, libasound2, libogg0, libvorbis0a, libvorbisenc2, libvorbisfile3, libspeex1, libflac7, libsndfile1, libpcre3, libtheora0, imagemagick, liblcms1, libpng3, libtiff4, libmpeg1, libmpeg2-4, libmpeg3-1, libquicktime0, libx11-6, libdv4, libxv1, libimlib2, libfreetype6, libsm6, libxml2, libxext6, libxt6, libglu1-mesa, libgsl0, libmagick++9c2a, x-ttcidfont-conf Recommends: liblo0, liblame0 Suggests: xmms Maintainer: Hans-Christoph Steiner <hans(a)at.or.at> Description: Pure Data with patches and a large collection of externals Pd (aka Pure Data) is a real-time graphical programming environment for audio, video, and graphical processing. It is the third major branch of the family of patcher programming languages known as Max (Max/FTS, ISPW Max, Max/MSP, jMax, etc.) originally developed by Miller Puckette and company at IRCAM. The core of Pd is written and maintained by Miller Puckette and includes the work of many developers, making the whole package very much a community effort. . Pd was created to explore ideas of how to further refine the Max paradigm with the core ideas of allowing data to be treated in a more open-ended way and opening it up to applications outside of audio and MIDI, such as graphics and video. . This distribution of Pd includes a wide array of libraries that allow you to work with HIDs, video, OpenGL 3D graphics, and more.

1 0

packages/linux_make pd-extended.desktop, NONE, 1.3.2.1 pd.png, NONE, 1.1.2.1 Makefile, 1.21.2.1, 1.21.2.2
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/linux_make In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28715 Modified Files: Tag: branch-v0-39-2-extended Makefile Added Files: Tag: branch-v0-39-2-extended pd-extended.desktop pd.png Log Message: backported debian package hack from HEAD Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/linux_make/Makefile,v retrieving revision 1.21.2.1 retrieving revision 1.21.2.2 diff -C2 -d -r1.21.2.1 -r1.21.2.2 *** Makefile 29 Dec 2006 02:30:43 -0000 1.21.2.1 --- Makefile 11 Jul 2007 02:36:57 -0000 1.21.2.2 *************** *** 58,64 **** #==============================================================================# ! package: tarbz2 PACKAGE_NAME = Pd-$(PD_VERSION) tarbz2: installer_makefile installer_readme install -p .pdsettings $(DESTDIR)$(prefix) --- 58,104 ---- #==============================================================================# ! # if machine has dpkg-deb, build a Debian package ! DPKG := $(shell test -x /usr/bin/dpkg-deb && echo YES) ! ifeq ($(DPKG),YES) ! package: deb ! else ! package: tarbz2 ! endif PACKAGE_NAME = Pd-$(PD_VERSION) + + deb: $(bindir) + # GNOME menu support + install -d $(DESTDIR)/usr/share/icons/hicolor/128x128/apps + install -p $(packages_src)/linux_make/pd.png \ + $(DESTDIR)/usr/share/icons/hicolor/128x128/apps/ + install -d $(DESTDIR)/usr/share/applications/ + install -p $(packages_src)/linux_make/pd-extended.desktop \ + $(DESTDIR)/usr/share/applications/ + # files for /etc + install -d $(DESTDIR)/etc/bash_completion.d/ + install -p $(scripts_src)/bash_completion/pd $(DESTDIR)/etc/bash_completion.d + install -d $(DESTDIR)/etc/default + install -p $(scripts_src)/debian/default/pd $(DESTDIR)/etc/default + install -d $(DESTDIR)/etc/init.d + install -p $(scripts_src)/debian/init.d/pd $(DESTDIR)/etc/init.d + # default prefs file + install -d $(DESTDIR)/etc/pd-extended + ln -s $(prefix)/lib/pd/default.pdsettings \ + $(DESTDIR)/etc/pd-extended/default.pdsettings + install -p $(packages_src)/linux_make/.pdsettings \ + $(libpddir)/default.pdsettings + # emacs mode for .pd files + install -d $(DESTDIR)/usr/share/emacs/site-lisp/ + install -p $(scripts_src)/pd-mode.el $(DESTDIR)/usr/share/emacs/site-lisp/ + # Pd-related scripts + install -p $(scripts_src)/pd-diff $(bindir) + install -p $(scripts_src)/config-switcher.sh $(bindir) + # debian packaging + test -d $(DESTDIR)/DEBIAN || mkdir -p $(DESTDIR)/DEBIAN + cp $(packages_src)/linux_make/debian/control $(DESTDIR)/DEBIAN + fakeroot dpkg-deb --build $(DESTDIR) $(packages_src)/linux_make/$(PACKAGE_NAME).deb + + tarbz2: installer_makefile installer_readme install -p .pdsettings $(DESTDIR)$(prefix) --- NEW FILE: pd.png --- (This appears to be a binary file; contents omitted.) --- NEW FILE: pd-extended.desktop --- [Desktop Entry] Encoding=UTF-8 Name=Pd-extended GenericName=Pure Data Comment=Visual dataflow programming platform for multimedia Comment[ca]=Plataforma de programaci visual per aplicacions multimdia Comment[de]=Grafische Datenflussprogrammierung fr Multimedia Comment[es]=Plataforma de programacin visual para aplicaciones multimedia Comment[fr]=Plateforme de programmation visuelle pour applications multimdia Comment[it]=Piattaforma di programmazione visuale per applicazioni multimedia Comment[pt]=Plataforma de programao visuais para multimedia Exec=/usr/local/bin/pd Terminal=false Type=Application Icon=pd Categories=GNOME;GTK;Application;AudioVideo;X-Ximian-Main;X-Red-Hat-Base; MimeType=application/x-ogg;application/ogg;audio/x-mp3; StartupNotify=true X-Ubuntu-Gettext-Domain=pd-extended

1 0

scripts/auto-build pd-extended-release-auto-builder.sh, 1.1.2.3, 1.1.2.4
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/scripts/auto-build In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27947 Modified Files: Tag: branch-v0-39-2-extended pd-extended-release-auto-builder.sh Log Message: build .deb when possible Index: pd-extended-release-auto-builder.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/auto-build/pd-extended-release-auto-builder.sh,v retrieving revision 1.1.2.3 retrieving revision 1.1.2.4 diff -C2 -d -r1.1.2.3 -r1.1.2.4 *** pd-extended-release-auto-builder.sh 1 Jun 2007 22:53:56 -0000 1.1.2.3 --- pd-extended-release-auto-builder.sh 11 Jul 2007 02:34:42 -0000 1.1.2.4 *************** *** 78,82 **** case $SYSTEM in linux) ! upload_build linux_make build tar.bz2 ;; darwin) --- 78,86 ---- case $SYSTEM in linux) ! if [ -x /usr/bin/dpkg-deb ]; then ! upload_build linux_make . deb ! else ! upload_build linux_make build tar.bz2 ! fi ;; darwin)

1 0

scripts generate-pd-settings-files.sh,1.17,1.18
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27179 Modified Files: generate-pd-settings-files.sh Log Message: renamed the included .pdsettings to default.pdsettings since it's now embedded into the Pd distro Index: generate-pd-settings-files.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/generate-pd-settings-files.sh,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** generate-pd-settings-files.sh 9 Jul 2007 17:15:53 -0000 1.17 --- generate-pd-settings-files.sh 11 Jul 2007 02:32:45 -0000 1.18 *************** *** 10,14 **** ROOT_DIR=${SCRIPT_DIR}/../packages ! GNULINUX_FILE=${ROOT_DIR}/linux_make/.pdsettings MACOSX_FILE=${ROOT_DIR}/darwin_app/org.puredata.pd.plist WINDOWS_FILE=${ROOT_DIR}/win32_inno/pd-settings.reg --- 10,14 ---- ROOT_DIR=${SCRIPT_DIR}/../packages ! GNULINUX_FILE=${ROOT_DIR}/linux_make/default.pdsettings MACOSX_FILE=${ROOT_DIR}/darwin_app/org.puredata.pd.plist WINDOWS_FILE=${ROOT_DIR}/win32_inno/pd-settings.reg

1 0

packages/linux_make default.pdsettings, NONE, 1.1 Makefile, 1.31, 1.32 README, 1.2, 1.3 .pdsettings, 1.12, NONE
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/linux_make In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27162 Modified Files: Makefile README Added Files: default.pdsettings Removed Files: .pdsettings Log Message: renamed the included .pdsettings to default.pdsettings since it's now embedded into the Pd distro Index: README =================================================================== RCS file: /cvsroot/pure-data/packages/linux_make/README,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** README 2 Dec 2006 21:47:29 -0000 1.2 --- README 11 Jul 2007 02:32:17 -0000 1.3 *************** *** 17,24 **** make uninstall ! To load the default set of libraries, you need to install the .pdsettings file ! included in the package (~ is your home directory): ! ! mv .pdsettings ~ Installing the needed dependencies --- 17,23 ---- make uninstall ! A preferences file is embedded into this distro. It loads the default set of ! libraries, and sets a couple of other things. If you save the preferences ! within Pd, it will override these embedded preferences. Installing the needed dependencies --- NEW FILE: default.pdsettings --- standardpath: 1 verbose: 0 loadlib1: Gem loadlib2: cyclone loadlib3: zexy loadlib4: creb loadlib5: cxc loadlib6: ggee loadlib7: iemlib loadlib8: list-abs loadlib9: mapping loadlib10: markex loadlib11: maxlib loadlib12: memento loadlib13: mjlib loadlib14: motex loadlib15: oscx loadlib16: pddp loadlib17: pdogg loadlib18: pixeltango loadlib19: pmpd loadlib20: rradical loadlib21: sigpack loadlib22: smlib loadlib23: toxy loadlib24: unauthorized loadlib25: vbap loadlib26: pan loadlib27: freeverb loadlib28: hcs loadlib29: jmmmp loadlib30: ext13 loadlib31: hardware loadlib32: deprecated loadlib33: flatspace loadlib34: iem_anything loadlib35: pdp loadlib36: pidip loadlib37: flib path1: /usr/X11R6/lib/X11/fonts path2: /usr/X11R6/lib/X11/fonts/TTF path3: /usr/lib/X11/fonts path4: /usr/share/fonts/truetype nloadlib: 37 Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/linux_make/Makefile,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** Makefile 11 Jul 2007 02:25:09 -0000 1.31 --- Makefile 11 Jul 2007 02:32:17 -0000 1.32 *************** *** 89,94 **** ln -s $(prefix)/lib/pd/default.pdsettings \ $(DESTDIR)/etc/pd-extended/default.pdsettings ! install -p $(packages_src)/linux_make/.pdsettings \ ! $(libpddir)/default.pdsettings # emacs mode for .pd files install -d $(DESTDIR)/usr/share/emacs/site-lisp/ --- 89,93 ---- ln -s $(prefix)/lib/pd/default.pdsettings \ $(DESTDIR)/etc/pd-extended/default.pdsettings ! install -p $(packages_src)/linux_make/default.pdsettings $(libpddir) # emacs mode for .pd files install -d $(DESTDIR)/usr/share/emacs/site-lisp/ *************** *** 103,107 **** tarbz2: installer_makefile installer_readme ! install -p .pdsettings $(DESTDIR)$(prefix) mv $(DESTDIR)$(prefix) $(DESTDIR)$(PACKAGE_NAME) cd $(DESTDIR) && \ --- 102,106 ---- tarbz2: installer_makefile installer_readme ! install -p $(packages_src)/linux_make/default.pdsettings $(libpddir) mv $(DESTDIR)$(prefix) $(DESTDIR)$(PACKAGE_NAME) cd $(DESTDIR) && \ --- .pdsettings DELETED ---

1 0

packages/linux_make Makefile,1.30,1.31
by Hans-Christoph Steiner 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/packages/linux_make In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24346 Modified Files: Makefile Log Message: fixed dpkg-deb test to fail nicely on fedora Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/packages/linux_make/Makefile,v retrieving revision 1.30 retrieving revision 1.31 diff -C2 -d -r1.30 -r1.31 *** Makefile 9 Jul 2007 14:02:41 -0000 1.30 --- Makefile 11 Jul 2007 02:25:09 -0000 1.31 *************** *** 61,65 **** # if machine has dpkg-deb, build a Debian package ! DPKG := $(shell test -x `which dpkg-deb` && echo YES) ifeq ($(DPKG),YES) package: deb --- 61,65 ---- # if machine has dpkg-deb, build a Debian package ! DPKG := $(shell test -x /usr/bin/dpkg-deb && echo YES) ifeq ($(DPKG),YES) package: deb

1 0

pd/src desire.tk,1.1.2.600.2.213,1.1.2.600.2.214
by chunlee 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15504 Modified Files: Tag: desiredata desire.tk Log Message: Runcommand is not a subclass of Listener Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.213 retrieving revision 1.1.2.600.2.214 diff -C2 -d -r1.1.2.600.2.213 -r1.1.2.600.2.214 *** desire.tk 10 Jul 2007 23:32:26 -0000 1.1.2.600.2.213 --- desire.tk 11 Jul 2007 00:36:39 -0000 1.1.2.600.2.214 *************** *** 28,32 **** # #-----------------------------------------------------------------------------------# ! # this command rebuilds the package index: echo pkg_mkIndex . | tclsh --- 28,32 ---- # #-----------------------------------------------------------------------------------# ! # this command rebuilds the package index: echo pkg_mkIndex . | tclsh *************** *** 1559,1564 **** set @findbar "" set @find_string "" - set @cmd_hist {} - set @cmd_histi 0 set @iohilite {-1 0 0 0 0} set @pointer_sense 0 ;# i want this to be OFF by default so that I can use selrect and stuff. we need to talk about this. --- 1559,1562 ---- *************** *** 1706,1709 **** --- 1704,1708 ---- $self new_binds $self update_title + set @runcommand [Runcommand new .$self "command" canvas_eval] set @crosshair [Crosshair new $self] set @active [Active new $self] *************** *** 2477,2481 **** } set was [winfo exists .$self] ! if {$flag && $was && [$self gop]} {$self redraw} if {$flag && $was} {$self raise} if {$flag && !$was} { --- 2476,2480 ---- } set was [winfo exists .$self] ! #if {$flag && $was && [$self gop]} {$self redraw} if {$flag && $was} {$self raise} if {$flag && !$was} { *************** *** 2548,2552 **** } foreach obj [$o children] { ! $@history add [list $self ins $i [$obj deconstruct]] $o del [$o index $obj] } --- 2547,2551 ---- } foreach obj [$o children] { ! $@history add [lisot $self ins $i [$obj deconstruct]] $o del [$o index $obj] } *************** *** 3161,3240 **** return $n } - def Canvas runcommand {} { - set @runcommand [Runcommand new $self] - } ! class_new Runcommand {Thing} ! def Runcommand widget {} {return .$(a)canvas.run} ! def Runcommand delete {} {focus .$(a)canvas.c; destroy [$self widget]; super} ! def Runcommand init {canvas} { ! set @canvas $canvas set @defs {} set @completions {} set @comp_i 0 set @comp_s "666" ! set f [$self widget] frame $f -border 1 -relief ridge ! button $f.close -border 1 -command "$self delete" -image icon_close -width 9 -height 9 ! bind $f.close <Return> "$self delete" pack $f.close -side left bind $f.close <Tab> "$self traversal %K %W forward" label $f.cmd_l -text Command: -font {helvetica -10} -pady 0 pack $f.cmd_l -side left ! entry $f.cmd -width 30 -relief flat -bg white -borderwidth 0 -highlightthickness 0 ! bind $f.cmd <Escape> "$self delete" ! bind $f.cmd <Control-g> "$self delete" ! bind $f.cmd <Return> "$self run" ! bind $f.cmd <Up> "$@canvas cmd_up" ! bind $f.cmd <Down> "$@canvas cmd_down" ! bind $f.cmd <Control-p> "$@canvas cmd_up" ! bind $f.cmd <Control-n> "$@canvas cmd_down" ! bind $f.cmd <Tab> "$self completion +" ! bind $f.cmd <Control-Tab> "$self completion -" ! pack $f.cmd -side left -fill x -expand yes ! # bind $f.cmd <Control-Tab> "$self traversal %K %W forward" if {[winfo exists .$(a)canvas.yscroll]} {set w .$(a)canvas.yscroll} else {set w .$(a)canvas.c} pack $f -side bottom -fill x -before $w ! focus $f.cmd ! $self defs ! } - def Runcommand traversal {k w direction} { - set f [$self widget] - if {$w == "$f.cmd"} {set next $f.close} else {set next [tk_focusNext $w]} - focus $next } ! def Canvas cmd_history+ {v} {lappend @cmd_hist $v; set @cmd_histi [llength $@cmd_hist]} ! def Canvas cmd_up {} { ! if {$@cmd_histi>0} { ! set @cmd_histi [expr $@cmd_histi-1]; $@runcommand replace [lindex $@cmd_hist $@cmd_histi] ! } ! } ! def Canvas cmd_down {} { ! if {$@cmd_histi<[llength $@cmd_hist]} { ! incr @cmd_histi; $@runcommand replace [lindex $@cmd_hist $@cmd_histi] ! } } ! def Runcommand replace {v} { ! set f [$self widget] ! $f.cmd delete 0 end ! $f.cmd insert 0 $v ! $f.cmd icursor end } ! def Runcommand run {} { ! set f [$self widget] if {[winfo exists $f.completion]} { ! puts "string:: [string range $@comp 0 [string first ":" $@comp 0]]" ! $self replace [string range $@comp 0 [expr [string first ":" $@comp 0]-1]] destroy $f.completion return } ! set text [$f.cmd get] ! $@canvas cmd_history+ $text ! $f.cmd delete 0 end ! post %s "returns: [uplevel [info level] [join [list $@canvas $text]]]" ! $self delete } --- 3160,3233 ---- return $n } ! def Canvas runcommand {} {$@runcommand pack_prompt} ! ! class_new Runcommand {Listener} ! def Runcommand canvas {} {return $@canvas} ! ! def Runcommand init {serf name command} { ! set @hist {} ! set @histi 0 ! set @serf ${serf}.run ! set @command $command ! set @expanded 0 ! set @canvas [string trimleft $serf "."] set @defs {} set @completions {} set @comp_i 0 set @comp_s "666" ! $self defs ! set f $@serf frame $f -border 1 -relief ridge ! button $f.close -border 1 -command "$self unpack_prompt" -image icon_close -width 9 -height 9 ! bind $f.close <Return> "$self unpack_prompt" pack $f.close -side left bind $f.close <Tab> "$self traversal %K %W forward" label $f.cmd_l -text Command: -font {helvetica -10} -pady 0 pack $f.cmd_l -side left ! entry $f.entry -width 30 -relief flat -bg white -borderwidth 0 -highlightthickness 0 ! bind $f.entry <Escape> "$self unpack_prompt" ! bind $f.entry <Control-g> "$self unpack_prompt" ! bind $f.entry <Return> "$self eval" ! bind $f.entry <Up> "$self up" ! bind $f.entry <Down> "$self down" ! bind $f.entry <Control-p> "$self up" ! bind $f.entry <Control-n> "$self down" ! bind $f.entry <Tab> "$self completion +" ! bind $f.entry <Control-Tab> "$self completion -" ! pack $f.entry -side left -fill x -expand yes ! bind $f.entry <Control-Tab> "$self traversal %K %W forward" ! ! } ! ! def Runcommand pack_prompt {} { ! set f $@serf if {[winfo exists .$(a)canvas.yscroll]} {set w .$(a)canvas.yscroll} else {set w .$(a)canvas.c} pack $f -side bottom -fill x -before $w ! focus $f.entry } ! def Runcommand unpack_prompt {} { ! pack forget $@serf ! focus [$@canvas widget] } ! ! def Runcommand traversal {k w direction} { ! set f $@serf ! if {$w == "$f.entry"} {set next $f.close} else {set next [tk_focusNext $w]} ! focus $next } ! def Runcommand eval {} { ! set f $@serf if {[winfo exists $f.completion]} { ! set @hist [linsert $@hist 0 [string range $@comp 0 [expr [string first ":" $@comp 0]-1]]] ! $self replace destroy $f.completion return } ! super ! $self unpack_prompt } *************** *** 3246,3252 **** def Runcommand completion {which} { ! #global __args ! set f [$self widget] ! set text [$f.cmd get] if {$text != $@comp_s} { set @comp_s $text --- 3239,3244 ---- def Runcommand completion {which} { ! set f $@serf ! set text [$f.entry get] if {$text != $@comp_s} { set @comp_s $text *************** *** 6129,6133 **** proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [info level] $l]"} proc pd_eval {self l} {post %s "pd: $l"; netsend $l} ! ############ button bar --- 6121,6125 ---- proc tcl_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [info level] $l]"} proc pd_eval {self l} {post %s "pd: $l"; netsend $l} ! proc canvas_eval {self l} {post %s "tcl: $l"; post %s "returns: [uplevel [info level] [join [list [$self canvas] $l]]]"} ############ button bar *************** *** 6211,6218 **** switch -regexp -- $type { ^object|outlet|inlet$ { ! if {$id != $self} { ! mset {x y x3 y3} [$id bbox] ! set @follow $id ! } } ^move|edit$ {mset {x y x3 y3} [$@follow bbox]} --- 6203,6208 ---- switch -regexp -- $type { ^object|outlet|inlet$ { ! mset {x y x3 y3} [$id bbox] ! set @follow $id } ^move|edit$ {mset {x y x3 y3} [$@follow bbox]}

1 0

pd/src desire.c,1.1.2.217.2.151,1.1.2.217.2.152
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24866 Modified Files: Tag: desiredata desire.c Log Message: cleanup Index: desire.c =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.c,v retrieving revision 1.1.2.217.2.151 retrieving revision 1.1.2.217.2.152 diff -C2 -d -r1.1.2.217.2.151 -r1.1.2.217.2.152 *** desire.c 10 Jul 2007 20:32:36 -0000 1.1.2.217.2.151 --- desire.c 10 Jul 2007 23:35:00 -0000 1.1.2.217.2.152 *************** *** 2370,2379 **** } ! /* get the window location in pixels of a "text" object. The ! object's x and y positions are in pixels when the canvas they're ! in is toplevel. Otherwise, if it's a new-style graph-on-parent ! (so goprect is set) we use the offset into the framing subrectangle ! as an offset into the parent rectangle. Finally, it might be an old, ! proportional-style GOP. In this case we do a coordinate transformation. */ static int text_xpix(t_text *x, t_canvas *canvas) { float width = canvas->x2-canvas->x1; --- 2370,2377 ---- } ! /* get the window location in pixels of a "text" object. The object's x and y positions are in pixels ! when the canvas they're in is toplevel. Otherwise, if it's a new-style graph-on-parent (so goprect ! is set) we use the offset into the framing subrectangle as an offset into the parent rectangle. ! Finally, it might be an old, proportional-style GOP. In this case we do a coordinate transformation. */ static int text_xpix(t_text *x, t_canvas *canvas) { float width = canvas->x2-canvas->x1; *************** *** 2390,2397 **** /* --------------------------- widget behavior ------------------- */ - - #define FONT "-*-courier-bold--normal--%d-*" - /* don't remove this code yet: has to be rewritten in tcl */ static void graph_vis(t_gobj *gr, int vis) { t_canvas *x = (t_canvas *)gr; --- 2388,2393 ---- /* --------------------------- widget behavior ------------------- */ /* don't remove this code yet: has to be rewritten in tcl */ + #if 0 static void graph_vis(t_gobj *gr, int vis) { t_canvas *x = (t_canvas *)gr; *************** *** 2443,2447 **** } } - /* draw ticks in vertical borders*/ if (x->ytick.lperb) { --- 2439,2442 ---- *************** *** 2466,2469 **** --- 2461,2465 ---- for (int i=0; i < x->nylabels; i++) {char *s = x->ylabel[i]->name; DRAWLABEL(x->ylabelx,atof(s));} } + #endif /* get the graph's rectangle, not counting extra swelling for controls *************** *** 2538,2543 **** } ! /* fill in the contents of the scalar into the vector w. */ ! static void canvas_readatoms(t_canvas *x, int natoms, t_atom *vec, int *p_nextmsg, t_symbol *templatesym, t_word *w, int argc, t_atom *argv) { --- 2534,2538 ---- } ! /* fill in the contents of the scalar into the vector w. */ static void canvas_readatoms(t_canvas *x, int natoms, t_atom *vec, int *p_nextmsg, t_symbol *templatesym, t_word *w, int argc, t_atom *argv) { *************** *** 2586,2598 **** *p_nextmsg = nextmsg + 1; t_template *t = template_findbyname(ts); ! if (!t) { ! pd_error(x,"canvas_read: %s: no such template", ts->name); ! *p_nextmsg = natoms; return 0; ! } t_scalar *sc = scalar_new(x, ts); ! if (!sc) { ! pd_error(x,"couldn't create scalar \"%s\"", ts->name); ! *p_nextmsg = natoms; return 0; ! } if (wasvis) canvas_getcanvas(x)->mapped = 0; canvas_add(x,sc); --- 2581,2587 ---- *p_nextmsg = nextmsg + 1; t_template *t = template_findbyname(ts); ! if (!t) {pd_error(x,"canvas_read: %s: no such template", ts->name); *p_nextmsg = natoms; return 0;} t_scalar *sc = scalar_new(x, ts); ! if (!sc) {pd_error(x,"couldn't create scalar \"%s\"", ts->name); *p_nextmsg = natoms; return 0;} if (wasvis) canvas_getcanvas(x)->mapped = 0; canvas_add(x,sc); *************** *** 2663,2667 **** int cr = strcmp(format->name, "cr")==0; if (!cr && *format->name) pd_error(x,"canvas_read: unknown flag: %s", format->name); - /* flag 2 means eval continuously. this is required to autodetect the syntax */ if (binbuf_read_via_path(b, filename->name, canvas_getdir(canvas)->name, cr|2)) { --- 2652,2655 ---- *************** *** 2707,2732 **** } } ! if (!newone) pd_error(x,"couldn't update properties (perhaps a format problem?)"); ! else if (!oldone) bug("data_properties: couldn't find old element"); ! else { ! canvas_delete(x, oldone); ! if (scindex > 0) { ! int nnew = 1; ! canvas_each(y,x) { ! if (nnew == scindex || !y->g_next) { ! newone->g_next = y->g_next; ! y->g_next = newone; ! goto didit; ! } ! nnew++; ! } ! bug("data_properties: can't reinsert"); ! } else { ! newone->g_next = x->list; ! x->list = newone; } } ! didit: ! ; } --- 2695,2717 ---- } } ! if (!newone) {pd_error(x,"couldn't update properties (perhaps a format problem?)"); return;} ! if (!oldone) {bug("data_properties: couldn't find old element"); return;} ! canvas_delete(x, oldone); ! if (scindex > 0) { ! int nnew = 1; ! canvas_each(y,x) { ! if (nnew == scindex || !y->g_next) { ! newone->g_next = y->g_next; ! y->g_next = newone; ! goto didit; ! } ! nnew++; } + bug("data_properties: can't reinsert"); + } else { + newone->g_next = x->list; + x->list = newone; } ! didit:; } *************** *** 4795,4799 **** sys_vgui(".x%lx.c create text %d %d -anchor nw -fill %s -text {%s}", (long)canvas_getcanvas(canvas), xloc, yloc, colorstring, buf); ! sys_vgui(" -font "FONT, 42 /*sys_hostfontsize(canvas_getfont(canvas))*/); sys_vgui(" -tags drawnumber%lx\n", (long)data); } else sys_vgui(".x%lx.c delete drawnumber%lx\n", (long)canvas_getcanvas(canvas), (long)data); --- 4780,4784 ---- sys_vgui(".x%lx.c create text %d %d -anchor nw -fill %s -text {%s}", (long)canvas_getcanvas(canvas), xloc, yloc, colorstring, buf); ! sys_vgui(" -font {Courier 42}"/*sys_hostfontsize(canvas_getfont(canvas))*/); sys_vgui(" -tags drawnumber%lx\n", (long)data); } else sys_vgui(".x%lx.c delete drawnumber%lx\n", (long)canvas_getcanvas(canvas), (long)data); *************** *** 4855,4859 **** } else { /* key entry for a numeric field. This is just a stopgap. */ - float newf; if (dn.firstkey) sbuf[0] = 0; else sprintf(sbuf, "%g", template_getfloat(dn.t, f->varsym, dn.wp, 1)); --- 4840,4843 ---- *************** *** 4865,4868 **** --- 4849,4853 ---- sbuf[strlen(sbuf)] = key; } + float newf; if (sscanf(sbuf, "%g", &newf) < 1) newf = 0; template_setfloat(dn.t, f->varsym, dn.wp, newf, 1); *************** *** 5024,5028 **** static void ptrobj_vnext(t_ptrobj *x, float f) { - t_gobj *gobj; t_gpointer *gp = &x->gp; int wantselected = f!=0; --- 5009,5012 ---- *************** *** 5031,5037 **** t_canvas *canvas = gp->canvas; if (wantselected) {pd_error(x, "next: next-selected unsupported in desiredata"); return;} ! /* if (wantselected && !canvas_isvisible(canvas)) ! {pd_error(x, "next: next-selected only works for a visible window"); return;} */ ! gobj = gp->scalar; if (!gobj) gobj = canvas->list; else gobj = gobj->g_next; --- 5015,5020 ---- t_canvas *canvas = gp->canvas; if (wantselected) {pd_error(x, "next: next-selected unsupported in desiredata"); return;} ! /* if (wantselected && !canvas_isvisible(canvas)) {pd_error(x, "next: next-selected only works for a visible window"); return;} */ ! t_gobj *gobj = gp->scalar; if (!gobj) gobj = canvas->list; else gobj = gobj->g_next;

1 0

pd/src desire.tk,1.1.2.600.2.212,1.1.2.600.2.213
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23728 Modified Files: Tag: desiredata desire.tk Log Message: cleanup; fix for def ServerPreferences apply. Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.212 retrieving revision 1.1.2.600.2.213 diff -C2 -d -r1.1.2.600.2.212 -r1.1.2.600.2.213 *** desire.tk 10 Jul 2007 16:55:40 -0000 1.1.2.600.2.212 --- desire.tk 10 Jul 2007 23:32:26 -0000 1.1.2.600.2.213 *************** *** 792,795 **** --- 792,796 ---- regexp {\d\d\d\d/\d\d/\d\d} $::cvsid version regsub -all "/" $version "." version + set ::pd_version_client $version post "DesireData client version $version with Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel } *************** *** 1819,1825 **** } ! def Canvas find_last_error {} { ! netsend [list pd finderror] ! } def Canvas bind {eventtype selector args} { --- 1820,1824 ---- } ! def Canvas find_last_error {} {netsend [list pd finderror]} def Canvas bind {eventtype selector args} { *************** *** 2069,2099 **** def Canvas new_menubar {} { set name .$self - global pd_opendir cmdline key accels set m $name.m menu $m #removed Paths after send_message foreach x {file edit find view put window help} {menu $m.$x -tearoff $::pd_tearoff} ! $self populate_menu file { ! new_file open_file {} ! send_message {} ! close save save_as print {} ! quit} ! $self populate_menu edit { ! undo redo {} ! cut copy paste duplicate select_all subpatcherize {} ! text_editor tidy_up {}} ! $self populate_menu find { ! find find_again find_last_error} ! $self populate_menu view { ! reload redraw} ! $self populate_menu put { ! Object Message Number Symbol Comment {} ! bng tgl nbx vsl hsl vradio hradio vu dropper cnv {} ! Graph Array} $self populate_menu window {{}} ! $m.edit add checkbutton -label [say edit_mode] \ ! -selectcolor grey0 -command "$self editmode 0" \ ! -accelerator [accel_munge "Ctrl+e"] -indicatoron 1 \ ! -variable @editmode -onvalue 1 -offvalue 0 $m.edit configure -postcommand "$self fix_edit_menu" $m.window configure -postcommand "$self fix_window_menu" --- 2068,2083 ---- def Canvas new_menubar {} { set name .$self set m $name.m menu $m #removed Paths after send_message foreach x {file edit find view put window help} {menu $m.$x -tearoff $::pd_tearoff} ! $self populate_menu file {new_file open_file {} send_message {} close save save_as print {} quit} ! $self populate_menu edit {undo redo {} cut copy paste duplicate select_all subpatcherize {} text_editor tidy_up {}} ! $self populate_menu find {find find_again find_last_error} ! $self populate_menu view {reload redraw} ! $self populate_menu put {Object Message Number Symbol Comment {} bng tgl nbx vsl hsl vradio hradio vu dropper cnv {} Graph Array} $self populate_menu window {{}} ! $m.edit add checkbutton -label [say edit_mode] -selectcolor grey0 -command "$self editmode 0" \ ! -accelerator [accel_munge "Ctrl+e"] -indicatoron 1 -variable @editmode -onvalue 1 -offvalue 0 $m.edit configure -postcommand "$self fix_edit_menu" $m.window configure -postcommand "$self fix_window_menu" *************** *** 2617,2625 **** def View position= {xy1} {mset [list @x1 @y1] $xy1; $self changed x1 y1} ! ! def View set_orig_xy {x y} { ! set @orig_x $x ! set @orig_y $y ! } def Canvas motion_wrap {x y f} { --- 2601,2605 ---- def View position= {xy1} {mset [list @x1 @y1] $xy1; $self changed x1 y1} ! def View set_orig_xy {x y} {set @orig_x $x; set @orig_y $y} def Canvas motion_wrap {x y f} { *************** *** 2627,2632 **** set x [expr [$c canvasx $x]/$@zoom] set y [expr [$c canvasy $y]/$@zoom] ! set target [$self identify_target $x $y $f] ! $self motion $x $y $f $target } def Canvas click_wrap {x y b f} { --- 2607,2611 ---- set x [expr [$c canvasx $x]/$@zoom] set y [expr [$c canvasy $y]/$@zoom] ! $self motion $x $y $f [$self identify_target $x $y $f] } def Canvas click_wrap {x y b f} { *************** *** 2635,2640 **** set y [expr [$c canvasy $y]/$@zoom] set f [expr 1<<($b+7)|$f] ! set target [$self identify_target $x $y $f] ! $self click $x $y $f $target } def Canvas unclick_wrap {x y b f} { --- 2614,2618 ---- set y [expr [$c canvasy $y]/$@zoom] set f [expr 1<<($b+7)|$f] ! $self click $x $y $f [$self identify_target $x $y $f] } def Canvas unclick_wrap {x y b f} { *************** *** 2643,2648 **** set y [expr [$c canvasy $y]/$@zoom] set f [expr 1<<($b+7)|$f] ! set target [$self identify_target $x $y $f] ! $self unclick $x $y $f $target } def Canvas key_wrap {x y key iso shift} { --- 2621,2625 ---- set y [expr [$c canvasy $y]/$@zoom] set f [expr 1<<($b+7)|$f] ! $self unclick $x $y $f [$self identify_target $x $y $f] } def Canvas key_wrap {x y key iso shift} { *************** *** 5827,5831 **** set fill [color_* [$self look bg] $colour] set x3 [expr $x1+$t+2]; set y3 [expr $y1+$t+2] ! set x4 [expr $x2-$t-2]; set y4 [expr $y2-$t-2] if {$@on} { set fill [parse_color $@fcol] --- 5804,5808 ---- set fill [color_* [$self look bg] $colour] set x3 [expr $x1+$t+2]; set y3 [expr $y1+$t+2] ! set x4 [expr $x2-$t-2]; set y4 [expr $y2-$t-2] if {$@on} { set fill [parse_color $@fcol] *************** *** 5982,5986 **** def Array draw {} { - global font $self draw_name mset {x_off y_off} [$@canvas xy] --- 5959,5962 ---- *************** *** 6034,6053 **** def Array click {x y f target} { ! if {[winfo exists [$@canvas widget]]} { ! $@canvas focus= $self ! } else { ! set canvas [$@canvas canvas] ! $canvas focus= $self ! } set @draw 1 } def Array unclick {x y f target} { ! if {[winfo exists [$@canvas widget]]} { ! $@canvas focus= "" ! } else { ! set canvas [$@canvas canvas] ! $canvas focus= "" ! } ! set @draw 0 } --- 6010,6020 ---- def Array click {x y f target} { ! if {[winfo exists [$@canvas widget]]} {set canvas $@canvas} else {set canvas [$@canvas canvas]} ! $canvas focus= $self set @draw 1 } def Array unclick {x y f target} { ! if {[winfo exists [$@canvas widget]]} {set canvas $@canvas} else {set canvas [$@canvas canvas]} ! $canvas focus= "" set @draw 0 } *************** *** 6091,6095 **** def Listener init {serf name command} { - global look set @hist {} set @histi 0 --- 6058,6061 ---- *************** *** 6101,6106 **** pack [frame $serf.1.1] -side bottom pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left ! pack [label $serf.1.1.label -width 11 -text "$name: " -font $look(View:font)] -side left ! pack [entry $serf.entry -width 40 -font $look(View:font)] -side left -fill x -expand yes pack $serf -fill x -expand no bind $serf.entry <Up> "$self up" --- 6067,6072 ---- pack [frame $serf.1.1] -side bottom pack [button $serf.1.1.expander -image icon_plus -command "$self toggle_expand"] -side left ! pack [label $serf.1.1.label -width 11 -text "$name: " -font $::look(View:font)] -side left ! pack [entry $serf.entry -width 40 -font $::look(View:font)] -side left -fill x -expand yes pack $serf -fill x -expand no bind $serf.entry <Up> "$self up" *************** *** 6193,6203 **** if {$tk} { set dir $cmdline(icons) ! foreach icon {mode_edit mode_run pd} { ! image create photo icon_$icon -file $dir/$icon.gif ! } ! foreach b $butt { ! mset {icon name cmd} $b ! image create photo icon_$icon -file $dir/$icon.gif ! } } --- 6159,6164 ---- if {$tk} { set dir $cmdline(icons) ! foreach icon {mode_edit mode_run pd} {image create photo icon_$icon -file $dir/$icon.gif} ! foreach b $butt {mset {icon name cmd} $b; image create photo icon_$icon -file $dir/$icon.gif} } *************** *** 6205,6214 **** def ButtonBar init {canvas} { - global butt set @canvas $canvas set bb .$(a)canvas.bbar frame $bb pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left ! foreach e $butt { mset {icon name cmd} $e pack [button $bb._$name -image icon_$icon -border 1 -command "$@canvas new_object $cmd"] -side left --- 6166,6174 ---- def ButtonBar init {canvas} { set @canvas $canvas set bb .$(a)canvas.bbar frame $bb pack [button $bb.edit -image icon_mode_edit -border 1 -command "$@canvas editmodeswitch"] -side left ! foreach e $::butt { mset {icon name cmd} $e pack [button $bb._$name -image icon_$icon -border 1 -command "$@canvas new_object $cmd"] -side left *************** *** 6268,6272 **** set x2 [expr $x1+$width-14] set y2 [expr $height+$y1-14] - set h1 [list $x1 $y $x2 $y] set v1 [list $x $y1 $x $y2] --- 6228,6231 ---- *************** *** 6367,6371 **** bind $@textbox <Control-Return> "$@textself key_input %W %x %y 10 %A 0" bind $@textbox <Return> "$@textself unedit" ! bind $@textbox <Tab> "$@textself key_input %W %x %y %K %A 0" focus $@textbox; $self delete } --- 6326,6330 ---- bind $@textbox <Control-Return> "$@textself key_input %W %x %y 10 %A 0" bind $@textbox <Return> "$@textself unedit" ! bind $@textbox <Tab> "$@textself key_input %W %x %y %K %A 0" focus $@textbox; $self delete } *************** *** 6394,6398 **** } } ! set none " no matches " if {![$@listbox size]} {$@listbox insert 0 $none; set @width [string length $none]} $@listbox selection set 0 0 --- 6353,6357 ---- } } ! set none [say no_matches] if {![$@listbox size]} {$@listbox insert 0 $none; set @width [string length $none]} $@listbox selection set 0 0 *************** *** 6405,6411 **** def Browser fill_box {s} { - global class_list super $s ! .$self.title configure -text [format [say how_many_object_classes] [$@listbox size] [llength $class_list]] } --- 6364,6369 ---- def Browser fill_box {s} { super $s ! .$self.title configure -text [format [say how_many_object_classes] [$@listbox size] [llength $::class_list]] } *************** *** 7112,7119 **** } ! def Dialog ok {} { ! if {$self == "pdrc"} {$self write} else {$self apply} ! $self cancel ! } def Dialog cancel {} {if {[info exists @nbs]} {foreach x $@nbs {$x delete}}; $self delete} def Dialog close {} {$self delete} --- 7070,7074 ---- } ! def Dialog ok {} {$self apply; $self cancel} def Dialog cancel {} {if {[info exists @nbs]} {foreach x $@nbs {$x delete}}; $self delete} def Dialog close {} {$self delete} *************** *** 7151,7155 **** } - def Dialog dropmenu_open {frame} { set x [winfo rootx $frame.butt] --- 7106,7109 ---- *************** *** 7280,7283 **** --- 7234,7238 ---- #pd pd audio-dialog $audio_props netsend [list "pd" "audio-dialog" $audio_props] + $self write } *************** *** 7383,7390 **** def ServerPrefsDialog write {} { ! global pdrc_options pdrc_options_h cmdline ! set fd [open $cmdline(rcfilename) w] #set fd stdout; puts "WOULD SAVE:" ! foreach {type names} $pdrc_options { set name [lindex [split [lindex $names 0] "|"] 0] if {[info exists _($self:$name)]} {set v $_($self:$name)} ;# bug in objective.tcl ? --- 7338,7344 ---- def ServerPrefsDialog write {} { ! set fd [open $::cmdline(rcfilename) w] #set fd stdout; puts "WOULD SAVE:" ! foreach {type names} $::pdrc_options { set name [lindex [split [lindex $names 0] "|"] 0] if {[info exists _($self:$name)]} {set v $_($self:$name)} ;# bug in objective.tcl ? *************** *** 7592,7598 **** def ClientPrefsDialog write {} { ! global cmdline look key $self get_val ! set fd [open $cmdline(ddrcfilename) w] foreach category {look key} { set class_list {} --- 7546,7552 ---- def ClientPrefsDialog write {} { ! global look key $self get_val ! set fd [open $::cmdline(ddrcfilename) w] foreach category {look key} { set class_list {} *************** *** 7815,7822 **** super close wm title .$self "About DesireData" ! pack [label .$self.title -text $::pd_version -font {helvetica 24}] -side top ! pack [label .$self.date -text "released on 2006.12.??"] -side top ! pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 ! ] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars --- 7769,7774 ---- super close wm title .$self "About DesireData" ! pack [label .$self.title -text $::pd_version -font {helvetica 18}] -side top ! pack [text .$self.text -yscrollcommand ".$self.scroll set" -width 72 -height 36] -side left -fill both -expand yes pack [scrollbar .$self.scroll -command ".$self.text yview"] -side right -fill y -expand yes #12345678901234567890123456789012345678901234567890123456789012345678901 <- 72 chars *************** *** 7855,7860 **** The Pd mailing list archive at http://lists.puredata.info/pipermail/pd-list/ ! (insert here: link to \"reference documentation for Pd\", that is, ! chapter 1)" # this looks bad on OSX, iirc --- 7807,7811 ---- The Pd mailing list archive at http://lists.puredata.info/pipermail/pd-list/ ! (insert here: link to \"reference documentation for Pd\", that is, chapter 1)" # this looks bad on OSX, iirc

1 0

pd/src TODO,1.1.2.28.2.42,1.1.2.28.2.43
by Mathieu Bouchard 11 Jul '07

11 Jul '07

Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10189 Modified Files: Tag: desiredata TODO Log Message: . Index: TODO =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/TODO,v retrieving revision 1.1.2.28.2.42 retrieving revision 1.1.2.28.2.43 diff -C2 -d -r1.1.2.28.2.42 -r1.1.2.28.2.43 *** TODO 10 Jul 2007 20:15:21 -0000 1.1.2.28.2.42 --- TODO 10 Jul 2007 22:55:53 -0000 1.1.2.28.2.43 *************** *** 4,7 **** --- 4,8 ---- removed this line from ChangeLog (not ready): + [ ] figure out how to keep [pd] subscribed even when closed. [ ] [parse], [unparse] [ ] new parser for string support *************** *** 11,16 **** [ ] -> serial got send too early with "#N with_reply 0 canvas 0 0 450 300 sub 0" [ ] new way to do View get_canvas - [ ] s_audio_dummy.c (with loopback) - [ ] s_midi_dummy.c (with loopback) [ ] too much duplication of inlets vs outlets [ ] too much duplication of adc vs dac (see s_audio.c) --- 12,15 ---- *************** *** 35,39 **** [ ] server don't send delete message back after client sending "object_delete" (http://pastebin.ca/318343) [ ] serial got sent too early when creating [pd] with push & #N canvas (http://pastebin.ca/318318) - [ ] switch iemguis to using only t_atoms [ ] Slider returns wrong value if range is not defualt. ie 0-1 [ ] GOP problems are back due to recent changes in canvas_map and canvas_vis --- 34,37 ---- *************** *** 164,173 **** [ ] prospect ! [ ] ! iirc, bang~ registers a timer callback. the problem is that the timer ! callbacks are only executed every dac block, which is 64 samples. ! so running bang~ in subpatch with less than 64 samples, bang~ sets the ! samer timer several times, but it's only executed once ... ! [ ] if you are reconsidering properties panels, I strongly encourage all y'all to make them Pd patches. --- 162,168 ---- [ ] prospect ! [ ] iirc, bang~ registers a timer callback. the problem is that the timer callbacks are only executed every dac block, ! which is 64 samples. so running bang~ in subpatch with less than 64 samples, bang~ sets the same timer several times, ! but it's only executed once. [ ] if you are reconsidering properties panels, I strongly encourage all y'all to make them Pd patches. *************** *** 180,187 **** Iohannes said about redirecting stdout/stderr: ! #!/bin/sh ! pd -verbose -stderr 2>&1 | while read line ! do echo "${line};" | pdsend 6666 localhost udp ! done ---------------------------------------------------------------- 0.41.B or LATER --- 175,179 ---- Iohannes said about redirecting stdout/stderr: ! pd -verbose -stderr 2>&1 | while read line; do echo "${line};" | pdsend 6666 localhost udp; done ---------------------------------------------------------------- 0.41.B or LATER *************** *** 225,229 **** [ ] OSX Shark [ ] http://www.drugphish.ch/~jonny/cca.html - [ ] i say we should install lxr on artengine. [ ] do we move the trac to artengine or not? [ ] remember that it's possible to use break in a bind-handler, to completely override system's behaviour. --- 217,220 ---- *************** *** 250,255 **** [ ] pdrc_options radio don't load/save [ ] <MiS> sys_vgui: buffer overflow - [x] <MiS> matju: may I request a little cosmetic fix. In the "Open" dialog window, I have always found it - annoying that all dot directories show up. I'd prefer this to be an option so that I get to scroll less... [ ] patch window may open off-screen (all branches) [ ] patch window may open too big (all branches, osx) --- 241,244 ---- *************** *** 261,265 **** [ ] floats have problems in comments [ ] newlines have problems in comments, msgboxes, objectboxes. - [ ] make better C<->Tcl layer (to allow \{ \} \\ spaces newlines etc) [ ] inlet inspector to show what are the message types expected by an inlet that could read like "int: set left operand; bang: do it" --- 250,253 ---- *************** *** 313,316 **** --- 301,305 ---- [ ] make windows not get auto-resized to the width of the toolbar, so that people can have tiny windows. [ ] <Dossy> fconfigure -encoding binary ... + [ ] implement the stuff that is in iostreams.txt [ ] Luke Iannini suggests some OSX bindings: *************** *** 377,446 **** jp: nihongo [_] [_] [_] [_|_] [_|_|_] ... Kentaro Fukuchi tu: türkçe [_] [_] [_] [_|_] [_|_|_] ... Koray Tahiroglu ! sv: svenska [_] [_] [_] [_|_] [_|_|_] ... Daniel Skoglund ! eu: euskara [_] [_] [_] [_|_] [_|_|_] ... Enrike Hurtado (?) br: brasiliano [_] [_] [_] [_|_] [_|_|_] ... Gabriel Menotti ------------------8<--------cut-here--------8<------------------ - Dec 26 2005 - - 1.1. a OutByteStream object is one that accepts those messages on inlet 0: - * float: seen as a byte (0..255) - * list of floats: seen as a sequence of float messages. - * symbol: seen as a \0-terminated string. - * bang: forces buffer-flushing if there's a buffer. - - 1.2. a OutByteStream object may also optionally respond to string - messages, in my dreams. However, in the meanwhile, it may be more - appropriate to use a new special C function that accepts a pair of - int and const char * (\0 is not honored: the int specifies the size). - This is so that there is no speed disincentive to switch to decoupled - I/O objects. - - 2.1. an InByteStream object is one that accepts those messages on inlet 0: - * bang: polls for more input (unlimited size). - * float: treated as int. polls for at most N bytes. - * auto 0: requires bang for getting more input. - * auto 1: uses a t_clock (hidden [metro]) for auto-polling. - - 2.2. an InByteStream may produce those messages: - * float: seen as a byte (0..255) - * list of floats: seen as a sequence of float messages. - - and when in "auto 0" mode, it will only send it when receiving a bang or - float. - - 2.2. an InByteStream object may also optionally produce string - messages, in my dreams, etc. What would the C function(s) look like - in this case? - - 3. an IOByteStream object is just an InByteStream object and an - OutByteStream object at the same time. There is no conflict between the - two. - - 4. there would be object classes called [tcp] and [udp] which would be - InputOutputStream objects (supporting in, out and bidi connections). - They would also respond to "connect" and "disconnect" (or maybe "open" - and "close" instead) and also "listen" for enabling server mode. - - 5. there would be an object class called [fudiin] which would be an - OutByteStream and [fudiout] which would be an InByteStream. Thus, to get a - bidirectional [netsend] [netreceive], use this triad: - - | - [fudiout] - | - [tcp] - | - [fudiin] - | - - Leaving out the first or the last object gives you [netsend] and - [netreceive] respectively. - - 6. a [tcp]<->[fudiin] pair can replace the server-side of the GUI - connection as long as the [tcp] object supports char* input as - suggested in part 1.2. (if the rest of this proposal is not - implemented, then use a slightly modified [netreceive] instead) - ------------------8<--------cut-here--------8<------------------ Dec 18 2006 --- 366,374 ---- jp: nihongo [_] [_] [_] [_|_] [_|_|_] ... Kentaro Fukuchi tu: türkçe [_] [_] [_] [_|_] [_|_|_] ... Koray Tahiroglu ! sv: svenska [_] [_] [_] [_|_] [_|_|_] ... Daniel Skoglund (NOT FOUND) ! eu: euskara [x] [x] [x] [x|*] [x|x|x] ... Enrike Hurtado br: brasiliano [_] [_] [_] [_|_] [_|_|_] ... Gabriel Menotti ------------------8<--------cut-here--------8<------------------ Dec 18 2006 *************** *** 476,525 **** 3. times (tclx) - 1240774 ::StatusBar_init - 1308113 ::Menuable_init - 1368588 ::StatusBar_new - 1407356 ::StatusBar - 1477726 ::View_outside_of_the_box - 1533613 ::Canvas_init - 1572148 ::View_init - 1659824 ::Canvas_new_as - 1702767 ::tk::MenuDup - 1710723 ::Canvas - 1833115 ::View_position= - 1995896 ::Wire_init - 2301183 ::ButtonBar_init - 2437950 ::ButtonBar_new - 2478441 ::ButtonBar - 2567375 ::Box_init - 2678985 ::Canvas_bind - 2782587 ::Wire_new_as - 3022537 ::Wire - 3131866 ::Menuable_populate_menu - 3217572 ::ObjectBox_init - 3288002 ::View_draw_maybe - 3447790 ::ObjectBox_new_as - 3657314 ::ObjectBox - 3729210 ::TextBox_init - 4556624 ::Canvas_new_binds - 4704795 ::Manager_call - 8509571 ::Manager_notice - 9344595 ::Canvas_new_menubar - 12218292 ::Wire_canvas= - 19712419 ::Canvas_init_window - 20043022 ::Canvas_reinit - 25241247 ::View_canvas= - 33783024 ::change_2 - 35595673 ::Observable_changed - 59245396 ::Observable_child_changed - 67329776 ::Canvas_notice - 76355783 ::change - 112779492 ::poll_sock - - <ijchain> <mjanssen> matju for roll your own, recording the output of an adaptation of: <ijchain> <mjanssen> bind $w $b +[list puts "Event $b on $w. %%'s %# %a ... other substitutions here"] ! <matju> is there a wrapper for libagg for tcl? ! <matju> AGG of antigrain.com <ijchain> <kbk> don't know of one, but SWIG, Critcl, or ffidl might plug the gap --- 404,411 ---- 3. times (tclx) <ijchain> <mjanssen> matju for roll your own, recording the output of an adaptation of: <ijchain> <mjanssen> bind $w $b +[list puts "Event $b on $w. %%'s %# %a ... other substitutions here"] ! <matju> is there a wrapper for libagg for tcl? AGG of antigrain.com <ijchain> <kbk> don't know of one, but SWIG, Critcl, or ffidl might plug the gap

1 0

← Newer
1
...
43
44
45
46
47
48
49
...
63
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 2007