[u/mrichter/AliRoot.git] / TPHIC / ConfigTPHIC.C

static Int_t    eventsPerRun = 100;
enum PprGeo_t 
{
    kHoles, kNoHoles
};
static PprGeo_t geo = kHoles;

void Config()
{
    // 7-DEC-2000 09:00
    // Switch on Transition Radiation simulation. 6/12/00 18:00
    // iZDC=1  7/12/00 09:00
    // ThetaRange is (0., 180.). It was (0.28,179.72) 7/12/00 09:00
    // Theta range given through pseudorapidity limits 22/6/2001

    // Set Random Number seed
    // gRandom->SetSeed(12345);


   // libraries required by geant321
    gSystem->Load("libgeant321");

    new     TGeant3("C++ Interface to Geant3");

    if (!gSystem->Getenv("CONFIG_FILE"))
    {
        TFile  *rootfile = new TFile("galice.root", "recreate");

        rootfile->SetCompressionLevel(2);
    }

    TGeant3 *geant3 = (TGeant3 *) gMC;

    //
    // Set External decayer
    TVirtualMCDecayer *decayer = new AliDecayerPythia();

    decayer->SetForceDecay(kAll);
    decayer->Init();
    gMC->SetExternalDecayer(decayer);
    //
    //
    //=======================================================================
    // ******* GEANT STEERING parameters FOR ALICE SIMULATION *******
    geant3->SetTRIG(1);         //Number of events to be processed 
    geant3->SetSWIT(4, 1);
    geant3->SetDEBU(0, 0, 1);
    //geant3->SetSWIT(2,2);
    geant3->SetDCAY(1);
    geant3->SetPAIR(1);
    geant3->SetCOMP(1);
    geant3->SetPHOT(1);
    geant3->SetPFIS(0);
    geant3->SetDRAY(0);
    geant3->SetANNI(1);
    geant3->SetBREM(1);
    geant3->SetMUNU(1);
    geant3->SetCKOV(1);
    geant3->SetHADR(1);         //Select pure GEANH (HADR 1) or GEANH/NUCRIN (HADR 3)
    geant3->SetLOSS(2);
    geant3->SetMULS(1);
    geant3->SetRAYL(1);
    geant3->SetAUTO(1);         //Select automatic STMIN etc... calc. (AUTO 1) or manual (AUTO 0)
    geant3->SetABAN(0);         //Restore 3.16 behaviour for abandoned tracks
    geant3->SetOPTI(2);         //Select optimisation level for GEANT geometry searches (0,1,2)
    geant3->SetERAN(5.e-7);

    Float_t cut = 1.e-3;        // 1MeV cut by default
    Float_t tofmax = 1.e10;

    //             GAM ELEC NHAD CHAD MUON EBREM MUHAB EDEL MUDEL MUPA TOFMAX
    geant3->SetCUTS(cut, cut, cut, cut, cut, cut, cut, cut, cut, cut,
                    tofmax);
    //
    //=======================================================================
    // ************* STEERING parameters FOR ALICE SIMULATION **************
    // --- Specify event type to be tracked through the ALICE setup
    // --- All positions are in cm, angles in degrees, and P and E in GeV

    Int_t process=1;
    GenTPHIC(process);

    // 
    // Activate this line if you want the vertex smearing to happen
    // track by track
    //
    //gener->SetVertexSmear(perTrack); 
    // Field (L3 0.4 T)
    AliMagFMaps* field = new AliMagFMaps("Maps","Maps", 2, 1., 10., 1);
    rootfile->cd();
    gAlice->SetField(field);    


    Int_t   iABSO  =  0;
    Int_t   iDIPO  =  0;
    Int_t   iFMD   =  0;
    Int_t   iFRAME =  0;
    Int_t   iHALL  =  0;
    Int_t   iITS   =  0;
    Int_t   iMAG   =  0;
    Int_t   iMUON  =  0;
    Int_t   iPHOS  =  0;
    Int_t   iPIPE  =  0;
    Int_t   iPMD   =  0;
    Int_t   iRICH  =  0;
    Int_t   iSHIL  =  0;
    Int_t   iSTART =  0;
    Int_t   iTOF   =  0;
    Int_t   iTPC   =  0;
    Int_t   iTRD   =  0;
    Int_t   iZDC   =  0;
    Int_t   iEMCAL =  0;
    Int_t   iCRT   =  0;
    Int_t   iVZERO =  0;

    //=================== Alice BODY parameters =============================
    AliBODY *BODY = new AliBODY("BODY", "Alice envelop");

    if (iMAG)
    {
        //=================== MAG parameters ============================
        // --- Start with Magnet since detector layouts may be depending ---
        // --- on the selected Magnet dimensions ---
        AliMAG *MAG = new AliMAG("MAG", "Magnet");
    }


    if (iABSO)
    {
        //=================== ABSO parameters ============================
        AliABSO *ABSO = new AliABSOv0("ABSO", "Muon Absorber");
    }

    if (iDIPO)
    {
        //=================== DIPO parameters ============================

        AliDIPO *DIPO = new AliDIPOv2("DIPO", "Dipole version 2");
    }

    if (iHALL)
    {
        //=================== HALL parameters ============================

        AliHALL *HALL = new AliHALL("HALL", "Alice Hall");
    }


    if (iFRAME)
    {
        //=================== FRAME parameters ============================

        AliFRAMEv2 *FRAME = new AliFRAMEv2("FRAME", "Space Frame");
	if (geo == kHoles) {
	    FRAME->SetHoles(1);
	} else {
	    FRAME->SetHoles(0);
	}
    }

    if (iSHIL)
    {
        //=================== SHIL parameters ============================

        AliSHIL *SHIL = new AliSHILv2("SHIL", "Shielding Version 2");
    }


    if (iPIPE)
    {
        //=================== PIPE parameters ============================

        AliPIPE *PIPE = new AliPIPEv0("PIPE", "Beam Pipe");
    }
 
    if(iITS) {

    //=================== ITS parameters ============================
    //
    // As the innermost detector in ALICE, the Inner Tracking System "impacts" on
    // almost all other detectors. This involves the fact that the ITS geometry
    // still has several options to be followed in parallel in order to determine
    // the best set-up which minimizes the induced background. All the geometries
    // available to date are described in the following. Read carefully the comments
    // and use the default version (the only one uncommented) unless you are making
    // comparisons and you know what you are doing. In this case just uncomment the
    // ITS geometry you want to use and run Aliroot.
    //
    // Detailed geometries:         
    //
    //
    //AliITS *ITS  = new AliITSv5symm("ITS","Updated ITS TDR detailed version with symmetric services");
    //
    //AliITS *ITS  = new AliITSv5asymm("ITS","Updates ITS TDR detailed version with asymmetric services");
    //
	AliITSvPPRasymm *ITS  = new AliITSvPPRasymm("ITS","New ITS PPR detailed version with asymmetric services");
	ITS->SetMinorVersion(2);					 // don't touch this parameter if you're not an ITS developer
	ITS->SetReadDet(kFALSE);					 // don't touch this parameter if you're not an ITS developer
    //    ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det");  // don't touch this parameter if you're not an ITS developer
	ITS->SetThicknessDet1(200.);   // detector thickness on layer 1 must be in the range [100,300]
	ITS->SetThicknessDet2(200.);   // detector thickness on layer 2 must be in the range [100,300]
	ITS->SetThicknessChip1(200.);  // chip thickness on layer 1 must be in the range [150,300]
	ITS->SetThicknessChip2(200.);  // chip thickness on layer 2 must be in the range [150,300]
	ITS->SetRails(0);	     // 1 --> rails in ; 0 --> rails out
	ITS->SetCoolingFluid(1);   // 1 --> water ; 0 --> freon
	//
    //AliITSvPPRsymm *ITS  = new AliITSvPPRsymm("ITS","New ITS PPR detailed version with symmetric services");
    //ITS->SetMinorVersion(2);                                       // don't touch this parameter if you're not an ITS developer
    //ITS->SetReadDet(kFALSE);                                       // don't touch this parameter if you're not an ITS developer
    //ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.det"); // don't touch this parameter if you're not an ITS developer
    //ITS->SetThicknessDet1(200.);   // detector thickness on layer 1 must be in the range [100,300]
    //ITS->SetThicknessDet2(200.);   // detector thickness on layer 2 must be in the range [100,300]
    //ITS->SetThicknessChip1(200.);  // chip thickness on layer 1 must be in the range [150,300]
    //ITS->SetThicknessChip2(200.);  // chip thickness on layer 2 must be in the range [150,300]
    //ITS->SetRails(0);              // 1 --> rails in ; 0 --> rails out
    //ITS->SetCoolingFluid(1);       // 1 --> water ; 0 --> freon
    //
    //
    // Coarse geometries (warning: no hits are produced with these coarse geometries and they unuseful 
    // for reconstruction !):
    //                                                     
    //
    //AliITSvPPRcoarseasymm *ITS  = new AliITSvPPRcoarseasymm("ITS","New ITS PPR coarse version with asymmetric services");
    //ITS->SetRails(0);                // 1 --> rails in ; 0 --> rails out
    //ITS->SetSupportMaterial(0);      // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
    //
    //AliITS *ITS  = new AliITSvPPRcoarsesymm("ITS","New ITS PPR coarse version with symmetric services");
    //ITS->SetRails(0);                // 1 --> rails in ; 0 --> rails out
    //ITS->SetSupportMaterial(0);      // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
    //                      
    //
    //
    // Geant3 <-> EUCLID conversion
    // ============================
    //
    // SetEUCLID is a flag to output (=1) or not to output (=0) both geometry and
    // media to two ASCII files (called by default ITSgeometry.euc and
    // ITSgeometry.tme) in a format understandable to the CAD system EUCLID.
    // The default (=0) means that you dont want to use this facility.
    //
	ITS->SetEUCLID(0);  
    }

    if (iTPC)
    {
        //============================ TPC parameters ================================
        // --- This allows the user to specify sectors for the SLOW (TPC geometry 2)
        // --- Simulator. SecAL (SecAU) <0 means that ALL lower (upper)
        // --- sectors are specified, any value other than that requires at least one 
        // --- sector (lower or upper)to be specified!
        // --- Reminder: sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
        // ---           sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
        // --- SecLows - number of lower sectors specified (up to 6)
        // --- SecUps - number of upper sectors specified (up to 12)
        // --- Sens - sensitive strips for the Slow Simulator !!!
        // --- This does NOT work if all S or L-sectors are specified, i.e.
        // --- if SecAL or SecAU < 0
        //
        //
        //-----------------------------------------------------------------------------

        //  gROOT->LoadMacro("SetTPCParam.C");
        //  AliTPCParam *param = SetTPCParam();
        AliTPC *TPC = new AliTPCv2("TPC", "Default");

        // All sectors included 
        TPC->SetSecAL(-1);
        TPC->SetSecAU(-1);

    }


    if (iTOF) {
	if (geo == kHoles) {
        //=================== TOF parameters ============================
	    AliTOF *TOF = new AliTOFv2FHoles("TOF", "TOF with Holes");
	} else {
	    AliTOF *TOF = new AliTOFv4T0("TOF", "normal TOF");
	}
    }


    if (iRICH)
    {
        //=================== RICH parameters ===========================
        AliRICH *RICH = new AliRICHv3("RICH", "normal RICH");

    }


    if (iZDC)
    {
        //=================== ZDC parameters ============================

        AliZDC *ZDC = new AliZDCv2("ZDC", "normal ZDC");
    }

    if (iTRD)
    {
        //=================== TRD parameters ============================

        AliTRD *TRD = new AliTRDv1("TRD", "TRD slow simulator");

        // Select the gas mixture (0: 97% Xe + 3% isobutane, 1: 90% Xe + 10% CO2)
        TRD->SetGasMix(1);
	if (geo == kHoles) {
	    // With hole in front of PHOS
	    TRD->SetPHOShole();
	    // With hole in front of RICH
	    TRD->SetRICHhole();
	}
	    // Switch on TR
	    AliTRDsim *TRDsim = TRD->CreateTR();
    }

    if (iFMD)
    {
        //=================== FMD parameters ============================
	AliFMD *FMD = new AliFMDv1("FMD", "normal FMD");
        FMD->SetRingsSi1(256);
        FMD->SetRingsSi2(128);
        FMD->SetSectorsSi1(20);
        FMD->SetSectorsSi2(40);      
   }

    if (iMUON)
    {
        //=================== MUON parameters ===========================

        AliMUON *MUON = new AliMUONv1("MUON", "default");
    }
    //=================== PHOS parameters ===========================

    if (iPHOS)
    {
        AliPHOS *PHOS = new AliPHOSv1("PHOS", "IHEP");
    }


    if (iPMD)
    {
        //=================== PMD parameters ============================
        AliPMD *PMD = new AliPMDv1("PMD", "normal PMD");
    }

    if (iSTART)
    {
        //=================== START parameters ============================
        AliSTART *START = new AliSTARTv1("START", "START Detector");
    }

    if (iEMCAL)
    {
        //=================== EMCAL parameters ============================
        AliEMCAL *EMCAL = new AliEMCALv1("EMCAL", "G56_2_55_19_104_14");
    }

     if (iCRT)
    {
        //=================== CRT parameters ============================
        AliCRT *CRT = new AliCRTv0("CRT", "normal ACORDE");
    }

     if (iVZERO)
    {
        //=================== CRT parameters ============================
        AliVZERO *VZERO = new AliVZEROv2("VZERO", "normal VZERO");
    }

}

