// -------------------------------------------------------------------------
// -----                        R3BNeuLandv1 source file                 -----
// -----                  Created 26/03/09  by D.Bertini               -----
// -------------------------------------------------------------------------
#include "R3BNeuLandv1.h"

#include "R3BGeoLand.h"
#include "R3BNeuLandPoint.h"
#include "R3BGeoLandPar.h"
#include "R3BMCStack.h"

#include "FairGeoInterface.h"
#include "FairGeoLoader.h"
#include "FairGeoNode.h"
#include "FairGeoRootBuilder.h"
#include "FairRootManager.h"
#include "FairRuntimeDb.h"
#include "FairRun.h"
#include "FairVolume.h"

#include "TClonesArray.h"
#include "TGeoMCGeometry.h"
#include "TParticle.h"
#include "TVirtualMC.h"
#include "TObjArray.h"

#include "TGeoManager.h"
#include "TParticle.h"
#include "TVirtualMC.h"
#include "TGeoMatrix.h"
#include "TGeoMaterial.h"
#include "TGeoMedium.h"
#include "TGeoBBox.h"
#include "TGeoPara.h"
#include "TGeoPgon.h"
#include "TGeoSphere.h"
#include "TGeoArb8.h"
#include "TGeoCone.h"
#include "TGeoBoolNode.h"
#include "TGeoCompositeShape.h"
#include "TGeoShapeAssembly.h"
#include <iostream>
#include <math.h>

using std::cout;
using std::cerr;
using std::endl;



// -----   Default constructor   -------------------------------------------
R3BNeuLandv1::R3BNeuLandv1() : R3BDetector("R3BNeuLandv1", kTRUE, kLAND) {
  ResetParameters();
  fLandv1Collection = new TClonesArray("R3BNeuLandPoint");
  fPosIndex = 0;
  kGeoSaved = kFALSE;
  flGeoPar = new TList();
  flGeoPar->SetName( GetName());
  fVerboseLevel = 0;
  fVersion = 1;
  
  fIDMedGas = -1;
  cp1=-1;
  cp2=-1;
  volId1=-1;
  volId2=-1;
  
  fCellHits = 0;
  fTotalEloss = 0;
}
// -------------------------------------------------------------------------



// -----   Standard constructor   ------------------------------------------
R3BNeuLandv1::R3BNeuLandv1(const char* name, Bool_t active) 
  : R3BDetector(name, active, kLAND) {
  ResetParameters();
  fLandv1Collection = new TClonesArray("R3BNeuLandPoint");
  fPosIndex = 0;
  kGeoSaved = kFALSE;
  flGeoPar = new TList();
  flGeoPar->SetName( GetName());
  fVerboseLevel = 0;
  fVersion = 1;
  
  fIDMedGas = -1;
  cp1=-1;
  cp2=-1;
  volId1=-1;
  volId2=-1;

  fCellHits = 0;
  fTotalEloss = 0;
}

R3BNeuLandv1::~R3BNeuLandv1() {
  
  if ( flGeoPar ) delete flGeoPar;
  if (fLandv1Collection) {
    fLandv1Collection->Delete();
    delete fLandv1Collection;
  }
}

void R3BNeuLandv1::Initialize()
{
  FairDetector::Initialize();
  
}


