impulse~.pd

#N canvas 519 55 451 264 10;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-imp 1 float 2;
#X coords 0 1 1 0 50 50 1 0 0;
#X restore 256 49 graph;
#X obj 58 44 inlet bang;
#X obj 58 66 tabplay~ \$0-imp;
#X obj 58 88 outlet~;
#X obj 225 157 loadbang;
#X obj 225 201 s \$0-imp;
#X msg 225 179 0 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;