comparison toolboxes/MIRtoolbox1.3.2/MIRToolbox/mirattacktime.m @ 0:e9a9cd732c1e tip

first hg version after svn

+function varargout = mirattacktime(orig,varargin)
+%   a = mirattacktime(x) returns the duration (in s.) of each note attack. 
+%   Optional arguments:
+%   a = mirattacktime(x,l) specifies whether to consider the duration in s.
+%       (l='Lin') or the logarithm of that duration (l='Log') following the
+%       approach proposed in Krimphoff et al. (1994).
+%       Default value: l='Lin'.
+%
+% Krimphoff, J., McAdams, S. & Winsberg, S. (1994), Caractérisation du 
+% timbre des sons complexes. II : Analyses acoustiques et quantification 
+% psychophysique. Journal de Physique, 4(C5), 625-628.
+
+        scale.type = 'String';
+        scale.choice = {'Lin','Log'};
+        scale.default = 'Lin';
+    option.scale = scale;
+    
+specif.option = option;
+
+varargout = mirfunction(@mirattacktime,orig,varargin,nargout,specif,@init,@main);
+
+
+function [o type] = init(x,option)
+o = mironsets(x,'Attack');
+type = mirtype(x);
+
+
+function at = main(o,option,postoption)
+if iscell(o)
+    o = o{1};
+end
+po = get(o,'PeakPosUnit');
+pa = get(o,'AttackPosUnit');
+at = mircompute(@algo,po,pa,option.scale);
+fp = mircompute(@frampose,pa,po);
+at = mirscalar(o,'Data',at,'FramePos',fp,'Title','Attack Time');
+at = {at,o};
+
+
+function fp = frampose(pa,po)
+pa = sort(pa{1});
+po = sort(po{1});
+fp = [pa';po'];
+
+
+function at = algo(po,pa,sc)
+po = sort(po{1});
+pa = sort(pa{1});
+at = po-pa;
+if strcmpi(sc,'Log')
+    at = log10(at);
+end
+at = at';