00001 void bexec(TString &dir,char *macro)
00002 {
00003 if (gROOT->IsBatch()) printf("Processing benchmark: %s%s\n",dir.Data(),macro);
00004 TPaveText *summary = (TPaveText*)bench->GetPrimitive("TPave");
00005 TText *tmacro = summary->GetLineWith(macro);
00006 if (tmacro) tmacro->SetTextColor(4);
00007 bench->Modified(); bench->Update();
00008
00009 gROOT->Macro(Form("%s%s",dir.Data(),macro));
00010
00011 TPaveText *summary2 = (TPaveText*)bench->GetPrimitive("TPave");
00012 TText *tmacro2 = summary2->GetLineWith(macro);
00013 if (tmacro2) tmacro2->SetTextColor(2);
00014 bench->Modified(); bench->Update();
00015 }
00016
00017 void benchmarks() {
00018 TString dir = gSystem->UnixPathName(gInterpreter->GetCurrentMacroName());
00019 dir.ReplaceAll("benchmarks.C","");
00020 dir.ReplaceAll("/./","/");
00021 bench = new TCanvas("bench","Benchmarks Summary",-1000,50,200,500);
00022 summary = new TPaveText(0,0,1,1);
00023 summary->SetTextAlign(12);
00024 summary->SetTextSize(0.08);
00025 summary->Draw();
00026 summary->AddText(" graphics/framework.C");
00027 summary->AddText(" hsimple.C");
00028 summary->AddText(" hist/hsum.C");
00029 summary->AddText(" graphics/formula1.C");
00030 summary->AddText(" hist/fillrandom.C");
00031 summary->AddText(" fit/fit1.C");
00032 summary->AddText(" hist/h1draw.C");
00033 summary->AddText(" graphs/graph.C");
00034 summary->AddText(" graphs/gerrors.C");
00035 summary->AddText(" graphics/tornado.C");
00036 summary->AddText(" graphs/surfaces.C");
00037 summary->AddText(" graphs/zdemo.C");
00038 summary->AddText(" geom/geometry.C");
00039 summary->AddText(" geom/na49view.C");
00040 summary->AddText(" tree/ntuple1.C");
00041 summary->AddText(" ");
00042 bexec(dir,"graphics/framework.C");
00043 bexec(dir,"hsimple.C");
00044 bexec(dir,"hist/hsum.C");
00045 bexec(dir,"graphics/formula1.C");
00046 bexec(dir,"hist/fillrandom.C");
00047 bexec(dir,"fit/fit1.C");
00048 bexec(dir,"hist/h1draw.C");
00049 bexec(dir,"graphs/graph.C");
00050 bexec(dir,"graphs/gerrors.C");
00051 bexec(dir,"graphics/tornado.C");
00052 bexec(dir,"graphs/surfaces.C");
00053 bexec(dir,"graphs/zdemo.C");
00054 bexec(dir,"geom/geometry.C");
00055 bexec(dir,"geom/na49view.C");
00056 bexec(dir,"geom/na49view.C");
00057 bexec(dir,"tree/ntuple1.C");
00058 bexec(dir,"rootmarks.C");
00059 }
