diff options
| author | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-23 12:07:22 +0000 |
|---|---|---|
| committer | N.N. <krzyszcz@users.sourceforge.net> | 2004-03-23 12:07:22 +0000 |
| commit | 6f0f6fb5c0fe8ab2548c84a65fb6d1ee9363e317 (patch) | |
| tree | 0ea5f55c75f0d3c7149dea0a0b6c87a0665d0a3c /test | |
| parent | 88b4da18ab484ea55f4a58174bf0ccebe0088f24 (diff) | |
toxy alpha9
svn path=/trunk/externals/miXed/; revision=1470
Diffstat (limited to 'test')
| -rw-r--r-- | test/toxy/kb.wid | 2 | ||||
| -rw-r--r-- | test/toxy/setup.wid | 3 | ||||
| -rw-r--r-- | test/toxy/tot-query.pd | 29 |
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; |