RICH/CreateConfig.C

   1 class KirConfig
   2 {
   3 RQ_OBJECT()
   4 public:
   5   enum EDetectors {kPIPE=1,kITS=2,kTPC=4,kTRD=8,kTOF=16,kFRAME=32,kMAG=64,kCRT=128,kHALL=256,kPHOS=512,kSTART=1024,kFMD=2048,kABSO=4096,
   6                    kPMD=8192,kDIPO=16384,kEMCAL=32768,kVZERO=65536,kMUON=131072,kZDC=262144,kSHILD=524288};
   7   enum EProcesses {kDCAY=1,kPAIR=2,kCOMP=4,kPHOT=8,kPFIS=16,kDRAY=32,kANNI=64,kBREM=128,kMUNU=256,kCKOV=512,kHADR=1024,kLOSS=2048,kMULS=4096,
   8                    kRAYL=8192};
   9   enum EGenTypes  {kGun1,kGun7,kHijing,kHijingPara};
  10       KirConfig();
  11      ~KirConfig()    {Info("ctor","");fMain->CleanUp(); delete fMain;}
  12   void   AddDetector(Int_t id)          {fDetectors+=id;}
  13   void   RemoveDetector(Int_t id)       {fDetectors-=id;}
  14   void   AddProcess(Int_t id)           {fProcesses+=id;}
  15   void   RemoveProcess(Int_t id)        {fProcesses-=id;}
  16   Bool_t IsDetectorOn(Int_t id)    const{return fDetectors&id;}
  17   Bool_t IsProcessOn(Int_t id)     const{return fProcesses&id;}
  18   void   CreateConfigFile();
  19 protected:
  20   TGMainFrame  *fMain;//main window poiter
  21   TGComboBox   *fRichVersionCombo;
  22   TGButton     *fRichTopChkBtn, *fMagFldChkBtn;
  23   TGComboBox   *fGenTypeCombo,*fPartIdCombo,*fMomCombo;
  24   Int_t         fDetectors;
  25   Int_t         fProcesses;
  26 };//class KirConfig
  27
  28
  29 KirConfig::KirConfig()
  30 {
  31 // Create main frame
  32   fMain=new TGMainFrame(gClient->GetRoot(),500,400);
  33 //  fMain->Connect("CloseWindow()","KirConfig",this,"CloseWindow()");
  34   fMain->AddFrame(pHorFrame=new TGHorizontalFrame(fMain,100,200));
  35 //RICH
  36   pHorFrame->AddFrame(pVerFrame=new TGVerticalFrame(pHorFrame,100,200));
  37   pVerFrame->AddFrame(pRichGrpFrm=new TGGroupFrame(pHorFrame,"RICH"));
  38   pRichGrpFrm->AddFrame(fRichVersionCombo=new TGComboBox(pRichGrpFrm,100));
  39   fRichVersionCombo->AddEntry("version 0",0);
  40   fRichVersionCombo->AddEntry("version 1",1);
  41   fRichVersionCombo->AddEntry("version 3",3);
  42   fRichVersionCombo->Select(3);
  43   fRichVersionCombo->Resize(140,20);
  44   pRichGrpFrm->AddFrame(fRichTopChkBtn=new TGCheckButton(pRichGrpFrm,"Rotate to Top?"));
  45 //Generator
  46   pVerFrame->AddFrame(pGenGrpFrm=new TGGroupFrame(pHorFrame,"Generator"));
  47   pGenGrpFrm->AddFrame(fGenTypeCombo=new TGComboBox(pGenGrpFrm,100));
  48   fGenTypeCombo->AddEntry("gun to central chamber",kGun1);
  49   fGenTypeCombo->AddEntry("gun to all chambers",kGun7);
  50   fGenTypeCombo->AddEntry("HIJING",kHijing);
  51   fGenTypeCombo->AddEntry("parametrized HIJING",kHijingPara);
  52   fGenTypeCombo->Select(kGun1);
  53   fGenTypeCombo->Resize(160,20);
  54
  55   pGenGrpFrm->AddFrame(fPartIdCombo=new TGComboBox(pGenGrpFrm,100));
  56   fPartIdCombo->AddEntry("Pion+",kPiPlus);
  57   fPartIdCombo->AddEntry("Pion-",kPiMinus);
  58   fPartIdCombo->AddEntry("Kaon+",kKPlus);
  59   fPartIdCombo->AddEntry("Kaon-",kKMinus);
  60   fPartIdCombo->AddEntry("Proton",kProton);
  61   fPartIdCombo->AddEntry("AntiProton",kProtonBar);
  62   fPartIdCombo->Select(kPiPlus);
  63   fPartIdCombo->Resize(160,20);
  64
  65   pGenGrpFrm->AddFrame(fMomCombo=new TGComboBox(pGenGrpFrm,100));
  66   fMomCombo->AddEntry("1.5 GeV",15);
  67   fMomCombo->AddEntry("2.0 Gev",20);
  68   fMomCombo->AddEntry("2.5 GeV",25);
  69   fMomCombo->AddEntry("3.0 GeV",30);
  70   fMomCombo->AddEntry("3.5 GeV",35);
  71   fMomCombo->AddEntry("4.0 GeV",40);
  72   fMomCombo->AddEntry("4.5 GeV",45);
  73   fMomCombo->Select(40);
  74   fMomCombo->Resize(160,20);
  75 // Magnetic Field
  76   pVerFrame->AddFrame(pFldGrpFrm=new TGGroupFrame(pHorFrame,"Magnetic Field"));
  77   pFldGrpFrm->AddFrame(fMagFldChkBtn=new TGCheckButton(pFldGrpFrm,"On/Off?"));
  78   fMagFldChkBtn->SetState(kButtonDown);
  79 //Detectors
  80   pHorFrame->AddFrame(pDetButGrp=new TGButtonGroup(pHorFrame,"Detectors"));
  81   pDetButGrp->Connect("Pressed(Int_t)","KirConfig",this,"AddDetector(Int_t)");
  82   pDetButGrp->Connect("Released(Int_t)","KirConfig",this,"RemoveDetector(Int_t)");
  83   new TGCheckButton(pDetButGrp,"PIPE"  ,kPIPE));
  84   new TGCheckButton(pDetButGrp,"ITS"   ,kITS));
  85   new TGCheckButton(pDetButGrp,"TPC"   ,kTPC));
  86   new TGCheckButton(pDetButGrp,"TRD"   ,kTRD));
  87   new TGCheckButton(pDetButGrp,"TOF"   ,kTOF));
  88   new TGCheckButton(pDetButGrp,"FRAME" ,kFRAME));
  89   new TGCheckButton(pDetButGrp,"MAG"   ,kMAG));
  90   new TGCheckButton(pDetButGrp,"CRT"   ,kCRT));
  91   new TGCheckButton(pDetButGrp,"HALL"  ,kHALL));
  92   new TGCheckButton(pDetButGrp,"PHOS"  ,kPHOS));
  93   new TGCheckButton(pDetButGrp,"START" ,kSTART));
  94   new TGCheckButton(pDetButGrp,"FMD"   ,kFMD));
  95   new TGCheckButton(pDetButGrp,"ABSO"  ,kABSO));
  96   new TGCheckButton(pDetButGrp,"PMD"   ,kPMD));
  97   new TGCheckButton(pDetButGrp,"DIPO"  ,kDIPO));
  98   new TGCheckButton(pDetButGrp,"EMCAL" ,kEMCAL));
  99   new TGCheckButton(pDetButGrp,"VZERO" ,kVZERO));
 100   new TGCheckButton(pDetButGrp,"MUON"  ,kMUON));
 101   new TGCheckButton(pDetButGrp,"ZDC"   ,kZDC));
 102   new TGCheckButton(pDetButGrp,"SHILD" ,kSHILD));
 103 //Processes
 104   pHorFrame->AddFrame(pProcButGrp=new TGButtonGroup(pHorFrame,"Processes"));
 105   pProcButGrp->Connect("Pressed(Int_t)","KirConfig",this,"AddProcess(Int_t)");
 106   pProcButGrp->Connect("Released(Int_t)","KirConfig",this,"RemoveProcess(Int_t)");
 107   new TGCheckButton(pProcButGrp,"DCAY",kDCAY));  pProcButGrp->SetButton(kDCAY);
 108   new TGCheckButton(pProcButGrp,"PAIR",kPAIR));  pProcButGrp->SetButton(kPAIR);
 109   new TGCheckButton(pProcButGrp,"COMP",kCOMP));  pProcButGrp->SetButton(kCOMP);
 110   new TGCheckButton(pProcButGrp,"PHOT",kPHOT));  pProcButGrp->SetButton(kPHOT);
 111   new TGCheckButton(pProcButGrp,"PFIS",kPFIS));
 112   new TGCheckButton(pProcButGrp,"DRAY",kDRAY));
 113   new TGCheckButton(pProcButGrp,"ANNI",kANNI));  pProcButGrp->SetButton(kANNI);
 114   new TGCheckButton(pProcButGrp,"BREM",kBREM));  pProcButGrp->SetButton(kBREM);
 115   new TGCheckButton(pProcButGrp,"MUNU",kMUNU));  pProcButGrp->SetButton(kMUNU);
 116   new TGCheckButton(pProcButGrp,"CKOV",kCKOV));  pProcButGrp->SetButton(kCKOV);
 117   new TGCheckButton(pProcButGrp,"HADR",kHADR));  pProcButGrp->SetButton(kHADR);
 118   new TGCheckButton(pProcButGrp,"LOSS",kLOSS));  pProcButGrp->SetButton(kLOSS);
 119   new TGCheckButton(pProcButGrp,"MULS",kMULS));  pProcButGrp->SetButton(kMULS);
 120   new TGCheckButton(pProcButGrp,"RAYL",kRAYL));  pProcButGrp->SetButton(kRAYL);
 121
 122   fMain->AddFrame(pFileHorFrm=new TGHorizontalFrame(fMain,100,200));
 123   pFileHorFrm->AddFrame(pCreateBtn=new TGTextButton(pFileHorFrm,"Create"));
 124   pCreateBtn->Connect("Clicked()","KirConfig",this,"CreateConfigFile()");
 125
 126   fMain->MapSubwindows();
 127   fMain->Layout();
 128   fMain->SetWindowName("Create AliROOT Config script");
 129   fMain->MapWindow();
 130 }//KirCondig::ctor
 131
 132 void KirConfig::CreateConfigFile()
 133 {
 134   char *sName="ConfigRich.C";
 135   FILE *fp=fopen(sName,"w"); if(!fp){Info("CreateConfigFile","Cannot open output file:%sn",sName);return;}
 136
 137   fprintf(fp,"void Config()\n");
 138   fprintf(fp,"{\n");
 139   fprintf(fp,"  ::Info(\"RICH private config\",\"Start\");\n\n");
 140 //Random
 141   fprintf(fp,"  gRandom->SetSeed(123456);//put 0 to use system time\n\n");
 142 //Geant
 143   fprintf(fp,"  gSystem->Load(\"libgeant321\");\n");
 144   fprintf(fp,"  new TGeant3(\"C++ Interface to Geant3\");\n\n");
 145 //File
 146   fprintf(fp,"  AliRunLoader *pAL=AliRunLoader::Open(\"galice.root\",AliConfig::fgkDefaultEventFolderName,\"recreate\");\n");
 147   fprintf(fp,"  pAL->SetCompressionLevel(2);\n");
 148   fprintf(fp,"  pAL->SetNumberOfEventsPerFile(50);\n");
 149   fprintf(fp,"  gAlice->SetRunLoader(pAL);\n\n");
 150 //Decayer
 151   fprintf(fp,"  TVirtualMCDecayer *pDecayer=new AliDecayerPythia();\n");
 152   fprintf(fp,"  pDecayer->SetForceDecay(kAll);\n");
 153   fprintf(fp,"  pDecayer->Init();\n");
 154   fprintf(fp,"  gMC->SetExternalDecayer(pDecayer);\n\n");
 155 //Physics
 156   if(IsProcessOn(kDCAY)) fprintf(fp,"  gMC->SetProcess(\"DCAY\",1);");  else fprintf(fp,"  gMC->SetProcess(\"DCAY\",0);");
 157   if(IsProcessOn(kPAIR)) fprintf(fp,"  gMC->SetProcess(\"PAIR\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"PAIR\",0);\n");
 158   if(IsProcessOn(kCOMP)) fprintf(fp,"  gMC->SetProcess(\"COMP\",1);");  else fprintf(fp,"  gMC->SetProcess(\"COMP\",0);");
 159   if(IsProcessOn(kPHOT)) fprintf(fp,"  gMC->SetProcess(\"PHOT\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"PHOT\",0);\n");
 160   if(IsProcessOn(kPFIS)) fprintf(fp,"  gMC->SetProcess(\"PFIS\",1);");  else fprintf(fp,"  gMC->SetProcess(\"PFIS\",0);");
 161   if(IsProcessOn(kDRAY)) fprintf(fp,"  gMC->SetProcess(\"DRAY\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"DRAY\",0);\n");
 162   if(IsProcessOn(kANNI)) fprintf(fp,"  gMC->SetProcess(\"ANNI\",1);");  else fprintf(fp,"  gMC->SetProcess(\"ANNI\",0);");
 163   if(IsProcessOn(kBREM)) fprintf(fp,"  gMC->SetProcess(\"BREM\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"BREM\",0);\n");
 164   if(IsProcessOn(kMUNU)) fprintf(fp,"  gMC->SetProcess(\"MUNU\",1);");  else fprintf(fp,"  gMC->SetProcess(\"MUNU\",0);");
 165   if(IsProcessOn(kCKOV)) fprintf(fp,"  gMC->SetProcess(\"CKOV\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"CKOV\",0);\n");
 166   if(IsProcessOn(kHADR)) fprintf(fp,"  gMC->SetProcess(\"HADR\",1);");  else fprintf(fp,"  gMC->SetProcess(\"HADR\",0);");
 167   if(IsProcessOn(kLOSS)) fprintf(fp,"  gMC->SetProcess(\"LOSS\",2);\n");else fprintf(fp,"  gMC->SetProcess(\"LOSS\",0);\n");
 168   if(IsProcessOn(kMULS)) fprintf(fp,"  gMC->SetProcess(\"MULS\",1);");  else fprintf(fp,"  gMC->SetProcess(\"MULS\",0);");
 169   if(IsProcessOn(kRAYL)) fprintf(fp,"  gMC->SetProcess(\"RAYL\",1);\n");else fprintf(fp,"  gMC->SetProcess(\"RAYL\",0);\n");
 170
 171   fprintf(fp,"  gMC->SetCut(\"CUTGAM\",0.001); ");  fprintf(fp,"  gMC->SetCut(\"CUTELE\",0.001); ");
 172   fprintf(fp,"  gMC->SetCut(\"CUTNEU\",0.001);\n"); fprintf(fp,"  gMC->SetCut(\"CUTHAD\",0.001); ");
 173   fprintf(fp,"  gMC->SetCut(\"CUTMUO\",0.001); ");  fprintf(fp,"  gMC->SetCut(\"BCUTE\" ,0.001);\n");
 174   fprintf(fp,"  gMC->SetCut(\"BCUTM\" ,0.001); ");  fprintf(fp,"  gMC->SetCut(\"DCUTE\" ,0.001); ");
 175   fprintf(fp,"  gMC->SetCut(\"DCUTM\" ,0.001);\n");  fprintf(fp,"  gMC->SetCut(\"PPCUTM\",0.001); ");
 176   fprintf(fp,"  gMC->SetCut(\"TOFMAX\",1e10);\n\n");
 177 //Field
 178   if(fMagFldChkBtn->GetState()==kButtonDown) fprintf(fp,"  gAlice->SetField();\n\n");else fprintf(fp,"  gAlice->SetField(0);\n\n");
 179   fprintf(fp,"  pAL->CdGAFile();\n\n");                                 //????
 180 //BODY-ALIC
 181   fprintf(fp,"  new AliBODY(\"BODY\",\"Alice envelop\");\n\n");
 182 //RICH
 183   if(fRichTopChkBtn->GetState()==kButtonDown) fprintf(fp,"  AliRICHParam::AngleRot(0);\n");
 184   switch(fRichVersionCombo->GetSelected()){//RICH
 185     case 0:   fprintf(fp,"  pRICH=new AliRICHv0(\"RICH\",\"RICH version 0\");\n\n"); break;
 186     case 1:   fprintf(fp,"  pRICH=new AliRICHv1(\"RICH\",\"RICH version 1\");\n\n"); break;
 187     case 3:   fprintf(fp,"  pRICH=new AliRICHv3(\"RICH\",\"RICH version 3\");\n\n"); break;
 188   }
 189 //Generator
 190   switch(fGenTypeCombo->GetSelected()){
 191     case kHijingPara:   fprintf(fp,"  pGenerator->AddGenerator(new AliGenHIJINGpara(85700),\"HIJING para\",1);\n");  break;
 192     case kGun7:   break;
 193     case kGun1:
 194       fprintf(fp,"  AliGenFixed *pGen=new AliGenFixed(1);\n");
 195       fprintf(fp,"  pGen->SetPart(%i); pGen->SetMomentum(%3.1f); pGen->SetOrigin(0,0,0);\n",fPartIdCombo->GetSelected(),float(fMomCombo->GetSelected())/10);
 196       fprintf(fp,"  pGen->SetPhiRange(pRICH->C(4)->PhiD()); pGen->SetThetaRange(pRICH->C(4)->ThetaD()-2);\n");
 197       fprintf(fp,"  pGen->Init();\n");
 198       break;
 199   }
 200 //Other detectors
 201   if(IsDetectorOn(kMAG))  fprintf(fp,"\n  new AliMAG(\"MAG\",\"Magnet\");\n");
 202   if(IsDetectorOn(kABSO)) fprintf(fp,"\n  new AliABSOv0(\"ABSO\",\"Muon absorber\");\n");
 203   if(IsDetectorOn(kDIPO)) fprintf(fp,"\n  new AliDIPOv2(\"DIPO\",\"Dipole version 2\");\n");
 204   if(IsDetectorOn(kHALL)) fprintf(fp,"\n  new AliHALL(\"HALL\",\"Alice Hall\");\n");
 205   if(IsDetectorOn(kFRAME))fprintf(fp,"\n  AliFRAMEv2 *pFrame=new AliFRAMEv2(\"FRAME\",\"Space Frame\"); pFrame->SetHoles(1);\n");
 206   if(IsDetectorOn(kSHILD))fprintf(fp,"\n  new AliSHILv2(\"SHIL\",\"Shielding Version 2\");\n");
 207   if(IsDetectorOn(kPIPE)) fprintf(fp,"\n  new AliPIPEv0(\"PIPE\",\"Beam Pipe\");\n");
 208
 209   if(IsDetectorOn(kITS)){
 210     fprintf(fp,"\n  AliITSvPPRasymmFMD *pIts =new AliITSvPPRasymmFMD(\"ITS\",\"ITS PPR detailed version\");\n");
 211     fprintf(fp,"  pIts->SetMinorVersion(2); pIts->SetReadDet(kTRUE);\n");
 212     fprintf(fp,"  pIts->SetThicknessDet1(200.); pIts->SetThicknessDet2(200.);\n");
 213     fprintf(fp,"  pIts->SetThicknessChip1(200.); pIts->SetThicknessChip2(200.);\n");
 214     fprintf(fp,"  pIts->SetRails(0); pIts->SetCoolingFluid(1);\n");
 215     fprintf(fp,"  pIts->SetEUCLID(0);\n");
 216   }
 217
 218   if(IsDetectorOn(kTPC)){fprintf(fp,"\n  AliTPC *pTpc=new AliTPCv2(\"TPC\",\"Default\"); pTpc->SetSecAU(-1);pTpc->SetSecAL(-1);\n");}
 219   if(IsDetectorOn(kZDC))fprintf(fp,"\n  new AliZDCv2(\"ZDC\",\"normal ZDC\");\n");
 220
 221   if(IsDetectorOn(kTRD)){
 222     fprintf(fp,"\n  AliTRD *pTrd=new AliTRDv1(\"TRD\",\"TRD slow simulator\");\n");
 223     fprintf(fp,"  pTrd->SetGasMix(1); pTrd->SetPHOShole(); pTrd->SetRICHhole();pTrd->CreateTR();\n");
 224   }
 225
 226   if(IsDetectorOn(kFMD))   fprintf(fp,"\n  new AliFMDv1(\"FMD\",\"normal FMD\");\n");
 227   if(IsDetectorOn(kMUON))  fprintf(fp,"\n  new AliMUONv1(\"MUON\",\"default\");\n");
 228   if(IsDetectorOn(kPHOS))  fprintf(fp,"\n  new AliPHOSv1(\"PHOS\",\"IHEP\");\n");
 229   if(IsDetectorOn(kPMD))   fprintf(fp,"\n  new AliPMDv1(\"PMD\",\"normal PMD\");\n");
 230   if(IsDetectorOn(kSTART)) fprintf(fp,"\n  new AliSTARTv1(\"START\",\"START Detector\");\n");
 231   if(IsDetectorOn(kEMCAL)) fprintf(fp,"\n  new AliEMCALv1(\"EMCAL\",\"G56_2_55_19_104_14\");\n");
 232   if(IsDetectorOn(kCRT))   fprintf(fp,"\n  new AliCRTv0(\"CRT\",\"normal ACORDE\");\n");
 233   if(IsDetectorOn(kVZERO)) fprintf(fp,"\n  new AliVZEROv2(\"VZERO\",\"normal VZERO\");\n");
 234
 235   fprintf(fp,"\n  ::Info(\"RICH private config\",\"Stop\");\n");
 236   fprintf(fp,"}\n");
 237   fclose(fp);
 238   gApplication->Terminate(0);
 239 }//CreateConfigFile
 240
 241 KirConfig *p;
 242 void CreateConfig()
 243 {
 244    p=new KirConfig;
 245 }
 246