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