From 3573488ef227bd7719eae892c72784cace95ffd4 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Sat, 12 Mar 2005 00:19:13 +0000 Subject: cyclone alpha54 and toxy alpha16 (see notes.txt for cyclone, toxy and shared) svn path=/trunk/externals/miXed/; revision=2618 --- test/toxy/lbpict.wid | 4 +- test/toxy/setup.wid | 8 +- test/toxy/stress/bulkyhurd.pd | 163 ++++++++++++++++++++++++++++++++++++++++ test/toxy/stress/mstots.pd | 50 ++++++++++++ test/toxy/stress/nbulkyhurds.pd | 16 ++++ 5 files changed, 236 insertions(+), 5 deletions(-) create mode 100644 test/toxy/stress/bulkyhurd.pd create mode 100644 test/toxy/stress/mstots.pd create mode 100644 test/toxy/stress/nbulkyhurds.pd (limited to 'test/toxy') diff --git a/test/toxy/lbpict.wid b/test/toxy/lbpict.wid index d7d5771..6378f8e 100644 --- a/test/toxy/lbpict.wid +++ b/test/toxy/lbpict.wid @@ -1,5 +1,7 @@ proc ::toxy::lbpict {path fname} { - $path config -image [image create photo -file $fname] + if {[catch {$path config -image [image create photo -file $fname]} res]} { + puts stderr [concat failed ::toxy::lbpict: $res] + } } #> lbpict label diff --git a/test/toxy/setup.wid b/test/toxy/setup.wid index 1d544c9..ce498c4 100644 --- a/test/toxy/setup.wid +++ b/test/toxy/setup.wid @@ -1,4 +1,4 @@ -package provide toxywidgets 0.1.0.15 +package provide toxywidgets 0.1.0.16 # LATER keep standard widget setup in a .tcl file (transfered into a .wiq), and # glue separate .wid files with standard widget definitions into another .wiq @@ -287,6 +287,9 @@ proc ::toxy::popup {path target remote entries args} { } else { error [concat in ::toxy::popup: $err] } } +# FIXME should be part of the float widget type, but we need it for plain scales +set ::toxy::scale_isactive 1 + #> bang button #. -image ::toxy::img::empty -command .<.> #. -bg pink -activebackground red -width 50 -height 50 @@ -298,9 +301,6 @@ proc ::toxy::popup {path target remote entries args} { #. @float .- set .#1 #. @vset ::toxy::scale_doset .- .#1 -# FIXME -set ::toxy::scale_isactive 1 - #> symbol entry #. -bg pink -font .(helvetica 24.) -width 16 #. @symbol .- delete 0 end .: .- insert 0 .#1 diff --git a/test/toxy/stress/bulkyhurd.pd b/test/toxy/stress/bulkyhurd.pd new file mode 100644 index 0000000..0edda17 --- /dev/null +++ b/test/toxy/stress/bulkyhurd.pd @@ -0,0 +1,163 @@ +#N canvas 26 42 948 596 12; +#X floatatom 17 24 5 0 0 0 - - -; +#X floatatom 17 220 5 0 0 0 - - -; +#N canvas 152 43 785 527 1001-hurd 0; +#X obj 99 7 widget popup 1-p #items test -width 18; +#X obj 259 7 widget popup 2-p #items test -width 18; +#X obj 419 7 widget popup 3-p #items test -width 18; +#X obj 579 7 widget popup 4-p #items test -width 18; +#X obj 99 37 widget popup 5-p #items test; +#X obj 179 37 widget popup 6-p #items test; +#X obj 259 37 widget popup 7-p #items test; +#X obj 339 37 widget popup 8-p #items test; +#X obj 419 37 widget popup 9-p #items test; +#X obj 499 37 widget popup 10-p #items test; +#X obj 579 37 widget popup 11-p #items test; +#X obj 659 37 widget popup 12-p #items test; +#X obj 99 67 widget popup 13-p #items test; +#X obj 179 67 widget popup 14-p #items test; +#X obj 259 67 widget popup 15-p #items test; +#X obj 339 67 widget popup 16-p #items test; +#X obj 419 67 widget popup 17-p #items test; +#X obj 499 67 widget popup 18-p #items test; +#X obj 579 67 widget popup 19-p #items test; +#X obj 659 67 widget popup 20-p #items test; +#X obj 99 97 widget popup 21-p #items test; +#X obj 179 97 widget popup 22-p #items test; +#X obj 259 97 widget popup 23-p #items test; +#X obj 339 97 widget popup 24-p #items test; +#X obj 419 97 widget popup 25-p #items test; +#X obj 499 97 widget popup 26-p #items test; +#X obj 579 97 widget popup 27-p #items test; +#X obj 659 97 widget popup 28-p #items test; +#X obj 99 127 widget popup 29-p #items test; +#X obj 179 127 widget popup 30-p #items test; +#X obj 259 127 widget popup 31-p #items test; +#X obj 339 127 widget popup 32-p #items test; +#X obj 419 127 widget popup 33-p #items test; +#X obj 499 127 widget popup 34-p #items test; +#X obj 579 127 widget popup 35-p #items test; +#X obj 659 127 widget popup 36-p #items test; +#X obj 99 157 widget popup 37-p #items test; +#X obj 179 157 widget popup 38-p #items test; +#X obj 259 157 widget popup 39-p #items test; +#X obj 339 157 widget popup 40-p #items test; +#X obj 419 157 widget popup 41-p #items test; +#X obj 499 157 widget popup 42-p #items test; +#X obj 579 157 widget popup 43-p #items test; +#X obj 659 157 widget popup 44-p #items test; +#X obj 99 187 widget popup 45-p #items test; +#X obj 179 187 widget popup 46-p #items test; +#X obj 259 187 widget popup 47-p #items test; +#X obj 339 187 widget popup 48-p #items test; +#X obj 419 187 widget popup 49-p #items test; +#X obj 499 187 widget popup 50-p #items test; +#X obj 579 187 widget popup 51-p #items test; +#X obj 659 187 widget popup 52-p #items test; +#X obj 99 217 widget popup 53-p #items test; +#X obj 179 217 widget popup 54-p #items test; +#X obj 259 217 widget popup 55-p #items test; +#X obj 339 217 widget popup 56-p #items test; +#X obj 419 217 widget popup 57-p #items test; +#X obj 499 217 widget popup 58-p #items test; +#X obj 579 217 widget popup 59-p #items test; +#X obj 659 217 widget popup 60-p #items test; +#X obj 99 247 widget popup 61-p #items test; +#X obj 179 247 widget popup 62-p #items test; +#X obj 259 247 widget popup 63-p #items test; +#X obj 339 247 widget popup 64-p #items test; +#X obj 419 247 widget popup 65-p #items test; +#X obj 499 247 widget popup 66-p #items test; +#X obj 579 247 widget popup 67-p #items test; +#X obj 659 247 widget popup 68-p #items test; +#X obj 99 277 widget popup 69-p #items test; +#X obj 179 277 widget popup 70-p #items test; +#X obj 259 277 widget popup 71-p #items test; +#X obj 339 277 widget popup 72-p #items test; +#X obj 419 277 widget popup 73-p #items test; +#X obj 499 277 widget popup 74-p #items test; +#X obj 579 277 widget popup 75-p #items test; +#X obj 659 277 widget popup 76-p #items test; +#X obj 99 307 widget popup 77-p #items test; +#X obj 179 307 widget popup 78-p #items test; +#X obj 259 307 widget popup 79-p #items test; +#X obj 339 307 widget popup 80-p #items test; +#X obj 419 307 widget popup 81-p #items test; +#X obj 499 307 widget popup 82-p #items test; +#X obj 579 307 widget popup 83-p #items test; +#X obj 659 307 widget popup 84-p #items test; +#X obj 99 337 widget popup 85-p #items test; +#X obj 179 337 widget popup 86-p #items test; +#X obj 259 337 widget popup 87-p #items test; +#X obj 339 337 widget popup 88-p #items test; +#X obj 419 337 widget popup 89-p #items test; +#X obj 499 337 widget popup 90-p #items test; +#X obj 579 337 widget popup 91-p #items test; +#X obj 659 337 widget popup 92-p #items test; +#X obj 99 367 widget popup 93-p #items test; +#X obj 179 367 widget popup 94-p #items test; +#X obj 259 367 widget popup 95-p #items test; +#X obj 339 367 widget popup 96-p #items test; +#X obj 419 367 widget popup 97-p #items test; +#X obj 499 367 widget popup 98-p #items test; +#X obj 579 367 widget popup 99-p #items test; +#X obj 659 367 widget popup 100-p #items test; +#X obj 99 397 widget popup 101-p #items test; +#X obj 179 397 widget popup 102-p #items test; +#X obj 259 397 widget popup 103-p #items test; +#X obj 339 397 widget popup 104-p #items test; +#X obj 419 397 widget popup 105-p #items test; +#X obj 499 397 widget popup 106-p #items test; +#X obj 579 397 widget popup 107-p #items test; +#X obj 659 397 widget popup 108-p #items test; +#X obj 99 427 widget popup 109-p #items test; +#X obj 179 427 widget popup 110-p #items test; +#X obj 259 427 widget popup 111-p #items test; +#X obj 339 427 widget popup 112-p #items test; +#X obj 419 427 widget popup 113-p #items test; +#X obj 499 427 widget popup 114-p #items test; +#X obj 579 427 widget popup 115-p #items test; +#X obj 659 427 widget popup 116-p #items test; +#X obj 99 457 widget popup 117-p #items test; +#X obj 179 457 widget popup 118-p #items test; +#X obj 259 457 widget popup 119-p #items test; +#X obj 339 457 widget popup 120-p #items test; +#X obj 419 457 widget popup 121-p #items test; +#X obj 499 457 widget popup 122-p #items test; +#X obj 579 457 widget popup 123-p #items test; +#X obj 659 457 widget popup 124-p #items test; +#X obj 99 487 widget popup 125-p #items test; +#X obj 179 487 widget popup 126-p #items test; +#X obj 259 487 widget popup 127-p #items test; +#X obj 339 487 widget popup 128-p #items test; +#X obj 419 487 widget popup 129-p #items test; +#X obj 499 487 widget popup 130-p #items test; +#X obj 579 487 widget popup 131-p #items test; +#X obj 659 487 widget popup 132-p #items test; +#X coords 0 0 1 1 750 550 1; +#X restore 159 19 pd \$0-hurd; +#X obj 20 548 tow \$0-hurd popup p; +#X obj 17 185 tow \$0-hurd popup p; +#X obj 20 271 loadbang; +#X floatatom 32 60 5 0 0 0 - - -; +#X obj 20 351 Uzi; +#X msg 20 314 132; +#X msg 39 430 retarget \$1 popup \$2-p; +#X obj 39 389 prepend list \$0-hurd; +#X obj 32 100 prepend list \$0-hurd; +#X msg 32 142 retarget \$1 popup \$2-p; +#X obj 20 506 testmess c; +#X msg 20 467 #items; +#X connect 0 0 4 0; +#X connect 4 0 1 0; +#X connect 5 0 8 0; +#X connect 6 0 11 0; +#X connect 7 0 14 0; +#X connect 7 2 10 0; +#X connect 8 0 7 0; +#X connect 9 0 3 0; +#X connect 10 0 9 0; +#X connect 11 0 12 0; +#X connect 12 0 4 0; +#X connect 13 0 3 0; +#X connect 14 0 13 0; diff --git a/test/toxy/stress/mstots.pd b/test/toxy/stress/mstots.pd new file mode 100644 index 0000000..7c823e0 --- /dev/null +++ b/test/toxy/stress/mstots.pd @@ -0,0 +1,50 @@ +#N canvas 337 46 624 565 12; +#X obj 278 125 Uzi 10; +#X msg 49 16 1000; +#X msg 103 16 5000; +#X msg 154 16 10000; +#X msg 278 160 push; +#X obj 49 287 tot .; +#X obj 278 291 tot .; +#X msg 374 160 tot catch .(console show.); +#X msg 394 47 50000; +#X text 137 46 don't even try this on windows:; +#X msg 316 207 add #; +#X msg 466 81 80000; +#X obj 50 512 tot .; +#X msg 49 246 tot ::mstots::readclock \$1; +#X obj 49 95 t 0 0 b; +#X msg 62 211 tot ::mstots::setclock; +#X msg 50 369 tot namespace eval mstots .(proc setclock .(.) .(set +::mstots::lastclock [clock clicks -milliseconds].).); +#X obj 374 125 loadbang; +#X obj 50 336 loadbang; +#X floatatom 49 65 5 0 0 0 - - -; +#X msg 70 423 tot namespace eval mstots .(proc readclock .(niter.) +.(set delta [expr .([clock clicks -milliseconds] - $::mstots::lastclock.)] +.: puts [concat $delta ms ([expr .($niter / $delta.)] Mb/s)].).); +#X obj 316 246 testmess . 128 7; +#X text 458 245 1024 characters; +#X text 128 80 this takes ~ one second on a 2.66 linux:; +#X connect 0 0 4 0; +#X connect 1 0 19 0; +#X connect 2 0 19 0; +#X connect 3 0 19 0; +#X connect 4 0 6 0; +#X connect 7 0 6 0; +#X connect 8 0 19 0; +#X connect 10 0 21 0; +#X connect 11 0 19 0; +#X connect 13 0 5 0; +#X connect 14 0 13 0; +#X connect 14 1 0 0; +#X connect 14 2 15 0; +#X connect 15 0 5 0; +#X connect 16 0 12 0; +#X connect 17 0 7 0; +#X connect 17 0 10 0; +#X connect 18 0 16 0; +#X connect 18 0 20 0; +#X connect 19 0 14 0; +#X connect 20 0 12 0; +#X connect 21 0 6 0; diff --git a/test/toxy/stress/nbulkyhurds.pd b/test/toxy/stress/nbulkyhurds.pd new file mode 100644 index 0000000..528df2d --- /dev/null +++ b/test/toxy/stress/nbulkyhurds.pd @@ -0,0 +1,16 @@ +#N canvas 36 57 313 293 12; +#X obj 23 117 Uzi; +#X msg 23 29 10; +#X msg 23 210 \; pd open bulkyhurd.pd \$1; +#X msg 129 117 pwd pwd; +#X obj 66 117 r pwd; +#X obj 23 71 t 0 b; +#X obj 23 162 symbol; +#X obj 129 162 tow .; +#X connect 0 0 6 0; +#X connect 1 0 5 0; +#X connect 3 0 7 0; +#X connect 4 0 6 1; +#X connect 5 0 0 0; +#X connect 5 1 3 0; +#X connect 6 0 2 0; -- cgit v1.2.1