% mystraight
% transforms it with two parameters: scale and fotrans

function sigret=straight(sig,f0trans,freqscale,timescale)

mystraight('set_grafix',0);
mystraight('initialize');
mystraight('initializeparams');
mystraight('setwavedata',sig);
mystraight('source',sig);
mystraight('bandcorrbtn');
mystraight('bypassbtn');

scales(1)=f0trans;
scales(2)=freqscale;
scales(3)=timescale;

mystraight('set_scales',scales);
sigret=mystraight('synthesizegraded');








