Update of /cvsroot/pure-data/pd/doc/3.audio.examples In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23773/pd/doc/3.audio.examples
Modified Files: I07.phase.vocoder.pd Log Message: ... and again trying to check in 0.41-0 test 10
Index: I07.phase.vocoder.pd =================================================================== RCS file: /cvsroot/pure-data/pd/doc/3.audio.examples/I07.phase.vocoder.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** I07.phase.vocoder.pd 20 Jul 2007 03:25:19 -0000 1.2 --- I07.phase.vocoder.pd 28 Dec 2007 03:43:00 -0000 1.3 *************** *** 1,7 **** ! #N canvas 425 33 744 599 12; #X floatatom 494 315 5 0 0 0 - transpo-set -; #X floatatom 167 383 3 0 0 0 - speed-set -; #X floatatom 55 385 7 0 0 0 - location-set -; ! #N canvas 90 42 821 693 fft-analysis 0; #X obj 51 477 *~; #X obj 18 477 *~; --- 1,7 ---- ! #N canvas 164 25 744 599 12; #X floatatom 494 315 5 0 0 0 - transpo-set -; #X floatatom 167 383 3 0 0 0 - speed-set -; #X floatatom 55 385 7 0 0 0 - location-set -; ! #N canvas 90 42 821 693 fft-analysis 1; #X obj 51 477 *~; #X obj 18 477 *~; *************** *** 38,44 **** #X msg 426 619 set $1 4; #X obj 97 425 q8_rsqrt~; ! #N canvas 139 105 1006 799 read-windows 0; #X obj 18 693 *~; ! #X obj 340 448 r window-size; #X obj 156 300 f; #X obj 102 91 r window-size; --- 38,44 ---- #X msg 426 619 set $1 4; #X obj 97 425 q8_rsqrt~; ! #N canvas 139 105 1006 799 read-windows 1; #X obj 18 693 *~; ! #X obj 364 448 r window-size; #X obj 156 300 f; #X obj 102 91 r window-size; *************** *** 61,72 **** #X obj 51 597 / 4; #X obj 288 245 * 0.01; ! #X floatatom 340 498 7 0 0 0 - - -; ! #X obj 340 474 *; ! #X obj 499 365 r transpo; ! #X obj 499 387 * 0.01; ! #X obj 501 408 + 69; ! #X obj 502 429 mtof; ! #X obj 502 451 / 440; ! #X obj 375 474 t b f; #X obj 19 719 outlet~; #X obj 195 720 outlet~; --- 61,72 ---- #X obj 51 597 / 4; #X obj 288 245 * 0.01; ! #X floatatom 364 498 7 0 0 0 - - -; ! #X obj 364 474 *; ! #X obj 502 347 r transpo; ! #X obj 502 369 * 0.01; ! #X obj 504 390 + 69; ! #X obj 505 411 mtof; ! #X obj 505 433 / 440; ! #X obj 399 474 t b f; #X obj 19 719 outlet~; #X obj 195 720 outlet~; *************** *** 78,82 **** #X msg 768 532 set $1; #X obj 768 557 s speed-set; ! #X text 411 498 stretched window size (samples); #X obj 877 507 r transpo; #X msg 877 533 set $1; --- 78,82 ---- #X msg 768 532 set $1; #X obj 768 557 s speed-set; ! #X text 432 498 stretched window size (samples); #X obj 877 507 r transpo; #X msg 877 533 set $1; *************** *** 124,129 **** #X obj 730 685 r no-detune; #X msg 730 707 ; detune 0; ! #X text 326 275 loop to precess the location according; ! #X text 325 291 to the "speed" parameter.; #X text 611 31 if location changes , update number box; #X text 610 50 in main window via "location-set" , but; --- 124,129 ---- #X obj 730 685 r no-detune; #X msg 730 707 ; detune 0; ! #X text 321 280 loop to precess the location according; ! #X text 320 296 to the "speed" parameter.; #X text 611 31 if location changes , update number box; #X text 610 50 in main window via "location-set" , but; *************** *** 137,140 **** --- 137,148 ---- #X text 499 545 to a location depending on; #X text 499 564 stretched window size.; + #X obj 593 457 t b f; + #X obj 617 395 samplerate~; + #X obj 593 348 r $0-insamprate; + #X obj 593 418 /; + #X obj 505 455 * 1; + #X text 494 312 desired transposition and sample; + #X text 494 329 rate correction for soundfile; + #X obj 593 370 t f b; #X connect 0 0 30 0; #X connect 1 0 23 0; *************** *** 172,176 **** #X connect 26 0 27 0; #X connect 27 0 28 0; ! #X connect 28 0 29 0; #X connect 29 0 23 0; #X connect 29 1 23 1; --- 180,184 ---- #X connect 26 0 27 0; #X connect 27 0 28 0; ! #X connect 28 0 99 0; #X connect 29 0 23 0; #X connect 29 1 23 1; *************** *** 217,220 **** --- 225,236 ---- #X connect 79 0 78 0; #X connect 80 0 81 0; + #X connect 95 0 99 0; + #X connect 95 1 99 1; + #X connect 96 0 98 1; + #X connect 97 0 102 0; + #X connect 98 0 95 0; + #X connect 99 0 29 0; + #X connect 102 0 98 0; + #X connect 102 1 96 0; #X restore 109 133 pd read-windows; #X obj 137 543 tabsend~ prev-imag; *************** *** 364,369 **** #N canvas 0 110 565 454 hann-window 0; #N canvas 0 0 450 300 (subpatch) 0; ! #X array $0-hann 2048 float 0; ! #X coords 0 1 2047 0 300 100 1; #X restore 82 311 graph; #X obj 378 165 osc~; --- 380,385 ---- #N canvas 0 110 565 454 hann-window 0; #N canvas 0 0 450 300 (subpatch) 0; ! #X array $0-hann 1024 float 0; ! #X coords 0 1 1023 0 300 100 1; #X restore 82 311 graph; #X obj 378 165 osc~; *************** *** 414,419 **** #N canvas 388 86 694 447 insample 0; #N canvas 0 0 450 300 (subpatch) 0; ! #X array $0-sample 62079 float 0; ! #X coords 0 1 62078 -1 400 150 1; #X restore 281 135 graph; #X obj 28 133 r read-sample; --- 430,435 ---- #N canvas 388 86 694 447 insample 0; #N canvas 0 0 450 300 (subpatch) 0; ! #X array $0-sample 155948 float 0; ! #X coords 0 1 155947 -1 400 150 1; #X restore 281 135 graph; #X obj 28 133 r read-sample;