% 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,'size',[8,8],opts);
		paperplot(40,@()plottrack(BDT),opts,'size',[30,5]);
	else
		plotfn=@(f,p)paperplot(f,p,'epsfile',sprintf('%s-%d.eps',opts.basename,f),'size',[8,8],opts);
		paperplot(40,@()plottrack(BDT),'epsfile',sprintf('%s-track.eps',opts.basename),opts,'size',[30,5]);
	end
	zipwith(plotfn,num2cell(40+(1:length(plots))),plots);
end
