From ae6b5d89ea93b95c2990895077cf5e8f0bba9ad9 Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Mon, 2 Feb 2004 11:28:02 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r1301, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=1302 --- pd/doc/4.fft.examples/09.pvoc.pd | 102 +++++++++++++++++++++------------------ 1 file changed, 55 insertions(+), 47 deletions(-) (limited to 'pd/doc/4.fft.examples') diff --git a/pd/doc/4.fft.examples/09.pvoc.pd b/pd/doc/4.fft.examples/09.pvoc.pd index 495fd535..2af30f2b 100644 --- a/pd/doc/4.fft.examples/09.pvoc.pd +++ b/pd/doc/4.fft.examples/09.pvoc.pd @@ -1,8 +1,8 @@ #N canvas 100 38 719 544 12; -#X floatatom 283 336; +#X floatatom 283 336 0 0 0 0 - - -; #X msg 569 149 bang; -#X floatatom 197 329; -#X floatatom 90 330; +#X floatatom 197 329 0 0 0 0 - - -; +#X floatatom 90 330 0 0 0 0 - - -; #N canvas 0 2 986 683 fft-analysis 0; #X obj 261 297 *~; #X obj 230 297 *~; @@ -18,7 +18,7 @@ #X obj 220 179 *~; #X obj 86 556 *~; #X obj 366 251 rfft~; -#X obj 387 53 rfft~; +#X obj 432 52 rfft~; #X obj 477 637 *~; #X obj 685 288 r window-size; #X obj 751 201 r sample-rate; @@ -64,19 +64,18 @@ #X obj 309 150 -~; #X obj 231 255 *~; #X obj 291 255 *~; -#X obj 198 51 tabreceive~ phase-imag; +#X obj 227 52 tabreceive~ phase-imag; #X obj 105 381 sig~; #X obj 88 311 t b f; #X msg 88 332 1; #X obj 102 355 /; #X obj 227 436 tabsend~ phase-real; #X obj 256 408 tabsend~ phase-imag; -#X obj 104 133 sig~ 1.5e-20; #X obj 632 180 * 0.01; #X obj 691 212 s speed; #X obj 468 251 s see-location; #X obj 598 618 block~ 2048 4; -#X floatatom 672 360; +#X floatatom 672 360 0 0 0 0 - - -; #X obj 670 339 *; #X obj 829 234 r transpo; #X obj 829 256 * 0.01; @@ -85,10 +84,11 @@ #X obj 832 320 / 440; #X obj 689 316 t b f; #X obj 88 290 r window-size; -#X floatatom 835 353; +#X floatatom 835 353 0 0 0 0 - - -; #X obj 551 543 tabreceive~ hanning; #X obj 536 488 tabread4~ sample; #X obj 502 513 tabread4~ sample; +#X obj 116 126 sig~ 1e-15; #X connect 0 0 2 1; #X connect 1 0 2 0; #X connect 2 0 65 0; @@ -115,11 +115,11 @@ #X connect 14 1 6 1; #X connect 14 1 8 1; #X connect 15 0 14 0; -#X connect 16 0 73 0; +#X connect 16 0 72 0; #X connect 17 0 44 0; #X connect 18 0 37 0; #X connect 18 0 45 0; -#X connect 18 0 70 0; +#X connect 18 0 69 0; #X connect 19 0 34 0; #X connect 20 0 22 0; #X connect 21 0 22 0; @@ -132,16 +132,16 @@ #X connect 30 0 18 0; #X connect 31 0 27 0; #X connect 31 0 50 0; -#X connect 31 0 84 0; +#X connect 31 0 83 0; #X connect 32 0 43 2; #X connect 32 0 38 1; #X connect 34 0 21 0; -#X connect 35 0 68 0; +#X connect 35 0 67 0; #X connect 36 0 39 0; #X connect 36 0 18 1; #X connect 37 0 18 1; #X connect 38 0 37 1; -#X connect 39 0 69 0; +#X connect 39 0 68 0; #X connect 40 0 43 1; #X connect 41 0 43 0; #X connect 41 1 40 0; @@ -151,7 +151,7 @@ #X connect 45 0 41 0; #X connect 47 0 49 0; #X connect 49 0 50 1; -#X connect 50 0 83 0; +#X connect 50 0 82 0; #X connect 53 0 9 0; #X connect 53 0 6 0; #X connect 54 0 55 0; @@ -172,40 +172,43 @@ #X connect 62 1 64 1; #X connect 63 0 64 0; #X connect 64 0 61 0; -#X connect 67 0 10 0; -#X connect 68 0 38 0; -#X connect 72 0 47 0; -#X connect 72 0 40 1; -#X connect 73 0 72 0; +#X connect 67 0 38 0; +#X connect 71 0 47 0; +#X connect 71 0 40 1; +#X connect 72 0 71 0; +#X connect 73 0 74 0; #X connect 74 0 75 0; #X connect 75 0 76 0; #X connect 76 0 77 0; #X connect 77 0 78 0; -#X connect 78 0 79 0; -#X connect 78 0 81 0; -#X connect 79 0 73 0; -#X connect 79 1 73 1; -#X connect 80 0 62 0; -#X connect 82 0 23 1; -#X connect 82 0 15 1; -#X connect 82 0 12 1; -#X connect 83 0 23 0; -#X connect 84 0 15 0; +#X connect 77 0 80 0; +#X connect 78 0 72 0; +#X connect 78 1 72 1; +#X connect 79 0 62 0; +#X connect 81 0 23 1; +#X connect 81 0 15 1; +#X connect 81 0 12 1; +#X connect 82 0 23 0; +#X connect 83 0 15 0; +#X connect 84 0 10 0; #X restore 43 402 pd fft-analysis; #X obj 43 488 dac~; #N canvas 260 23 647 768 phase-tables 0; -#X graph graph2 0 -1 4096 1 172 590 572 290; -#X array phase-imag 4096 float; -#X pop; -#X graph graph3 0 -1 4096 1 170 317 570 17; -#X array phase-real 4096 float; -#X pop; -#X msg 167 564 \; phase-real resize 4096 \; phase-imag resize 4096; +#N canvas 0 0 450 300 graph2 0; +#X array phase-imag 4096 float 0; +#X coords 0 1 4096 -1 400 300 1; +#X restore 172 290 graph; +#N canvas 0 0 450 300 graph3 0; +#X array phase-real 4096 float 0; +#X coords 0 1 4096 -1 400 300 1; +#X restore 170 17 graph; +#X msg 167 564 \; phase-real resize 4096 \; phase-imag resize 4096 +; #X restore 425 441 pd phase-tables; #X obj 43 428 hip~ 5; #X obj 43 458 *~; #N canvas 249 280 600 398 loc&precess 0; -#X floatatom 160 229; +#X floatatom 160 229 0 0 0 0 - - -; #X msg 270 175 set \$1; #X obj 269 207 outlet; #X obj 83 267 outlet; @@ -259,9 +262,10 @@ #X msg 37 180 0; #X text 141 13 CALCULATE HANNING; #X text 141 27 WINDOW TABLE; -#X graph graph1 0 -1 4096 1 275 581 675 281; -#X array hanning 4096 float; -#X pop; +#N canvas 0 0 450 300 graph1 0; +#X array hanning 4096 float 0; +#X coords 0 1 4096 -1 400 300 1; +#X restore 275 281 graph; #X obj 93 171 sig~; #X text 175 148 sample rate / window size; #X msg 23 144 bang; @@ -290,7 +294,7 @@ #X connect 18 0 9 0; #X restore 423 464 pd hanning-window; #X msg 31 172 \; window-size 2048 \; transpo 0 \; pd dsp 1; -#X floatatom 587 68; +#X floatatom 587 68 0 0 0 0 - - -; #N canvas 194 37 397 591 output 0; #X obj 62 191 t b; #X obj 62 144 f; @@ -336,7 +340,7 @@ #X text 261 3 PHASE VOCODER; #X obj 87 486 line~; #X obj 87 462 r master-amp; -#X text 108 30 This is a Fourier-based analysis/resynthesis tool.; +#X text 47 30 This is a Fourier-based analysis/resynthesis tool.; #X text 55 251 set location; #X text 54 265 and stop; #X text 54 279 precession; @@ -353,9 +357,10 @@ #X obj 429 363 samplerate~; #X obj 425 385 s sample-rate; #N canvas 132 255 634 327 insample 0; -#X graph graph1 0 -1 155947 1 199 168 599 18; -#X array sample 155948 float; -#X pop; +#N canvas 0 0 450 300 graph1 0; +#X array sample 155948 float 0; +#X coords 0 1 155947 -1 400 150 1; +#X restore 199 18 graph; #X obj 19 70 r read-sample; #X obj 19 95 unpack s f; #X obj 53 121 s insamprate; @@ -371,8 +376,11 @@ #X restore 425 415 pd insample; #X msg 196 146 \; read-sample ../sound/bell.aiff \; transpo 0; #X msg 196 197 \; read-sample ../sound/voice.wav \; transpo -530; -#X text 107 99 The second soundfile read button sets the transposition to correct for the 32000 sample rate of the file.; -#X text 108 50 You can move forward or backward in the sample \, or "freeze" at any point using the "precession" and "location" controls. Transposition is in hundredths of a half-tone.; +#X text 46 99 The second soundfile read button sets the transposition +to correct for the 32000 sample rate of the file.; +#X text 47 50 You can move forward or backward in the sample \, or +"freeze" at any point using the "precession" and "location" controls. +Transposition is in hundredths of a half-tone.; #X obj 569 184 tabwrite~ sample; #X connect 0 0 13 0; #X connect 1 0 50 0; -- cgit v1.2.1