Float_t EtaToTheta(Float_t arg){
  return (180./TMath::Pi())*2.*atan(exp(-arg));
}

//-----------------------------------------------------------------------------
GenTPHIC(Int_t process)
{
  AliGenTPHIC *gener = new AliGenTPHIC();

  gener->SetMomentumRange(0, 999);
  gener->SetPhiRange(0, 360);
  Float_t thmin = EtaToTheta(8);   // theta min. <---> eta max
  Float_t thmax = EtaToTheta(-8);  // theta max. <---> eta min 
  gener->SetThetaRange(thmin,thmax);
  gener->SetOrigin(0, 0, 0);  //vertex position
  gener->SetSigma(0, 0, 0);   //Sigma in (X,Y,Z) (cm) on IP position

  // Set TPHIC-specific parameters
  gener->SetProcess(process);
  if      (process == 1) { // gamma gamma -> X
  }
  else if (process == 2) { // gamma gamma -> eta_c
    gener->SetKfOnium(441);
    gener->SetGGwidthOnium(7.4e-06);
  }
  else if (process == 3) { // gamma gamma -> mu+ mu-
    gener->SetKfFermion = 13;
  }
  else if (process == 4) { // gamma gamma -> W+ W-
    gener->SetMggRange(70.,200.);
    gener->SetYggRange(-5.,5.);
    gener->SetLumFunName("lum_ca_70_200.dat");
    gener->SetLumFunFlag(-1);
  }
  else if (process == 5) { // gamma gamma -> chi_1+ chi_1- (not implemented)
  }
  else if (process == 5) { // gamma gamma -> rho0 rho0
    gener->SetKfVmesons(113,113);
  }

  gener->SetDebug(1);
  gener->SetEventListRange(1,10);
  gener->Init();
}
Commit	Line	Data
0b5dd071	1	static Int_t eventsPerRun = 100;
	2	enum PprGeo_t
	3	{
	4	kHoles, kNoHoles
	5	};
	6	static PprGeo_t geo = kHoles;
	7
	8	void Config()
	9	{
	10	// 7-DEC-2000 09:00
	11	// Switch on Transition Radiation simulation. 6/12/00 18:00
	12	// iZDC=1 7/12/00 09:00
	13	// ThetaRange is (0., 180.). It was (0.28,179.72) 7/12/00 09:00
	14	// Theta range given through pseudorapidity limits 22/6/2001
	15
	16	// Set Random Number seed
	17	// gRandom->SetSeed(12345);
	18
	19
	20	// libraries required by geant321
	21	gSystem->Load("libgeant321");
	22
	23	new TGeant3("C++ Interface to Geant3");
	24
	25	if (!gSystem->Getenv("CONFIG_FILE"))
	26	{
	27	TFile *rootfile = new TFile("galice.root", "recreate");
	28
	29	rootfile->SetCompressionLevel(2);
	30	}
	31
	32	TGeant3 geant3 = (TGeant3 ) gMC;
	33
	34	//
	35	// Set External decayer
	36	TVirtualMCDecayer *decayer = new AliDecayerPythia();
	37
	38	decayer->SetForceDecay(kAll);
	39	decayer->Init();
	40	gMC->SetExternalDecayer(decayer);
	41	//
	42	//
	43	//=======================================================================
	44	// ***** GEANT STEERING parameters FOR ALICE SIMULATION *****
	45	geant3->SetTRIG(1); //Number of events to be processed
	46	geant3->SetSWIT(4, 1);
	47	geant3->SetDEBU(0, 0, 1);
	48	//geant3->SetSWIT(2,2);
	49	geant3->SetDCAY(1);
	50	geant3->SetPAIR(1);
	51	geant3->SetCOMP(1);
	52	geant3->SetPHOT(1);
	53	geant3->SetPFIS(0);
	54	geant3->SetDRAY(0);
	55	geant3->SetANNI(1);
	56	geant3->SetBREM(1);
	57	geant3->SetMUNU(1);
	58	geant3->SetCKOV(1);
	59	geant3->SetHADR(1); //Select pure GEANH (HADR 1) or GEANH/NUCRIN (HADR 3)
	60	geant3->SetLOSS(2);
	61	geant3->SetMULS(1);
	62	geant3->SetRAYL(1);
	63	geant3->SetAUTO(1); //Select automatic STMIN etc... calc. (AUTO 1) or manual (AUTO 0)
	64	geant3->SetABAN(0); //Restore 3.16 behaviour for abandoned tracks
65	geant3->SetOPTI(2); //Select optimisation level for GEANT geometry searches (0,1,2)
66	geant3->SetERAN(5.e-7);
67
68	Float_t cut = 1.e-3; // 1MeV cut by default
69	Float_t tofmax = 1.e10;
70
71	// GAM ELEC NHAD CHAD MUON EBREM MUHAB EDEL MUDEL MUPA TOFMAX
72	geant3->SetCUTS(cut, cut, cut, cut, cut, cut, cut, cut, cut, cut,
73	tofmax);
74	//
75	//=======================================================================
76	// *********** STEERING parameters FOR ALICE SIMULATION ************
77	// --- Specify event type to be tracked through the ALICE setup
78	// --- All positions are in cm, angles in degrees, and P and E in GeV
79
80	Int_t process=1;
81	GenTPHIC(process);
82
83	//
84	// Activate this line if you want the vertex smearing to happen
85	// track by track
86	//
87	//gener->SetVertexSmear(perTrack);
88	// Field (L3 0.4 T)
89	AliMagFMaps* field = new AliMagFMaps("Maps","Maps", 2, 1., 10., 1);
90	rootfile->cd();
91	gAlice->SetField(field);
92
93
94	Int_t iABSO = 0;
95	Int_t iDIPO = 0;
96	Int_t iFMD = 0;
97	Int_t iFRAME = 0;
98	Int_t iHALL = 0;
99	Int_t iITS = 0;
100	Int_t iMAG = 0;
101	Int_t iMUON = 0;
102	Int_t iPHOS = 0;
103	Int_t iPIPE = 0;
104	Int_t iPMD = 0;
105	Int_t iRICH = 0;
106	Int_t iSHIL = 0;
107	Int_t iSTART = 0;
108	Int_t iTOF = 0;
109	Int_t iTPC = 0;
110	Int_t iTRD = 0;
111	Int_t iZDC = 0;
112	Int_t iEMCAL = 0;
113	Int_t iCRT = 0;
114	Int_t iVZERO = 0;
115
116	//=================== Alice BODY parameters =============================
117	AliBODY *BODY = new AliBODY("BODY", "Alice envelop");
118
119	if (iMAG)
120	{
121	//=================== MAG parameters ============================
122	// --- Start with Magnet since detector layouts may be depending ---
123	// --- on the selected Magnet dimensions ---
124	AliMAG *MAG = new AliMAG("MAG", "Magnet");
125	}
126
127
128	if (iABSO)
129	{
130	//=================== ABSO parameters ============================
131	AliABSO *ABSO = new AliABSOv0("ABSO", "Muon Absorber");
132	}
133
134	if (iDIPO)
135	{
136	//=================== DIPO parameters ============================
137
138	AliDIPO *DIPO = new AliDIPOv2("DIPO", "Dipole version 2");
139	}
140
141	if (iHALL)
142	{
143	//=================== HALL parameters ============================
144
145	AliHALL *HALL = new AliHALL("HALL", "Alice Hall");
146	}
147
148
149	if (iFRAME)
150	{
151	//=================== FRAME parameters ============================
152
153	AliFRAMEv2 *FRAME = new AliFRAMEv2("FRAME", "Space Frame");
154	if (geo == kHoles) {
155	FRAME->SetHoles(1);
156	} else {
157	FRAME->SetHoles(0);
158	}
159	}
160
161	if (iSHIL)
162	{
163	//=================== SHIL parameters ============================
164
165	AliSHIL *SHIL = new AliSHILv2("SHIL", "Shielding Version 2");
166	}
167
168
169	if (iPIPE)
170	{
171	//=================== PIPE parameters ============================
172
173	AliPIPE *PIPE = new AliPIPEv0("PIPE", "Beam Pipe");
174	}
175
176	if(iITS) {
177
178	//=================== ITS parameters ============================
179	//
180	// As the innermost detector in ALICE, the Inner Tracking System "impacts" on
181	// almost all other detectors. This involves the fact that the ITS geometry
182	// still has several options to be followed in parallel in order to determine
183	// the best set-up which minimizes the induced background. All the geometries
184	// available to date are described in the following. Read carefully the comments
185	// and use the default version (the only one uncommented) unless you are making
186	// comparisons and you know what you are doing. In this case just uncomment the
187	// ITS geometry you want to use and run Aliroot.
188	//
189	// Detailed geometries:
190	//
191	//
192	//AliITS *ITS = new AliITSv5symm("ITS","Updated ITS TDR detailed version with symmetric services");
193	//
194	//AliITS *ITS = new AliITSv5asymm("ITS","Updates ITS TDR detailed version with asymmetric services");
195	//
196	AliITSvPPRasymm *ITS = new AliITSvPPRasymm("ITS","New ITS PPR detailed version with asymmetric services");
197	ITS->SetMinorVersion(2); // don't touch this parameter if you're not an ITS developer
198	ITS->SetReadDet(kFALSE); // don't touch this parameter if you're not an ITS developer
199	// ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRasymm2.det"); // don't touch this parameter if you're not an ITS developer
200	ITS->SetThicknessDet1(200.); // detector thickness on layer 1 must be in the range [100,300]
201	ITS->SetThicknessDet2(200.); // detector thickness on layer 2 must be in the range [100,300]
202	ITS->SetThicknessChip1(200.); // chip thickness on layer 1 must be in the range [150,300]
203	ITS->SetThicknessChip2(200.); // chip thickness on layer 2 must be in the range [150,300]
204	ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
205	ITS->SetCoolingFluid(1); // 1 --> water ; 0 --> freon
206	//
207	//AliITSvPPRsymm *ITS = new AliITSvPPRsymm("ITS","New ITS PPR detailed version with symmetric services");
208	//ITS->SetMinorVersion(2); // don't touch this parameter if you're not an ITS developer
209	//ITS->SetReadDet(kFALSE); // don't touch this parameter if you're not an ITS developer
210	//ITS->SetWriteDet("$ALICE_ROOT/ITS/ITSgeometry_vPPRsymm2.det"); // don't touch this parameter if you're not an ITS developer
211	//ITS->SetThicknessDet1(200.); // detector thickness on layer 1 must be in the range [100,300]
212	//ITS->SetThicknessDet2(200.); // detector thickness on layer 2 must be in the range [100,300]
213	//ITS->SetThicknessChip1(200.); // chip thickness on layer 1 must be in the range [150,300]
214	//ITS->SetThicknessChip2(200.); // chip thickness on layer 2 must be in the range [150,300]
215	//ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
216	//ITS->SetCoolingFluid(1); // 1 --> water ; 0 --> freon
217	//
218	//
219	// Coarse geometries (warning: no hits are produced with these coarse geometries and they unuseful
220	// for reconstruction !):
221	//
222	//
223	//AliITSvPPRcoarseasymm *ITS = new AliITSvPPRcoarseasymm("ITS","New ITS PPR coarse version with asymmetric services");
224	//ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
225	//ITS->SetSupportMaterial(0); // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
226	//
227	//AliITS *ITS = new AliITSvPPRcoarsesymm("ITS","New ITS PPR coarse version with symmetric services");
228	//ITS->SetRails(0); // 1 --> rails in ; 0 --> rails out
229	//ITS->SetSupportMaterial(0); // 0 --> Copper ; 1 --> Aluminum ; 2 --> Carbon
230	//
231	//
232	//
233	// Geant3 <-> EUCLID conversion
234	// ============================
235	//
236	// SetEUCLID is a flag to output (=1) or not to output (=0) both geometry and
237	// media to two ASCII files (called by default ITSgeometry.euc and
238	// ITSgeometry.tme) in a format understandable to the CAD system EUCLID.
239	// The default (=0) means that you dont want to use this facility.
240	//
241	ITS->SetEUCLID(0);
242	}
243
244	if (iTPC)
245	{
246	//============================ TPC parameters ================================
247	// --- This allows the user to specify sectors for the SLOW (TPC geometry 2)
248	// --- Simulator. SecAL (SecAU) <0 means that ALL lower (upper)
249	// --- sectors are specified, any value other than that requires at least one
250	// --- sector (lower or upper)to be specified!
251	// --- Reminder: sectors 1-24 are lower sectors (1-12 -> z>0, 13-24 -> z<0)
252	// --- sectors 25-72 are the upper ones (25-48 -> z>0, 49-72 -> z<0)
253	// --- SecLows - number of lower sectors specified (up to 6)
254	// --- SecUps - number of upper sectors specified (up to 12)
255	// --- Sens - sensitive strips for the Slow Simulator !!!
256	// --- This does NOT work if all S or L-sectors are specified, i.e.
257	// --- if SecAL or SecAU < 0
258	//
259	//
260	//-----------------------------------------------------------------------------
261
262	// gROOT->LoadMacro("SetTPCParam.C");
263	// AliTPCParam *param = SetTPCParam();
264	AliTPC *TPC = new AliTPCv2("TPC", "Default");
265
266	// All sectors included
267	TPC->SetSecAL(-1);
268	TPC->SetSecAU(-1);
269
270	}
271
272
273	if (iTOF) {
274	if (geo == kHoles) {
275	//=================== TOF parameters ============================
276	AliTOF *TOF = new AliTOFv2FHoles("TOF", "TOF with Holes");
277	} else {
278	AliTOF *TOF = new AliTOFv4T0("TOF", "normal TOF");
279	}
280	}
281
282
283	if (iRICH)
284	{
285	//=================== RICH parameters ===========================
286	AliRICH *RICH = new AliRICHv3("RICH", "normal RICH");
287
288	}
289
290
291	if (iZDC)
292	{
293	//=================== ZDC parameters ============================
294
295	AliZDC *ZDC = new AliZDCv2("ZDC", "normal ZDC");
296	}
297
298	if (iTRD)
299	{
300	//=================== TRD parameters ============================
301
302	AliTRD *TRD = new AliTRDv1("TRD", "TRD slow simulator");
303
304	// Select the gas mixture (0: 97% Xe + 3% isobutane, 1: 90% Xe + 10% CO2)
305	TRD->SetGasMix(1);
306	if (geo == kHoles) {
307	// With hole in front of PHOS
308	TRD->SetPHOShole();
309	// With hole in front of RICH
310	TRD->SetRICHhole();
311	}
312	// Switch on TR
313	AliTRDsim *TRDsim = TRD->CreateTR();
314	}
315
316	if (iFMD)
317	{
318	//=================== FMD parameters ============================
319	AliFMD *FMD = new AliFMDv1("FMD", "normal FMD");
320	FMD->SetRingsSi1(256);
321	FMD->SetRingsSi2(128);
322	FMD->SetSectorsSi1(20);
323	FMD->SetSectorsSi2(40);
324	}
325
326	if (iMUON)
327	{
328	//=================== MUON parameters ===========================
329
330	AliMUON *MUON = new AliMUONv1("MUON", "default");
331	}
332	//=================== PHOS parameters ===========================
333
334	if (iPHOS)
335	{
336	AliPHOS *PHOS = new AliPHOSv1("PHOS", "IHEP");
337	}
338
339
340	if (iPMD)
341	{
342	//=================== PMD parameters ============================
343	AliPMD *PMD = new AliPMDv1("PMD", "normal PMD");
344	}
345
346	if (iSTART)
347	{
348	//=================== START parameters ============================
349	AliSTART *START = new AliSTARTv1("START", "START Detector");
350	}
351
352	if (iEMCAL)
353	{
354	//=================== EMCAL parameters ============================
355	AliEMCAL *EMCAL = new AliEMCALv1("EMCAL", "G56_2_55_19_104_14");
356	}
357
358	if (iCRT)
359	{
360	//=================== CRT parameters ============================
361	AliCRT *CRT = new AliCRTv0("CRT", "normal ACORDE");
362	}
363
364	if (iVZERO)
365	{
366	//=================== CRT parameters ============================
367	AliVZERO *VZERO = new AliVZEROv2("VZERO", "normal VZERO");
368	}
369
370	}
371
372	Float_t EtaToTheta(Float_t arg){
373	return (180./TMath::Pi())2.atan(exp(-arg));
374	}
375
376	//-----------------------------------------------------------------------------
377	GenTPHIC(Int_t process)
378	{
379	AliGenTPHIC *gener = new AliGenTPHIC();
380
381	gener->SetMomentumRange(0, 999);
382	gener->SetPhiRange(0, 360);
383	Float_t thmin = EtaToTheta(8); // theta min. <---> eta max
384	Float_t thmax = EtaToTheta(-8); // theta max. <---> eta min
385	gener->SetThetaRange(thmin,thmax);
386	gener->SetOrigin(0, 0, 0); //vertex position
387	gener->SetSigma(0, 0, 0); //Sigma in (X,Y,Z) (cm) on IP position
388
389	// Set TPHIC-specific parameters
390	gener->SetProcess(process);
391	if (process == 1) { // gamma gamma -> X
392	}
393	else if (process == 2) { // gamma gamma -> eta_c
394	gener->SetKfOnium(441);
395	gener->SetGGwidthOnium(7.4e-06);
396	}
397	else if (process == 3) { // gamma gamma -> mu+ mu-
398	gener->SetKfFermion = 13;
399	}
400	else if (process == 4) { // gamma gamma -> W+ W-
401	gener->SetMggRange(70.,200.);
402	gener->SetYggRange(-5.,5.);
403	gener->SetLumFunName("lum_ca_70_200.dat");
404	gener->SetLumFunFlag(-1);
405	}
406	else if (process == 5) { // gamma gamma -> chi_1+ chi_1- (not implemented)
407	}
408	else if (process == 5) { // gamma gamma -> rho0 rho0
409	gener->SetKfVmesons(113,113);
410	}
411
412	gener->SetDebug(1);
413	gener->SetEventListRange(1,10);
414	gener->Init();
415	}