bleeck@3: % This external file is included as part of the 'aim-mat' distribution package
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
tomwalters@0: % mystraight
tomwalters@0: % transforms it with two parameters: scale and fotrans
tomwalters@0: 
tomwalters@0: function sigret=straight(sig,f0trans,freqscale,timescale)
tomwalters@0: 
tomwalters@0: mystraight('set_grafix',0);
tomwalters@0: mystraight('initialize');
tomwalters@0: mystraight('initializeparams');
tomwalters@0: mystraight('setwavedata',sig);
tomwalters@0: mystraight('source',sig);
tomwalters@0: mystraight('bandcorrbtn');
tomwalters@0: mystraight('bypassbtn');
tomwalters@0: 
tomwalters@0: scales(1)=f0trans;
tomwalters@0: scales(2)=freqscale;
tomwalters@0: scales(3)=timescale;
tomwalters@0: 
tomwalters@0: mystraight('set_scales',scales);
tomwalters@0: sigret=mystraight('synthesizegraded');
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: