#N canvas 731 42 517 585 10; #N canvas 1 55 450 300 (subpatch) 0; #X array array1 8 float 1 black black; #A 0 0.3 0.7 0.55 0.1 0 0.8 0.75 0.9; #X coords 0 1 7 -1 200 140 1; #X restore 20 -56 graph; #X msg 27 255 \$1; #X obj 27 276 until; #X obj 27 297 counter, f 13; #X obj 27 318 t f f, f 7; #X obj 27 360 tabwrite array2; #X obj 27 213 expr size("array1"); #X msg 27 171 bang; #X obj 27 192 t b b, f 8; #X obj 27 234 t f f, f 11; #X obj 27 339 tabread array1; #X obj 20 -139 loadbang; #X msg 90 255 \; array2 resize \$1; #X msg 20 -115 \; array1 resize 8 \; array1 0 0.3 0.7 0.55 0.1 0 0.8 0.75 0.9; #X text 64 170 <- click here to copy array1 into array2; #X msg 27 116 \; array1 normalize; #X text 148 117 <- click here to normalize array1; #N canvas 0 0 450 300 (subpatch) 0; #X array array2 100 float 1 black black; #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0; #X coords 0 1 99 -1 200 140 1; #X restore 242 -56 graph; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 10 0; #X connect 4 1 5 1; #X connect 6 0 9 0; #X connect 7 0 8 0; #X connect 8 0 6 0; #X connect 8 1 3 2; #X connect 9 0 1 0; #X connect 9 1 12 0; #X connect 10 0 5 0; #X connect 11 0 13 0;