#N canvas 730 58 782 581 12; #X obj 82 109 phasor~; #X obj 85 54 hsl 128 15 0 1000 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1; #X floatatom 82 74 5 0 0 0 - - - 0; #N canvas 0 50 450 250 (subpatch) 0; #X array array1 1000 float 2; #X coords 0 1 1000 -1 200 140 1; #X restore 281 65 graph; #X obj 113 156 tabwrite~ array1; #X obj 20 210 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000; #N canvas 52 52 636 463 SHflipflop 1; #X obj 55 189 samphold~; #X obj 71 213 *~ -1; #X obj 71 136 loadbang; #X msg 71 160 set 1; #X obj 54 294 outlet~; #X obj 210 71 inlet~; #N canvas 0 50 450 250 (subpatch) 0; #X array \$0_fb 1 float 2; #X coords 0 1 1 -1 200 140 1 0 0; #X restore 321 158 graph; #X obj 70 234 tabsend~ \$0_fb; #X obj 55 110 tabreceive~ \$0_fb; #X obj 326 113 block~ 1 1 1; #X connect 0 0 1 0; #X connect 0 0 4 0; #X connect 1 0 7 0; #X connect 2 0 3 0; #X connect 3 0 0 0; #X connect 5 0 0 1; #X connect 8 0 0 0; #X restore 102 194 pd SHflipflop; #X obj 102 218 /~ 2; #X obj 83 274 +~; #X obj 82 396 tabwrite~ array2; #N canvas 0 50 450 250 (subpatch) 0; #X array array2 1000 float 2; #X coords 0 1 1000 -1 200 140 1 0 0; #X restore 282 235 graph; #X obj 102 242 -~ 0.5; #X obj 83 298 /~ 2; #X obj 83 322 +~ 0.5; #X connect 0 0 4 0; #X connect 0 0 6 0; #X connect 0 0 8 0; #X connect 1 0 2 0; #X connect 2 0 0 0; #X connect 5 0 4 0; #X connect 5 0 9 0; #X connect 6 0 7 0; #X connect 7 0 11 0; #X connect 8 0 12 0; #X connect 11 0 8 1; #X connect 12 0 13 0; #X connect 13 0 9 0;