tomwalters@0: % method of class @signal
tomwalters@0: % 
tomwalters@0: %   INPUT VALUES:
tomwalters@0: %  
tomwalters@0: %   RETURN VALUE:
tomwalters@0: %
tomwalters@0: % 
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: 
tomwalters@0: function sig=modtuningtilt(sig)
tomwalters@0: 
tomwalters@0: sig=antitilt(sig,0.04); % mache die Neigung rückgängig
tomwalters@0: 
tomwalters@0: 
tomwalters@0: sig=tilt(sig,0.08); % tilte, aber etwas weniger
tomwalters@0: 
tomwalters@0: 
tomwalters@0: 
tomwalters@0: vals=sig.werte;
tomwalters@0: 
tomwalters@0: 
tomwalters@0: cutoff=500; % Hz
tomwalters@0: drop=0.002; % Falle bis auf Null in 2 ms
tomwalters@0: durationtotilt=1/cutoff; 
tomwalters@0: 
tomwalters@0: tiltstart=time2bin(sig,-durationtotilt);  % Hier gehts los
tomwalters@0: tiltend=time2bin(sig,-durationtotilt+drop);        % und hier hörts schon wieder auf
tomwalters@0: tiltnr=tiltend-tiltstart;
tomwalters@0: ti=linspace(1,0,tiltnr);
tomwalters@0: 
tomwalters@0: vals(tiltstart+1:tiltend)=vals(tiltstart+1:tiltend).*ti(:);
tomwalters@0: vals(tiltend:end)=0;
tomwalters@0: % figure
tomwalters@0: % subplot(2,1,1)
tomwalters@0: % plot(sig);
tomwalters@0: sig.werte=vals;
tomwalters@0: % subplot(2,1,2)
tomwalters@0: % plot(sig);
tomwalters@0: