aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/toxy/multiscale-test.pd66
-rw-r--r--test/toxy/multiscale.wid14
-rw-r--r--test/toxy/stress/pophurd.pd68
3 files changed, 125 insertions, 23 deletions
diff --git a/test/toxy/multiscale-test.pd b/test/toxy/multiscale-test.pd
index c0383a6..cde36a8 100644
--- a/test/toxy/multiscale-test.pd
+++ b/test/toxy/multiscale-test.pd
@@ -1,20 +1,54 @@
-#N canvas 39 49 775 469 12;
-#X obj 27 98 widget multiscale m1 #n 30 #dx 15 #dy 60;
-#X obj 27 200 widget multiscale m2 #bg red #dy 120;
-#X obj 188 371 tow . multiscale m1;
-#X msg 27 59 #n \$1;
-#X floatatom 27 24 5 0 0 0 - - -;
+#N canvas 39 49 800 548 12;
+#X obj 25 84 widget multiscale m1 #n 50 #dx 15 #dy 90;
+#X obj 25 260 widget multiscale m2 #bg red #dy 120;
+#X msg 25 52 #n \$1;
+#X floatatom 25 23 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph1 0;
#X array t 50 float 0;
#X coords 0 1 49 0 400 140 1;
#X restore 296 206 graph;
-#X obj 188 410 tabwrite t;
-#X obj 27 367 unpack;
-#X floatatom 27 411 5 0 0 0 - - -;
-#X floatatom 100 411 5 0 0 0 - - -;
-#X connect 1 0 7 0;
-#X connect 2 0 6 0;
-#X connect 3 0 0 0;
-#X connect 4 0 3 0;
-#X connect 7 0 8 0;
-#X connect 7 1 9 0;
+#X obj 265 509 tabwrite t;
+#X obj 27 408 unpack;
+#X floatatom 27 445 5 0 0 0 - - -;
+#X floatatom 100 445 5 0 0 0 - - -;
+#X floatatom 109 196 5 0 0 0 - - -;
+#X obj 589 509 tabread t;
+#X obj 589 477 t 0 0;
+#X obj 589 413 until;
+#X obj 265 477 tow . multiscale m1;
+#X obj 589 381 r rcount;
+#X obj 589 445 int;
+#X obj 629 445 + 1;
+#X obj 527 510 pack;
+#X msg 265 445 tot pd [concat rcount .#n .`.:];
+#X obj 265 408 t b b;
+#X msg 653 414 0;
+#X obj 127 23 widget button b -command .<.> -bg yellow -width 3 -height
+2;
+#X obj 265 372 tow . button b;
+#X obj 25 228 pack;
+#X floatatom 25 199 5 0 0 0 - - -;
+#X connect 1 0 6 0;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 6 0 7 0;
+#X connect 6 1 8 0;
+#X connect 9 0 1 0;
+#X connect 9 0 23 1;
+#X connect 10 0 17 0;
+#X connect 11 0 10 0;
+#X connect 11 1 17 1;
+#X connect 12 0 15 0;
+#X connect 13 0 5 0;
+#X connect 14 0 12 0;
+#X connect 15 0 16 0;
+#X connect 15 0 11 0;
+#X connect 16 0 15 1;
+#X connect 17 0 13 0;
+#X connect 18 0 13 0;
+#X connect 19 0 18 0;
+#X connect 19 1 20 0;
+#X connect 20 0 15 1;
+#X connect 22 0 19 0;
+#X connect 23 0 1 0;
+#X connect 24 0 23 0;
diff --git a/test/toxy/multiscale.wid b/test/toxy/multiscale.wid
index f66ef6c..be56d2b 100644
--- a/test/toxy/multiscale.wid
+++ b/test/toxy/multiscale.wid
@@ -2,6 +2,18 @@ proc ::toxy::multiscalecommand {target sel ndx v} {
pd [concat $target $sel $v $ndx \;]
}
+proc ::toxy::multiscale_float {path target count ndx} {
+ if {$ndx >= 0 && $ndx < $count} {
+ pd [concat $target _cb [$path.s$ndx get] $ndx \;]
+ }
+}
+
+proc ::toxy::multiscale_list {path count ndx v} {
+ if {$ndx >= 0 && $ndx < $count} {
+ $path.s$ndx set $v
+ }
+}
+
proc ::toxy::multiscale {path target remote count dx dy bg} {
if {[winfo exists $path.s0]} {
# puts stderr [concat $path.s0 exists]
@@ -32,6 +44,8 @@ proc ::toxy::multiscale {path target remote count dx dy bg} {
#> multiscale canvas
#. #n 3 #dx 60 #dy 90
#. #bg yellow
+#. @float ::toxy::multiscale_float .- .| .#n .#1
+#. @list ::toxy::multiscale_list .- .#n .#2 .#1
::toxy::multiscale .- .| . .#n .#dx .#dy .#bg
diff --git a/test/toxy/stress/pophurd.pd b/test/toxy/stress/pophurd.pd
index 0a55222..23ab805 100644
--- a/test/toxy/stress/pophurd.pd
+++ b/test/toxy/stress/pophurd.pd
@@ -1,84 +1,138 @@
-#N canvas 151 100 700 416 12;
+#N canvas 20 49 923 553 12;
#X obj 16 47 tow . popup p;
#X floatatom 16 15 5 0 0 0 - - -;
#X floatatom 16 84 5 0 0 0 - - -;
-#X obj 180 10 widget popup p #items [info globals];
-#X obj 260 10 widget popup p #items [info globals];
-#X obj 340 10 widget popup p #items [info globals];
-#X obj 420 10 widget popup p #items [info globals];
-#X obj 500 10 widget popup p #items [info globals];
-#X obj 580 10 widget popup p #items [info globals];
+#X obj 180 10 widget popup p #items [info globals] -width 18;
+#X obj 340 10 widget popup p #items [info globals] -width 18;
+#X obj 500 10 widget popup p #items [info globals] -width 18;
+#X obj 660 10 widget popup p #items [info globals] -width 18;
#X obj 180 40 widget popup p #items [info globals];
#X obj 260 40 widget popup p #items [info globals];
#X obj 340 40 widget popup p #items [info globals];
#X obj 420 40 widget popup p #items [info globals];
#X obj 500 40 widget popup p #items [info globals];
#X obj 580 40 widget popup p #items [info globals];
+#X obj 660 40 widget popup p #items [info globals];
+#X obj 740 40 widget popup p #items [info globals];
#X obj 180 70 widget popup p #items [info globals];
#X obj 260 70 widget popup p #items [info globals];
#X obj 340 70 widget popup p #items [info globals];
#X obj 420 70 widget popup p #items [info globals];
#X obj 500 70 widget popup p #items [info globals];
#X obj 580 70 widget popup p #items [info globals];
+#X obj 660 70 widget popup p #items [info globals];
+#X obj 740 70 widget popup p #items [info globals];
#X obj 180 100 widget popup p #items [info globals];
#X obj 260 100 widget popup p #items [info globals];
#X obj 340 100 widget popup p #items [info globals];
#X obj 420 100 widget popup p #items [info globals];
#X obj 500 100 widget popup p #items [info globals];
#X obj 580 100 widget popup p #items [info globals];
+#X obj 660 100 widget popup p #items [info globals];
+#X obj 740 100 widget popup p #items [info globals];
#X obj 180 130 widget popup p #items [info globals];
#X obj 260 130 widget popup p #items [info globals];
#X obj 340 130 widget popup p #items [info globals];
#X obj 420 130 widget popup p #items [info globals];
#X obj 500 130 widget popup p #items [info globals];
#X obj 580 130 widget popup p #items [info globals];
+#X obj 660 130 widget popup p #items [info globals];
+#X obj 740 130 widget popup p #items [info globals];
#X obj 180 160 widget popup p #items [info globals];
#X obj 260 160 widget popup p #items [info globals];
#X obj 340 160 widget popup p #items [info globals];
#X obj 420 160 widget popup p #items [info globals];
#X obj 500 160 widget popup p #items [info globals];
#X obj 580 160 widget popup p #items [info globals];
+#X obj 660 160 widget popup p #items [info globals];
+#X obj 740 160 widget popup p #items [info globals];
#X obj 180 190 widget popup p #items [info globals];
#X obj 260 190 widget popup p #items [info globals];
#X obj 340 190 widget popup p #items [info globals];
#X obj 420 190 widget popup p #items [info globals];
#X obj 500 190 widget popup p #items [info globals];
#X obj 580 190 widget popup p #items [info globals];
+#X obj 660 190 widget popup p #items [info globals];
+#X obj 740 190 widget popup p #items [info globals];
#X obj 180 220 widget popup p #items [info globals];
#X obj 260 220 widget popup p #items [info globals];
#X obj 340 220 widget popup p #items [info globals];
#X obj 420 220 widget popup p #items [info globals];
#X obj 500 220 widget popup p #items [info globals];
#X obj 580 220 widget popup p #items [info globals];
+#X obj 660 220 widget popup p #items [info globals];
+#X obj 740 220 widget popup p #items [info globals];
#X obj 180 250 widget popup p #items [info globals];
#X obj 260 250 widget popup p #items [info globals];
#X obj 340 250 widget popup p #items [info globals];
#X obj 420 250 widget popup p #items [info globals];
#X obj 500 250 widget popup p #items [info globals];
#X obj 580 250 widget popup p #items [info globals];
+#X obj 660 250 widget popup p #items [info globals];
+#X obj 740 250 widget popup p #items [info globals];
#X obj 180 280 widget popup p #items [info globals];
#X obj 260 280 widget popup p #items [info globals];
#X obj 340 280 widget popup p #items [info globals];
#X obj 420 280 widget popup p #items [info globals];
#X obj 500 280 widget popup p #items [info globals];
#X obj 580 280 widget popup p #items [info globals];
+#X obj 660 280 widget popup p #items [info globals];
+#X obj 740 280 widget popup p #items [info globals];
#X obj 180 310 widget popup p #items [info globals];
#X obj 260 310 widget popup p #items [info globals];
#X obj 340 310 widget popup p #items [info globals];
#X obj 420 310 widget popup p #items [info globals];
#X obj 500 310 widget popup p #items [info globals];
#X obj 580 310 widget popup p #items [info globals];
+#X obj 660 310 widget popup p #items [info globals];
+#X obj 740 310 widget popup p #items [info globals];
#X obj 180 340 widget popup p #items [info globals];
#X obj 260 340 widget popup p #items [info globals];
#X obj 340 340 widget popup p #items [info globals];
#X obj 420 340 widget popup p #items [info globals];
#X obj 500 340 widget popup p #items [info globals];
#X obj 580 340 widget popup p #items [info globals];
+#X obj 660 340 widget popup p #items [info globals];
+#X obj 740 340 widget popup p #items [info globals];
#X obj 180 370 widget popup p #items [info globals];
#X obj 260 370 widget popup p #items [info globals];
#X obj 340 370 widget popup p #items [info globals];
#X obj 420 370 widget popup p #items [info globals];
#X obj 500 370 widget popup p #items [info globals];
#X obj 580 370 widget popup p #items [info globals];
+#X obj 660 370 widget popup p #items [info globals];
+#X obj 740 370 widget popup p #items [info globals];
+#X obj 180 400 widget popup p #items [info globals];
+#X obj 260 400 widget popup p #items [info globals];
+#X obj 340 400 widget popup p #items [info globals];
+#X obj 420 400 widget popup p #items [info globals];
+#X obj 500 400 widget popup p #items [info globals];
+#X obj 580 400 widget popup p #items [info globals];
+#X obj 660 400 widget popup p #items [info globals];
+#X obj 740 400 widget popup p #items [info globals];
+#X obj 180 430 widget popup p #items [info globals];
+#X obj 260 430 widget popup p #items [info globals];
+#X obj 340 430 widget popup p #items [info globals];
+#X obj 420 430 widget popup p #items [info globals];
+#X obj 500 430 widget popup p #items [info globals];
+#X obj 580 430 widget popup p #items [info globals];
+#X obj 660 430 widget popup p #items [info globals];
+#X obj 740 430 widget popup p #items [info globals];
+#X obj 180 460 widget popup p #items [info globals];
+#X obj 260 460 widget popup p #items [info globals];
+#X obj 340 460 widget popup p #items [info globals];
+#X obj 420 460 widget popup p #items [info globals];
+#X obj 500 460 widget popup p #items [info globals];
+#X obj 580 460 widget popup p #items [info globals];
+#X obj 660 460 widget popup p #items [info globals];
+#X obj 740 460 widget popup p #items [info globals];
+#X obj 180 490 widget popup p #items [info globals];
+#X obj 260 490 widget popup p #items [info globals];
+#X obj 340 490 widget popup p #items [info globals];
+#X obj 420 490 widget popup p #items [info globals];
+#X obj 500 490 widget popup p #items [info globals];
+#X obj 580 490 widget popup p #items [info globals];
+#X obj 660 490 widget popup p #items [info globals];
+#X obj 740 490 widget popup p #items [info globals];
#X connect 0 0 2 0;
#X connect 1 0 0 0;