aboutsummaryrefslogtreecommitdiff
path: root/test/toxy
diff options
context:
space:
mode:
authorN.N. <krzyszcz@users.sourceforge.net>2004-03-23 12:07:22 +0000
committerN.N. <krzyszcz@users.sourceforge.net>2004-03-23 12:07:22 +0000
commit6f0f6fb5c0fe8ab2548c84a65fb6d1ee9363e317 (patch)
tree0ea5f55c75f0d3c7149dea0a0b6c87a0665d0a3c /test/toxy
parent88b4da18ab484ea55f4a58174bf0ccebe0088f24 (diff)
toxy alpha9
svn path=/trunk/externals/miXed/; revision=1470
Diffstat (limited to 'test/toxy')
-rw-r--r--test/toxy/kb.wid2
-rw-r--r--test/toxy/setup.wid3
-rw-r--r--test/toxy/tot-query.pd29
3 files changed, 17 insertions, 17 deletions
diff --git a/test/toxy/kb.wid b/test/toxy/kb.wid
index bfba5ac..8a081d7 100644
--- a/test/toxy/kb.wid
+++ b/test/toxy/kb.wid
@@ -1,4 +1,6 @@
proc ::toxy::kb {path target remote noctaves size} {
+# guard against BadAlloc crashes
+ if {$size > 10} {set size 10}
set lft [expr {round(5 * $size)}]
set top [expr {round(5 * $size)}]
set bot [expr {round(100 * $size)}]
diff --git a/test/toxy/setup.wid b/test/toxy/setup.wid
index f5aff1c..9da8775 100644
--- a/test/toxy/setup.wid
+++ b/test/toxy/setup.wid
@@ -98,8 +98,7 @@ proc ::toxy::item_visconfig {path target name varname cvpath px py} {
# FIXME explicit traces
set needtraces 0
} else {
-# set needtraces 1
- set needtraces 0
+ set needtraces 1
}
if {$needtraces != 0} {
diff --git a/test/toxy/tot-query.pd b/test/toxy/tot-query.pd
index d646f78..36286b3 100644
--- a/test/toxy/tot-query.pd
+++ b/test/toxy/tot-query.pd
@@ -1,4 +1,4 @@
-#N canvas 421 109 778 551 12;
+#N canvas 210 60 778 551 12;
#X msg 21 8 symbol pinecone;
#X obj 455 142 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
@@ -15,9 +15,6 @@ r];
\, qpush;
#X msg 21 44 tot global ans .: regsub cone \$1 apple ans \, query global
ans .: concat set $ans;
-#X msg 60 369 tot global ch .: set ch [open ~/.pdrc] \, query global
-ch .: concat set [read $ch] \, tot global ch .: close $ch .: unset
-ch;
#X msg 199 266 tot global txt ch .: set txt [gets $ch] \, query global
txt .: concat set $txt;
#N canvas 0 0 578 346 more 0;
@@ -41,22 +38,24 @@ txt .: concat set $txt;
#X obj 21 468 tot .;
#X obj 67 238 tot .;
#X msg 67 202 tot eval .< [global ch .: info exists ch] .>;
+#X msg 54 376 tot set ::ch [open ~/.pdrc] \, query concat set [read
+$::ch] \, after 0 .(tot close $::ch .: unset ::ch.);
#X msg 21 502;
#X connect 0 0 11 0;
#X connect 1 0 3 0;
#X connect 2 0 11 0;
-#X connect 3 0 17 0;
+#X connect 3 0 16 0;
#X connect 3 1 6 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
-#X connect 6 0 13 0;
+#X connect 6 0 12 0;
#X connect 7 0 5 0;
-#X connect 8 0 15 0;
-#X connect 9 0 15 0;
-#X connect 10 0 15 0;
-#X connect 11 0 15 0;
-#X connect 12 0 15 0;
-#X connect 13 0 15 0;
-#X connect 15 0 18 0;
-#X connect 16 1 4 0;
-#X connect 17 0 16 0;
+#X connect 8 0 14 0;
+#X connect 9 0 14 0;
+#X connect 10 0 14 0;
+#X connect 11 0 14 0;
+#X connect 12 0 14 0;
+#X connect 14 0 18 0;
+#X connect 15 1 4 0;
+#X connect 16 0 15 0;
+#X connect 17 0 14 0;