From 8dbec761cf858ea65900c8a094599857208d8c3a Mon Sep 17 00:00:00 2001 From: "N.N." Date: Tue, 5 Jan 2010 22:49:36 +0000 Subject: svn path=/trunk/; revision=12907 --- .../doc/3.audio.examples/F04.waveshaping.pulse.pd | 133 --------------------- 1 file changed, 133 deletions(-) delete mode 100644 desiredata/doc/3.audio.examples/F04.waveshaping.pulse.pd (limited to 'desiredata/doc/3.audio.examples/F04.waveshaping.pulse.pd') diff --git a/desiredata/doc/3.audio.examples/F04.waveshaping.pulse.pd b/desiredata/doc/3.audio.examples/F04.waveshaping.pulse.pd deleted file mode 100644 index 5724aeba..00000000 --- a/desiredata/doc/3.audio.examples/F04.waveshaping.pulse.pd +++ /dev/null @@ -1,133 +0,0 @@ -#N canvas 240 229 900 586 12; -#X obj 220 171 line~; -#X obj 220 147 pack 0 50; -#X floatatom 220 46 0 0 0 0 - - -; -#X obj 70 108 *~; -#X obj 220 72 / 10; -#X obj 220 96 moses 0; -#X msg 220 120 0; -#X text 215 28 bandwidth; -#X obj 78 141 *~; -#X obj 18 141 sig~ 1; -#X obj 39 194 /~; -#X obj 54 168 +~; -#X text 111 141 X^2; -#X text 84 171 1+X^2; -#X text 71 196 1/(1+X^2); -#X text 28 4 ANOTHER PULSE WIDTH MOD ALGORITHM; -#N canvas 0 0 450 300 graph1 0; -#X array F04-signal 882 float 0; -#X coords 0 1.02 882 -1.02 200 130 1; -#X restore 646 328 graph; -#N canvas 0 0 450 300 graph1 0; -#X array F04-spectrum 259 float 0; -#X coords 0 1.01 258 -0.008 256 200 1; -#X restore 587 38 graph; -#X text 646 461 ---- 0.02 seconds ----; -#X text 614 237 2; -#X text 645 237 4; -#X text 584 237 0; -#X text 622 252 -- partial number --; -#X text 677 237 6; -#X text 710 237 8; -#X text 738 237 10; -#X text 770 237 12; -#X text 802 237 14; -#X obj 40 277 output~; -#X obj 39 246 hip~; -#N canvas 122 211 558 609 fft 0; -#X obj 19 61 inlet~; -#X obj 224 210 inlet; -#X obj 29 92 rfft~; -#X obj 29 125 *~; -#X obj 60 125 *~; -#X obj 29 155 sqrt~; -#X obj 332 109 block~ 4096 1; -#X obj 29 181 biquad~ 0 0 0 0 1; -#X text 93 93 Fourier series; -#X text 98 146 magnitude; -#X text 96 131 calculate; -#X text 21 3 This subpatch computes the spectrum of the incoming signal -with a (rectangular windowed) FFT. FFTs aren't properly introduced -until much later.; -#X text 83 61 signal to analyze; -#X text 193 164 delay two samples; -#X text 191 182 for better graphing; -#X obj 264 434 samplerate~; -#X obj 251 255 metro 500; -#X obj 251 232 inlet; -#X text 301 232 toggle to graph repeatedly; -#X text 278 210 bang to graph once; -#X obj 29 205 /~ 4096; -#X obj 264 409 bang~; -#X obj 264 457 / 512; -#X obj 19 295 tabwrite~ F04-signal; -#X obj 250 291 tabwrite~ F04-spectrum; -#X obj 264 483 s freq/2; -#X msg 224 321 \; pd dsp 1; -#X connect 0 0 2 0; -#X connect 0 0 23 0; -#X connect 1 0 23 0; -#X connect 1 0 24 0; -#X connect 1 0 26 0; -#X connect 2 0 3 0; -#X connect 2 0 3 1; -#X connect 2 1 4 0; -#X connect 2 1 4 1; -#X connect 3 0 5 0; -#X connect 4 0 5 0; -#X connect 5 0 7 0; -#X connect 7 0 20 0; -#X connect 15 0 22 0; -#X connect 16 0 23 0; -#X connect 16 0 24 0; -#X connect 17 0 16 0; -#X connect 17 0 26 0; -#X connect 20 0 24 0; -#X connect 21 0 15 0; -#X connect 22 0 25 0; -#X restore 93 248 pd fft; -#X obj 153 227 bng 18 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 --1; -#X obj 153 248 tgl 18 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 -1; -#X text 174 247 <-- repeatedly; -#X text 175 227 <-- graph once; -#X obj 69 81 osc~; -#X text 632 540 updated for Pd version 0.37; -#X text 23 515 NOTE: The PAF algorithm is protected by patents belonging -to IRCAM. Noncommercial use seems to be fine with them but contact -them first if you want to sell something using this.; -#X text 24 473 This is the form of pulse train used in the original -Phase Aligned Formant (PAF) algorithm.; -#X text 23 342 Here we use waveshaping to make another form of pulse -train. This one has a neat spectrum: the partials drop off exponentially -(with the "bandwidth" controlling the rate of dropoff.) In later patches -we'll use a wavetable to do the waveshaping but for simplicity \, it's -done algebraically here. The oscillator runs at half the fundamental -frequency. The symmetry of the waveshaping doubles the frequency of -the output.; -#X text 849 222 0; -#X text 846 35 1; -#X obj 69 56 r freq/2; -#X connect 0 0 3 1; -#X connect 1 0 0 0; -#X connect 2 0 4 0; -#X connect 3 0 8 0; -#X connect 3 0 8 1; -#X connect 4 0 5 0; -#X connect 5 0 6 0; -#X connect 5 1 1 0; -#X connect 6 0 1 0; -#X connect 8 0 11 1; -#X connect 9 0 10 0; -#X connect 9 0 11 0; -#X connect 10 0 29 0; -#X connect 10 0 30 0; -#X connect 11 0 10 1; -#X connect 29 0 28 0; -#X connect 29 0 28 1; -#X connect 31 0 30 1; -#X connect 32 0 30 2; -#X connect 35 0 3 0; -#X connect 42 0 35 0; -- cgit v1.2.1