http://www.andrewfaraday.com/2013/04/how-to-make-musical-instrument-in-10.html

ins.pd

#N canvas 1382 583 859 639 10;
#X obj 90 236 osc~ 400;
#X obj 90 258 *~;
#X obj 90 280 *~ 0.1;
#X obj 90 362 dac~;
#X obj 294 210 line~;
#X obj 294 131 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X msg 294 188 \$1 100;
#X obj 294 109 r btn;
#X obj 516 85 MouseState;
#X msg 516 63 poll;
#X obj 516 107 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 510 169 s btn;
#X floatatom 562 188 5 0 0 0 - - -, f 5;
#X obj 562 207 s x;
#X obj 91 87 r x;
#X msg 91 109 \$1 100;
#X obj 91 131 line~;
#X obj 227 507 dac~;
#X obj 220 359 delwrite~ d1 1000;
#X obj 227 445 delread~ d1 1000;
#X obj 219 281 r~ fb;
#X obj 220 337 *~ 0.5;
#X obj 305 507 s~ fb;
#X floatatom 614 131 5 0 0 0 - - -, f 5;
#X obj 624 188 maxlib/scale 0 767 0 1;
#X floatatom 624 210 5 0 0 0 - - -, f 5;
#X obj 624 229 s y;
#X obj 331 236 r y;
#X msg 331 258 \$1 100;
#X obj 331 280 line;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 2 0 21 0;
#X connect 4 0 1 1;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 10 0;
#X connect 8 1 12 0;
#X connect 8 2 23 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 12 0 13 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 0 0;
#X connect 19 0 17 0;
#X connect 19 0 17 1;
#X connect 19 0 22 0;
#X connect 20 0 21 0;
#X connect 21 0 18 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 29 0 21 1;