sintese_aditiva_miller.pd

#N canvas 9 13 684 547 12;
#X obj 37 449 catch~ sum;
#X obj 349 274 s frequency;
#X obj 463 274 s duration;
#X floatatom 463 224 0 0 0 0 - - -;
#X obj 463 249 * 100;
#X obj 349 249 mtof;
#X floatatom 349 224 0 0 0 0 - - -;
#X text 82 7 ADDITIVE SYNTHESIS;
#X text 501 214 duration in tenths;
#X text 503 230 of a second;
#X text 387 223 pitch;
#X text 433 518 updated for Pd version 0.37;
#X obj 37 488 output~;
#X text 26 83 Partial takes as arguments an amplitude \, a relative
frequency \, a detuning frequency \, and a relative duration. You set
absolute duration and pitch using the controls below. Hit the trigger
to make sound.;
#X obj 36 164 partial 1 1 0.56 0;
#X text 27 31 This patch demonstrates using an abstraction \, "partial"
\, to make a simple additive synthesis instrument originally from Jean-Claude
Risset.;
#X obj 349 169 loadbang;
#X msg 349 192 72;
#X msg 463 194 40;
#X obj 352 322 bng 25 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 385 324 <-- click to play a note;
#X obj 352 358 s trigger;
#X obj 36 189 partial 0.67 0.9 0.56 1;
#X obj 36 214 partial 1 0.65 0.92 0;
#X obj 36 239 partial 1.8 0.55 0.92 1.7;
#X obj 36 264 partial 2.67 0.325 1.19 0;
#X obj 36 289 partial 1.67 0.35 1.7 0;
#X obj 36 314 partial 1.46 0.25 2 0;
#X obj 36 339 partial 1.33 0.2 2.74 0;
#X obj 36 364 partial 1.33 0.15 3 0;
#X obj 36 389 partial 1 0.1 3.76 0;
#X obj 36 414 partial 1.33 0.075 4.07 0;
#X msg 266 225 54;
#X msg 433 147 571;
#X connect 0 0 12 0;
#X connect 0 0 12 1;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 16 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 6 0;
#X connect 18 0 3 0;
#X connect 19 0 21 0;
#X connect 32 0 6 0;
#X connect 33 0 3 0;