Daniel@0: function varargout = mirplay(p,varargin)
Daniel@0: 
Daniel@0:         pat.key = 'Pattern';
Daniel@0:         pat.type = 'Integer';
Daniel@0:         pat.default = 0;
Daniel@0:     option.pat = pat;
Daniel@0:             
Daniel@0: specif.option = option;
Daniel@0: 
Daniel@0: specif.eachchunk = 'Normal';
Daniel@0: 
Daniel@0: varargout = mirfunction(@mirplay,p,varargin,nargout,specif,@init,@main);
Daniel@0: if nargout == 0
Daniel@0:     varargout = {};
Daniel@0: end
Daniel@0: 
Daniel@0: 
Daniel@0: function [x type] = init(x,option)
Daniel@0: type = '';
Daniel@0: 
Daniel@0: 
Daniel@0: function noargout = main(p,option,postoption)
Daniel@0: if not(option.pat)
Daniel@0:     option.pat = 1:length(p.pattern);
Daniel@0: end
Daniel@0: n = get(p,'Name');
Daniel@0: for h = 1:length(n)
Daniel@0:     for i = option.pat
Daniel@0:         display(['Pattern # ',num2str(i)])
Daniel@0:         for j = 1:length(p.pattern{i}.occurrence)
Daniel@0:             display(['Occurrence # ',num2str(j)])
Daniel@0:             a = miraudio(n{h},'Extract',p.pattern{i}.occurrence{j}.start,...
Daniel@0:                                      p.pattern{i}.occurrence{j}.end);
Daniel@0:             mirplay(a)
Daniel@0:         end
Daniel@0:     end
Daniel@0: end
Daniel@0: noargout = {};