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