new survey classes for EMCAL - uses dummy parameters for now, will update when detect...
[u/mrichter/AliRoot.git] / EMCAL / MakeEMCALFullMisAlignment.C
1 void MakeEMCALFullMisAlignment(){
2   // Create TClonesArray of full misalignment objects for EMCAL
3   //
4   const char* macroname = "MakeEMCALFullMisAlignment.C";
5   const AliEMCALGeometry *emcalGeom = AliEMCALGeometry::GetInstance(AliEMCALGeometry::GetDefaulGeometryName(),"");
6   if(!emcalGeom) {
7     Error("MakeEMCALFullMisAlignment","Cannot obtain AliEMCALGeometry singleton\n");
8     return;
9   }
10   TClonesArray *array = new TClonesArray("AliAlignObjParams",emcalGeom->GetNumberOfSuperModules());
11   TClonesArray &alobj = *array;
12
13   // Activate CDB storage and load geometry from CDB
14   AliCDBManager* cdb = AliCDBManager::Instance();
15   if(!cdb->IsDefaultStorageSet()) cdb->SetDefaultStorage("local://$ALICE_ROOT");
16   cdb->SetRun(0);
17   
18   AliCDBStorage* storage;
19   
20   if( TString(gSystem->Getenv("TOCDB")) == TString("kTRUE") ){
21     TString Storage = gSystem->Getenv("STORAGE");
22     if(!Storage.BeginsWith("local://") && !Storage.BeginsWith("alien://")) {
23       Error(macroname,"STORAGE variable set to %s is not valid. Exiting\n",Storage.Data());
24       return;
25     }
26     storage = cdb->GetStorage(Storage.Data());
27     if(!storage){
28       Error(macroname,"Unable to open storage %s\n",Storage.Data());
29       return;
30     }
31     AliCDBPath path("GRP","Geometry","Data");
32     AliCDBEntry *entry = storage->Get(path.GetPath(),cdb->GetRun());
33     if(!entry) Fatal(macroname,"Could not get the specified CDB entry!");
34     entry->SetOwner(0);
35     TGeoManager* geom = (TGeoManager*) entry->GetObject();
36     AliGeomManager::SetGeometry(geom);
37   }else{
38     AliGeomManager::LoadGeometry(); //load geom from default CDB
39                                     //storage
40   }    
41
42
43   AliEMCALSurvey emcalSurvey("emcal_survey_data.txt");
44   emcalSurvey.CreateAliAlignObjParams(alobj);
45
46   // *************************    2nd step    ***************
47
48   if( TString(gSystem->Getenv("TOCDB")) != TString("kTRUE") ){
49     // save on file
50     const char* filename = "EMCALfullMisalignment.root";
51     TFile f(filename,"RECREATE");
52     if(!f){
53       Error(macroname,"cannot open file for output\n");
54       return;
55     }
56     Info(macroname,"Saving alignment objects to the file %s", filename);
57     f.cd();
58     f.WriteObject(array,"EMCALAlignObjs","kSingleKey");
59     f.Close();
60   }else{
61     // save in CDB storage
62     AliCDBMetaData* md = new AliCDBMetaData();
63     md->SetResponsible("Jennifer Klay");
64     md->SetComment("Full misalignment for EMCAL");
65     md->SetAliRootVersion(gSystem->Getenv("ARVERSION"));
66     AliCDBId id("EMCAL/Align/Data",0,AliCDBRunRange::Infinity());
67     storage->Put(array,id,md);
68   }
69
70   array->Delete();
71
72 }
73