diff options
author | N.N. <krzyszcz@users.sourceforge.net> | 2003-09-24 10:46:19 +0000 |
---|---|---|
committer | N.N. <krzyszcz@users.sourceforge.net> | 2003-09-24 10:46:19 +0000 |
commit | 9680b47879dfc58f884208f7abf2f945b3b41d25 (patch) | |
tree | 93eda19deb61daff60c533a3bbd1efe79e9cdc9b /test/toxy/tot-query.pd | |
parent | edab184352cd14788a37c76dce147ac19f7464b4 (diff) |
adding toxy project
svn path=/trunk/externals/miXed/; revision=1024
Diffstat (limited to 'test/toxy/tot-query.pd')
-rw-r--r-- | test/toxy/tot-query.pd | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/test/toxy/tot-query.pd b/test/toxy/tot-query.pd new file mode 100644 index 0000000..d646f78 --- /dev/null +++ b/test/toxy/tot-query.pd @@ -0,0 +1,62 @@ +#N canvas 421 109 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; +#X msg 186 8 symbol conehead; +#X obj 67 174 sel 1; +#X obj 128 238 sel 0; +#X obj 128 339 print error; +#X obj 199 238 metro 150; +#X msg 128 311 open it first...; +#X msg 54 124 tot global ch .: set ch [open ~/PureData/miXed/test/toxy/tot-query.pd +r]; +#X msg 75 435 query concat set [lsort -decreasing [glob *]]; +#X msg 37 90 reset \, addnext set x -1 .: concat set [expr acos($x)] +\, 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; +#X msg 35 73 query .^.c bbox foo; +#X obj 19 280 print reply; +#X msg 84 152 query winfo id .^.c; +#X msg 84 231 query winfo pathname \$1; +#X msg 19 26 tot .^.c create text 400 100 -width 80 -font "times 24" +-anchor nw -text "abcd efgh ijkl mnop" -tags foo; +#X msg 48 104 tot .^.c delete foo; +#X obj 19 231 tot .; +#X obj 84 191 tot .; +#X connect 0 0 6 0; +#X connect 2 0 7 0; +#X connect 3 0 6 0; +#X connect 4 0 6 0; +#X connect 5 0 6 0; +#X connect 6 0 1 0; +#X connect 7 0 3 0; +#X restore 576 174 pd more; +#X obj 21 468 tot .; +#X obj 67 238 tot .; +#X msg 67 202 tot eval .< [global ch .: info exists 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 1 6 0; +#X connect 4 0 7 0; +#X connect 4 1 6 0; +#X connect 6 0 13 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; |