voc false 2 2 irev = <rev> ar1, ar2 diskin "<file>", <speed>, 0, <loop> ftps1 pvsanal ain1, <size>, <overlap>, <size>, 1 ; analyse it ftps2 pvsanal ain2, <size>, <overlap>, <size>, 1 ftps3 pvsanal ar1, <size>, <overlap>, <size>, 1 ; analyse it ftps4 pvsanal ar2, <size>, <overlap>, <size>, 1 if (irev == 1) kgoto setup1 kgoto setup2 setup1: fsig1 pvsvoc ftps1, ftps3, <depth>, <gainit> fsig2 pvsvoc ftps2, ftps4, <depth>, <gainit> goto end setup2: fsig1 pvsvoc ftps3, ftps1, <depth>, <gainit> fsig2 pvsvoc ftps4, ftps2, <depth>, <gainit> goto end end: aout1 pvsynth fsig1 ; synthesise it aout2 pvsynth fsig2 vocoding using Victor Lazzarini's pvsvoc. file 15 14 /Applications/MaxMSP 4.6/examples/sounds/anton.aif 100 size 165 12 256 256 512 512 1024 1024 2048 2048 4096 4096 3 true overlap 165 38 256 256 512 512 1024 1024 2048 2048 1 true 226 16 size 226 39 overlap depth 118 92 true 0.0 1.0 1.0 60 true 133 166 depth gainit 185 92 true 0.0 1.0 1.0 60 true 197 166 gainit speed 19 92 true -4.0 4.0 0.9491873 60 true 33 166 speed 15 46 select sound file (stereo) loop 13 62 loop true true rev 71 63 swap sources true true