diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-11-20 05:02:10 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-11-20 05:02:10 +0000 |
| commit | 3382e067199abb3bb8fcb2044711910640a459c1 (patch) | |
| tree | 8a6ddc247f9a02dcee9deb93c859de6aa72f29c1 /doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk | |
| parent | 9c73539be6788c9b430b1922a8967c8359f6d7cd (diff) | |
renamed files so that they will work well in the Help browser
svn path=/trunk/; revision=3988
Diffstat (limited to 'doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk')
| -rwxr-xr-x | doc/additional/pd-msg/4.msg_from_tcl/0.create_dummy_patch.tk | 18 |
1 files changed, 18 insertions, 0 deletions
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
+
|