83-beating.pd

#N canvas 646 154 634 419 12;
#X floatatom 27 114 5 0 0 0 - - -;
#X obj 27 137 phasor~;
#X obj 27 211 +~, f 19;
#X obj 27 265 -~, f 22;
#X obj 27 289 wrap~;
#X obj 27 313 cos~;
#X obj 27 337 *~ 0.05;
#X obj 27 361 dac~;
#X floatatom 182 114 5 0 0 0 - - -;
#X obj 182 161 *~;
#X obj 182 137 phasor~;
#X obj 182 225 samphold~;
#X floatatom 320 152 5 0 0 0 - - -;
#X obj 320 175 / 100;
#X obj 320 199 sig~;
#X text 25 10 adapted from https://www.youtube.com/watch?v=L0FqIRCi0yk
;
#X obj 464 125 loadbang;
#X obj 464 149 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 464 173 metro 2000;
#X obj 464 197 random 12;
#X obj 100 44 loadbang;
#X msg 52 67 440;
#X msg 166 68 221;
#X obj 464 221 * 20;
#X obj 449 365 tabwrite~ ok;
#X obj 537 365 table ok;
#X obj 455 289 loadbang;
#X obj 455 313 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 455 337 metro 100;
#X obj 263 63 loadbang;
#X msg 263 87 1;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 11 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 24 0;
#X connect 6 0 7 0;
#X connect 6 0 7 1;
#X connect 8 0 10 0;
#X connect 9 0 11 0;
#X connect 9 0 2 1;
#X connect 10 0 9 0;
#X connect 11 0 3 1;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 9 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 20 0 21 0;
#X connect 20 0 22 0;
#X connect 21 0 0 0;
#X connect 22 0 8 0;
#X connect 23 0 12 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 24 0;
#X connect 29 0 30 0;
#X connect 30 0 10 1;
#X connect 30 0 1 1;