[u/mrichter/AliRoot.git] / TRD / AliTRDgeometryDetail.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/*
$Log$
Revision 1.3.6.2  2002/07/24 10:09:30  alibrary
Updating VirtualMC

Revision 1.5  2002/06/12 09:54:35  cblume
Update of tracking code provided by Sergei

Revision 1.4  2002/03/28 14:59:07  cblume
Coding conventions

Revision 1.3  2002/02/11 14:21:16  cblume
Update of the geometry. Get rid of MANY

Revision 1.2  2001/11/08 13:13:08  cblume
Change to MANY for UCFI/M/O and UAFI/M/O

Revision 1.1  2001/11/06 17:19:41  cblume
Add detailed geometry and simple simulator

*/

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
//  Detailed TRD geometry for the spaceframe without holes                   //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////

#include "AliMC.h"

#include "AliTRDgeometryDetail.h"
#include "AliTRDparameter.h"

ClassImp(AliTRDgeometryDetail)

//_____________________________________________________________________________
AliTRDgeometryDetail::AliTRDgeometryDetail():AliTRDgeometryFull()
{
  //
  // AliTRDgeometryDetail default constructor
  //

  Init();

}

//_____________________________________________________________________________
AliTRDgeometryDetail::~AliTRDgeometryDetail()
{
  //
  // AliTRDgeometryDetail destructor
  //

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::Init()
{
  //
  // Initializes the geometry parameter
  //

  AliTRDgeometryFull::Init();

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::CreateGeometry(Int_t *idtmed)
{
  //
  // Create the detailed TRD geometry without hole
  // including the MCMs and the cooling pipes
  //
  //
  // Names of the TRD volumina (xx = detector number):
  //
  //      Lower part of the readout chambers (gas volume + radiator)
  //
  //        UAxx    Aluminum frames             (Al)
  //        UBxx    G10 frames                  (C)
  //        UCxx    Inner volumes               (Air)
  //
  //      Upper part of the readout chambers (readout plane + fee)
  //
  //        UDxx    G10 frames                  (C)
  //        UExx    Inner volumes of the G10    (Air)
  //        UFxx    Aluminum frames             (Al)
  //        UGxx    Inner volumes of the Al     (Air)
  //
  //      Inner material layers
  //
  //        UHxx    Radiator                    (Rohacell)
  //        UIxx    Entrance window             (Mylar)
  //        UJxx    Drift volume                (Xe/CO2)
  //        UKxx    Amplification volume        (Xe/CO2)
  //        ULxx    Pad plane                   (Cu)
  //        UMxx    Support structure           (Rohacell)
  //        UNxx    FEE + signal lines          (Cu)
  //

  const Int_t kNparTrd = 4;
  const Int_t kNparCha = 3;

  Float_t xpos, ypos, zpos;

  Float_t parTrd[kNparTrd];
  Float_t parCha[kNparCha];

  Char_t  cTagV[5];
  Char_t  cTagM[5];

  Int_t   idrotm;

  // Rotation matrix
  gMC->Matrix(idrotm,  0.0,  0.0, 90.0, 90.0, 90.0,  0.0);

  // The TRD mother volume for one sector (Air), full length in z-direction
  parTrd[0] = fgkSwidth1/2.;
  parTrd[1] = fgkSwidth2/2.;
  parTrd[2] = fgkSlenTR1/2.;
  parTrd[3] = fgkSheight/2.;
  gMC->Gsvolu("UTR1","TRD1",idtmed[1302-1],parTrd,kNparTrd);

  // Create the readout volumina
  CreateReadout(idtmed);

  // Create the volumina for the cooling
  CreateCooling(idtmed);

  for (Int_t icham = 0; icham < kNcham; icham++) {
    for (Int_t iplan = 0; iplan < kNplan; iplan++) {  

      Int_t iDet = GetDetectorSec(iplan,icham);

      // The lower part of the readout chambers (gas volume + radiator) 
      // The aluminum frames 
      sprintf(cTagV,"UA%02d",iDet);
      parCha[0] = fCwidth[iplan]/2.;
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
      parCha[2] = fgkCraH/2. + fgkCdrH/2.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
      // The G10 frames 
      sprintf(cTagV,"UB%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. - fgkCalT; 
      parCha[1] = -1.;
      parCha[2] = -1.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
      // The inner part (air)
      sprintf(cTagV,"UC%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. - fgkCalT - fgkCclsT; 
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCclfT;
      parCha[2] = -1.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);

      // The upper part of the readout chambers (readout plane + fee)
      // The G10 frames
      sprintf(cTagV,"UD%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. + fgkCroW;
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
      parCha[2] = fgkCamH/2.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
      // The inner part of the G10 frame (air)
      sprintf(cTagV,"UE%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCcuT; 
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCcuT;
      parCha[2] = -1.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
      // The aluminum frames
      sprintf(cTagV,"UF%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. + fgkCroW;
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
      parCha[2] = fgkCroH/2.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
      // The inner part of the aluminum frames
      sprintf(cTagV,"UG%02d",iDet);
      parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCauT; 
      parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCauT;
      parCha[2] = -1.;
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);

      // The material layers inside the chambers
      parCha[0] = -1.;
      parCha[1] = -1.;
      // Rohacell layer (radiator)
      parCha[2] = fgkRaThick/2;
      sprintf(cTagV,"UH%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1315-1],parCha,kNparCha);
      // Mylar layer (entrance window + HV cathode) 
      parCha[2] = fgkMyThick/2;
      sprintf(cTagV,"UI%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1308-1],parCha,kNparCha);
      // Xe/Isobutane layer (drift volume) 
      parCha[2] = fgkDrThick/2.;
      sprintf(cTagV,"UJ%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
      // Xe/Isobutane layer (amplification volume)
      parCha[2] = fgkAmThick/2.;
      sprintf(cTagV,"UK%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);  
      // Cu layer (pad plane)
      parCha[2] = fgkCuThick/2;
      sprintf(cTagV,"UL%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
      // G10 layer (support structure / honeycomb)
      parCha[2] = fgkSuThick/2;
      sprintf(cTagV,"UM%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1313-1],parCha,kNparCha);
      // Cu layer (FEE + signal lines)
      parCha[2] = fgkFeThick/2;
      sprintf(cTagV,"UN%02d",iDet);
      gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);

      // Position the layers in the chambers
      xpos = 0;
      ypos = 0;
      // Lower part
      // Rohacell layer (radiator)
      zpos = fgkRaZpos;
      sprintf(cTagV,"UH%02d",iDet);
      sprintf(cTagM,"UC%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // Mylar layer (entrance window + HV cathode)   
      zpos = fgkMyZpos;
      sprintf(cTagV,"UI%02d",iDet);
      sprintf(cTagM,"UC%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // Xe/Isobutane layer (drift volume) 
      zpos = fgkDrZpos;
      sprintf(cTagV,"UJ%02d",iDet);
      sprintf(cTagM,"UC%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // Upper part
      // Xe/Isobutane layer (amplification volume)
      zpos = fgkAmZpos;
      sprintf(cTagV,"UK%02d",iDet);
      sprintf(cTagM,"UE%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // Readout part
      // Cu layer (pad plane)
      zpos = fgkCuZpos; 
      sprintf(cTagV,"UL%02d",iDet);
      sprintf(cTagM,"UG%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // G10 layer (support structure)
      zpos = fgkSuZpos;
      sprintf(cTagV,"UM%02d",iDet);
      sprintf(cTagM,"UG%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // Cu layer (FEE + signal lines)
      zpos = fgkFeZpos; 
      sprintf(cTagV,"UN%02d",iDet);
      sprintf(cTagM,"UG%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");

      // Position the inner volumes of the chambers in the frames
      xpos      = 0.0;
      ypos      = 0.0;
      zpos      = 0.0;
      // The inside of the lower G10 frame
      sprintf(cTagV,"UC%02d",iDet);
      sprintf(cTagM,"UB%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // The lower G10 frame inside the aluminum frame
      sprintf(cTagV,"UB%02d",iDet);
      sprintf(cTagM,"UA%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // The inside of the upper G10 frame
      sprintf(cTagV,"UE%02d",iDet);
      sprintf(cTagM,"UD%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
      // The inside of the upper aluminum frame
      sprintf(cTagV,"UG%02d",iDet);
      sprintf(cTagM,"UF%02d",iDet);
      gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");      

      // Position the frames of the chambers in the TRD mother volume
      xpos  = 0.;
      ypos  = - fClength[iplan][0] - fClength[iplan][1] - fClength[iplan][2]/2.;
      for (Int_t ic = 0; ic < icham; ic++) {
        ypos += fClength[iplan][ic];        
      }
      ypos += fClength[iplan][icham]/2.;
      zpos  = fgkCraH/2. + fgkCdrH/2. - fgkSheight/2. + iplan * (fgkCH + fgkVspace);
      // The lower aluminum frame, radiator + drift region
      sprintf(cTagV,"UA%02d",iDet);
      gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
      // The upper G10 frame, amplification region
      sprintf(cTagV,"UD%02d",iDet);
      zpos += fgkCamH/2. + fgkCraH/2. + fgkCdrH/2.;
      gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
      // The upper aluminum frame
      sprintf(cTagV,"UF%02d",iDet);
      zpos += fgkCroH/2. + fgkCamH/2.;
      gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
 
      // Position the MCM volumina
      PositionReadout(iplan,icham);

      // Position the volumina for the cooling
      PositionCooling(iplan,icham,idrotm);

    }
  }

  xpos = 0.;
  ypos = 0.;
  zpos = 0.;
  gMC->Gspos("UTR1",1,"BTR1",xpos,ypos,zpos,0,"ONLY");
  gMC->Gspos("UTR1",2,"BTR2",xpos,ypos,zpos,0,"ONLY");
  gMC->Gspos("UTR1",3,"BTR3",xpos,ypos,zpos,0,"ONLY");

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::CreateReadout(Int_t *idtmed) const
{
  //
  // Create the volumina of the readout electronics
  //

  const Int_t   kNparBox    = 3;

  Float_t parBox[kNparBox];
  Float_t xpos = 0.0;
  Float_t ypos = 0.0;
  Float_t zpos = 0.0;

  // The mother volume for the MCMs + connectors (air)
  parBox[0] = 3.0/2.;
  parBox[1] = 3.4/2.;
  parBox[2] = 0.5/2.;
  gMC->Gsvolu("UMCM","BOX",idtmed[1302-1],parBox,kNparBox);

  // The MCM carrier G10 layer
  parBox[0] = 3.0/2.;
  parBox[1] = 3.0/2.;
  parBox[2] = 0.1/2.;
  gMC->Gsvolu("UMC1","BOX",idtmed[1319-1],parBox,kNparBox);
  // The MCM carrier Cu layer
  parBox[0] = 3.0/2.;
  parBox[1] = 3.0/2.;
  parBox[2] = 0.0034/2.;
  gMC->Gsvolu("UMC2","BOX",idtmed[1318-1],parBox,kNparBox);
  // The MCM carrier Sn layer
  parBox[0] = 3.0/2.;
  parBox[1] = 3.0/2.;
  parBox[2] = 0.004/2.;
  gMC->Gsvolu("UMC3","BOX",idtmed[1317-1],parBox,kNparBox);
  // The MCM carrier Al layer
  parBox[0] = 3.0/2.;
  parBox[1] = 3.0/2.;
  parBox[2] = 0.05/2.;
  gMC->Gsvolu("UMC4","BOX",idtmed[1316-1],parBox,kNparBox);

  // The epoxy of chip no.1
  parBox[0] = 0.548/2.;
  parBox[1] = 0.548/2.;
  parBox[2] = 0.1/2.;
  gMC->Gsvolu("UCE1","BOX",idtmed[1321-1],parBox,kNparBox);
  // The silicon of chip no.1
  parBox[0] = 0.316/2.;
  parBox[1] = 0.316/2.;
  parBox[2] = 0.03/2.;
  gMC->Gsvolu("UCS1","BOX",idtmed[1320-1],parBox,kNparBox);

  // The epoxy of chip no.2
  parBox[0] = 1.549/2.;
  parBox[1] = 1.549/2.;
  parBox[2] = 0.1/2.;
  gMC->Gsvolu("UCE2","BOX",idtmed[1321-1],parBox,kNparBox);
  // The silicon of chip no.2
  parBox[0] = 0.894/2.;
  parBox[1] = 0.894/2.;
  parBox[2] = 0.03/2.;
  gMC->Gsvolu("UCS2","BOX",idtmed[1320-1],parBox,kNparBox);

  // The PE of the connector
  parBox[0] = 2.25/2.;
  parBox[1] = 0.4/2.;
  parBox[2] = 0.3/2.;
  gMC->Gsvolu("UCN1","BOX",idtmed[1322-1],parBox,kNparBox);
  // The Cu of the connector
  parBox[0] = 2.25/2.;
  parBox[1] = 0.4/2.;
  parBox[2] = 0.005/2.;
  gMC->Gsvolu("UCN2","BOX",idtmed[1323-1],parBox,kNparBox);

  xpos  =  0.0;
  ypos  = -0.4/2.;
  zpos  = -0.25      + 0.1/2.;
  gMC->Gspos("UMC1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  zpos +=  0.1/2.   + 0.0034/2.;
  gMC->Gspos("UMC2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  zpos +=  0.0034/2 + 0.004/2.;
  gMC->Gspos("UMC3",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  zpos +=  0.004/2  + 0.05/2.;
  gMC->Gspos("UMC4",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  zpos +=  0.05/2.  + 0.1/2.;
  xpos  =  1.0;
  gMC->Gspos("UCE1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  xpos  = -0.5;
  gMC->Gspos("UCE2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  zpos +=  0.1/2.   + 0.03/2.;
  xpos  =  1.0;
  gMC->Gspos("UCS1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
  xpos  = -0.5;
  gMC->Gspos("UCS2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  
  xpos  =  0.0;
  ypos  =  3.4/2.   - 0.4/2.;
  zpos  = -0.25     + 0.3/2.;
  gMC->Gspos("UCN1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  
  zpos +=  0.3/2.   + 0.005/2.;
  gMC->Gspos("UCN2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");  

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::PositionReadout(Int_t ipla, Int_t icha)
{
  //
  // Position the volumina inside the readout mother volume
  //

  const Int_t   kNmcmChannel = 18;

  AliTRDparameter *parameter = new AliTRDparameter();

  Int_t nMCMrow = parameter->GetRowMax(ipla,icha,0);
  Int_t nMCMcol = parameter->GetColMax(ipla) / kNmcmChannel;

  Float_t xSize = (GetChamberWidth(ipla)       - 2.*fgkCpadW) 
                / ((Float_t) nMCMcol);
  Float_t ySize = (GetChamberLength(ipla,icha) - 2.*fgkRpadW) 
                / ((Float_t) nMCMrow);
  Float_t x0    = parameter->GetCol0(ipla);
  Float_t y0    = parameter->GetRow0(ipla,icha,0);

  Int_t iCopy = GetDetector(ipla,icha,0) * 1000;
  for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
    for (Int_t iMCMcol = 0; iMCMcol < nMCMcol; iMCMcol++) {
      iCopy++;
      Float_t xpos = (0.5 + iMCMcol) * xSize + x0; 
      Float_t ypos = (0.5 + iMCMrow) * ySize + y0;
      Float_t zpos = fgkCH - fgkSheight/2. + 0.5/2.
                   + ipla * (fgkCH + fgkVspace);
      gMC->Gspos("UMCM",iCopy,"UTR1",xpos,ypos,zpos,0,"ONLY");    
    }
  }

  delete parameter;

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::CreateCooling(Int_t *idtmed) const
{
  //
  // Create the volumina of the cooling
  //

  const Int_t kNparTube = 3;

  Float_t parTube[kNparTube];
  Float_t xpos;
  Float_t ypos;
  Float_t zpos;

  // The aluminum pipe for the cooling
  parTube[0] = 0.0;
  parTube[1] = 0.0;
  parTube[2] = 0.0;
  gMC->Gsvolu("UCOA","TUBE",idtmed[1324-1],parTube,0);

  // The cooling water
  parTube[0] =  0.0;
  parTube[1] =  0.2/2.;
  parTube[2] = -1.;
  gMC->Gsvolu("UCOW","TUBE",idtmed[1314-1],parTube,kNparTube);

  // Water inside the cooling pipe
  xpos = 0.0;
  ypos = 0.0;
  zpos = 0.0;
  gMC->Gspos("UCOW",1,"UCOA",xpos,ypos,zpos,0,"ONLY");

}

//_____________________________________________________________________________
void AliTRDgeometryDetail::PositionCooling(Int_t ipla, Int_t icha, Int_t idrotm)
{
  //
  // Position the volumina of the cooling
  //

  const Int_t kNpar = 3;

  Float_t par[kNpar];
  Float_t xpos;
  Float_t ypos;
  Float_t zpos;

  AliTRDparameter *parameter = new AliTRDparameter();

  Int_t   iCopy   = GetDetector(ipla,icha,0) * 100;
  Int_t   nMCMrow = parameter->GetRowMax(ipla,icha,0);

  Float_t ySize   = (GetChamberLength(ipla,icha) - 2.*fgkRpadW) 
                  / ((Float_t) nMCMrow);
  Float_t y0      = parameter->GetRow0(ipla,icha,0);

  // Position the cooling pipes
  for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {

    xpos   = 0.0;
    ypos   = (0.5 + iMCMrow) * ySize + y0 - 1.9;
    zpos   = fgkCH - fgkSheight/2. + 0.5/2.
                   + ipla * (fgkCH + fgkVspace);
    par[0] = 0.0;
    par[1] = 0.3/2.;
    par[2] = GetChamberWidth(ipla)/2.+ fgkCroW;
    gMC->Gsposp("UCOA",iCopy+iMCMrow,"UTR1",xpos,ypos,zpos
                      ,idrotm,"ONLY",par,kNpar);

  }

  delete parameter;

}
Commit	Line	Data
16bf9884	1	/**************************************************************************
	2	* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
	3	* *
	4	* Author: The ALICE Off-line Project. *
	5	* Contributors are mentioned in the code where appropriate. *
	6	* *
	7	* Permission to use, copy, modify and distribute this software and its *
	8	* documentation strictly for non-commercial purposes is hereby granted *
	9	* without fee, provided that the above copyright notice appears in all *
	10	* copies and that both the copyright notice and this permission notice *
	11	* appear in the supporting documentation. The authors make no claims *
	12	* about the suitability of this software for any purpose. It is *
	13	* provided "as is" without express or implied warranty. *
	14	**************************************************************************/
	15
	16	/*
	17	$Log$
b9d0a01d	18	Revision 1.3.6.2 2002/07/24 10:09:30 alibrary
	19	Updating VirtualMC
	20
	21	Revision 1.5 2002/06/12 09:54:35 cblume
	22	Update of tracking code provided by Sergei
	23
5443e65e	24	Revision 1.4 2002/03/28 14:59:07 cblume
	25	Coding conventions
	26
0a29d0f1	27	Revision 1.3 2002/02/11 14:21:16 cblume
	28	Update of the geometry. Get rid of MANY
	29
0a770ac9	30	Revision 1.2 2001/11/08 13:13:08 cblume
	31	Change to MANY for UCFI/M/O and UAFI/M/O
	32
a0bc1a05	33	Revision 1.1 2001/11/06 17:19:41 cblume
	34	Add detailed geometry and simple simulator
	35
16bf9884	36	*/
	37
	38	///////////////////////////////////////////////////////////////////////////////
	39	// //
0a770ac9	40	// Detailed TRD geometry for the spaceframe without holes //
16bf9884	41	// //
	42	///////////////////////////////////////////////////////////////////////////////
	43
	44	#include "AliMC.h"
	45
	46	#include "AliTRDgeometryDetail.h"
5443e65e	47	#include "AliTRDparameter.h"
16bf9884	48
	49	ClassImp(AliTRDgeometryDetail)
	50
	51	//_____________________________________________________________________________
	52	AliTRDgeometryDetail::AliTRDgeometryDetail():AliTRDgeometryFull()
	53	{
	54	//
	55	// AliTRDgeometryDetail default constructor
	56	//
	57
	58	Init();
	59
	60	}
	61
	62	//_____________________________________________________________________________
	63	AliTRDgeometryDetail::~AliTRDgeometryDetail()
	64	{
	65	//
	66	// AliTRDgeometryDetail destructor
	67	//
	68
	69	}
	70
	71	//_____________________________________________________________________________
	72	void AliTRDgeometryDetail::Init()
	73	{
	74	//
	75	// Initializes the geometry parameter
	76	//
	77
	78	AliTRDgeometryFull::Init();
	79
	80	}
	81
	82	//_____________________________________________________________________________
	83	void AliTRDgeometryDetail::CreateGeometry(Int_t *idtmed)
	84	{
	85	//
	86	// Create the detailed TRD geometry without hole
0a770ac9	87	// including the MCMs and the cooling pipes
	88	//
	89	//
	90	// Names of the TRD volumina (xx = detector number):
	91	//
	92	// Lower part of the readout chambers (gas volume + radiator)
	93	//
	94	// UAxx Aluminum frames (Al)
	95	// UBxx G10 frames (C)
	96	// UCxx Inner volumes (Air)
	97	//
	98	// Upper part of the readout chambers (readout plane + fee)
	99	//
	100	// UDxx G10 frames (C)
	101	// UExx Inner volumes of the G10 (Air)
	102	// UFxx Aluminum frames (Al)
	103	// UGxx Inner volumes of the Al (Air)
	104	//
	105	// Inner material layers
	106	//
	107	// UHxx Radiator (Rohacell)
	108	// UIxx Entrance window (Mylar)
	109	// UJxx Drift volume (Xe/CO2)
	110	// UKxx Amplification volume (Xe/CO2)
	111	// ULxx Pad plane (Cu)
	112	// UMxx Support structure (Rohacell)
	113	// UNxx FEE + signal lines (Cu)
16bf9884	114	//
16bf9884	115
	116	const Int_t kNparTrd = 4;
	117	const Int_t kNparCha = 3;
16bf9884	118
0a770ac9	119	Float_t xpos, ypos, zpos;
0a770ac9	120
16bf9884	121	Float_t parTrd[kNparTrd];
	122	Float_t parCha[kNparCha];
	123
0a770ac9	124	Char_t cTagV[5];
0a770ac9	125	Char_t cTagM[5];
16bf9884	126
0a770ac9	127	Int_t idrotm;
16bf9884	128
0a770ac9	129	// Rotation matrix
0a770ac9	130	gMC->Matrix(idrotm, 0.0, 0.0, 90.0, 90.0, 90.0, 0.0);
16bf9884	131
	132	// The TRD mother volume for one sector (Air), full length in z-direction
	133	parTrd[0] = fgkSwidth1/2.;
	134	parTrd[1] = fgkSwidth2/2.;
	135	parTrd[2] = fgkSlenTR1/2.;
	136	parTrd[3] = fgkSheight/2.;
0a770ac9	137	gMC->Gsvolu("UTR1","TRD1",idtmed[1302-1],parTrd,kNparTrd);
	138
	139	// Create the readout volumina
	140	CreateReadout(idtmed);
	141
	142	// Create the volumina for the cooling
	143	CreateCooling(idtmed);
16bf9884	144
0a770ac9	145	for (Int_t icham = 0; icham < kNcham; icham++) {
	146	for (Int_t iplan = 0; iplan < kNplan; iplan++) {
	147
	148	Int_t iDet = GetDetectorSec(iplan,icham);
	149
	150	// The lower part of the readout chambers (gas volume + radiator)
	151	// The aluminum frames
	152	sprintf(cTagV,"UA%02d",iDet);
	153	parCha[0] = fCwidth[iplan]/2.;
	154	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
	155	parCha[2] = fgkCraH/2. + fgkCdrH/2.;
	156	gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
	157	// The G10 frames
	158	sprintf(cTagV,"UB%02d",iDet);
	159	parCha[0] = fCwidth[iplan]/2. - fgkCalT;
	160	parCha[1] = -1.;
	161	parCha[2] = -1.;
	162	gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
	163	// The inner part (air)
	164	sprintf(cTagV,"UC%02d",iDet);
	165	parCha[0] = fCwidth[iplan]/2. - fgkCalT - fgkCclsT;
	166	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCclfT;
	167	parCha[2] = -1.;
	168	gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
	169
	170	// The upper part of the readout chambers (readout plane + fee)
	171	// The G10 frames
	172	sprintf(cTagV,"UD%02d",iDet);
	173	parCha[0] = fCwidth[iplan]/2. + fgkCroW;
	174	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
	175	parCha[2] = fgkCamH/2.;
	176	gMC->Gsvolu(cTagV,"BOX ",idtmed[1307-1],parCha,kNparCha);
	177	// The inner part of the G10 frame (air)
	178	sprintf(cTagV,"UE%02d",iDet);
	179	parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCcuT;
	180	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCcuT;
	181	parCha[2] = -1.;
	182	gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
	183	// The aluminum frames
	184	sprintf(cTagV,"UF%02d",iDet);
	185	parCha[0] = fCwidth[iplan]/2. + fgkCroW;
	186	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.;
	187	parCha[2] = fgkCroH/2.;
	188	gMC->Gsvolu(cTagV,"BOX ",idtmed[1301-1],parCha,kNparCha);
	189	// The inner part of the aluminum frames
	190	sprintf(cTagV,"UG%02d",iDet);
	191	parCha[0] = fCwidth[iplan]/2. + fgkCroW - fgkCauT;
	192	parCha[1] = fClength[iplan][icham]/2. - fgkHspace/2.- fgkCauT;
	193	parCha[2] = -1.;
	194	gMC->Gsvolu(cTagV,"BOX ",idtmed[1302-1],parCha,kNparCha);
	195
	196	// The material layers inside the chambers
	197	parCha[0] = -1.;
	198	parCha[1] = -1.;
	199	// Rohacell layer (radiator)
	200	parCha[2] = fgkRaThick/2;
	201	sprintf(cTagV,"UH%02d",iDet);
	202	gMC->Gsvolu(cTagV,"BOX ",idtmed[1315-1],parCha,kNparCha);
	203	// Mylar layer (entrance window + HV cathode)
	204	parCha[2] = fgkMyThick/2;
	205	sprintf(cTagV,"UI%02d",iDet);
	206	gMC->Gsvolu(cTagV,"BOX ",idtmed[1308-1],parCha,kNparCha);
	207	// Xe/Isobutane layer (drift volume)
	208	parCha[2] = fgkDrThick/2.;
209	sprintf(cTagV,"UJ%02d",iDet);
210	gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
211	// Xe/Isobutane layer (amplification volume)
212	parCha[2] = fgkAmThick/2.;
213	sprintf(cTagV,"UK%02d",iDet);
214	gMC->Gsvolu(cTagV,"BOX ",idtmed[1309-1],parCha,kNparCha);
215	// Cu layer (pad plane)
216	parCha[2] = fgkCuThick/2;
217	sprintf(cTagV,"UL%02d",iDet);
218	gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
219	// G10 layer (support structure / honeycomb)
220	parCha[2] = fgkSuThick/2;
221	sprintf(cTagV,"UM%02d",iDet);
222	gMC->Gsvolu(cTagV,"BOX ",idtmed[1313-1],parCha,kNparCha);
223	// Cu layer (FEE + signal lines)
224	parCha[2] = fgkFeThick/2;
225	sprintf(cTagV,"UN%02d",iDet);
226	gMC->Gsvolu(cTagV,"BOX ",idtmed[1305-1],parCha,kNparCha);
227
228	// Position the layers in the chambers
229	xpos = 0;
230	ypos = 0;
231	// Lower part
232	// Rohacell layer (radiator)
233	zpos = fgkRaZpos;
234	sprintf(cTagV,"UH%02d",iDet);
235	sprintf(cTagM,"UC%02d",iDet);
236	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
237	// Mylar layer (entrance window + HV cathode)
238	zpos = fgkMyZpos;
239	sprintf(cTagV,"UI%02d",iDet);
240	sprintf(cTagM,"UC%02d",iDet);
241	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
242	// Xe/Isobutane layer (drift volume)
243	zpos = fgkDrZpos;
244	sprintf(cTagV,"UJ%02d",iDet);
245	sprintf(cTagM,"UC%02d",iDet);
246	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
247	// Upper part
248	// Xe/Isobutane layer (amplification volume)
249	zpos = fgkAmZpos;
250	sprintf(cTagV,"UK%02d",iDet);
251	sprintf(cTagM,"UE%02d",iDet);
252	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
253	// Readout part
254	// Cu layer (pad plane)
255	zpos = fgkCuZpos;
256	sprintf(cTagV,"UL%02d",iDet);
257	sprintf(cTagM,"UG%02d",iDet);
258	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
259	// G10 layer (support structure)
260	zpos = fgkSuZpos;
261	sprintf(cTagV,"UM%02d",iDet);
262	sprintf(cTagM,"UG%02d",iDet);
263	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
264	// Cu layer (FEE + signal lines)
265	zpos = fgkFeZpos;
266	sprintf(cTagV,"UN%02d",iDet);
267	sprintf(cTagM,"UG%02d",iDet);
268	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
269
270	// Position the inner volumes of the chambers in the frames
271	xpos = 0.0;
272	ypos = 0.0;
273	zpos = 0.0;
274	// The inside of the lower G10 frame
275	sprintf(cTagV,"UC%02d",iDet);
276	sprintf(cTagM,"UB%02d",iDet);
277	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
278	// The lower G10 frame inside the aluminum frame
279	sprintf(cTagV,"UB%02d",iDet);
280	sprintf(cTagM,"UA%02d",iDet);
281	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
282	// The inside of the upper G10 frame
283	sprintf(cTagV,"UE%02d",iDet);
284	sprintf(cTagM,"UD%02d",iDet);
285	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
286	// The inside of the upper aluminum frame
287	sprintf(cTagV,"UG%02d",iDet);
288	sprintf(cTagM,"UF%02d",iDet);
289	gMC->Gspos(cTagV,1,cTagM,xpos,ypos,zpos,0,"ONLY");
290
291	// Position the frames of the chambers in the TRD mother volume
292	xpos = 0.;
293	ypos = - fClength[iplan][0] - fClength[iplan][1] - fClength[iplan][2]/2.;
294	for (Int_t ic = 0; ic < icham; ic++) {
295	ypos += fClength[iplan][ic];
296	}
297	ypos += fClength[iplan][icham]/2.;
298	zpos = fgkCraH/2. + fgkCdrH/2. - fgkSheight/2. + iplan * (fgkCH + fgkVspace);
299	// The lower aluminum frame, radiator + drift region
300	sprintf(cTagV,"UA%02d",iDet);
301	gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
302	// The upper G10 frame, amplification region
303	sprintf(cTagV,"UD%02d",iDet);
304	zpos += fgkCamH/2. + fgkCraH/2. + fgkCdrH/2.;
305	gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
306	// The upper aluminum frame
307	sprintf(cTagV,"UF%02d",iDet);
308	zpos += fgkCroH/2. + fgkCamH/2.;
309	gMC->Gspos(cTagV,1,"UTR1",xpos,ypos,zpos,0,"ONLY");
310
311	// Position the MCM volumina
312	PositionReadout(iplan,icham);
313
314	// Position the volumina for the cooling
315	PositionCooling(iplan,icham,idrotm);
316
317	}
16bf9884	318	}
	319
	320	xpos = 0.;
	321	ypos = 0.;
	322	zpos = 0.;
0a770ac9	323	gMC->Gspos("UTR1",1,"BTR1",xpos,ypos,zpos,0,"ONLY");
	324	gMC->Gspos("UTR1",2,"BTR2",xpos,ypos,zpos,0,"ONLY");
	325	gMC->Gspos("UTR1",3,"BTR3",xpos,ypos,zpos,0,"ONLY");
16bf9884	326
	327	}
	328
	329	//_____________________________________________________________________________
0a29d0f1	330	void AliTRDgeometryDetail::CreateReadout(Int_t *idtmed) const
16bf9884	331	{
	332	//
	333	// Create the volumina of the readout electronics
	334	//
	335
	336	const Int_t kNparBox = 3;
	337
	338	Float_t parBox[kNparBox];
	339	Float_t xpos = 0.0;
	340	Float_t ypos = 0.0;
	341	Float_t zpos = 0.0;
	342
	343	// The mother volume for the MCMs + connectors (air)
	344	parBox[0] = 3.0/2.;
	345	parBox[1] = 3.4/2.;
	346	parBox[2] = 0.5/2.;
	347	gMC->Gsvolu("UMCM","BOX",idtmed[1302-1],parBox,kNparBox);
	348
	349	// The MCM carrier G10 layer
	350	parBox[0] = 3.0/2.;
	351	parBox[1] = 3.0/2.;
	352	parBox[2] = 0.1/2.;
	353	gMC->Gsvolu("UMC1","BOX",idtmed[1319-1],parBox,kNparBox);
	354	// The MCM carrier Cu layer
	355	parBox[0] = 3.0/2.;
	356	parBox[1] = 3.0/2.;
	357	parBox[2] = 0.0034/2.;
	358	gMC->Gsvolu("UMC2","BOX",idtmed[1318-1],parBox,kNparBox);
	359	// The MCM carrier Sn layer
	360	parBox[0] = 3.0/2.;
	361	parBox[1] = 3.0/2.;
	362	parBox[2] = 0.004/2.;
	363	gMC->Gsvolu("UMC3","BOX",idtmed[1317-1],parBox,kNparBox);
	364	// The MCM carrier Al layer
	365	parBox[0] = 3.0/2.;
	366	parBox[1] = 3.0/2.;
	367	parBox[2] = 0.05/2.;
	368	gMC->Gsvolu("UMC4","BOX",idtmed[1316-1],parBox,kNparBox);
	369
	370	// The epoxy of chip no.1
	371	parBox[0] = 0.548/2.;
	372	parBox[1] = 0.548/2.;
	373	parBox[2] = 0.1/2.;
	374	gMC->Gsvolu("UCE1","BOX",idtmed[1321-1],parBox,kNparBox);
	375	// The silicon of chip no.1
	376	parBox[0] = 0.316/2.;
	377	parBox[1] = 0.316/2.;
	378	parBox[2] = 0.03/2.;
	379	gMC->Gsvolu("UCS1","BOX",idtmed[1320-1],parBox,kNparBox);
	380
	381	// The epoxy of chip no.2
	382	parBox[0] = 1.549/2.;
	383	parBox[1] = 1.549/2.;
	384	parBox[2] = 0.1/2.;
	385	gMC->Gsvolu("UCE2","BOX",idtmed[1321-1],parBox,kNparBox);
	386	// The silicon of chip no.2
	387	parBox[0] = 0.894/2.;
	388	parBox[1] = 0.894/2.;
	389	parBox[2] = 0.03/2.;
	390	gMC->Gsvolu("UCS2","BOX",idtmed[1320-1],parBox,kNparBox);
	391
	392	// The PE of the connector
	393	parBox[0] = 2.25/2.;
	394	parBox[1] = 0.4/2.;
395	parBox[2] = 0.3/2.;
396	gMC->Gsvolu("UCN1","BOX",idtmed[1322-1],parBox,kNparBox);
397	// The Cu of the connector
398	parBox[0] = 2.25/2.;
399	parBox[1] = 0.4/2.;
400	parBox[2] = 0.005/2.;
401	gMC->Gsvolu("UCN2","BOX",idtmed[1323-1],parBox,kNparBox);
402
403	xpos = 0.0;
404	ypos = -0.4/2.;
405	zpos = -0.25 + 0.1/2.;
406	gMC->Gspos("UMC1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
407	zpos += 0.1/2. + 0.0034/2.;
408	gMC->Gspos("UMC2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
409	zpos += 0.0034/2 + 0.004/2.;
410	gMC->Gspos("UMC3",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
411	zpos += 0.004/2 + 0.05/2.;
412	gMC->Gspos("UMC4",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
413	zpos += 0.05/2. + 0.1/2.;
414	xpos = 1.0;
415	gMC->Gspos("UCE1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
416	xpos = -0.5;
417	gMC->Gspos("UCE2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
418	zpos += 0.1/2. + 0.03/2.;
419	xpos = 1.0;
420	gMC->Gspos("UCS1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
421	xpos = -0.5;
422	gMC->Gspos("UCS2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
423	xpos = 0.0;
424	ypos = 3.4/2. - 0.4/2.;
425	zpos = -0.25 + 0.3/2.;
426	gMC->Gspos("UCN1",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
427	zpos += 0.3/2. + 0.005/2.;
428	gMC->Gspos("UCN2",1,"UMCM",xpos,ypos,zpos,0,"ONLY");
429
430	}
431
432	//_____________________________________________________________________________
433	void AliTRDgeometryDetail::PositionReadout(Int_t ipla, Int_t icha)
434	{
435	//
436	// Position the volumina inside the readout mother volume
437	//
438
0a770ac9	439	const Int_t kNmcmChannel = 18;
16bf9884	440
5443e65e	441	AliTRDparameter *parameter = new AliTRDparameter();
	442
	443	Int_t nMCMrow = parameter->GetRowMax(ipla,icha,0);
	444	Int_t nMCMcol = parameter->GetColMax(ipla) / kNmcmChannel;
0a770ac9	445
	446	Float_t xSize = (GetChamberWidth(ipla) - 2.*fgkCpadW)
	447	/ ((Float_t) nMCMcol);
	448	Float_t ySize = (GetChamberLength(ipla,icha) - 2.*fgkRpadW)
	449	/ ((Float_t) nMCMrow);
5443e65e	450	Float_t x0 = parameter->GetCol0(ipla);
5443e65e	451	Float_t y0 = parameter->GetRow0(ipla,icha,0);
16bf9884	452
	453	Int_t iCopy = GetDetector(ipla,icha,0) * 1000;
	454	for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
	455	for (Int_t iMCMcol = 0; iMCMcol < nMCMcol; iMCMcol++) {
	456	iCopy++;
	457	Float_t xpos = (0.5 + iMCMcol) * xSize + x0;
	458	Float_t ypos = (0.5 + iMCMrow) * ySize + y0;
0a770ac9	459	Float_t zpos = fgkCH - fgkSheight/2. + 0.5/2.
	460	+ ipla * (fgkCH + fgkVspace);
	461	gMC->Gspos("UMCM",iCopy,"UTR1",xpos,ypos,zpos,0,"ONLY");
16bf9884	462	}
	463	}
	464
5443e65e	465	delete parameter;
5443e65e	466
16bf9884	467	}
	468
	469	//_____________________________________________________________________________
0a29d0f1	470	void AliTRDgeometryDetail::CreateCooling(Int_t *idtmed) const
16bf9884	471	{
	472	//
	473	// Create the volumina of the cooling
	474	//
	475
0a770ac9	476	const Int_t kNparTube = 3;
16bf9884	477
0a770ac9	478	Float_t parTube[kNparTube];
	479	Float_t xpos;
	480	Float_t ypos;
	481	Float_t zpos;
16bf9884	482
16bf9884	483	// The aluminum pipe for the cooling
0a770ac9	484	parTube[0] = 0.0;
	485	parTube[1] = 0.0;
	486	parTube[2] = 0.0;
	487	gMC->Gsvolu("UCOA","TUBE",idtmed[1324-1],parTube,0);
16bf9884	488
16bf9884	489	// The cooling water
0a770ac9	490	parTube[0] = 0.0;
	491	parTube[1] = 0.2/2.;
	492	parTube[2] = -1.;
	493	gMC->Gsvolu("UCOW","TUBE",idtmed[1314-1],parTube,kNparTube);
	494
	495	// Water inside the cooling pipe
	496	xpos = 0.0;
	497	ypos = 0.0;
	498	zpos = 0.0;
16bf9884	499	gMC->Gspos("UCOW",1,"UCOA",xpos,ypos,zpos,0,"ONLY");
	500
	501	}
	502
	503	//_____________________________________________________________________________
0a770ac9	504	void AliTRDgeometryDetail::PositionCooling(Int_t ipla, Int_t icha, Int_t idrotm)
16bf9884	505	{
	506	//
	507	// Position the volumina of the cooling
	508	//
	509
0a770ac9	510	const Int_t kNpar = 3;
16bf9884	511
16bf9884	512	Float_t par[kNpar];
0a770ac9	513	Float_t xpos;
	514	Float_t ypos;
	515	Float_t zpos;
16bf9884	516
5443e65e	517	AliTRDparameter *parameter = new AliTRDparameter();
5443e65e	518
16bf9884	519	Int_t iCopy = GetDetector(ipla,icha,0) * 100;
5443e65e	520	Int_t nMCMrow = parameter->GetRowMax(ipla,icha,0);
16bf9884	521
0a770ac9	522	Float_t ySize = (GetChamberLength(ipla,icha) - 2.*fgkRpadW)
0a770ac9	523	/ ((Float_t) nMCMrow);
5443e65e	524	Float_t y0 = parameter->GetRow0(ipla,icha,0);
16bf9884	525
	526	// Position the cooling pipes
	527	for (Int_t iMCMrow = 0; iMCMrow < nMCMrow; iMCMrow++) {
	528
	529	xpos = 0.0;
0a770ac9	530	ypos = (0.5 + iMCMrow) * ySize + y0 - 1.9;
	531	zpos = fgkCH - fgkSheight/2. + 0.5/2.
	532	+ ipla * (fgkCH + fgkVspace);
	533	par[0] = 0.0;
16bf9884	534	par[1] = 0.3/2.;
0a770ac9	535	par[2] = GetChamberWidth(ipla)/2.+ fgkCroW;
	536	gMC->Gsposp("UCOA",iCopy+iMCMrow,"UTR1",xpos,ypos,zpos
	537	,idrotm,"ONLY",par,kNpar);
16bf9884	538
	539	}
	540
5443e65e	541	delete parameter;
5443e65e	542
16bf9884	543	}