Bool_t R3BNeuLandv1::ProcessHits(FairVolume* vol) {
  
  // --- get Geometry hiearchical Information
  cp1=-1;
  cp2=-1;
  
  volId1=-1;
  volId2=-1;

  Int_t iMed = gMC->CurrentMedium();
  
  Int_t cp0;
  /*Int_t volid = */gMC->CurrentVolID(cp0);


  if( gMC->TrackPid() == 11) {
    
    if( cp0 == 11 && gMC->IsTrackEntering() && gMC->Etot() > 0.030 ) ent_part = ent_part + 1;
    if( cp0 == 26 && gMC->IsTrackExiting() && gMC->Etot() > 0.003 ) exit_part = exit_part + 1;
    
  }
  
  if (iMed == fIDMedGas) {
    Int_t trackpid_gas = gMC->TrackPid();
//    Double_t maxstep_gas = gMC->MaxStep();
//    Double_t trackstep_gas = gMC->TrackStep();
    //cout << " TrackPid in Gas " << trackpid_gas << endl;
    //cout << " MaxStep in Gas " << maxstep_gas << endl;
    //cout << " TrackStep in Gas " << trackstep_gas << endl;
    
    if ( gMC->IsTrackEntering() ) {
      fELoss  = 0.;
      fTime   = gMC->TrackTime() * 1.0e09;
      fLength = gMC->TrackLength();
      gMC->TrackPosition(fPosIn);
      gMC->TrackMomentum(fMomIn);
    }
    
    // Sum energy loss for all steps in the active volume
    fELoss += gMC->Edep() * 1E+6; // keV
    fTotalEloss += gMC->Edep() * 1E+6;
    //cout << " Eloss: " << gMC->Edep()*1E+6 << endl;
    
    // Set additional parameters at exit of active volume. Create R3BNeuLandv1Point.
    //if ( gMC->IsTrackExiting()    ||
    //	 gMC->IsTrackStop()       ||
    //	 gMC->IsTrackDisappeared()   ) {
    
    //fTrackID  = gMC->GetStack()->GetCurrentTrackNumber();
    //fMot0TrackID  = gMC->GetStack()->GetCurrentTrack()->GetMother(0);
    //cout << " fTrackID " << fTrackID << endl;
    //cout << " fMot0TrackID " << fMot0TrackID << endl;
    
    volId1 =  gMC->CurrentVolID(cp1);
    volId2 =  gMC->CurrentVolOffID(1, cp2);
    fDetID = cp2;
    fCellID = cp1;
    
    if(fELoss > 0.0){
      fEventID = gMC->CurrentEvent();
      fTrackID  = gMC->GetStack()->GetCurrentTrackNumber();
      fMot0TrackID  = gMC->GetStack()->GetCurrentTrack()->GetMother(0);
      volId1 =  gMC->CurrentVolID(cp1);
      volId2 =  gMC->CurrentVolOffID(1, cp2);
      fDetID = cp2;
      fCellID = cp1;
      fCellHits = fCellHits + 1;
      fMass = gMC->ParticleMass(trackpid_gas); // GeV/c2
      //cout << " fEventID: " << fEventID << endl;
      //cout << " fTrackID: " << fTrackID << endl;
      //cout << " fMot0TrackID: " << fMot0TrackID << endl;
      //cout << " fCellID: " << fCellID << endl;
      //cout << " fELoss: " << fELoss << endl;
      //cout << " fCellHits: " << fCellHits << endl;
      //cout << " fTotalEloss: " << fTotalEloss << endl;
      
      if(trackpid_gas==2212){
	if(cp1 == 1){
	  cellid1 = cellid1 + 1;
	}
	if(cp1 == 2){
	  cellid2 = cellid2 + 1;
	}		
	if(cp1 == 3){
	  cellid3 = cellid3 + 1;
	}		
	if(cp1 == 4){
	  cellid4 = cellid4 + 1;
	}		
	if(cp1 == 5){
	  cellid5 = cellid5 + 1;
	}		
	if(cp1 == 6){
	  cellid6 = cellid6 + 1;
	}		
      }
      
      gMC->TrackPosition(fPosOut);
      gMC->TrackMomentum(fMomOut);
      if (fELoss == 0. ) return kFALSE;
      
      if (gMC->IsTrackExiting()) {
	const Double_t* oldpos;
	const Double_t* olddirection;
	Double_t newpos[3];
	Double_t newdirection[3];
	Double_t safety;
	
	gGeoManager->FindNode(fPosOut.X(),fPosOut.Y(),fPosOut.Z());
	oldpos = gGeoManager->GetCurrentPoint();
	olddirection = gGeoManager->GetCurrentDirection();
	
	for (Int_t i=0; i<3; i++){
	  newdirection[i] = -1*olddirection[i];
	}
	
	gGeoManager->SetCurrentDirection(newdirection);
	//  TGeoNode *bla = gGeoManager->FindNextBoundary(2);
	safety = gGeoManager->GetSafeDistance();
	
	
	gGeoManager->SetCurrentDirection(-newdirection[0],-newdirection[1],-newdirection[2]);
	
	for (Int_t i=0; i<3; i++){
	  newpos[i] = oldpos[i] - (3*safety*olddirection[i]);
	}
	
	if ( fPosIn.Z() < 30. && newpos[2] > 30.02 ) {
	  cerr << "-I- R3BNeuLandv1 : 2nd direction: " << olddirection[0] << "," << olddirection[1] << "," << olddirection[2] 
	       << " with safety = " << safety << endl;
	  cerr << "-I- R3BNeuLandv1 oldpos = " << oldpos[0] << "," << oldpos[1] << "," << oldpos[2] << endl;
	  cerr << "-I- R3BNeuLandv1 newpos = " << newpos[0] << "," << newpos[1] << "," << newpos[2] << endl;
	}
	
	fPosOut.SetX(newpos[0]);
	fPosOut.SetY(newpos[1]);
	fPosOut.SetZ(newpos[2]);
	
      } // IsTrackExiting
      
      AddHit(fEventID, fTrackID, fMot0TrackID,
	     fDetID, fCellID, fSegID,
	     fMass,
	     TVector3(fPosIn.X(),   fPosIn.Y(),   fPosIn.Z()),
	     TVector3(fPosOut.X(),  fPosOut.Y(),  fPosOut.Z()),
	     TVector3(fMomIn.Px(),  fMomIn.Py(),  fMomIn.Pz()),
	     TVector3(fMomOut.Px(), fMomOut.Py(), fMomOut.Pz()),
	     fTime, fLength, fELoss);
      
      // Increment number of NeuLandv1Points for this track
      R3BStack* stack = (R3BStack*) gMC->GetStack();
      stack->AddPoint(kLAND);
      
      ResetParameters();
      //} // IsTrackExiting, IsTrackStop, IsTrackDisappeared
    } // fELoss > 0
  } // ! iMed == Gas 
  return kTRUE;
}

