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