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