Mercurial > hg > camir-aes2014
diff toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirpattern/mirplay.m @ 0:e9a9cd732c1e tip
first hg version after svn
author | wolffd |
---|---|
date | Tue, 10 Feb 2015 15:05:51 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/toolboxes/MIRtoolbox1.3.2/MIRToolbox/@mirpattern/mirplay.m Tue Feb 10 15:05:51 2015 +0000 @@ -0,0 +1,38 @@ +function varargout = mirplay(p,varargin) + + pat.key = 'Pattern'; + pat.type = 'Integer'; + pat.default = 0; + option.pat = pat; + +specif.option = option; + +specif.eachchunk = 'Normal'; + +varargout = mirfunction(@mirplay,p,varargin,nargout,specif,@init,@main); +if nargout == 0 + varargout = {}; +end + + +function [x type] = init(x,option) +type = ''; + + +function noargout = main(p,option,postoption) +if not(option.pat) + option.pat = 1:length(p.pattern); +end +n = get(p,'Name'); +for h = 1:length(n) + for i = option.pat + display(['Pattern # ',num2str(i)]) + for j = 1:length(p.pattern{i}.occurrence) + display(['Occurrence # ',num2str(j)]) + a = miraudio(n{h},'Extract',p.pattern{i}.occurrence{j}.start,... + p.pattern{i}.occurrence{j}.end); + mirplay(a) + end + end +end +noargout = {}; \ No newline at end of file