Name=Harmoniser Maker=Rory Walsh UniqueID=4099 Copyright=wertNone ControlPort=Voice 1 Freq|freq1 Range=0|2 ControlPort=Voice 2 Freq|freq2 Range=0|2 -d sr = 44100 ksmps = 64 nchnls = 1 instr 1 asig in kfreq1 chnget "freq1" kfreq2 chnget "freq2" fsig pvsanal asig, 1024, 256, 1024, 1 ; analyse it ftps1 pvscale fsig, kfreq1, 1, 2 ; transpose it keeping formants ftps2 pvscale fsig, kfreq2, 1, 2 ; transpose it keeping formants atps1 pvsynth ftps1 ; synthesise it atps2 pvsynth ftps2 ; synthesise it adp delayr .1 ; delay original signal adel deltapn 1024 ; by 1024 samples delayw asig out (atps1+atps2+adel) ; add tranposed and original endin f1 0 1024 10 1 i1 0 3600 e