Daniel@0: function mirplay(q,varargin)
Daniel@0: 
Daniel@0: rank = 1:length(q.name);
Daniel@0: if nargin>2 && strcmpi(varargin{1},'Sequence')
Daniel@0:     rank = intersect(rank,varargin{2});
Daniel@0: end
Daniel@0: disp(['Query: ',q.query.name{1}]);
Daniel@0: mirplay(q.query.name{1});
Daniel@0: disp('********')
Daniel@0: disp('Retrieval:')
Daniel@0: for i = rank
Daniel@0:     disp([num2str(i),'. ',q.name{i},' (dist = ',num2str(q.dist(i)),')']);
Daniel@0:     mirplay(q.name{i});
Daniel@0: end