samer@20: % drumplot - Do plots for given array of tracking data
samer@20: function drumplot(BDT,varargin)
samer@20: 	opts=prefs('basename',[],varargin{:});
samer@20: 	plots=drumplots(BDT,opts);
samer@20: 	if isempty(opts.basename)
samer@20: 		plotfn=@(f,p)paperplot(f,p,opts);
samer@20: 	else
samer@20: 		plotfn=@(f,p)paperplot(f,p,'epsfile',sprintf('%s-%d.eps',opts.basename,f),opts);
samer@20: 	end
samer@20: 	zipwith(plotfn,num2cell(40+(1:length(plots))),plots);
samer@20: end