From 3382e067199abb3bb8fcb2044711910640a459c1 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sun, 20 Nov 2005 05:02:10 +0000 Subject: renamed files so that they will work well in the Help browser svn path=/trunk/; revision=3988 --- doc/additional/pd-msg/3.pdscript/README | 21 ------------- doc/additional/pd-msg/3.pdscript/README.txt | 21 +++++++++++++ .../pd-msg/4.msg_from_tcl/0.create_dummy_patch | 18 ----------- .../pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk | 18 +++++++++++ doc/additional/pd-msg/4.msg_from_tcl/2.nogui | 35 ---------------------- doc/additional/pd-msg/4.msg_from_tcl/2.nogui.tk | 35 ++++++++++++++++++++++ 6 files changed, 74 insertions(+), 74 deletions(-) delete mode 100755 doc/additional/pd-msg/3.pdscript/README create mode 100644 doc/additional/pd-msg/3.pdscript/README.txt delete mode 100755 doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch create mode 100755 doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk delete mode 100755 doc/additional/pd-msg/4.msg_from_tcl/2.nogui create mode 100755 doc/additional/pd-msg/4.msg_from_tcl/2.nogui.tk (limited to 'doc/additional/pd-msg') diff --git a/doc/additional/pd-msg/3.pdscript/README b/doc/additional/pd-msg/3.pdscript/README deleted file mode 100755 index f5831b48..00000000 --- a/doc/additional/pd-msg/3.pdscript/README +++ /dev/null @@ -1,21 +0,0 @@ -This is a short example how to "script" a Pd patch with pd commands. -You will need to have 'pdsend' installed, which is a command line -tool for sending messages to Pd. There is one included in this -directory which might work for you. - -First start Pd with the patch "lispg.pd". It has a [netreceive 3005] -object in it which allows the patch to receive messages on port 3005. - -# pd -open lisp.pd - -Then either start the automated shell script: - -# sh ./test.sh - -or pipe the Pd commands to 'pdsend' directly: - -# pdsend 3005 < test.txt - -Read through test.txt for further explanations. - -Guenter diff --git a/doc/additional/pd-msg/3.pdscript/README.txt b/doc/additional/pd-msg/3.pdscript/README.txt new file mode 100644 index 00000000..f5831b48 --- /dev/null +++ b/doc/additional/pd-msg/3.pdscript/README.txt @@ -0,0 +1,21 @@ +This is a short example how to "script" a Pd patch with pd commands. +You will need to have 'pdsend' installed, which is a command line +tool for sending messages to Pd. There is one included in this +directory which might work for you. + +First start Pd with the patch "lispg.pd". It has a [netreceive 3005] +object in it which allows the patch to receive messages on port 3005. + +# pd -open lisp.pd + +Then either start the automated shell script: + +# sh ./test.sh + +or pipe the Pd commands to 'pdsend' directly: + +# pdsend 3005 < test.txt + +Read through test.txt for further explanations. + +Guenter diff --git a/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch b/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch deleted file mode 100755 index 030d0687..00000000 --- a/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/wish -f - -#damien HENRY le 2001 07 14 - -puts "***********************************************" -puts "* This will create a patch in pure-data *" -puts "* be sure that the recv.pd file is loadded *" -puts "***********************************************" - -set to_pd [socket localhost 3006] - -puts $to_pd "pd-recv.pd obj 10 10 pd new_patch;" -puts $to_pd "pd-new_patch msg 10 10 bang;" -puts $to_pd "pd-new_patch msg 10 30 message;" -puts $to_pd "pd-new_patch connect 0 0 1 0;" - -exit - diff --git a/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk b/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk new file mode 100755 index 00000000..030d0687 --- /dev/null +++ b/doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk @@ -0,0 +1,18 @@ +#!/usr/bin/wish -f + +#damien HENRY le 2001 07 14 + +puts "***********************************************" +puts "* This will create a patch in pure-data *" +puts "* be sure that the recv.pd file is loadded *" +puts "***********************************************" + +set to_pd [socket localhost 3006] + +puts $to_pd "pd-recv.pd obj 10 10 pd new_patch;" +puts $to_pd "pd-new_patch msg 10 10 bang;" +puts $to_pd "pd-new_patch msg 10 30 message;" +puts $to_pd "pd-new_patch connect 0 0 1 0;" + +exit + diff --git a/doc/additional/pd-msg/4.msg_from_tcl/2.nogui b/doc/additional/pd-msg/4.msg_from_tcl/2.nogui deleted file mode 100755 index 7911e4b5..00000000 --- a/doc/additional/pd-msg/4.msg_from_tcl/2.nogui +++ /dev/null @@ -1,35 +0,0 @@ -#!/usr/bin/wish -f - -#Here a small exemple that show a way to use the -nogui option. -#damien HENRY -#dh20010730 - -puts "*********************" -puts "* pd -nogui example *" -puts "* (c) Damien HENRY *" -puts "* This is GPL... *" -puts "*********************" -puts "" -puts "WARNING : you need to run pd -open recv.pd -nogui first" - -#definition of the procedure that send msg to pd -proc pd_send {string2send} { - set to_pd [socket localhost 3006] - puts $to_pd "$string2send;" - .lmsg configure -text "$string2send;" - close $to_pd -} - -#create the gui -wm title . "a simple tcl/tk gui to open pd-patch" -label .l1 -text "open : patch & path" -entry .pd_patch -textvariable pd_patch -width 23 -entry .pd_path -textvariable pd_path -width 23 -button .bload -text Load -width 20 -command {pd_send "pd open $pd_patch $pd_path" } -button .bclose -text close -width 20 -command {pd_send "pd-$pd_patch menuclose" } -button .bdspon -text "dsp on" -width 20 -command {pd_send "pd dsp 1" } -button .bdspoff -text "dsp off" -width 20 -command {pd_send "pd dsp 0" } -label .lmsg -button .bq -text "quit" -width 20 -command {exit} - -pack .l1 .pd_patch .pd_path .bload .bclose .bdspon .bdspoff .lmsg .bq \ No newline at end of file diff --git a/doc/additional/pd-msg/4.msg_from_tcl/2.nogui.tk b/doc/additional/pd-msg/4.msg_from_tcl/2.nogui.tk new file mode 100755 index 00000000..7911e4b5 --- /dev/null +++ b/doc/additional/pd-msg/4.msg_from_tcl/2.nogui.tk @@ -0,0 +1,35 @@ +#!/usr/bin/wish -f + +#Here a small exemple that show a way to use the -nogui option. +#damien HENRY +#dh20010730 + +puts "*********************" +puts "* pd -nogui example *" +puts "* (c) Damien HENRY *" +puts "* This is GPL... *" +puts "*********************" +puts "" +puts "WARNING : you need to run pd -open recv.pd -nogui first" + +#definition of the procedure that send msg to pd +proc pd_send {string2send} { + set to_pd [socket localhost 3006] + puts $to_pd "$string2send;" + .lmsg configure -text "$string2send;" + close $to_pd +} + +#create the gui +wm title . "a simple tcl/tk gui to open pd-patch" +label .l1 -text "open : patch & path" +entry .pd_patch -textvariable pd_patch -width 23 +entry .pd_path -textvariable pd_path -width 23 +button .bload -text Load -width 20 -command {pd_send "pd open $pd_patch $pd_path" } +button .bclose -text close -width 20 -command {pd_send "pd-$pd_patch menuclose" } +button .bdspon -text "dsp on" -width 20 -command {pd_send "pd dsp 1" } +button .bdspoff -text "dsp off" -width 20 -command {pd_send "pd dsp 0" } +label .lmsg +button .bq -text "quit" -width 20 -command {exit} + +pack .l1 .pd_patch .pd_path .bload .bclose .bdspon .bdspoff .lmsg .bq \ No newline at end of file -- cgit v1.2.1