array-redraw-help.pd

#N canvas 287 199 646 469 10;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-array-redraw-help 44100 float 2;
#X coords 0 1 44100 -1 200 140 1 0 0;
#X restore 322 78 graph;
#X obj 35 211 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-array-redraw-help-2 44100 float 2;
#X coords 0 1 44100 -1 200 140 1;
#X restore 317 264 graph;
#X obj 69 312 tabwrite~ \$0-array-redraw-help;
#X obj 72 221 noise~;
#X msg 85 126 array-redraw-help-2;
#X obj 171 280 s;
#X obj 259 169 loadbang;
#X msg 184 255 \$1-array-redraw-help;
#X obj 192 227 f \$0;
#X msg 119 155 array-redraw-help;
#X obj 127 180 pack s \$0;
#X obj 183 378 spigot;
#X obj 180 355 metro 100;
#X obj 210 76 tgl 15 0 empty empty with_redraw 17 7 0 10 -262144 -1
-1 0 1;
#X msg 181 337 1;
#X msg 109 271 set \$1;
#X msg 124 203 symbol \$2-\$1;
#X msg 104 69 const 0;
#X text 157 69 clear;
#X text 211 25 just redraws an array. Can be useful with tabrwrite~
in certain scenarios (like oscilloscopes);
#X obj 124 427 ./array-redraw \$0-array-redraw-help;
#X connect 1 0 3 0;
#X connect 4 0 3 0;
#X connect 5 0 11 0;
#X connect 7 0 9 0;
#X connect 7 0 15 0;
#X connect 8 0 6 1;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 17 0;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 15 0 13 0;
#X connect 16 0 3 0;
#X connect 16 0 21 0;
#X connect 17 0 6 1;
#X connect 17 0 16 0;
#X connect 18 0 6 0;