+ //
+ // Creates the volumes for the TRD chambers
+ //
+ // Author: Christoph Blume (C.Blume@gsi.de) 20/07/99
+ //
+ // The volumes:
+ // TRD (Air) --- The TRD mother volume for one sector.
+ // To be placed into the spaceframe.
+ //
+ // UAFI(/M/O) (Al) --- The aluminum frame of the inner(/middle/outer) chambers (readout)
+ // UCFI(/M/O) (C) --- The carbon frame of the inner(/middle/outer) chambers
+ // (driftchamber + radiator)
+ // UAII(/M/O) (Air) --- The inner part of the readout of the inner(/middle/outer) chambers
+ // UFII(/M/O) (Air) --- The inner part of the chamner and radiator of the
+ // inner(/middle/outer) chambers
+ //
+ // The material layers in one chamber:
+ // UL01 (G10) --- The gas seal of the radiator
+ // UL02 (CO2) --- The gas in the radiator
+ // UL03 (PE) --- The foil stack
+ // UL04 (Mylar) --- Entrance window to the driftvolume and HV-cathode
+ // UL05 (Xe) --- The driftvolume
+ // UL06 (Xe) --- The amplification region
+ //
+ // UL07 (Cu) --- The pad plane
+ // UL08 (G10) --- The Nomex honeycomb support structure
+ // UL09 (Cu) --- FEE and signal lines
+ // UL10 (PE) --- The cooling devices
+ // UL11 (Water) --- The cooling water
+
+ // Check that FRAME is there otherwise we have no place where to put the TRD
+ AliModule* FRAME = gAlice->GetModule("FRAME");
+ if (!FRAME) return;
+
+ const Int_t npar_trd = 4;
+ const Int_t npar_cha = 3;
+
+ Float_t par_dum[3];
+ Float_t par_trd[npar_trd];
+ Float_t par_cha[npar_cha];
+
+ Float_t xpos, ypos, zpos;
+
+ Int_t *idtmed = fIdtmed->GetArray()-1299;
+
+ // The length of the inner chambers
+ for (Int_t iplan = 0; iplan < kNplan; iplan++) fClengthI[iplan] = 110.0;
+ // The length of the middle chambers
+ fClengthM[0] = 123.5;
+ fClengthM[1] = 131.0;
+ fClengthM[2] = 138.5;
+ fClengthM[3] = 146.0;
+ fClengthM[4] = 153.0;
+ fClengthM[5] = 160.5;
+ // The length of the outer chambers
+ fClengthO[0] = 123.5;
+ fClengthO[1] = 131.0;
+ fClengthO[2] = 134.5;
+ fClengthO[3] = 142.0;
+ fClengthO[4] = 142.0;
+ fClengthO[5] = 134.5;
+
+ // The width of the chambers
+ fCwidth[0] = 99.6;
+ fCwidth[1] = 104.1;
+ fCwidth[2] = 108.5;
+ fCwidth[3] = 112.9;
+ fCwidth[4] = 117.4;
+ fCwidth[5] = 121.8;
+
+ // The TRD mother volume for one sector (Air) (dimensions identical to BTR1-3)
+ par_trd[0] = kSwidth1/2.;
+ par_trd[1] = kSwidth2/2.;
+ par_trd[2] = kSlength/2.;
+ par_trd[3] = kSheight/2.;
+ gMC->Gsvolu("TRD ","TRD1",idtmed[1302-1],par_trd,npar_trd);
+
+ // The aluminum frames - readout + electronics (Al)
+ // The inner chambers
+ gMC->Gsvolu("UAFI","BOX ",idtmed[1301-1],par_dum,0);
+ // The middle chambers
+ gMC->Gsvolu("UAFM","BOX ",idtmed[1301-1],par_dum,0);
+ // The outer chambers
+ gMC->Gsvolu("UAFO","BOX ",idtmed[1301-1],par_dum,0);
+
+ // The inner part of the aluminum frames (Air)
+ // The inner chambers
+ gMC->Gsvolu("UAII","BOX ",idtmed[1302-1],par_dum,0);
+ // The middle chambers
+ gMC->Gsvolu("UAIM","BOX ",idtmed[1302-1],par_dum,0);
+ // The outer chambers
+ gMC->Gsvolu("UAIO","BOX ",idtmed[1302-1],par_dum,0);
+
+ // The carbon frames - radiator + driftchamber (C)
+ // The inner chambers
+ gMC->Gsvolu("UCFI","BOX ",idtmed[1307-1],par_dum,0);
+ // The middle chambers
+ gMC->Gsvolu("UCFM","BOX ",idtmed[1307-1],par_dum,0);
+ // The outer chambers
+ gMC->Gsvolu("UCFO","BOX ",idtmed[1307-1],par_dum,0);
+
+ // The inner part of the carbon frames (Air)
+ // The inner chambers
+ gMC->Gsvolu("UCII","BOX ",idtmed[1302-1],par_dum,0);
+ // The middle chambers
+ gMC->Gsvolu("UCIM","BOX ",idtmed[1302-1],par_dum,0);
+ // The outer chambers
+ gMC->Gsvolu("UCIO","BOX ",idtmed[1302-1],par_dum,0);
+
+ // The material layers inside the chambers
+ par_cha[0] = -1.;
+ par_cha[1] = -1.;
+ // G10 layer (radiator seal)
+ par_cha[2] = kSeThick/2;
+ gMC->Gsvolu("UL01","BOX ",idtmed[1313-1],par_cha,npar_cha);
+ // CO2 layer (radiator)
+ par_cha[2] = kRaThick/2;
+ gMC->Gsvolu("UL02","BOX ",idtmed[1312-1],par_cha,npar_cha);
+ // PE layer (radiator)
+ par_cha[2] = kPeThick/2;
+ gMC->Gsvolu("UL03","BOX ",idtmed[1303-1],par_cha,npar_cha);
+ // Mylar layer (entrance window + HV cathode)
+ par_cha[2] = kMyThick/2;
+ gMC->Gsvolu("UL04","BOX ",idtmed[1308-1],par_cha,npar_cha);
+ // Xe/Isobutane layer (drift volume, sensitive)
+ par_cha[2] = kDrThick/2.;
+ gMC->Gsvolu("UL05","BOX ",idtmed[1309-1],par_cha,npar_cha);
+ // Xe/Isobutane layer (amplification volume, not sensitive)
+ par_cha[2] = kAmThick/2.;
+ gMC->Gsvolu("UL06","BOX ",idtmed[1309-1],par_cha,npar_cha);
+
+ // Cu layer (pad plane)
+ par_cha[2] = kCuThick/2;
+ gMC->Gsvolu("UL07","BOX ",idtmed[1305-1],par_cha,npar_cha);
+ // G10 layer (support structure)
+ par_cha[2] = kSuThick/2;
+ gMC->Gsvolu("UL08","BOX ",idtmed[1313-1],par_cha,npar_cha);
+ // Cu layer (FEE + signal lines)
+ par_cha[2] = kFeThick/2;
+ gMC->Gsvolu("UL09","BOX ",idtmed[1305-1],par_cha,npar_cha);
+ // PE layer (cooling devices)
+ par_cha[2] = kCoThick/2;
+ gMC->Gsvolu("UL10","BOX ",idtmed[1303-1],par_cha,npar_cha);
+ // Water layer (cooling)
+ par_cha[2] = kWaThick/2;
+ gMC->Gsvolu("UL11","BOX ",idtmed[1314-1],par_cha,npar_cha);
+
+ // Position the layers in the chambers
+ xpos = 0;
+ ypos = 0;
+
+ // G10 layer (radiator seal)
+ zpos = kSeZpos;
+ gMC->Gspos("UL01",1,"UCII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL01",2,"UCIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL01",3,"UCIO",xpos,ypos,zpos,0,"ONLY");
+ // CO2 layer (radiator)
+ zpos = kRaZpos;
+ gMC->Gspos("UL02",1,"UCII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL02",2,"UCIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL02",3,"UCIO",xpos,ypos,zpos,0,"ONLY");
+ // PE layer (radiator)
+ zpos = 0;
+ gMC->Gspos("UL03",1,"UL02",xpos,ypos,zpos,0,"ONLY");
+ // Mylar layer (entrance window + HV cathode)
+ zpos = kMyZpos;
+ gMC->Gspos("UL04",1,"UCII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL04",2,"UCIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL04",3,"UCIO",xpos,ypos,zpos,0,"ONLY");
+ // Xe/Isobutane layer (drift volume)
+ zpos = kDrZpos;
+ gMC->Gspos("UL05",1,"UCII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL05",2,"UCIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL05",3,"UCIO",xpos,ypos,zpos,0,"ONLY");
+ // Xe/Isobutane layer (amplification volume)
+ zpos = kAmZpos;
+ gMC->Gspos("UL06",1,"UCII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL06",2,"UCIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL06",3,"UCIO",xpos,ypos,zpos,0,"ONLY");
+
+ // Cu layer (pad plane)
+ zpos = kCuZpos;
+ gMC->Gspos("UL07",1,"UAII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL07",2,"UAIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL07",3,"UAIO",xpos,ypos,zpos,0,"ONLY");
+ // G10 layer (support structure)
+ zpos = kSuZpos;
+ gMC->Gspos("UL08",1,"UAII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL08",2,"UAIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL08",3,"UAIO",xpos,ypos,zpos,0,"ONLY");
+ // Cu layer (FEE + signal lines)
+ zpos = kFeZpos;
+ gMC->Gspos("UL09",1,"UAII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL09",2,"UAIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL09",3,"UAIO",xpos,ypos,zpos,0,"ONLY");
+ // PE layer (cooling devices)
+ zpos = kCoZpos;
+ gMC->Gspos("UL10",1,"UAII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL10",2,"UAIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL10",3,"UAIO",xpos,ypos,zpos,0,"ONLY");
+ // Water layer (cooling)
+ zpos = kWaZpos;
+ gMC->Gspos("UL11",1,"UAII",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL11",1,"UAIM",xpos,ypos,zpos,0,"ONLY");
+ gMC->Gspos("UL11",1,"UAIO",xpos,ypos,zpos,0,"ONLY");
+
+ // Position the chambers in the TRD mother volume
+ for (Int_t iplan = 1; iplan <= kNplan; iplan++) {
+
+ // The inner chambers ---------------------------------------------------------------
+
+ // the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthI[iplan-1]/2.;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = 0.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAFI",iplan ,"TRD ",xpos,ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCathick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCathick;
+ par_cha[1] = fClengthI[iplan-1]/2. - kCathick;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = 0.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAII",iplan ,"TRD ",xpos,ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ // the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthI[iplan-1]/2.;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = 0.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCFI",iplan ,"TRD ",xpos,ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCcthick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCcthick;
+ par_cha[1] = fClengthI[iplan-1]/2. - kCcthick;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = 0.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCII",iplan ,"TRD ",xpos,ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ // The middle chambers --------------------------------------------------------------
+
+ // the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthM[iplan-1]/2.;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1]/2.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAFM",iplan ,"TRD ",xpos, ypos,zpos,0,"MANY",par_cha,npar_cha);
+ gMC->Gsposp("UAFM",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCathick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCathick;
+ par_cha[1] = fClengthM[iplan-1]/2. - kCathick;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1]/2.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAIM",iplan ,"TRD ",xpos, ypos,zpos,0,"ONLY",par_cha,npar_cha);
+ gMC->Gsposp("UAIM",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ // the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthM[iplan-1]/2.;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1]/2.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCFM",iplan, "TRD ",xpos, ypos,zpos,0,"MANY",par_cha,npar_cha);
+ gMC->Gsposp("UCFM",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCcthick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCcthick;
+ par_cha[1] = fClengthM[iplan-1]/2. - kCcthick;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1]/2.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCIM",iplan ,"TRD ",xpos, ypos,zpos,0,"ONLY",par_cha,npar_cha);
+ gMC->Gsposp("UCIM",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ // The outer chambers ---------------------------------------------------------------
+
+ // the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthO[iplan-1]/2.;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1] + fClengthO[iplan-1]/2.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAFO",iplan ,"TRD ",xpos, ypos,zpos,0,"MANY",par_cha,npar_cha);
+ gMC->Gsposp("UAFO",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the aluminum frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCathick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCathick;
+ par_cha[1] = fClengthO[iplan-1]/2. - kCathick;
+ par_cha[2] = kCaframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1] + fClengthO[iplan-1]/2.;
+ zpos = kCheight - kCaframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UAIO",iplan ,"TRD ",xpos, ypos,zpos,0,"ONLY",par_cha,npar_cha);
+ gMC->Gsposp("UAIO",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ // the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2.;
+ par_cha[0] = fCwidth[iplan-1]/2.;
+ par_cha[1] = fClengthO[iplan-1]/2.;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1] + fClengthO[iplan-1]/2.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCFO",iplan, "TRD ",xpos, ypos,zpos,0,"MANY",par_cha,npar_cha);
+ gMC->Gsposp("UCFO",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"MANY",par_cha,npar_cha);
+
+ // the inner part of the carbon frame
+ //par_cha[0] = kSwidth1/2. + (iplan-1) * kCwidcha/2. - kCcthick;
+ par_cha[0] = fCwidth[iplan-1]/2. - kCcthick;
+ par_cha[1] = fClengthO[iplan-1]/2. - kCcthick;
+ par_cha[2] = kCcframe/2.;
+ xpos = 0.;
+ ypos = fClengthI[iplan-1]/2. + fClengthM[iplan-1] + fClengthO[iplan-1]/2.;
+ zpos = kCcframe/2. - kSheight/2. + (iplan-1) * (kCheight + kCspace);
+ gMC->Gsposp("UCIO",iplan ,"TRD ",xpos, ypos,zpos,0,"ONLY",par_cha,npar_cha);
+ gMC->Gsposp("UCIO",iplan+kNplan,"TRD ",xpos,-ypos,zpos,0,"ONLY",par_cha,npar_cha);
+
+ }