// -----   Public method EndOfEvent   -----------------------------------------
void R3BNeuLandv1::BeginEvent() {
  
  if (gGeoManager) {
    /*TGeoVolume * vol = */gGeoManager->FindVolumeFast("divVolGas");
  }
  
  fIDMedGas = pMedGas->GetId();
  
  fCellHits = 0;
  fTotalEloss = 0.0;
}


void R3BNeuLandv1::EndOfEvent() {
  
  if (fVerboseLevel) Print();
  fLandv1Collection->Clear();
  
  if(fTotalEloss > 0.0){
    //cout << " END OF EVENT" << endl;
    //cout << " fTotalEloss: " << fTotalEloss << endl;
    //cout << " fCellHits: " << fCellHits << endl;
  }
  
  //cout << " Entering particles: " << ent_part << " Exiting particles: " << exit_part << endl;

  ResetParameters();
}


// -----   Public method Register   -------------------------------------------
void R3BNeuLandv1::Register() {
  FairRootManager::Instance()->Register("NeuLandv1Point", GetName(), fLandv1Collection, kTRUE);
}
// ----------------------------------------------------------------------------



// -----   Public method GetCollection   --------------------------------------
TClonesArray* R3BNeuLandv1::GetCollection(Int_t iColl) const {
  if (iColl == 0) return fLandv1Collection;
  else return NULL;
}
// ----------------------------------------------------------------------------



// -----   Public method Print   ----------------------------------------------
void R3BNeuLandv1::Print(Option_t *option) const
{
//  Int_t nHits = fLandv1Collection->GetEntriesFast();
}

// -----   Public method Reset   ----------------------------------------------
void R3BNeuLandv1::Reset() {
  fLandv1Collection->Clear();
  ResetParameters();
}



// -----   Public method CopyClones   -----------------------------------------
void R3BNeuLandv1::CopyClones(TClonesArray* cl1, TClonesArray* cl2, Int_t offset) {
  Int_t nEntries = cl1->GetEntriesFast();
  cout << "-I- R3BNeuLandv1: " << nEntries << " entries to add." << endl;
  TClonesArray& clref = *cl2;
  R3BNeuLandPoint* oldpoint = NULL;
  for (Int_t i=0; i<nEntries; i++) {
    oldpoint = (R3BNeuLandPoint*) cl1->At(i);
    Int_t index = oldpoint->GetTrackID() + offset;
    oldpoint->SetTrackID(index);
    new (clref[fPosIndex]) R3BNeuLandPoint(*oldpoint);
    fPosIndex++;
  }
  cout << " -I- R3BNeuLandv1: " << cl2->GetEntriesFast() << " merged entries."
       << endl;
}

