From 64fdb009695828b788fce074135b20a5e52c5fc4 Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Tue, 23 Sep 2003 00:21:28 +0000 Subject: imported version 0.37-0 svn path=/trunk/; revision=1016 --- pd/doc/3.audio.examples/H01.more.FM.pd | 132 --------------------------------- 1 file changed, 132 deletions(-) delete mode 100644 pd/doc/3.audio.examples/H01.more.FM.pd (limited to 'pd/doc/3.audio.examples/H01.more.FM.pd') diff --git a/pd/doc/3.audio.examples/H01.more.FM.pd b/pd/doc/3.audio.examples/H01.more.FM.pd deleted file mode 100644 index 1b0e112b..00000000 --- a/pd/doc/3.audio.examples/H01.more.FM.pd +++ /dev/null @@ -1,132 +0,0 @@ -#N canvas 25 100 785 694 12; -#X floatatom 197 602 0 0 0; -#N canvas 159 26 541 274 output 0; -#X obj 351 166 t b; -#X obj 351 114 f; -#X obj 351 62 inlet; -#X text 358 30 mute; -#X obj 351 192 f; -#X msg 442 186 0; -#X msg 351 88 bang; -#X obj 351 140 moses 1; -#X obj 413 114 moses 1; -#X obj 86 153 dbtorms; -#X obj 413 88 r master-lvl; -#X obj 86 44 r master-lvl; -#X obj 351 218 s master-lvl; -#X obj 12 166 inlet~; -#X obj 207 43 inlet; -#X text 207 19 level; -#X obj 207 104 s master-lvl; -#X msg 100 67 set \$1; -#X obj 100 93 outlet; -#X msg 222 67 \; pd dsp 1; -#X obj 86 205 line~; -#X obj 12 218 *~; -#X obj 12 244 dac~; -#X obj 86 179 pack 0 50; -#X text 12 142 audio; -#X text 100 118 show level; -#X obj 12 192 hip~ 1; -#X connect 0 0 4 0; -#X connect 1 0 7 0; -#X connect 2 0 6 0; -#X connect 4 0 12 0; -#X connect 5 0 12 0; -#X connect 6 0 1 0; -#X connect 7 0 0 0; -#X connect 7 1 5 0; -#X connect 8 1 4 1; -#X connect 9 0 23 0; -#X connect 10 0 1 1; -#X connect 10 0 8 0; -#X connect 11 0 9 0; -#X connect 11 0 17 0; -#X connect 13 0 26 0; -#X connect 14 0 16 0; -#X connect 14 0 19 0; -#X connect 17 0 18 0; -#X connect 20 0 21 1; -#X connect 21 0 22 0; -#X connect 21 0 22 1; -#X connect 23 0 20 0; -#X connect 26 0 21 0; -#X restore 158 630 pd output; -#X msg 234 602 MUTE; -#X text 528 618 updated for Pd version 0.34; -#X text 277 601 <-- output; -#X text 79 4 FM \, PWM \, PAF as formant generators; -#X text 39 22 The next several patches illustrate "Synthesizing Sounds -with Specified \, Time-Varying Spectra" presented at ICMC 2001 and -reprinted on http://www.crca.ucsd.edu/~msp/publications.html.; -#X obj 146 468 line~; -#X obj 146 444 pack 0 50; -#X floatatom 146 389 0 0 0; -#X obj 124 493 *~; -#X text 145 367 index; -#X floatatom 248 398 0 0 0; -#X text 250 370 carrier freq; -#X obj 158 547 cos~; -#X graph graph1 0 0 128 500 499 556 755 426; -#X array spectrum 128 float 0; -#X pop; -#X msg 233 546 bang; -#X text 271 543 <-- click to graph; -#N canvas 204 17 358 238 fft 0; -#X obj 46 48 inlet~; -#X obj 159 181 tabwrite~ spectrum; -#X obj 159 145 inlet; -#X obj 46 78 rfft~; -#X obj 46 111 *~; -#X obj 77 111 *~; -#X obj 46 141 sqrt~; -#X obj 191 45 block~ 1024 1; -#X connect 0 0 3 0; -#X connect 2 0 1 0; -#X connect 3 0 4 0; -#X connect 3 0 4 1; -#X connect 3 1 5 0; -#X connect 3 1 5 1; -#X connect 4 0 6 0; -#X connect 5 0 6 0; -#X connect 6 0 1 0; -#X restore 187 574 pd fft; -#X text 490 562 0; -#X text 738 559 5512; -#X obj 153 520 +~; -#X obj 248 448 phasor~; -#X obj 23 458 osc~ 172.266; -#X obj 146 417 / 100; -#X obj 248 422 * 172.266; -#X text 34 93 First compare this phase modulation example with the -ring modulation example from the section on processing (patch 51). -Here we choose a convenient \, fixed modulation frequency and consider -the effect of changing carrier frequency and modulation index. It's -exactly as if the carrier frequency were a ring modulation frequency. -; -#X text 33 331 Next we'll look at two techniques for sliding a formant -frequency without losing harmonicity.; -#X text 33 191 Using either method we can synthesize the hat-shaped -spectra called "formants." However \, if you try to move the formant -up or down in frequency \, you'll lose harmonicity \; the partials -are only integer multiples of the fundamental \, 172.266 \, when the -carrier is an integer multiple. To hear this \, set index to 20 and -carrier frequency to zero \, and scroll carrier through integers. Then -shift-drag on the carrier frequency to change it in hundredths. Presto -\, inharmonic sounds...; -#X connect 0 0 1 1; -#X connect 1 0 0 0; -#X connect 2 0 1 2; -#X connect 7 0 10 1; -#X connect 8 0 7 0; -#X connect 9 0 24 0; -#X connect 10 0 21 0; -#X connect 12 0 25 0; -#X connect 14 0 1 0; -#X connect 14 0 18 0; -#X connect 16 0 18 1; -#X connect 21 0 14 0; -#X connect 22 0 21 1; -#X connect 23 0 10 0; -#X connect 24 0 8 0; -#X connect 25 0 22 0; -- cgit v1.2.1