ROOT_528-00b_version: tutorials/geom/geometry.C Source File

00001 //Example of the old geometry package (now obsolete)
00002 //Author: Rene Brun
00003    
00004 void geometry() {
00005    TString dir = gSystem->UnixPathName(gInterpreter->GetCurrentMacroName());
00006    dir.ReplaceAll("geometry.C","");
00007    dir.ReplaceAll("/./","/");
00008    gROOT->Macro(Form("%s/na49.C",dir.Data()));
00009    gROOT->Macro(Form("%s/na49geomfile.C",dir.Data()));
00010 }