diff options
Diffstat (limited to 'test/toxy/tot-query.pd')
| -rw-r--r-- | test/toxy/tot-query.pd | 29 |
1 files changed, 14 insertions, 15 deletions
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; |