GetNumberOfCPVChipsZ(); iz++) {
+ copy++;
+ z = zStep * (iz+1) - geom->GetCPVActiveSize(1)/2;
+ gMC->Gspos("PCPC",copy,"PCPV",x,y,z,0,"ONLY");
}
-
- delete newdigit ;
- }
+ }
+
+ // Foiled textolite (1 mm of textolite + 50 mkm of Cu + 6 mkm of Ni)
- // Noise induced by the PIN diode of the PbWO crystals
+ par[0] = geom->GetCPVActiveSize(0) / 2;
+ par[1] = geom->GetCPVTextoliteThickness() / 2;
+ par[2] = geom->GetCPVActiveSize(1) / 2;
+ gMC->Gsvolu("PCPF","BOX ",idtmed[707],par,3);
+
+ // Argon gas volume
+
+ par[1] = (geom->GetFTPosition(2) - geom->GetFTPosition(1) - geom->GetCPVTextoliteThickness()) / 2;
+ gMC->Gsvolu("PCPG","BOX ",idtmed[715],par,3);
+
+ for (Int_t i=0; i<4; i++) {
+ y = geom->GetCPVFrameSize(1) / 2 - geom->GetFTPosition(i) + geom->GetCPVTextoliteThickness()/2;
+ gMC->Gspos("PCPF",i+1,"PCPV",0,y,0,0,"ONLY");
+ if(i==1){
+ y-= (geom->GetFTPosition(2) - geom->GetFTPosition(1)) / 2;
+ gMC->Gspos("PCPG",1,"PCPV ",0,y,0,0,"ONLY");
+ }
+ }
- Float_t energyandnoise ;
- for ( i = 0 ; i < fNdigits ; i++ ) {
- newdigit = (AliPHOSDigit * ) fDigits->At(i) ;
- fGeom->AbsToRelNumbering(newdigit->GetId(), relid) ;
+ // Dummy sensitive plane in the middle of argone gas volume
- if (relid[1]==0){ // Digits belong to EMC (PbW0_4 crystals)
- energyandnoise = newdigit->GetAmp() + Digitize(gRandom->Gaus(0., fPinElectronicNoise)) ;
+ par[1]=0.001;
+ gMC->Gsvolu("PCPQ","BOX ",idtmed[715],par,3);
+ gMC->Gspos ("PCPQ",1,"PCPG",0,0,0,0,"ONLY");
- if (energyandnoise < 0 )
- energyandnoise = 0 ;
+ // Cu+Ni foil covers textolite
- if ( newdigit->GetAmp() < fDigitThreshold ) // if threshold not surpassed, remove digit from list
- fDigits->RemoveAt(i) ;
- }
- }
-
- fDigits->Compress() ;
+ par[1] = geom->GetCPVCuNiFoilThickness() / 2;
+ gMC->Gsvolu("PCP1","BOX ",idtmed[710],par,3);
+ y = geom->GetCPVTextoliteThickness()/2 - par[1];
+ gMC->Gspos ("PCP1",1,"PCPF",0,y,0,0,"ONLY");
+
+ // Aluminum frame around CPV
+
+ par[0] = geom->GetCPVFrameSize(0)/2;
+ par[1] = geom->GetCPVFrameSize(1)/2;
+ par[2] = geom->GetCPVBoxSize(2) /2;
+ gMC->Gsvolu("PCF1","BOX ",idtmed[701],par,3);
+
+ par[0] = geom->GetCPVBoxSize(0)/2 - geom->GetCPVFrameSize(0);
+ par[1] = geom->GetCPVFrameSize(1)/2;
+ par[2] = geom->GetCPVFrameSize(2)/2;
+ gMC->Gsvolu("PCF2","BOX ",idtmed[701],par,3);
- fNdigits = fDigits->GetEntries() ;
- for (i = 0 ; i < fNdigits ; i++) {
- newdigit = (AliPHOSDigit *) fDigits->At(i) ;
- newdigit->SetIndexInList(i) ;
+ for (Int_t j=0; j<=1; j++) {
+ x = TMath::Sign(1,2*j-1) * (geom->GetCPVBoxSize(0) - geom->GetCPVFrameSize(0)) / 2;
+ gMC->Gspos("PCF1",j+1,"PCPV", x,0,0,0,"ONLY");
+ z = TMath::Sign(1,2*j-1) * (geom->GetCPVBoxSize(2) - geom->GetCPVFrameSize(2)) / 2;
+ gMC->Gspos("PCF2",j+1,"PCPV",0, 0,z,0,"ONLY");
}
}
+
//____________________________________________________________________________
-void AliPHOSv0::Init(void)
+void AliPHOSv0::CreateGeometryforSupport()
{
- // Just prints an information message
+ // Create the PHOS' support geometry for GEANT
+ //BEGIN_HTML
+ /*
+
+ Geant3 geometry of the PHOS's support
+
+
+ 
+
+ */
+ //END_HTML
- Int_t i;
+ Float_t par[5], x0,y0,z0 ;
+ Int_t i,j,copy;
- printf("\n");
- for(i=0;i<35;i++) printf("*");
- printf(" PHOS_INIT ");
- for(i=0;i<35;i++) printf("*");
- printf("\n");
+ // Get pointer to the array containing media indexes
+ Int_t *idtmed = fIdtmed->GetArray() - 699 ;
- // Here the PHOS initialisation code (if any!)
+ AliPHOSGeometry * geom = GetGeometry() ;
- for(i=0;i<80;i++) printf("*");
- printf("\n");
-
-}
+ // --- Dummy box containing two rails on which PHOS support moves
+ // --- Put these rails to the bottom of the L3 magnet
-//___________________________________________________________________________
-void AliPHOSv0::MakeBranch(Option_t* opt)
-{
- // Create new branche in the current Root Tree in the digit Tree
+ par[0] = geom->GetRailRoadSize(0) / 2.0 ;
+ par[1] = geom->GetRailRoadSize(1) / 2.0 ;
+ par[2] = geom->GetRailRoadSize(2) / 2.0 ;
+ gMC->Gsvolu("PRRD", "BOX ", idtmed[798], par, 3) ;
- AliDetector::MakeBranch(opt) ;
-
- char branchname[10];
- sprintf(branchname,"%s",GetName());
- char *cdD = strstr(opt,"D");
-
- if (fDigits && gAlice->TreeD() && cdD) {
- gAlice->TreeD()->Branch(branchname, &fDigits, fBufferSize);
- }
-}
-
-//____________________________________________________________________________
-RecPointsList * AliPHOSv0::PpsdRecPoints(Int_t evt)
-{
- // returns the pointer to the PPSD RecPoints list
- // if the list is empty, get it from TreeR on the disk file
+ y0 = -(geom->GetRailsDistanceFromIP() - geom->GetRailRoadSize(1) / 2.0) ;
+ gMC->Gspos("PRRD", 1, "ALIC", 0.0, y0, 0.0, 0, "ONLY") ;
- RecPointsList * rv = 0 ;
+ // --- Dummy box containing one rail
- if ( fPpsdRecPoints )
- rv = fPpsdRecPoints ;
+ par[0] = geom->GetRailOuterSize(0) / 2.0 ;
+ par[1] = geom->GetRailOuterSize(1) / 2.0 ;
+ par[2] = geom->GetRailOuterSize(2) / 2.0 ;
+ gMC->Gsvolu("PRAI", "BOX ", idtmed[798], par, 3) ;
- else {
- fPpsdRecPoints = new TClonesArray("AliPHOSPpsdRecPoint", 100) ;
- gAlice->GetEvent(evt) ;
- TTree * fReconstruct = gAlice->TreeR() ;
- fReconstruct->SetBranchAddress( "PHOSPpsdRP", &fPpsdRecPoints) ;
- fReconstruct->GetEvent(0) ;
- rv = fPpsdRecPoints ;
+ for (i=0; i<2; i++) {
+ x0 = (2*i-1) * geom->GetDistanceBetwRails() / 2.0 ;
+ gMC->Gspos("PRAI", i, "PRRD", x0, 0.0, 0.0, 0, "ONLY") ;
}
-
- fPpsdRecPoints->Expand( fPpsdRecPoints->GetEntries() ) ;
-
- return rv ;
-
-}
-//_____________________________________________________________________________
-void AliPHOSv0::Reconstruction(AliPHOSReconstructioner * Reconstructioner)
-{
- // 1. Reinitializes the existing RecPoint, TrackSegment, and RecParticles Lists and
- // 2. Creates TreeR wit a branch for each list
- // 3. Steers the reconstruction processes
- // 4. Saves the 3 lists in TreeR
- // 5. Write the Tree to File
-
- fReconstructioner = Reconstructioner ;
-
- char branchname[10] ;
+ // --- Upper and bottom steel parts of the rail
- // 1.
+ par[0] = geom->GetRailPart1(0) / 2.0 ;
+ par[1] = geom->GetRailPart1(1) / 2.0 ;
+ par[2] = geom->GetRailPart1(2) / 2.0 ;
+ gMC->Gsvolu("PRP1", "BOX ", idtmed[716], par, 3) ;
- gAlice->MakeTree("R") ;
- Int_t splitlevel = 0 ;
-
- if (fEmcRecPoints) {
- fEmcRecPoints->Delete() ;
- delete fEmcRecPoints ;
- fEmcRecPoints = 0 ;
- }
+ y0 = - (geom->GetRailOuterSize(1) - geom->GetRailPart1(1)) / 2.0 ;
+ gMC->Gspos("PRP1", 1, "PRAI", 0.0, y0, 0.0, 0, "ONLY") ;
+ y0 = (geom->GetRailOuterSize(1) - geom->GetRailPart1(1)) / 2.0 - geom->GetRailPart3(1);
+ gMC->Gspos("PRP1", 2, "PRAI", 0.0, y0, 0.0, 0, "ONLY") ;
- // fEmcRecPoints= new RecPointsList("AliPHOSEmcRecPoint", 100) ; if TClonesArray
- fEmcRecPoints= new RecPointsList(100) ;
+ // --- The middle vertical steel parts of the rail
- if ( fEmcRecPoints && gAlice->TreeR() ) {
- sprintf(branchname,"%sEmcRP",GetName()) ;
-
- // gAlice->TreeR()->Branch(branchname, &fEmcRecPoints, fBufferSize); if TClonesArray
- gAlice->TreeR()->Branch(branchname, "TObjArray", &fEmcRecPoints, fBufferSize, splitlevel) ;
- }
+ par[0] = geom->GetRailPart2(0) / 2.0 ;
+ par[1] = geom->GetRailPart2(1) / 2.0 ;
+ par[2] = geom->GetRailPart2(2) / 2.0 ;
+ gMC->Gsvolu("PRP2", "BOX ", idtmed[716], par, 3) ;
- if (fPpsdRecPoints) {
- fPpsdRecPoints->Delete() ;
- delete fPpsdRecPoints ;
- fPpsdRecPoints = 0 ;
- }
+ y0 = - geom->GetRailPart3(1) / 2.0 ;
+ gMC->Gspos("PRP2", 1, "PRAI", 0.0, y0, 0.0, 0, "ONLY") ;
- // fPpsdRecPoints = new RecPointsList("AliPHOSPpsdRecPoint", 100) ; if TClonesArray
- fPpsdRecPoints = new RecPointsList(100) ;
+ // --- The most upper steel parts of the rail
- if ( fPpsdRecPoints && gAlice->TreeR() ) {
- sprintf(branchname,"%sPpsdRP",GetName()) ;
-
- // gAlice->TreeR()->Branch(branchname, &fPpsdRecPoints, fBufferSize); if TClonesArray
- gAlice->TreeR()->Branch(branchname, "TObjArray", &fPpsdRecPoints, fBufferSize, splitlevel) ;
- }
+ par[0] = geom->GetRailPart3(0) / 2.0 ;
+ par[1] = geom->GetRailPart3(1) / 2.0 ;
+ par[2] = geom->GetRailPart3(2) / 2.0 ;
+ gMC->Gsvolu("PRP3", "BOX ", idtmed[716], par, 3) ;
- if (fTrackSegments) {
- fTrackSegments->Delete() ;
- delete fTrackSegments ;
- fTrackSegments = 0 ;
- }
+ y0 = (geom->GetRailOuterSize(1) - geom->GetRailPart3(1)) / 2.0 ;
+ gMC->Gspos("PRP3", 1, "PRAI", 0.0, y0, 0.0, 0, "ONLY") ;
- fTrackSegments = new TrackSegmentsList("AliPHOSTrackSegment", 100) ;
- if ( fTrackSegments && gAlice->TreeR() ) {
- sprintf(branchname,"%sTS",GetName()) ;
- gAlice->TreeR()->Branch(branchname, &fTrackSegments, fBufferSize) ;
- }
+ // --- The wall of the cradle
+ // --- The wall is empty: steel thin walls and air inside
- if (fRecParticles) {
- fRecParticles->Delete() ;
- delete fRecParticles ;
- fRecParticles = 0 ;
- }
- fRecParticles = new RecParticlesList("AliPHOSRecParticle", 100) ;
- if ( fRecParticles && gAlice->TreeR() ) {
- sprintf(branchname,"%sRP",GetName()) ;
- gAlice->TreeR()->Branch(branchname, &fRecParticles, fBufferSize) ;
- }
-
- // 3.
+ par[1] = TMath::Sqrt(
+ TMath::Power((geom->GetIPtoOuterCoverDistance() + geom->GetOuterBoxSize(1)),2) +
+ TMath::Power((geom->GetOuterBoxSize(0)/2),2)) + 10.;
+ par[0] = par[1] - geom->GetCradleWall(1) ;
+ par[2] = geom->GetCradleWall(2) / 2.0 ;
+ par[3] = geom->GetCradleWall(3) ;
+ par[4] = geom->GetCradleWall(4) ;
+ gMC->Gsvolu("PCRA", "TUBS", idtmed[716], par, 5) ;
- fReconstructioner->Make(fDigits, fEmcRecPoints, fPpsdRecPoints, fTrackSegments, fRecParticles);
+ par[0] -= geom->GetCradleWallThickness() ;
+ par[1] -= geom->GetCradleWallThickness() ;
+ par[2] -= geom->GetCradleWallThickness() ;
+ gMC->Gsvolu("PCRE", "TUBS", idtmed[798], par, 5) ;
+ gMC->Gspos ("PCRE", 1, "PCRA", 0.0, 0.0, 0.0, 0, "ONLY") ;
- // 4. Expand or Shrink the arrays to the proper size
-
- Int_t size ;
+ for (i=0; i<2; i++) {
+ z0 = (2*i-1) * (geom->GetOuterBoxSize(2) + geom->GetCradleWall(2)) / 2.0 ;
+ gMC->Gspos("PCRA", i, "ALIC", 0.0, 0.0, z0, 0, "ONLY") ;
+ }
+
+ // --- The "wheels" of the cradle
- size = fEmcRecPoints->GetEntries() ;
- fEmcRecPoints->Expand(size) ;
-
- size = fPpsdRecPoints->GetEntries() ;
- fPpsdRecPoints->Expand(size) ;
+ par[0] = geom->GetCradleWheel(0) / 2;
+ par[1] = geom->GetCradleWheel(1) / 2;
+ par[2] = geom->GetCradleWheel(2) / 2;
+ gMC->Gsvolu("PWHE", "BOX ", idtmed[716], par, 3) ;
+
+ y0 = -(geom->GetRailsDistanceFromIP() - geom->GetRailRoadSize(1) -
+ geom->GetCradleWheel(1)/2) ;
+ for (i=0; i<2; i++) {
+ z0 = (2*i-1) * ((geom->GetOuterBoxSize(2) + geom->GetCradleWheel(2)) / 2.0 +
+ geom->GetCradleWall(2));
+ for (j=0; j<2; j++) {
+ copy = 2*i + j;
+ x0 = (2*j-1) * geom->GetDistanceBetwRails() / 2.0 ;
+ gMC->Gspos("PWHE", copy, "ALIC", x0, y0, z0, 0, "ONLY") ;
+ }
+ }
- size = fTrackSegments->GetEntries() ;
- fTrackSegments->Expand(size) ;
+}
- size = fRecParticles->GetEntries() ;
- fRecParticles->Expand(size) ;
+//____________________________________________________________________________
+Float_t AliPHOSv0::ZMin(void) const
+{
+ // Overall dimension of the PHOS (min)
+ // Take it twice more than the PHOS module size
- gAlice->TreeR()->Fill() ;
-
- // 5.
+ AliPHOSGeometry * geom = GetGeometry() ;
- gAlice->TreeR()->Write() ;
-
+ return -geom->GetOuterBoxSize(2);
}
//____________________________________________________________________________
-void AliPHOSv0::ResetDigits()
+Float_t AliPHOSv0::ZMax(void) const
{
- // May sound strange, but cumulative hits are store in digits Tree
+ // Overall dimension of the PHOS (max)
+ // Take it twice more than the PHOS module size
- if( fTmpHits ) {
- fTmpHits->Delete();
- fNTmpHits = 0 ;
- }
+ AliPHOSGeometry * geom = GetGeometry() ;
+
+ return geom->GetOuterBoxSize(2);
}
-
+
//____________________________________________________________________________
-void AliPHOSv0::StepManager(void)
+void AliPHOSv0::Init(void)
{
- // Accumulates hits as long as the track stays in a single crystal or PPSD gas Cell
+ // Just prints an information message
+
+ Int_t i;
- Int_t relid[4] ; // (box, layer, row, column) indices
- Float_t xyze[4] ; // position wrt MRS and energy deposited
- TLorentzVector pos ;
- Int_t copy ;
+ if(fDebug) {
+ printf("\n%s: ",ClassName());
+ for(i=0;i<35;i++) printf("*");
+ printf(" PHOS_INIT ");
+ for(i=0;i<35;i++) printf("*");
+ printf("\n%s: ",ClassName());
+
+
+ // Here the PHOS initialisation code (if any!)
- Int_t primary = gAlice->GetPrimary( gAlice->CurrentTrack() );
- TString name = fGeom->GetName() ;
- if ( name == "GPS2" ) { // the CPV is a PPSD
- if( gMC->CurrentVolID(copy) == gMC->VolId("GCEL") ) // We are inside a gas cell
- {
- gMC->TrackPosition(pos) ;
- xyze[0] = pos[0] ;
- xyze[1] = pos[1] ;
- xyze[2] = pos[2] ;
- xyze[3] = gMC->Edep() ;
-
- if ( xyze[3] != 0 ) { // there is deposited energy
- gMC->CurrentVolOffID(5, relid[0]) ; // get the PHOS Module number
- gMC->CurrentVolOffID(3, relid[1]) ; // get the Micromegas Module number
- // 1-> Geom->GetNumberOfModulesPhi() * fGeom->GetNumberOfModulesZ() upper
- // > fGeom->GetNumberOfModulesPhi() * fGeom->GetNumberOfModulesZ() lower
- gMC->CurrentVolOffID(1, relid[2]) ; // get the row number of the cell
- gMC->CurrentVolID(relid[3]) ; // get the column number
-
- // get the absolute Id number
-
- Int_t absid ;
- fGeom->RelToAbsNumbering(relid, absid) ;
-
- // add current hit to the hit list
- AddHit(primary, absid, xyze);
-
- } // there is deposited energy
- } // We are inside the gas of the CPV
- } // GPS2 configuration
-
- if(gMC->CurrentVolID(copy) == gMC->VolId("PXTL") ) // We are inside a PBWO crystal
- {
- gMC->TrackPosition(pos) ;
- xyze[0] = pos[0] ;
- xyze[1] = pos[1] ;
- xyze[2] = pos[2] ;
- xyze[3] = gMC->Edep() ;
-
- if ( xyze[3] != 0 ) {
- gMC->CurrentVolOffID(10, relid[0]) ; // get the PHOS module number ;
- relid[1] = 0 ; // means PBW04
- gMC->CurrentVolOffID(4, relid[2]) ; // get the row number inside the module
- gMC->CurrentVolOffID(3, relid[3]) ; // get the cell number inside the module
-
- // get the absolute Id number
-
- Int_t absid ;
- fGeom->RelToAbsNumbering(relid, absid) ;
-
- // add current hit to the hit list
+ AliPHOSGeometry * geom = GetGeometry() ;
- AddHit(primary, absid, xyze);
+ if (geom!=0)
+ cout << "AliPHOS" << Version() << " : PHOS geometry intialized for " << geom->GetName() << endl ;
+ else
+ cout << "AliPHOS" << Version() << " : PHOS geometry initialization failed !" << endl ;
- } // there is deposited energy
- } // we are inside a PHOS Xtal
+ for(i=0;i<80;i++) printf("*");
+ printf("\n");
+ }
}
+
+