pluck~.pd

#N canvas 237 65 749 587 10;
#X obj 139 19 inlet pitch;
#X obj 57 350 *~;
#X obj 60 218 vline~;
#X obj 224 489 outlet~;
#X obj 256 93 mtof;
#X obj 276 164 /;
#X msg 252 140 1000;
#X obj 254 115 t b f;
#X obj 224 431 lop~ 3800;
#X obj 37 508 block~ 1;
#X obj 56 376 delwrite~ \$0-delay 200;
#X obj 34 17 inlet trigger;
#X obj 244 52 t f;
#X obj 241 323 line~;
#X obj 250 297 pack 0 2;
#X obj 78 249 noise~;
#X obj 78 278 bp~ 3000 7;
#X obj 92 306 bp~ 5107 10;
#X msg 37 158 1 1 \, 0 20 5;
#X obj 219 376 vd~ \$0-delay 12;
#X obj 224 458 *~ 0.9999;
#X connect 0 0 12 0;
#X connect 1 0 10 0;
#X connect 2 0 1 0;
#X connect 4 0 7 0;
#X connect 5 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 5 1;
#X connect 8 0 20 0;
#X connect 11 0 18 0;
#X connect 12 0 4 0;
#X connect 13 0 19 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 15 0 17 0;
#X connect 16 0 1 1;
#X connect 17 0 1 1;
#X connect 18 0 2 0;
#X connect 19 0 8 0;
#X connect 20 0 3 0;
#X connect 20 0 10 0;