// -----   Private method AddHit   --------------------------------------------
R3BNeuLandPoint* R3BNeuLandv1::AddHit(Int_t eventID, Int_t trackID,
				    Int_t mot0trackID,
				    Int_t detID, Int_t cellID, Int_t segID,
				    Double_t mass,
				    TVector3 posIn,
				    TVector3 posOut, TVector3 momIn,
				    TVector3 momOut, Double_t time,
				    Double_t length, Double_t eLoss) {
  TClonesArray& clref = *fLandv1Collection;
  Int_t size = clref.GetEntriesFast();
  if (fVerboseLevel>1) 
    cout << "-I- R3BNeuLandv1: Adding Point at (" << posIn.X() << ", " << posIn.Y() 
	 << ", " << posIn.Z() << ") cm,  detector " << detID << ", track "
	 << trackID << ", energy loss " << eLoss  << " GeV" << endl;
  return new(clref[size]) R3BNeuLandPoint(eventID, trackID, mot0trackID,
					  detID, cellID, segID, mass,
					  posIn, posOut, momIn, momOut, time, length, eLoss);
}
// -----   Public method ConstructGeometry   ----------------------------------
void R3BNeuLandv1::ConstructGeometry() {

  // New Design for RPC
  if (1 == fVersion) return ConstructGeometry1();
  
  cout << "-I- R3BNeuLandv1  ConstructGeometry() :unknown Geometry version  !!! " << endl;
}

