[PD] pluck~

Frank Barknecht barknech at ph-cip.uni-koeln.de
Sun Sep 16 15:27:53 CEST 2001


Attached is my simple Karplus-Strong-like string instrument, pluck~.pd
It uses pink~ from IEMLIB, that can be replaced by noise~, but pink~ 
sounds better.

Maybe it's useful to someone else, too.
-- 
                                                 __    __
 Frank Barknecht       ____ ______   ____ __ trip\ \  / /wire ______
                      / __// __  /__/ __// // __  \ \/ /  __ \\  ___\	
                     / /  / ____/  / /  / // ____// /\ \\  ___\\____ \	
                    /_/  /_____/  /_/  /_//_____// /  \ \\_____\\_____\
                                                /_/    \_\ 
-------------- next part --------------
#N canvas 460 296 643 516 10;
#X obj 378 475 outlet~;
#X obj 204 24 inlet;
#X obj 378 229 sig~;
#X floatatom 234 154 5 0 0;
#X obj 122 191 pink~;
#X obj 262 291 *~ 0.995;
#X obj 204 76 t b f;
#X obj 378 281 clip~ -0.5 0.5;
#X obj 313 217 * 0.001;
#X obj 313 243 + 0.95;
#X obj 313 191 inlet;
#X obj 378 255 vd~ \$0-buff;
#X obj 262 317 lop~ 5000;
#X obj 148 368 delwrite~ \$0-buff 256;
#X obj 378 177 mtof;
#X floatatom 325 291 5 0 0;
#X obj 370 50 block~ 32 1;
#X obj 204 177 del 2;
#X obj 204 50 unpack 0 0;
#X obj 376 112 * 0.0078;
#X obj 376 138 s \$0-vel;
#X obj 401 307 r \$0-vel;
#X obj 378 356 *~ 1;
#X msg 171 203 1;
#X msg 204 203 0;
#X obj 148 235 *~ 0;
#X text 304 168 feedback;
#X text 83 23 midi note pairs;
#X obj 378 203 expr 1000/$f1;
#X text 24 168 short burst of noise;
#X obj 378 449 *~;
#X obj 418 421 line~;
#X msg 469 394 1;
#X obj 469 368 t b;
#X obj 418 341 select 0;
#X text 466 320 unclick on note-off;
#X msg 418 367 0 500;
#X connect 1 0 18 0;
#X connect 2 0 11 0;
#X connect 3 0 17 1;
#X connect 4 0 25 0;
#X connect 5 0 12 0;
#X connect 6 0 17 0;
#X connect 6 0 23 0;
#X connect 6 1 14 0;
#X connect 7 0 22 0;
#X connect 8 0 9 0;
#X connect 9 0 5 1;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 11 0 5 0;
#X connect 12 0 13 0;
#X connect 14 0 28 0;
#X connect 15 0 12 1;
#X connect 17 0 24 0;
#X connect 18 0 6 0;
#X connect 18 1 19 0;
#X connect 19 0 20 0;
#X connect 21 0 22 1;
#X connect 21 0 34 0;
#X connect 22 0 30 0;
#X connect 23 0 25 1;
#X connect 24 0 25 1;
#X connect 25 0 13 0;
#X connect 28 0 2 0;
#X connect 30 0 0 0;
#X connect 31 0 30 1;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 34 0 36 0;
#X connect 34 1 33 0;
#X connect 36 0 31 0;
-------------- next part --------------
#N canvas 334 226 437 306 10;
#X obj 136 229 dac~;
#X floatatom 74 15 5 0 0;
#X obj 147 189 pluck~;
#X text 154 13 test notes;
#X msg 147 40 60 120;
#X msg 203 40 62 120;
#X obj 74 41 pack 0 60;
#X floatatom 220 160 5 0 0;
#X text 264 162 feedback [50 max];
#X msg 274 105 62 0;
#X obj 277 58 t b;
#X obj 274 81 del 100;
#X floatatom 318 57 5 0 0;
#X connect 1 0 6 0;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 5 0 10 0;
#X connect 6 0 2 0;
#X connect 7 0 2 1;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 11 1;


More information about the Pd-list mailing list