#N canvas 39 49 800 548 12;
#X obj 25 84 widget multiscale m1 #n 50 #dx 15 #dy 90;
#X obj 25 326 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 100 49 0 400 140 1;
#X restore 296 206 graph;
#X obj 265 511 tabwrite t;
#X obj 25 474 unpack;
#X floatatom 25 511 5 0 0 0 - - -;
#X floatatom 98 511 5 0 0 0 - - -;
#X floatatom 94 199 5 0 0 0 - - -;
#X obj 589 511 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 511 pack;
#X msg 265 445 tot pd [concat rcount .#n .`.:];
#X obj 265 408 t b b;
#X msg 653 413 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 msg 95 282 #hi \$1;
#X floatatom 95 246 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;
#X connect 25 0 1 0;
#X connect 26 0 25 0;