void R3BNeuLandv1::ConstructGeometry1() {
//  Double_t dx,dy,dz;
  Double_t a;
  Double_t z, density, w;
  Int_t nel, numed, aw;
  
  // -- Elements
  
  TGeoElement* elH = new TGeoElement("Hydrogen", "H", z= 1, a= 1.00794);
  TGeoElement* elC = new TGeoElement("Carbon", "C", z= 6, a= 12.0107);
  TGeoElement* elN = new TGeoElement("Nitrogen", "N", z= 7, a= 14.007);
  TGeoElement* elO = new TGeoElement("Oxygen", "O", z= 8, a= 28.0855);
  TGeoElement* elF = new TGeoElement("Fluorine", "F", z= 9, a= 18.9984032);
  TGeoElement* elNa = new TGeoElement("Sodium", "Na", z= 11, a= 22.98976928);
  TGeoElement* elMg = new TGeoElement("Magnesium", "Mg", z= 12, a= 24.3050);
  TGeoElement* elAl = new TGeoElement("Aluminum", "Al", z= 13, a= 26.9815);
  TGeoElement* elSi = new TGeoElement("Silicon", "Si", z= 14, a= 28.0855);
  TGeoElement* elS = new TGeoElement("Sulfur", "S", z= 16, a= 32.065);
  TGeoElement* elCa = new TGeoElement("Calcium", "Ca", z= 20, a= 40.078);
  TGeoElement* elCr = new TGeoElement("Chromium", "Cr", z= 24, a= 51.9961);
  TGeoElement* elFe = new TGeoElement("Iron", "Fe", z= 26, a= 55.845);
  TGeoElement* elNi = new TGeoElement("Nickel", "Ni", z= 28, a= 58.6934);
  
  
  // -- Materials
  
  // Air
  nel     = 2;
  density = 0.001290;
  TGeoMixture* pMatAir = new TGeoMixture("Air", nel,density);
  w = 0.700000;  // 70 % N
  pMatAir->AddElement(elN,w);
  w = 0.300000;  // 30 % O
  pMatAir->AddElement(elO,w);
  pMatAir->SetIndex(1);
  
  // Stainless steel
  nel     = 3;
  density = 7.9;
  TGeoMixture* pMatSteel = new TGeoMixture("Steel", nel,density);
  w = 0.710000;  // 71 % Fe
  pMatSteel->AddElement(elFe,w);
  w = 0.180000;  // 18 % Cr
  pMatSteel->AddElement(elCr,w);
  w = 0.110000;  // 11 % Ni
  pMatSteel->AddElement(elNi,w);
  pMatSteel->SetIndex(2);
  
  // SiO2
  nel     = 2;
  density = 2.634;
  TGeoMixture* pMatSiO2 = new TGeoMixture("SiO2", nel,density);
  aw = 1;  // 1 Si in chemical formula
  pMatSiO2->AddElement(elSi,aw);
  aw = 2;  // 2 O in chemical formula
  pMatSiO2->AddElement(elO,aw);
  pMatSiO2->SetIndex(3);
  
  // Na2O
  nel     = 2;
  density = 2.27;
  TGeoMixture* pMatNa2O = new TGeoMixture("Na2O", nel,density);
  aw = 2;  // 2 Na in chemical formula
  pMatNa2O->AddElement(elNa,aw);
  aw = 1;  // 1 O in chemical formula
  pMatNa2O->AddElement(elO,aw);
  pMatNa2O->SetIndex(4);
  
  // CaO
  nel     = 2;
  density = 3.35;
  TGeoMixture* pMatCaO = new TGeoMixture("CaO", nel,density);
  aw = 1;  // 1 Ca in chemical formula
  pMatCaO->AddElement(elCa,aw);
  aw = 1;  // 1 O in chemical formula
  pMatCaO->AddElement(elO,aw);
  pMatCaO->SetIndex(5);
  
  // MgO
  nel     = 2;
  density = 3.58;
  TGeoMixture* pMatMgO = new TGeoMixture("MgO", nel,density);
  aw = 1;  // 1 Mg in chemical formula
  pMatMgO->AddElement(elMg,aw);
  aw = 1;  // 1 O in chemical formula
  pMatMgO->AddElement(elO,aw);
  pMatMgO->SetIndex(6);
  
  // Soda-lime glass: 73% SiO2, 14% Na2O, 9% CaO, 4% MgO
  nel     = 4;
  density = 2.53;
  TGeoMixture* pMatGlass = new TGeoMixture("Glass", nel,density);
  w = 0.73;  // 73% SiO2
  pMatGlass->AddElement(pMatSiO2,w);
  w = 0.14;  // 14% Na2O
  pMatGlass->AddElement(pMatNa2O,w);
  w = 0.09;  // 9% CaO
  pMatGlass->AddElement(pMatCaO,w);
  w = 0.04;  // 4% MgO
  pMatGlass->AddElement(pMatMgO,w);
  pMatGlass->SetIndex(7);
  
  // Freon: C2H2F4
  nel     = 3;
  density = 0.00425;
  TGeoMixture* pMatFreon = new TGeoMixture("Freon", nel,density);
  aw = 2;  // 2 C in chemical formula
  pMatFreon->AddElement(elC,aw);
  aw = 2;  // 2 H in chemical formula
  pMatFreon->AddElement(elH,aw);
  aw = 4;  // 4 F in chemical formula
  pMatFreon->AddElement(elF,aw);
  pMatFreon->SetIndex(8);
  
  // SF6
  nel     = 2;
  density = 0.006164;
  TGeoMixture* pMatSF6 = new TGeoMixture("SF6", nel,density);
  aw = 1;  // 1 S in chemical formula
  pMatSF6->AddElement(elS,aw);
  aw = 6;  // 6 F in chemical formula
  pMatSF6->AddElement(elF,aw);
  pMatSF6->SetIndex(9);
  
  // Isobutane: C4H10
  nel     = 2;
  density = 0.00251;
  TGeoMixture* pMatIbut = new TGeoMixture("Ibut", nel,density);
  aw = 4;  // 4 C in chemical formula
  pMatIbut->AddElement(elC,aw);
  aw = 10;  // 10 H in chemical formula
  pMatIbut->AddElement(elH,aw);
  pMatIbut->SetIndex(10);
  
  // RPCgas: 84% Freon, 10% SF6, 6% Isobutane
  nel     = 3;
  density = 0.0053;
  TGeoMixture* pMatRPCgas = new TGeoMixture("RPCgas", nel,density);
  w = 0.84;  // 84% Isobutane
  pMatRPCgas->AddElement(pMatFreon,w);
  w = 0.10;  // 10% SF6
  pMatRPCgas->AddElement(pMatSF6,w);
  w = 0.06;  // 6% Isobutane
  pMatRPCgas->AddElement(pMatIbut,w);
  pMatRPCgas->SetIndex(11);
  
  // Bakelite: C43H38O7
  nel     = 3;
  density = 1.25;
  TGeoMixture* pMatBak = new TGeoMixture("Bak", nel,density);
  aw = 43;  // 43 C in chemical formula
  pMatBak->AddElement(elC,aw);
  aw = 38;  // 38 H in chemical formula
  pMatBak->AddElement(elH,aw);
  aw = 7;  // 38 O in chemical formula
  pMatBak->AddElement(elO,aw);
  pMatBak->SetIndex(12);
  
  // Al
  nel     = 1;
  density = 2.70;
  TGeoMixture* pMatAl = new TGeoMixture("Aluminum", nel,density);
  w = 1.000000;
  pMatAl->AddElement(elAl,w);
  pMatAl->SetIndex(13);
  
  // Methane: CH4
  nel     = 2;
  density = 0.000717;
  TGeoMixture* pMatMet = new TGeoMixture("Met", nel,density);
  aw = 1;  // 1 C in chemical formula
  pMatMet->AddElement(elC,aw);
  aw = 4;  // 4 H in chemical formula
  pMatMet->AddElement(elH,aw);
  pMatMet->SetIndex(14);
  
  // -- Media
  
  Double_t par[8];
  par[0]  =   -1.0; // isvol
  par[1]  =   -1.0; // ifield
  par[2]  =   -1.0; // fieldm
  par[3]  =   -1.0; // tmaxfd
  par[4]  =  -1.0; // stemax
  par[5]  =  -1.0; // deemax
  par[6]  =  -1.0; // epsil
  par[7]  =  -1.0; // stmin
  
  numed   = 22;
  //pMedAir = new TGeoMedium("Air", numed,pMatAir, par);
  pMedAir = new TGeoMedium("Air", numed, pMatAir);
  numed   = 23;
  //pMedSteel = new TGeoMedium("Steel", numed,pMatSteel, par);
  pMedSteel = new TGeoMedium("Steel", numed, pMatSteel);
  numed   = 24;
  //pMedGlass = new TGeoMedium("Glass", numed,pMatGlass, par);
  pMedGlass = new TGeoMedium("Glass", numed, pMatGlass);
  numed   = 26;
  //pMedBak = new TGeoMedium("Bakelite", numed,pMatBak, par);
  pMedBak = new TGeoMedium("Bakelite", numed, pMatBak);
  numed   = 27;
  //pMedAl = new TGeoMedium("Aluminum", numed,pMatAl, par);
  pMedAl = new TGeoMedium("Aluminum", numed, pMatAl);
  numed   = 28;
  //pMedGas = new TGeoMedium("Gas", numed,pMatRPCgas, par);
  pMedGasInactive = new TGeoMedium("GasInactive", numed, pMatRPCgas);
 
  // More fine stepping def. in Gas
  par[0]  =   -1.0; // isvol
  par[1]  =   -1.0; // ifield
  par[2]  =   -1.0; // fieldm
  par[3]  =   -1.0; // tmaxfd
  par[4]  =   -1.0001; // stemax
  par[5]  =   -0.005; // deemax
  par[6]  =   -1.0001; // epsil
  par[7]  =   -1.0001; // stmin
  numed   = 25;
  pMedGas = new TGeoMedium("Gas", numed,pMatRPCgas, par);
  
  //-- Main Geometry definition
  //-- Get the top volume (CAVE) from the TGeoManager class
  
  TGeoVolume* vWorld = gGeoManager->GetTopVolume();
  vWorld->SetVisLeaves(kTRUE);
  vWorld->SetVisContainers(kTRUE);
  
  // RPC prototype FZD
  Double_t delta_Case = 0.1; // thickness of case in cm
  Double_t delta_Gap = 0.3; // thickness of gap between case and converter in cm
  Double_t delta_Steel = 0.2; // thickness of steel in cm
  Double_t delta_Glass = 0.095; // thickness of glass sheet
  Double_t delta_Gas = 0.03; // thickness of gas gap
  Double_t delta_AnodeGap = 0.3; // thickness of gap between the anode strips in cm
  Double_t delta_Strip = 2.5; // strip width in cm
  
  Double_t ShX = (8 * delta_Strip + 7 * delta_AnodeGap)/2; // half length in cm
  Double_t ShY = 20.0; // half length in cm
  
  TGeoShape* ShCase = new TGeoBBox("ShCase", ShX, ShY, delta_Case/2);
  TGeoShape* ShGap = new TGeoBBox("ShGap", ShX, ShY, delta_Gap/2);
  TGeoShape* ShSteel = new TGeoBBox("ShSteel", ShX, ShY, delta_Steel/2);
  TGeoShape* ShGlass = new TGeoBBox("ShGlass", ShX, ShY, delta_Glass/2);
  TGeoShape* ShGas = new TGeoBBox("ShGas", ShX, ShY, delta_Gas/2);
  TGeoShape* ShAnodeGap = new TGeoBBox("ShAnodeGap", delta_AnodeGap/2, ShY, delta_Steel/2);
  
  TGeoVolume* pCase = new TGeoVolume("MODVOL1", ShCase, pMedAl);
  AddSensitiveVolume(pCase);
  TGeoVolume* pGap = new TGeoVolume("MODVOL2", ShGap, pMedGasInactive);
  TGeoVolume* pSteel = new TGeoVolume("MODVOL3", ShSteel, pMedSteel);
  TGeoVolume* pGlass = new TGeoVolume("MODVOL4", ShGlass, pMedGlass);
  TGeoVolume* pAnodeGap = new TGeoVolume("MODVOL5", ShAnodeGap, pMedGasInactive);
  TGeoVolume* pGas = new TGeoVolume("MODVOL6", ShGas, pMedGas);
  AddSensitiveVolume(pGas);
  
  TGeoRotation *rot = new TGeoRotation("rot",0,0,0);
  Double_t tx = 0.0;
  Double_t ty = 0.0;
  Double_t tz = 0.0;
  
  TGeoVolume* pMod1 = new TGeoVolumeAssembly("RPCMODULE"); 
  pMod1->AddNode(pCase, 11, new TGeoCombiTrans(tx,ty,tz,rot) ); // Case
  tz = delta_Case/2 + delta_Gap/2;
  pMod1->AddNode(pGap, 12, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gap
  tz = tz + delta_Gap/2 + delta_Steel/2;
  pMod1->AddNode(pSteel, 13, new TGeoCombiTrans(tx,ty,tz,rot) ); // Steel
  tz = tz + delta_Steel/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 14, new TGeoCombiTrans(tx,ty,tz,rot) );  // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 1, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 1
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 15, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 2, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 2
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 16, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 3, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 3
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 17, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Steel/2;
  pMod1->AddNode(pSteel, 18, new TGeoCombiTrans(tx,ty,tz,rot) ); // Steel-Anode
  tx = -ShX + delta_Strip + delta_AnodeGap/2;
  pMod1->AddNode(pAnodeGap, 31, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 1
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 32, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 2
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 33, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 3
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 34, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 4
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 35, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 5
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 36, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 6
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 37, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 7
  tx = 0.0;
  tz = tz + delta_Steel/2 + delta_Steel/2;
  pMod1->AddNode(pSteel, 19, new TGeoCombiTrans(tx,ty,tz,rot) ); // Steel-Anode
  tx = -ShX + delta_Strip + delta_AnodeGap/2;
  pMod1->AddNode(pAnodeGap, 41, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 1
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 42, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 2
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 43, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 3
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 44, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 4
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 45, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 5
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 46, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 6
  tx = tx + delta_Strip + delta_AnodeGap;
  pMod1->AddNode(pAnodeGap, 47, new TGeoCombiTrans(tx,ty,tz,rot) ); // Anode Gap 7
  tx = 0.0;
  tz = tz + delta_Steel/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 20, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 4, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 4
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 21, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 5, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 5
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 22, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Gas/2;
  pMod1->AddNode(pGas, 6, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gas 6
  tz = tz + delta_Gas/2 + delta_Glass/2;
  pMod1->AddNode(pGlass, 23, new TGeoCombiTrans(tx,ty,tz,rot) ); // Glass
  tz = tz + delta_Glass/2 + delta_Steel/2;
  pMod1->AddNode(pSteel, 24, new TGeoCombiTrans(tx,ty,tz,rot) ); // Steel
  tz = tz+ delta_Steel/2 + delta_Gap/2;
  pMod1->AddNode(pGap, 25, new TGeoCombiTrans(tx,ty,tz,rot) ); // Gap
  tz = tz + delta_Gap/2 + delta_Case/2;
  pMod1->AddNode(pCase, 26, new TGeoCombiTrans(tx,ty,tz,rot) ); // Case
  
  tx = 0.0;
  ty = 0.0;
  tz = 0.0;
  
  // add divided volume to top Volume
  vWorld->AddNode(pMod1, 101, new TGeoCombiTrans(tx,ty,tz,rot) ); // index: cp2
  
} // version 4

ClassImp(R3BNeuLandv1)