// macro that creates the Barrel DIRC geometry
// to be able to run this macro please be sure you have the following configuration in gconfig/g4Config.C file: 
// TG4RunConfiguration* runConfiguration 
//           = new TG4RunConfiguration("geomRoot", "QGSP_BERT_EMV+optical", "stepLimiter+specialCuts+specialControls");

// input parameters are:
// fFocusingSystem = 0 - no focusing is used
// fFocusingSystem = 1 - lens 
// fFocusingSystem = 2 - forward mirror is used
// fFocusingSystem = 3 - new lens (no air gap) is used
// fprizm = kFALSE - no prism
// fprizm = kTRUE - prism

// allowed configurations: 
// fFocusingSystem = 0 && fprizm = kFALSE  output file is in geometry/dirc_l0_p0.root
// fFocusingSystem = 0 && fprizm = kTRUE   output file is in geometry/dirc_l0_p1.root
// fFocusingSystem = 1 && fprizm = kFALSE  output file is in geometry/dirc_l1_p0.root
// fFocusingSystem = 2 && fprizm = kFALSE  output file is in geometry/dirc_l2_p0.root
// fFocusingSystem = 2 && fprizm = kTRUE   output file is in geometry/dirc_l2_p1.root
// corresponding .root files with geometry please fone in the geometry directory

// B E F O R E   R U N N I N G   T H E   P R O G R A M
// C H E C K   T H E   N A M E   O F   T H E   O U T P U T   F I L E ! ! ! 
const Double_t pi = 3.1415926535;

void getXrange(double dphi, double radiusCornerOut, double radiusCornerIn, double MCPactiveArea, int cas1, int cas2, double ylow, double step, double &x1, double &x2);
double getX(TVector3 corner1, TVector3 corner2, double yy);
int findSectorIn(double y, double dphi, double radius, double EVdrop, double hthick);
int findSectorOut(double y, double dphi_rad, double radiusCornerOut);

int createRootGeometry_DIRC_fsEVdroplens_MCPs(Int_t fFocusingSystem = 0, Bool_t fprizm = kFALSE){ 
  
  //const Double_t pi = 3.1415926535;

  gROOT->Macro("$VMCWORKDIR/gconfig/rootlogon.C");
  
  TString vmcWorkdir = getenv("VMCWORKDIR");
  
  // Load this libraries
  gSystem->Load("libGeoBase");
  gSystem->Load("libParBase");
  gSystem->Load("libBase");
  gSystem->Load("libPndData");
  gSystem->Load("libPassive");
  
  // variable to achieve the DIRC basic parameters
  PndGeoDrc* fGeo = new PndGeoDrc(); 
  
  // units = cm
  
   
  Double_t eps           = 0.01;                                  // epsilon
  Double_t mirr_hthick   = 0.02;  
  Double_t PDbaseLayer   = 5.;			  // [cm] thickness of the carbon at the back of the EV
  
  Double_t radius        =  fGeo->radius();       // 50. radius in middle of the barbox (x and y)
  Double_t hthick        =  fGeo->barHalfThick(); // 1.7/2. half thickness of the bars
  Double_t barnum        =  fGeo->barNum();       // 6 number of bars per barbox
  Double_t bbnum         =  fGeo->BBoxNum();	  //16. total number of sides = barboxes
  Double_t bbGap         =  fGeo->BBoxGap();	  //1.5 gap btw the neighboring barboxes (at the middle height)
  Double_t pipehAngle    =  fGeo->PipehAngle();	  //3.6 [degrees] half of the angular space needed for the target pipe
  Double_t barWin_hthick =  0.1;		  // [cm] thickness of the 'glas' window at the readout end of the barbox;
  
  Double_t bbox_zdown    =  fGeo->barBoxZDown();  // 130. bar box z downstream
  Double_t bbox_zup      =  fGeo->barBoxZUp();    // -120. bar box z upstream
  Double_t bbox_hlen     =  0.5*(bbox_zdown - bbox_zup);           // 125. bar box half length
  Double_t bbox_shift    =  bbox_zup + bbox_hlen; // 5. bar box shift
  Double_t bargap        =  fGeo->barGap();       // 0.01 half gap between bars  
  Double_t boxgap        =  fGeo->boxGap(); 	  // 0.1 gap between bars and the bar box
  Double_t boxthick	 =  fGeo->boxThick();     // 0.05 thickness of the bar box
  Double_t gluehthick 	 =  0.01;//[cm]		  // glue layer, connects two halfs into one long radiator bar
  Double_t len           =  0.;                   // length of the lenses block. see further
  Double_t fSlabEnd	 =  0.;			  // [cm] position at which bar in front of EV ends 
  Double_t fdz_mirr1	 =  0.;
  Double_t fdz_mirr2	 =  0.;
  Double_t fdz_lens3	 =  0.;  
  Double_t fdz_lens2	 =  0.;
  Double_t fdz_lens1	 =  0.;    
    
  Double_t sob_len       =  fGeo->EVlen();        // 30. in current version
  Double_t sob_shift     =  -bbox_hlen + bbox_shift - sob_len; // -150.   
  Double_t sob_angleB	 =  fGeo->EVbackAngle();  //90. [degrees] angle of the EV (usually it is 90)
  Double_t sob_angle	 =  45.;//fGeo->EVangle();	  //80. [degrees] opening angle of the EV ############################
  Double_t sob_Rout      =  radius + hthick + sob_len*tan(sob_angle/180.*pi)/cos(pi/bbnum/2.);
   
  Double_t bbAngle       =  ( 180. - 2.*pipehAngle - bbGap/radius/pi*180.*(bbnum/2.-1.) )/(bbnum/2.);  // ~20 degrees
  Double_t bbX           =  radius*bbAngle/180.*pi;  // 17.45 cm
  cout<<"bbAngle = "<<bbAngle<<", bbX = "<<bbX<<endl;
  
  
  Double_t phi0 = (180.-2.*pipehAngle)/bbnum + pipehAngle;
  Double_t dphi = (180.-2.*pipehAngle)/bbnum*2.;
  Double_t dphi_rad = dphi/180.*pi;
     
  cout<<"dphi = "<<dphi<<", phi0 = "<<phi0<<endl;  
  //----------------------------------------------------------------------
  
  //parameters for MCPs:
  Double_t MCPsize = 5.9; //[cm] width=height of an MCP
  Double_t MCPactiveArea = 5.3; //[cm] width=height of the active area of an MCP
  Double_t MCPgap = 0.1; //[cm] gap between MCPs
  Double_t PixelSize = 0.65; //[cm] size of a pixel
  Int_t Npix = 8; // number of mcps in a row/column
  const Int_t NpixTotal = Npix*Npix; // total number of pixels for 1 mcp
  Double_t PixelGap = (MCPactiveArea - Double_t(Npix)*PixelSize)/(Double_t(Npix)-1.);
  cout<<"pixel gap  = "<< PixelGap<<endl;
  Double_t PDwindowThick = 0.1; //[cm]
  Double_t PhCathodeThick = 0.1; //[cm]
  Double_t PDsensitiveThick = 0.1; //[cm]
  Double_t PDgreaseLayer = 0.1; //[cm]
  
  // parameters for the EV
  Double_t EVdrop	 =  fGeo->EVdrop();	  //1. [cm] drop of the EV - inner radius  ##############
  Double_t EVoffset	 =  fGeo->EVoffset();	  //0. [cm] offset of the EV - outer radius
  Double_t EVgreaseLayer =  0.1;		  //[cm] grease layer thickness btw the bar window and the EV 
    
  // prizm:  
  Double_t phlength	 =  fGeo->PrismhLength(); //4.5 [cm] half length of the prizm
  Double_t pdrop	 =  fGeo->PrismDrop();	  //0.5 [cm] drop of the prizm - inner side
  Double_t pangle	 =  fGeo->PrismAngle();	  //30. [degrees] angle of the edge
  Double_t poffset	 =  fGeo->PrismOffset();  //1.[cm] prizm offset - outer side
  Double_t pheight	 =  2.*phlength * tan(pangle/180.*pi);  // [cm] half heigth of the prism
  			      
  Double_t sob_Rprizm    =  radius + hthick + poffset + pheight + EVoffset + (sob_len-2.*phlength)*tan(60./180.*pi);
  
  cout<<"prizm length = "<<phlength*2.<<endl;
  cout<<"prizm height = "<<2.*phlength * tan(pangle/180.*pi)<<endl;
  
  
  Double_t radiusCornerIn = (radius-hthick-EVdrop)/cos(dphi/2./180.*pi);
  Double_t radiusCornerOut = sob_Rout;///cos(dphi_rad/2.);
  Double_t radiusMiddleSmall = radius-hthick-EVdrop;    
  //----------------------------------------------------------
      
  // Rotations:
  TGeoRotation rot1;
  rot1.RotateZ(90.);
    
  TString fGeoFile= Form("../../geometry/dirc_l%d_p%d_mirrorGap_MCPs1_updated.root",fFocusingSystem, fprizm);
  TFile* fi = new TFile(fGeoFile,"RECREATE");
  cout<<"Output file = "<<fGeoFile<<endl;
    
   Double_t par[10];   
   Double_t aa;   
   Double_t z, density, radl, absl, w; 
   Int_t nel, numed, nz;
  
   new TGeoManager("Drc", "Drc");

   // MATERIALS, MIXTURES AND TRACKING MEDIA
// Mixture: air
   nel     = 3;
   density = 0.001205;
   TGeoMixture *air = new TGeoMixture("air", nel,density);
      aa = 14.010000;   z = 7.000000;   w = 0.780000;  // N
   air->DefineElement(0,aa,z,w);
      aa = 16.000000;   z = 8.000000;   w = 0.210000;  // O
   air->DefineElement(1,aa,z,w);
      aa = 39.950000;   z = 18.000000;   w = 0.010000;  // AR
   air->DefineElement(2,aa,z,w);
   //air->SetIndex(0);
// Medium: air
   numed   = 1;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 30.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *air_m = new TGeoMedium("air", numed,air, par);   

// Mixture: DIRCairNoSens
   nel     = 3;
   density = 0.001205;
   TGeoMixture *DIRCairNoSens = new TGeoMixture("DIRCairNoSens", nel,density);
      aa = 14.010000;   z = 7.000000;   w = 0.780000;  // N
   DIRCairNoSens->DefineElement(0,aa,z,w);
      aa = 16.000000;   z = 8.000000;   w = 0.210000;  // O
   DIRCairNoSens->DefineElement(1,aa,z,w);
      aa = 39.950000;   z = 18.000000;   w = 0.010000;  // AR
   DIRCairNoSens->DefineElement(2,aa,z,w);
   //DIRCairNoSens->SetIndex(1);
// Medium: DIRCairNoSens
   numed   = 2;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 30.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium  *DIRCairNoSens_m = new TGeoMedium("DIRCairNoSens", numed, DIRCairNoSens, par);
   
   // Mixture: Epotek301_2 (optical glue)
   nel     = 2;
   density = 2.200000;
   TGeoMixture* Epotek301_2 = new TGeoMixture("Epotek301_2", nel,density);
      aa = 28.090000;   z = 14.000000;   w = 0.467475;  // SI
   Epotek301_2->DefineElement(0,aa,z,w);
      aa = 15.999400;   z = 8.000000;   w = 0.532525;  // O
   Epotek301_2->DefineElement(1,aa,z,w);
   //Epotek301_2->SetIndex(0);
// Medium: Epotek
   numed   = 5;  // medium number
   par[0]  = 1.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *Epotek301_2_m = new TGeoMedium("Epotek301_2", numed, Epotek301_2, par);  
   
   // Mixture: OpticalGrease
   nel     = 2;
   density = 2.200000;
   TGeoMixture* OpticalGrease = new TGeoMixture("OpticalGrease", nel,density);
      aa = 28.090000;   z = 14.000000;   w = 0.467475;  // SI
   OpticalGrease->DefineElement(0,aa,z,w);
      aa = 15.999400;   z = 8.000000;   w = 0.532525;  // O
   OpticalGrease->DefineElement(1,aa,z,w);
   //OpticalGrease->SetIndex(0);
// Medium: OpticalGrease
   numed   = 6;  // medium number
   par[0]  = 1.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *OpticalGrease_m = new TGeoMedium("OpticalGrease", numed, OpticalGrease, par);

// Material: DIRCcarbonFiber
   aa       = 12.011000;
   z       = 6.000000;
   density = 2.500000;
   radl    = 16.999068;
   absl    = 32.080525;
  TGeoMaterial *DIRCcarbonFiber = new TGeoMaterial("DIRCcarbonFiber", aa,z,density,radl,absl);
   //DIRCcarbonFiber->SetIndex(6);
// Medium: DIRCcarbonFiber
   numed   = 3;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 0.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *DIRCcarbonFiber_m = new TGeoMedium("DIRCcarbonFiber", numed,DIRCcarbonFiber, par);

// Mixture: FusedSil
   nel     = 2;
   density = 2.200000;
   TGeoMixture* FusedSil = new TGeoMixture("FusedSil", nel,density);
      aa = 28.090000;   z = 14.000000;   w = 0.467475;  // SI
   FusedSil->DefineElement(0,aa,z,w);
      aa = 15.999400;   z = 8.000000;   w = 0.532525;  // O
   FusedSil->DefineElement(1,aa,z,w);
   //FusedSil->SetIndex(0);
// Medium: FusedSil
   numed   = 4;  // medium number
   par[0]  = 1.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *FusedSil_m = new TGeoMedium("FusedSil", numed,FusedSil, par);

// Mixture: Mirror
   nel     = 2;
   density = 2.200000;
   TGeoMixture* Mirror = new TGeoMixture("Mirror", nel,density);
      aa = 28.090000;   z = 14.000000;   w = 0.467475;  // SI
   Mirror->DefineElement(0,aa,z,w);
      aa = 15.999400;   z = 8.000000;   w = 0.532525;  // O
   Mirror->DefineElement(1,aa,z,w);
   //Mirror->SetIndex(4);
// Medium: Mirror
   numed   = 5;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 0.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *Mirror_m = new TGeoMedium("Mirror", numed,Mirror, par);

// Mixture: Marcol82
   nel     = 2;
   density = 0.850000;
   TGeoMixture *Marcol82 = new TGeoMixture("Marcol82", nel,density);
      aa = 1.007940;   z = 1.000000;   w = 0.148605;  // H
   Marcol82->DefineElement(0,aa,z,w);
      aa = 12.010700;   z = 6.000000;   w = 0.851395;  // C
   Marcol82->DefineElement(1,aa,z,w);
   //Marcol82->SetIndex(5);
// Medium: Marcol82
   numed   = 6;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 30.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *Marcol82_m = new TGeoMedium("Marcol82", numed,Marcol82, par);

// Mixture: Marcol82-7
   nel     = 2;
   density = 0.850000;
   TGeoMixture *Marcol82_7 = new TGeoMixture("Marcol82-7", nel,density);
      aa = 1.007940;   z = 1.000000;   w = 0.148605;  // H
   Marcol82_7->DefineElement(0,aa,z,w);
      aa = 12.010700;   z = 6.000000;   w = 0.851395;  // C
   Marcol82_7->DefineElement(1,aa,z,w);
   //Marcol82_7->SetIndex(5);
// Medium: Marcol82_7
   numed   = 7;  // medium number
   par[0]  = 0.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 30.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *Marcol82_7_m = new TGeoMedium("Marcol82-7", numed,Marcol82_7, par);


// Mixture: NLAK33A
   nel = 2;
   density = 4.220000;
   TGeoMixture *NLAK33A = new TGeoMixture("NLAK33A", nel, density);
      aa = 28.090000;   z = 14.000000;   w = 0.467475;  // SI
   NLAK33A->DefineElement(0,aa,z,w);
      aa = 15.999400;   z = 8.000000;   w = 0.532525;  // O
   NLAK33A->DefineElement(1,aa,z,w);
   //NLAK33A->SetIndex(2);
// Medium: NLAK33A
   numed   = 8;  // medium number
   par[0]  = 1.000000; // isvol
   par[1]  = 1.000000; // ifield
   par[2]  = 20.000000; // fieldm
   par[3]  = -1.000000; // tmaxfd
   par[4]  = -1.000000; // stemax
   par[5]  = -1.000000; // deemax
   par[6]  = 0.001000; // epsil
   par[7]  = -1.000000; // stmin
   TGeoMedium *NLAK33A_m = new TGeoMedium("NLAK33A", numed,NLAK33A, par);
  ///-------------------------------------------------------------------------------------------------------------

  

 // focusing systems:
  // 0 no ficusing:
  if(fFocusingSystem == 0){
    Double_t flen = 0.;
    fSlabEnd = -bbox_hlen + bbox_shift + flen;  
    cout<<"bar ends at = "<<fSlabEnd<<endl;
    
    //fAtBarEnd = "DrcBar";
  }
// 1 lens
  if (fFocusingSystem == 1){  // L E N S E S  (no airgaps, thin nlak33)
    // some notes to lens operations (revision 9649) is in
    // ~carsten/work/documents/software/PandaRoot/lens_definitions_2.pdf
    
    Double_t r = 75.18; // first lens radius (cm)    
    Double_t alpha = TMath::ASin(bbX/12./r);  // lside -> bbX, assuming that there are 6 bars in the bar box??
    Double_t a = r - r*TMath::Cos(alpha);
    Double_t b = a + 0.5; // box dimension  .6 instead of .5 due to strong curvature

    cout<<" DIRC a,b = "<<a<<" "<<b<<endl;
  

    Double_t r2 = 75.18; // radius second lens (cm)
    Double_t b2 = 0.2;   // + a2;
     
    Double_t r3 = 17.95; // third lens radius (cm)
    Double_t alpha3 = TMath::ASin(bbX/12./r3);  // lside -> bbX, assuming that there are 6 bars in the bar box??
    Double_t a3 = r3 - r3*TMath::Cos(alpha3);
    Double_t b3 = a3 + 0.0; // box dimension  .6 instead of .5 due to strong curvature
  
    // lens1 (b) + lens2 (0.6) + lens3 (b3) + gap (0.5) 
   
    len = b + 0.2 + b3 + 0.5;//+ a2; // dimension of the box containing both lenses
    
    cout<<"DIRC len= "<<len<<endl;
  
    fSlabEnd = -bbox_hlen + bbox_shift + len; // used in processHits
    cout<<"bar ends at = "<<fSlabEnd<<endl;
    
    // Lenses
 
    // Lens 1
    Double_t t = -r +b/2;

    TGeoSphere* logicSphere= new TGeoSphere("S",0.,r, 0. ,180.,0.,360.);
    TGeoBBox* lBox = new TGeoBBox("B", (bbX/barnum)/2-bargap, hthick, b/2.);
    TGeoTranslation *tr1 = new TGeoTranslation("tr1", 0.,0., t);
    tr1->RegisterYourself();
    TGeoCompositeShape *cs = new TGeoCompositeShape("cs","S*(B:tr1)");
    TGeoVolume *lens1 = new TGeoVolume("DrcLENS1Sensor",cs, gGeoManager->GetMedium("FusedSil"));
    lens1->SetLineColor(kRed-8);
    lens1->SetTransparency(40); 
     
    // position lens within already shifted bar container at -(bbox_hlen-eps)+len, the lens base is -r + b
    // with -0.01 one can make a gap visible (.1mm) for orientation   
    //barContainer->AddNode(lens1, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen-eps)+len -(-r+b) /*-0.01*/, new TGeoRotation (0)));
/*    barContainer->AddNode(lens1, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen)+len -(-r+b), new TGeoRotation (0)));
*/  fdz_lens1 = -(bbox_hlen)+len -(-r+b);
     
       
    //Lens 2
    Double_t t2 = -r2;// +b2/2 r2  is the reference point (concave lens) 
    TGeoSphere* logicSphere2 = new TGeoSphere("S2",0 ,r2, 0. ,180.,0.,360.);
    TGeoBBox*   lBox2        = new TGeoBBox("B2", (bbX/barnum)/2.-bargap, hthick, b2/2.); // lside -> bbX
    TGeoTranslation *tr2     = new TGeoTranslation("tr2", 0.,0., t2);
    tr2->RegisterYourself();
    TGeoCompositeShape *cs2 = new TGeoCompositeShape("cs2","(B2:tr2)-S2");
    TGeoVolume *lens2 = new TGeoVolume("DrcLENS2Sensor",cs2, gGeoManager->GetMedium("NLAK33A"));
    lens2->SetLineColor(kRed+2);
    lens2->SetTransparency(40); 

    // place the lens exactly on lens1
    // position lens within already shifted bar container at -(bbox_hlen-eps)+len, the lens base is -r2
    // the tip of lens1 is at b
    // with -0.02 one can make a gap visible (.1mm due to lens1) for orientation   
    //barContainer->AddNode(lens2, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen-eps)+len -(-r2) -b /*-0.02*/, new TGeoRotation (0)));
/*    barContainer->AddNode(lens2, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen)+len -(-r2) -b , new TGeoRotation (0)));
*/  fdz_lens2 = -(bbox_hlen)+len -(-r2) -b;

    //Lens3 (like lens1, same treatment)
    Double_t t3 = -r3+b3/2;
    TGeoSphere* logicSphere3= new TGeoSphere("S3",0.,r3, 0. ,180.,0.,360.);
    TGeoBBox* lBox3 = new TGeoBBox("B3", (bbX/barnum)/2-bargap, hthick, b3/2.); // lside -> bbX
    TGeoTranslation *tr3 = new TGeoTranslation("tr3", 0.,0., t3);
    tr3->RegisterYourself();
    TGeoCompositeShape *cs3 = new TGeoCompositeShape("cs3","S3*(B3:tr3)");
    TGeoVolume *lens3 = new TGeoVolume("DrcLENS3Sensor",cs3, gGeoManager->GetMedium("NLAK33A"));
    lens3->SetLineColor(kRed-6);
    lens3->SetTransparency(40); 
     
    // place the lens exactly on lens2 plane side
    // position lens within already shifted bar container at -(bbox_hlen-eps)+len, the lens base is -r3 + b3
    // with -0.03 one can make a gap visible (.1mm due to lens 1&2) for orientation   
    // b2/2 is the thickness of lens2 in the middle 
    //barContainer->AddNode(lens3, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen-eps)+len -(-r3+b3) -b - b2/2 /*-0.03*/, new TGeoRotation (0)));
/*    barContainer->AddNode(lens3, 1,new TGeoCombiTrans(0., 0., -(bbox_hlen)+len -(-r3+b3) -b - b2/2 , new TGeoRotation (0)));
    //cout<<" DIRC r,r2,r3 = "<<r<<" "<<r2<<" "<<r3<<endl;    
*/  fdz_lens3 = -(bbox_hlen)+len -(-r3+b3) -b - b2/2. ;  
    
    //fAtBarEnd = "DrcLENS3";
  }   // E N D      O F      N E W      L E N S E S  
  
  // 2 - mirror:
  if (fFocusingSystem == 2){  // Mirrors at front
     // Put some mirrors at the downstream end with a focal plane at the PD.
      
     double zpos=120.;
     
     // The bar is produced with "bbox_hlen-fabs(len)/2.-mirr_hthick"
     len = -130. + zpos + 1.;
     //len = -247.0; // negative to make space at downstream end of bar.
     
     Double_t len1 = 1.5; // 1st block
     
     Double_t mirror_angle  = 0.0;// 0.0 is pointing upstream, -90.0 is pointing to the beam axis
     Double_t focal_length  = 2. * bbox_hlen + sob_len - fabs(len) + len1;
     Double_t mirror_radius = 2. * focal_length;
 
     cout<<" mirror radius: "<<mirror_radius<<endl;
     

     // no angle for the moment
     // block
     TGeoSphere* logicSphere = new TGeoSphere("S",0.,mirror_radius, 0. ,180.,0.,360.);
     TGeoBBox*   lBox        = new TGeoBBox("B", (bbX/barnum)/2-bargap, hthick, fabs(len1)/2.); // lside -> bbX
      
     Double_t t = mirror_radius - len1/2.;

     TGeoTranslation *tr1 = new TGeoTranslation("tr1", 0.,0., t);
     tr1->RegisterYourself();
     TGeoCompositeShape *cs = new TGeoCompositeShape("cs","S*(B:tr1)");
 
     TGeoVolume *block1 = new TGeoVolume("DrcBlock1",cs, gGeoManager->GetMedium("FusedSil"));
     block1->SetLineColor(kRed);
     block1->SetTransparency(40);
      

     Double_t shift1 = len1-mirror_radius; // Now the start of block1 is at zero
     shift1         += bbox_hlen-fabs(len)-2.*mirr_hthick;
      
/*     
     barContainer->AddNode(block1, 1, new TGeoCombiTrans(0., 0., shift1, new TGeoRotation (0)));
*/   fdz_mirr1 =  shift1;   


     Double_t gap  = 0;
     Double_t len2 = fabs(len) - len1 - gap;
   
     // no angle for the moment
     // block
     TGeoSphere* logicSphere2 = new TGeoSphere("S2",0,mirror_radius,             0. ,180.,0.,360.);
     TGeoBBox*   lBox2        = new TGeoBBox("B2", (bbX/barnum)/2-bargap, hthick, fabs(len2)/2.); // lside -> bbX

     //  make radius part of block
     Double_t t2 = mirror_radius + len2/2 - 1;

     TGeoTranslation *tr2 = new TGeoTranslation("tr2", 0.,0., t2);
     tr2->RegisterYourself();
     TGeoCompositeShape *cs2 = new TGeoCompositeShape("cs2","(B2:tr2)-S2");

     TGeoVolume *block2 = new TGeoVolume("DrcBlock2",cs2, gGeoManager->GetMedium("Mirror"));
     block2->SetLineColor(kGreen);
     block2->SetTransparency(40);
      

     Double_t shift2  = -mirror_radius; // Now the start of the block is at zero
     shift2          += bbox_hlen-fabs(len)-2*mirr_hthick; // at end of bar
     shift2          += len1 + gap;
     
     fdz_mirr2 = shift2; 
      
/*       
     barContainer->AddNode(block2, 
			    1,
			    new TGeoCombiTrans(0., 
					       0.,
					       shift2,
					       //  bbox_hlen-mirror_radius-2*mirr_hthick-len2+len1+1,
					       //bbox_hlen-mirror_radius-len2+0.1,
					       new TGeoRotation (0)
					       )
			    );
*/			    
     

     Double_t flen = 0.;
     fSlabEnd = -bbox_hlen + bbox_shift + flen;  
     cout<<"bar ends at = "<<fSlabEnd<<endl;
      
     //fAtBarEnd = "DrcBar";    
   }   // E N D      O F      MIRRORS
   
   if(fFocusingSystem == 3){ // cylindrical lens w/o airgap
     
     // main parameters:
     
     Double_t Hcyl2 = 0.1; //[cm] thickness in the middle of the second (FusedSil) lens           
     Double_t Rcyl = 7.35; // [cm]
     Double_t Lcyl = (bbX/barnum)/2.-bargap;  //cylinder length/2.
     Double_t Acyl = TMath::ASin(hthick/Rcyl);  // angle
     Double_t Tcyl1 = 0.5*Rcyl*(1. + TMath::Cos(Acyl)); // distance between centers of the cylinder and the box
     
     len = Hcyl2 + Rcyl*(1. - TMath::Cos(Acyl));     
     cout<<"DIRC: len = "<<len<<endl;
     
     cout<<"length = "<< Lcyl<<", angle = "<<Acyl/3.1415*180.<<", translation = "<<Tcyl1<<endl;
     cout<<"lens 0.5*width = "<<hthick<<", 0.5*thickness = "<< 0.5*Rcyl*(1.-TMath::Cos(Acyl))<<", 0.5*heigth = "<<Lcyl <<endl;
     
     //Lens1 
     TGeoEltu* lCylinder = new TGeoEltu("Cyl",Rcyl,Rcyl,Lcyl);
     TGeoBBox* lCylBox = new TGeoBBox("CylBox", hthick, hthick, Lcyl);
     //TGeoBBox* lCylBox = new TGeoBBox("CylBox",36.75, 36.75, Lcyl);
     //TGeoTranslation *trCyl = new TGeoTranslation("trCyl", 0., 100.4, 0.);
     TGeoTranslation *trCyl1 = new TGeoTranslation("trCyl", 0., Rcyl*TMath::Cos(Acyl)+hthick, 0.);// !!!
     trCyl1->RegisterYourself();
     TGeoCompositeShape *llens1 = new TGeoCompositeShape("llens1","Cyl*(CylBox:trCyl)");
     TGeoVolume *CylLens1 = new TGeoVolume("DrcLENS1Sensor",llens1, gGeoManager->GetMedium("NLAK33A"));
     CylLens1->SetLineColor(kRed-8);
     CylLens1->SetTransparency(40);
     
     fdz_lens1 = -(bbox_hlen) + len - (-Rcyl + Rcyl*(1.-TMath::Cos(Acyl)));
     
     //Lens2          
     TGeoTranslation *trCyl2 = new TGeoTranslation("trCyl2", 0., Rcyl + Hcyl2 - hthick, 0.);
     trCyl2->RegisterYourself();
     TGeoCompositeShape *llens2 = new TGeoCompositeShape("llens2", "(CylBox:trCyl2) - Cyl");
     TGeoVolume* CylLens2 = new TGeoVolume("DrcLENS2Sensor", llens2, gGeoManager->GetMedium("FusedSil"));
     CylLens2->SetLineColor(kRed+2);
     CylLens2->SetTransparency(40);
     
    // TGeoRotation rot_lens3;
    // rot_lens3.RotateZ(-90.);
    // rot_lens3.RotateX( 90.);  
     
     
     
     fdz_lens2 = -(bbox_hlen) + len + (hthick - Rcyl*(1.-TMath::Cos(Acyl)) - Hcyl2);
     fSlabEnd = -bbox_hlen + bbox_shift;
     cout<<"bar ends at = "<<fSlabEnd<<endl;
     
   }
 //--------------------------------------------------------------------------------------------- 
 

  // create top volume:
  TGeoVolume* cave;
  TGeoBBox*   lTop = new TGeoBBox(500,500,300);
  cave = new TGeoVolume("DIRC", lTop, air_m);
  gGeoManager->SetTopVolume(cave);
  
  // create pre-top volume:
  TGeoVolume* vLocalMother;
  TGeoPcon*   shape = new TGeoPcon("BarrelDIRCShape", 0, 360., 4);
  shape->DefineSection(0, bbox_zdown, 35., 60.);
  shape->DefineSection(1, bbox_zup, 35., 60.);
  shape->DefineSection(2, bbox_zup - sob_len, 35., sob_Rout+poffset+pheight+EVoffset+1.);
  shape->DefineSection(3, bbox_zup - sob_len - PDbaseLayer - EVgreaseLayer, 35., sob_Rout+poffset+pheight+EVoffset+1.);
  vLocalMother = new TGeoVolume("BarrelDIRC", shape, air_m); //DIRCairNoSens_m); //################
  cave->AddNode(vLocalMother, 0,0);

  cout<<"bbox length = "<<2.*(bbox_hlen-0.5*(boxgap+boxthick))<<", prizm length = "<<2.*(phlength+0.5*(boxgap+boxthick))<<endl;
  cout<<"prizm shift = "<<-bbox_hlen+0.5*(boxgap+boxthick)-phlength<<endl;
  
  // create BarBoxes:  
  TGeoBBox* logicbbL;
  TGeoVolume *bbox;
  logicbbL = new TGeoBBox("logicbbL", bbX/2.+boxthick, hthick+boxgap+boxthick, bbox_hlen);
  bbox = new TGeoVolume("DrcBarBox", logicbbL,DIRCcarbonFiber_m); 
  bbox->SetLineColor(30); 
  
  
  TGeoBBox* logicbbS;
  TGeoVolume *abox;
  
  logicbbS = new TGeoBBox("logicbbS", bbX/2., hthick+boxgap, bbox_hlen-barWin_hthick);
  abox = new TGeoVolume("DrcAirBox", logicbbS, DIRCairNoSens_m);
  bbox->AddNode(abox, 1, new TGeoCombiTrans(0., 0., barWin_hthick, new TGeoRotation(0)));
  abox->SetLineColor(19); // grau
  
  //create windows at the readout end of the bar boxes:
  TGeoBBox* logicBarWin = new  TGeoBBox("logicBarWin", bbX/2., hthick+boxgap, barWin_hthick);
  TGeoVolume* barwin = new TGeoVolume("DrcBarboxWindow", logicBarWin, FusedSil_m);
  barwin->SetLineColor(kBlue-4);
  bbox->AddNode(barwin, 1, new TGeoCombiTrans(0.,0.,-bbox_hlen+barWin_hthick,new TGeoRotation(0)));
  
  //create layers of grease at the readout end of the bar boxes, between the  windows and the EV:
  TGeoBBox* logicEVgrease = new  TGeoBBox("logicEVgrease", bbX/2., hthick+boxgap, EVgreaseLayer/2.);
  TGeoVolume* evgrease = new TGeoVolume("DrcEVgrease", logicEVgrease, OpticalGrease_m);  
  evgrease->SetLineColor(kSpring);
  
  // put barboxes into right positions:    
  Double_t dx_bbox, dy_bbox, dz_bbox, phi_curr;    
      
  for(Int_t m = 0; m < bbnum; m ++){       
    phi_curr = (90. - phi0 - dphi*m)/180.*pi;    
    if(m > bbnum/2-1){ phi_curr = (90. - phi0 - dphi*m - 2.*pipehAngle)/180.*pi; }
    dx_bbox = radius * cos(phi_curr);
    dy_bbox = radius * sin(phi_curr);
    dz_bbox = bbox_shift;
         
    TGeoRotation rot_bbox;    
    rot_bbox.RotateZ( -phi0 - m*dphi - (TMath::Floor(2.*m/bbnum))*(2.*pipehAngle));    
    vLocalMother->AddNode(bbox, m+1, new TGeoCombiTrans(dx_bbox, dy_bbox, dz_bbox, new TGeoRotation(rot_bbox)));
    vLocalMother->AddNode(evgrease, m+1, new TGeoCombiTrans(dx_bbox, dy_bbox, bbox_zup-EVgreaseLayer/2.,new TGeoRotation(rot_bbox)));    
  }
   
  cout<<"bar width = "<<2.*(((bbX/barnum)/2.)-bargap) << ", bar with gaps = "<<(bbX/barnum)<<endl;
  cout<<"barboxL width = "<<bbX/2.+boxgap+boxthick<<", barboxS width = "<<bbX/2.+boxgap<<endl;
  
  // create logic bar:  
  TGeoBBox* logicBar = new TGeoBBox("logicBar", ((bbX/barnum)/2.)-bargap, hthick, bbox_hlen-fabs(len)/2.-mirr_hthick-barWin_hthick); 
  TGeoVolume* bar;
  bar = new TGeoVolume("DrcBarSensor",logicBar, FusedSil_m );
  bar->SetLineColor(kCyan-9);
  bar->SetTransparency(60);
  
  // create logic mirror:
  TGeoBBox* logicMirror  = new TGeoBBox("logicMirror", bbX/barnum/2.-bargap, hthick, mirr_hthick /2.); //$$$$$$$
  TGeoVolume *mirr  = new TGeoVolume("DrcMirr", logicMirror,  Mirror_m);
  mirr->SetLineColor(5);
  
  // create glue layer inside the bar (connects two halves):
  TGeoBBox* logicBarGlue  = new TGeoBBox("logicBarGlue", bbX/barnum/2.-bargap, hthick, gluehthick); //$$$$$$$
  TGeoVolume *barglue  = new TGeoVolume("DrcBarGlue", logicBarGlue,  Epotek301_2_m);
  barglue->SetLineColor(kSpring-5);
  bar->AddNode(barglue, 1, new TGeoCombiTrans(0., 0., 0., new TGeoRotation (0)));
  
  Double_t dx, dy, dz_bar, dz_mirr;
  
  for(Int_t j=0; j<barnum; j++){
    dx      = - (bbX/2.) + (bbX/barnum)/2. + j * (bbX/barnum); 
    dy  = 0.;//len/2. - mirr_hthick;
    dz_bar = len/2.-mirr_hthick;
    dz_mirr = bbox_hlen - barWin_hthick - mirr_hthick;
    if(fFocusingSystem == 1){ // lens
      abox->AddNode(lens1,  1+j, new TGeoCombiTrans(dx, dy, fdz_lens1, new TGeoRotation (0)));
      abox->AddNode(lens2,  1+j, new TGeoCombiTrans(dx, dy, fdz_lens2, new TGeoRotation (0)));
      abox->AddNode(lens3,  1+j, new TGeoCombiTrans(dx, dy, fdz_lens3, new TGeoRotation (0)));
    }
    if(fFocusingSystem == 2){ // mirror
      abox->AddNode(block1, 1+j, new TGeoCombiTrans(dx, dy, fdz_mirr1, new TGeoRotation (0)));
      abox->AddNode(block2, 1+j, new TGeoCombiTrans(dx, dy, fdz_mirr2, new TGeoRotation (0)));
    }
    if(fFocusingSystem == 3){
      TGeoRotation rot_lens3;
      rot_lens3.RotateZ(-90.);
      rot_lens3.RotateY( 90.);               
      abox->AddNode(CylLens1, 1+j, new TGeoCombiTrans(dx, dy, fdz_lens1, new TGeoRotation(rot_lens3)));
      abox->AddNode(CylLens2, 1+j, new TGeoCombiTrans(dx, dy, fdz_lens1, new TGeoRotation(rot_lens3)));
    }
        
    abox->AddNode(bar,  1+j, new TGeoCombiTrans(dx, dy, dz_bar, new TGeoRotation(0)));
    if(fFocusingSystem != 2){ // not a forward mirror
      abox->AddNode(mirr, 1+j, new TGeoCombiTrans(dx, dy, dz_mirr, new TGeoRotation(0))); //$$$$$$$$$$$$$$$$$
    }
  }
    
  // Expansion volume:
  Double_t dR; 
  Double_t xEV;
  Double_t cosFactor1; 
    
  TGeoPgon* logicEV1, * logicEV2, *logicEV3, * logicEV4;
  cosFactor1 = cos(pipehAngle/180.*pi)/cos(dphi/180.*pi/2.);  
  dR = (radius+hthick+boxgap+boxthick)/cos(dphi/2./180.*pi) - (radius-hthick);
  xEV = (dR + sob_len*tan(sob_angle/180.*pi))/ (tan(sob_angle/180.*pi) + tan(sob_angleB/180.*pi));    
  if(sob_angleB == 90.){
    logicEV1 = new TGeoPgon("logicEV1", 93.6, 172.8, bbnum/2, 2);
    logicEV1->DefineSection(0, 0.,      radiusMiddleSmall,  sob_Rout);
    logicEV1->DefineSection(1, sob_len, radiusMiddleSmall,  (radius+hthick+boxgap+boxthick+EVoffset)/cos(dphi/2./180.*pi));
    logicEV2 = new TGeoPgon("logicEV2", -86.4, 172.8, bbnum/2, 2);
    logicEV2->DefineSection(0, 0.,      radiusMiddleSmall,  sob_Rout);
    logicEV2->DefineSection(1, sob_len, radiusMiddleSmall,  (radius+hthick+boxgap+boxthick+EVoffset)/cos(dphi/2./180.*pi));     
    logicEV3 = new TGeoPgon("logicEV3", 86.4, 7.2, 1, 2);
    logicEV3->DefineSection(0, 0.,      (radiusMiddleSmall)*cosFactor1,  sob_Rout*cosFactor1);
    logicEV3->DefineSection(1, sob_len, (radiusMiddleSmall)*cosFactor1,  (radius+hthick+boxgap+boxthick+EVoffset)/cos(dphi/2./180.*pi)*cosFactor1);     
    logicEV4 = new TGeoPgon("logicEV4", -93.6, 7.2, 1, 2);
    logicEV4->DefineSection(0, 0.,      (radiusMiddleSmall)*cosFactor1,  sob_Rout*cosFactor1);
    logicEV4->DefineSection(1, sob_len, (radiusMiddleSmall)*cosFactor1,  (radius+hthick+boxgap+boxthick+EVoffset)/cos(dphi/2./180.*pi)*cosFactor1);     
      
  }
  if(sob_angleB != 90.){  
    logicEV1 = new TGeoPgon("logicEV1", 93.6, 172.8, bbnum/2, 3);
    logicEV1->DefineSection(0, 0.,      radius-hthick,  radius-hthick+eps);
    logicEV1->DefineSection(1, xEV,     radius-hthick,  sob_Rout - xEV*tan(sob_angle/180.*pi));
    logicEV1->DefineSection(2, sob_len, radius-hthick,  (radius+hthick+boxgap+boxthick)/cos(dphi/2./180.*pi));
    logicEV2 = new TGeoPgon("logicEV2", -86.4, 172.8, bbnum/2, 3);
    logicEV2->DefineSection(0, 0.,      radius-hthick,  radius-hthick+eps);
    logicEV2->DefineSection(1, xEV,     radius-hthick,  sob_Rout - xEV*tan(sob_angle/180.*pi));
    logicEV2->DefineSection(2, sob_len, radius-hthick,  (radius+hthick+boxgap+boxthick)/cos(dphi/2./180.*pi));
    logicEV3 = new TGeoPgon("logicEV3", 86.4, 7.2, 1, 3);
    logicEV3->DefineSection(0, 0.,      (radius-hthick)*cosFactor1,  (radius-hthick+eps)*cosFactor1);
    logicEV3->DefineSection(1, xEV,     (radius-hthick)*cosFactor1,  (sob_Rout - xEV*tan(sob_angle/180.*pi))*cosFactor1);
    logicEV3->DefineSection(2, sob_len, (radius-hthick)*cosFactor1,  (radius+hthick+boxgap+boxthick)/cos(dphi/2./180.*pi)*cosFactor1);
    logicEV4 = new TGeoPgon("logicEV4", -93.6, 7.2, 1, 3);
    logicEV4->DefineSection(0, 0.,      (radius-hthick)*cosFactor1,  (radius-hthick+eps)*cosFactor1);
    logicEV4->DefineSection(1, xEV,     (radius-hthick)*cosFactor1,  (sob_Rout - xEV*tan(sob_angle/180.*pi))*cosFactor1);
    logicEV4->DefineSection(2, sob_len, (radius-hthick)*cosFactor1,  (radius+hthick+boxgap+boxthick)/cos(dphi/2./180.*pi)*cosFactor1);           
  }
    
  TGeoCompositeShape *logicEV = new TGeoCompositeShape("logicEV","logicEV1 + logicEV2 + logicEV3 + logicEV4");
  TGeoVolume* baseEV = new TGeoVolume("DrcEVSensor", logicEV, FusedSil_m);//Marcol82_7_m);  //####################################
  baseEV->SetLineColor(kMagenta+2);
  baseEV->SetTransparency(50);
  vLocalMother->AddNode(baseEV, 1, new TGeoCombiTrans(0.,0.,sob_shift - EVgreaseLayer, new TGeoRotation(0)));

  // PhotoDetector Basic material - Carbon. It is placed on the back side of the EV to simulate the support structure of the MCPs, the photons are to hit it in gaps between MCPs:
  TGeoPgon *logicPDbase1 = new TGeoPgon("logicPDbase1",  93.6, 172.8, bbnum/2, 2);
  TGeoPgon *logicPDbase2 = new TGeoPgon("logicPDbase2", -86.4, 172.8, bbnum/2, 2);
  TGeoPgon *logicPDbase3 = new TGeoPgon("logicPDbase3",  86.4,   7.2,       1, 2);
  TGeoPgon *logicPDbase4 = new TGeoPgon("logicPDbase4", -93.6,   7.2,       1, 2);
  Double_t rad_delta = (MCPsize-MCPactiveArea)/2./cos(45./180.*pi);
  if(sob_angleB == 90.){       
    logicPDbase1->DefineSection(0, 0.,  radiusMiddleSmall-rad_delta, sob_Rout);
    logicPDbase1->DefineSection(1, PDbaseLayer,  radiusMiddleSmall-rad_delta, sob_Rout);           
    logicPDbase2->DefineSection(0, 0.,  radiusMiddleSmall-rad_delta, sob_Rout);
    logicPDbase2->DefineSection(1, PDbaseLayer,  radiusMiddleSmall-rad_delta, sob_Rout);      
    logicPDbase3->DefineSection(0, 0., (radiusMiddleSmall)*cosFactor1-rad_delta, sob_Rout*cosFactor1);
    logicPDbase3->DefineSection(1, PDbaseLayer, (radiusMiddleSmall)*cosFactor1-rad_delta, sob_Rout*cosFactor1);
    logicPDbase4->DefineSection(0, 0., (radiusMiddleSmall)*cosFactor1-rad_delta, sob_Rout*cosFactor1);
    logicPDbase4->DefineSection(1, PDbaseLayer, (radiusMiddleSmall)*cosFactor1-rad_delta, sob_Rout*cosFactor1);
  }
/*  if(sob_angleB != 90.){     
    logicPD1->DefineSection(0, 0., radius-hthick+eps, radius-hthick+eps+0.1);
    logicPD1->DefineSection(1, xEV, sob_Rout - xEV*tan(sob_angle/180.*pi), sob_Rout- xEV*tan(sob_angle/180.*pi)+0.1);     
    logicPD2->DefineSection(0, 0., radius-hthick+eps, radius-hthick+eps+0.1);
    logicPD2->DefineSection(1, xEV, sob_Rout - xEV*tan(sob_angle/180.*pi), sob_Rout- xEV*tan(sob_angle/180.*pi)+0.1);
    logicPD3->DefineSection(0, 0., (radius-hthick+eps)*cosFactor1, (radius-hthick+eps+0.1)*cosFactor1);
    logicPD3->DefineSection(1, xEV, (sob_Rout - xEV*tan(sob_angle/180.*pi))*cosFactor1, (sob_Rout- xEV*tan(sob_angle/180.*pi)+0.1)*cosFactor1);
    logicPD4->DefineSection(0, 0., (radius-hthick+eps)*cosFactor1, (radius-hthick+eps+0.1)*cosFactor1);
    logicPD4->DefineSection(1, xEV, (sob_Rout - xEV*tan(sob_angle/180.*pi))*cosFactor1, (sob_Rout- xEV*tan(sob_angle/180.*pi)+0.1)*cosFactor1);
  }*/
   
  TGeoCompositeShape *logicPDbase = new TGeoCompositeShape("logicPDbase","logicPDbase1 + logicPDbase2 + logicPDbase3 + logicPDbase4");
  TGeoVolume *pdbase = new TGeoVolume("DrcPDbase", logicPDbase, DIRCcarbonFiber_m);
  pdbase->SetLineColor(kGreen-6);
  if(sob_angleB == 90.){
    vLocalMother->AddNode(pdbase, 1, new TGeoCombiTrans(0., 0., sob_shift-EVgreaseLayer-PDbaseLayer, new TGeoRotation(0)));
  }
/*  if(sob_angleB != 90.){
    vLocalMother->AddNode(pd, 1, new TGeoCombiTrans(0., 0., sob_shift, new TGeoRotation(0)));
  }
*/  
  //MCPs as PD 
  TGeoBBox* logicPixel = new TGeoBBox("logicPixel", PixelSize/2., PixelSize/2., PDsensitiveThick/2.);
  TGeoVolume* pix = new TGeoVolume("DrcPDSensor",logicPixel, FusedSil_m);
  pix->SetLineColor(kGreen+1);
  
  // create pixel holders:
  TGeoBBox* logicPixelHolder = new TGeoBBox("logicPixelHolder", MCPactiveArea/2., MCPactiveArea/2., PDsensitiveThick/2.); 
  TGeoVolume *pixelholder  = new TGeoVolume("DrcPixelHolder", logicPixelHolder,  DIRCcarbonFiber_m);
  pixelholder->SetLineColor(kOrange-8);
 
 //put pixels into holders:	  
 for(Int_t itr=0; itr<Npix; itr++){
   Double_t dy_row = (-Npix/2 + itr)*(PixelSize + PixelGap) + 0.5*(PixelSize+PixelGap);
   for(Int_t jtr=0; jtr<Npix; jtr++){
    Double_t dx_row = (-Npix/2 + jtr)*(PixelSize + PixelGap) + 0.5*(PixelSize+PixelGap);	      
    pixelholder->AddNode(pix, itr*Npix+jtr, new TGeoCombiTrans(dx_row, dy_row, 0., new TGeoRotation(0)));
   }
 }
  
  // create photo cathodes for each MCP
  TGeoBBox* logicPhCathode = new TGeoBBox("logicPhCathode", MCPactiveArea/2., MCPactiveArea/2., PhCathodeThick/2.); 
  TGeoVolume *phcathode  = new TGeoVolume("DrcPhCathodeSensor", logicPhCathode,  FusedSil_m);
  phcathode->SetLineColor(kGray+1);
  
  // create Windows for each MCP
  TGeoBBox* logicWindow = new TGeoBBox("logicWindow", MCPsize/2., MCPsize/2., PDwindowThick/2.); 
  TGeoVolume *window  = new TGeoVolume("DrcPDwindowSensor", logicWindow,  FusedSil_m);
  window->SetLineColor(kBlue-4);
  
  // create grease layers between MCP window and the EV back side
  TGeoBBox* logicMCPgrease = new TGeoBBox("logicMCPgrease", MCPsize/2., MCPsize/2., PDgreaseLayer/2.); 
  TGeoVolume *mcpgrease  = new TGeoVolume("DrcMcpGrease", logicMCPgrease,  OpticalGrease_m);
  mcpgrease->SetLineColor(kSpring);
  
  //version 1: place MCPs in global cs
  Double_t hgap = 0.5*(MCPsize - MCPactiveArea + MCPgap);
  Double_t step = MCPactiveArea + 2.*hgap;  
  Double_t xpos = 0.;
  Double_t ypos = 0.;
  Double_t xcurr = 0.;
  Double_t ycurr = 0.;
  Double_t xsmall, xlarge, lastxsmall;
  Int_t i=0;
  cout<<"hgap = "<<hgap<<", step = "<<step<<endl;
  xpos = radiusCornerIn + 0.5*MCPactiveArea;
  ypos = step/2.;
  int cas1 = 1;
  int cas2 = 1;   
  Int_t TotalNmcp = 0;    
  for(Int_t nquat =0; nquat<4; nquat++){
    for(Int_t i=0; i<Int_t((radiusCornerOut)/step); i++){  // loop over y      
      cas1 = findSectorIn(ypos-step/2., dphi_rad, radius, EVdrop, hthick);
      cout<<"+++++++++++++++ nquat = "<<nquat<<", i = "<<i<<", xpos = "<<xpos<<", ypos = "<<ypos<<endl;
      cout << "calculated sector1 from  y =" << ypos << " is " << cas1 << endl;
      getXrange(dphi, radiusCornerOut+1.3, radiusCornerIn, MCPactiveArea, cas1, cas2, ypos-(step/2.), step, xsmall, xlarge);
      xpos = xsmall;      
      if(xsmall < xlarge){                
        for(Int_t j=0; j<TMath::Ceil((xlarge-xsmall)/step); j++){     // loop over x 
	cout<<"j = "<<j<<". quat = "<<nquat<<", xsmall = "<<xsmall<<", xlarge = "<<xlarge<<", cas1 = "<<cas1<<", limit = "<<(Int_t((xlarge-xsmall)/step))+1<<endl;    
          
	  if(nquat == 1 || nquat == 2){
	     xcurr = -xpos;
	  }
	  if(nquat == 0 || nquat == 3){
	    xcurr = xpos;
	  }
	  if(nquat == 0 || nquat == 1){
	    ycurr = ypos;
	  }
	  if(nquat == 2 || nquat == 3){
	     ycurr = -ypos;
	  }	       
	  // put Photo Cathodes
	  pdbase->AddNode(phcathode, TotalNmcp, new TGeoCombiTrans(xcurr, ycurr, PDbaseLayer-PDgreaseLayer-PhCathodeThick/2.-PDwindowThick, new TGeoRotation(0)));       
	  //put windows
	  pdbase->AddNode(window, TotalNmcp, new TGeoCombiTrans(xcurr, ycurr, PDbaseLayer-PDgreaseLayer-PDwindowThick/2., new TGeoRotation(0)));        
	  //put grease layers
	  pdbase->AddNode(mcpgrease, TotalNmcp, new TGeoCombiTrans(xcurr, ycurr, PDbaseLayer-PDgreaseLayer/2., new TGeoRotation(0)));
	  //put pixel holders:	  
	  pdbase->AddNode(pixelholder, TotalNmcp, new TGeoCombiTrans(xcurr, ycurr, PDbaseLayer-PDgreaseLayer-PDwindowThick-PhCathodeThick-PDsensitiveThick/2., new TGeoRotation(0)));	
	  TotalNmcp = TotalNmcp + 1;
	  xpos = xpos + step;
	  //if(xpos >= xlarge){continue;}	 
        } 
        cas2 = findSectorOut(ypos+step/2., dphi_rad, radiusCornerOut);
        cout<<"calculated sector2 from y = "<<ypos+step/2. << " is "<< cas2<<endl;  
	ypos = ypos + step;
	if(i == 12){ypos = step/2.;cas2 = 1;}	
      } // if
    } 
  } // for nquat
  cout<<"version 1: totally "<<TotalNmcp+1<<" mcps on the PD plane"<<endl;  
   
/*  //version 2: place MCPs in local bar coordinate systems:
  //create a map of MCPs for one sector (in bar c.s.):  
  Double_t sectorWidth = 0.;    
  Int_t nmcp = 0;
  Int_t totalnumbering = 1;
  TVector3 location;
  Double_t phi_curr1 = 0.;  
  for(Int_t m = 0; m < bbnum; m ++){       
    phi_curr1 = (90. - phi0 - dphi*m)/180.*pi;    
    if(m > bbnum/2-1){ phi_curr1 = (90. - phi0 - dphi*m - 2.*pipehAngle)/180.*pi; }
    //dx_bbox = radius * cos(phi_curr1);
    //dy_bbox = radius * sin(phi_curr1);    
    TGeoRotation rot_sector;    
    rot_sector.RotateZ( -phi0 - m*dphi - (TMath::Floor(2.*m/bbnum))*(2.*pipehAngle));
    cout<<"phi_curr1 = "<<phi_curr1/3.1415*180.<<endl;        
    // placement of MCPs in one sector
    cout<<"rad corner out = "<<radiusCornerOut<<", step = "<<step<<endl;
    for(Int_t nrow=0; nrow < Int_t((radiusCornerOut*cos(dphi/2./180.*pi)-radiusMiddleSmall)/step); nrow++){
      sectorWidth = 2.* (radiusMiddleSmall + step*nrow) * tan(dphi_rad/2.);
      nmcp = Int_t(sectorWidth/(MCPsize + 0.5*MCPgap));
      cout<<"sector width = "<<sectorWidth<<", nmcp = "<<nmcp<<", nmcp%2 = "<<nmcp%2<<endl;
      xpos = (radiusMiddleSmall + 0.5*MCPactiveArea + step*(nrow));      
      for(Int_t ny=0; ny<nmcp; ny++){
	ypos = ((-Int_t(nmcp/2.) - 0.5*(nmcp%2))*step + (0.5+ny)*step);
	location.SetXYZ(xpos,ypos,0.);
        location.RotateZ(phi_curr1);
	pdbase->AddNode(mcpgrease, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer/2., new TGeoRotation(rot_sector)));
	pdbase->AddNode(window, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PDwindowThick/2., new TGeoRotation(rot_sector)));
	pdbase->AddNode(phcathode, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PhCathodeThick/2.-PDwindowThick, new TGeoRotation(rot_sector))); 
	pdbase->AddNode(pixelholder, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PhCathodeThick-PDwindowThick-PDsensitiveThick/2., new TGeoRotation(rot_sector)));
	totalnumbering = totalnumbering + 1;   
      }
        //vLocalMother->AddNode(mcp, m, new TGeoCombiTrans(dx_bbox, dy_bbox, sob_shift-PDthick/2., new TGeoRotation(rot_sector)));              
    }            
  } //for m
  for(Int_t nrow=0; nrow < Int_t((radiusCornerOut*cos(dphi/2./180.*pi)-radiusMiddleSmall)/step); nrow++){
    for(Int_t nadd = 0; nadd<2; nadd++){
    xpos = (radiusMiddleSmall*cosFactor1 + 0.5*MCPactiveArea + step*(nrow));
    location.SetXYZ(xpos,0.,0.);
    location.RotateZ(pi/2.+pi*nadd);
    pdbase->AddNode(mcpgrease, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer/2., new TGeoRotation(0)));
    pdbase->AddNode(window, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PDwindowThick/2., new TGeoRotation(0)));
    pdbase->AddNode(phcathode, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PhCathodeThick/2.-PDwindowThick, new TGeoRotation(0))); 
    pdbase->AddNode(pixelholder, totalnumbering, new TGeoCombiTrans(location.X(), location.Y(), PDbaseLayer-PDgreaseLayer-PhCathodeThick-PDwindowThick-PDsensitiveThick/2., new TGeoRotation(0)));    
    totalnumbering = totalnumbering + 1;
    }
  }
*/      
  gGeoManager->CloseGeometry();

  cave->CheckOverlaps(0.0001, "");
  gGeoManager->CheckOverlaps(0.00001,""); // [cm]
  //gGeoManager->CheckGeometryFull();

  cave->Write();
  fi->Close(); 
  cave->Draw("ogl");
  //pdbase->Draw("ogl"); 
  
  TObjArray *listOfOverlaps = gGeoManager->GetListOfOverlaps();
  cout<<listOfOverlaps->GetEntries()<<endl;
  //listOfOverlaps->Print(); 
  return 0;
}

int findSectorIn(double y, double dphi_rad, double radius, double EVdrop, double hthick){  
  TVector3 EVcornerIn;
  EVcornerIn.SetXYZ((radius-EVdrop-hthick)/cos(dphi_rad/2.),0.,0.);
  Double_t Y0[4];
  for(Int_t i=0; i<4; i++){
    EVcornerIn.RotateZ(dphi_rad);
    Y0[i] = EVcornerIn.Y();
  }
  if(y <= Y0[0]){return 1;}
  if(y > Y0[0] && y <= Y0[1]){return 2;}
  if(y > Y0[1] && y <= Y0[2]){return 3;}
  if(y > Y0[2] && y <= Y0[3]){return 4;}
  if(y > Y0[3]){return 5;}
   
}

int findSectorOut(double y, double dphi_rad, double radiusCornerOut){  
  TVector3 EVcorner;
  EVcorner.SetXYZ(radiusCornerOut,0.,0.);  
  Double_t Y0[4];
  for(Int_t i=0; i<4; i++){
    EVcorner.RotateZ(dphi_rad);
    Y0[i] = EVcorner.Y();
    cout<<"Y ["<<i<<"] = "<<Y0[i]<<endl;
  }
  if(y <= Y0[0]){return 1;}
  if(y > Y0[0] && y <= Y0[1]){return 2;}
  if(y > Y0[1] && y <= Y0[2]){return 3;}
  if(y > Y0[2] && y <= Y0[3]){return 4;}
  if(y > Y0[3]){return 5;}
   
}

bool getXrange(double dphi, double radiusCornerOut, double radiusCornerIn, double MCPactiveArea, int cas1, int cas2, double ylow, double step, double &x1, double &x2){
    
  Double_t dphi_rad = dphi/180.*pi;
  
  TVector3 EVcorner;
  EVcorner.SetXYZ(radiusCornerOut,0.,0.);    
  TVector3 EVcorner1 = EVcorner;
  TVector3 EVcorner2 = EVcorner;
  TVector3 EVcornerIn;
  EVcornerIn.SetXYZ(radiusCornerIn,0.,0.);
  TVector3 EVcornerIn1 = EVcornerIn;
  TVector3 EVcornerIn2 = EVcornerIn;
  //cout<<"-I- sob_Rout = "<<sob_Rout<<", dphi = "<<dphi<<", |EVcorner| = "<<EVcorner.Mag()<<", |EVcornerIn| = "<<EVcornerIn.Mag()<<endl;   
    
  Double_t xstart, xfinish;
  if(cas1 == 1){ // 0 - 21.6 degrees        
    EVcornerIn2.RotateZ(dphi_rad);
    xstart = getX(EVcornerIn1, EVcornerIn2, ylow) + MCPactiveArea/2.;        
  }
  if(cas1 == 2){    // 21.6 - 43.2 degrees    
    EVcornerIn1.RotateZ(1.*dphi_rad);
    EVcornerIn2.RotateZ(2.*dphi_rad);
    xstart = getX(EVcornerIn1, EVcornerIn2, ylow) + MCPactiveArea/2.;    
  }
  if(cas1 == 3){ // 43.2 - 63.8 degrees    
    EVcornerIn1.RotateZ(2.*dphi_rad);
    EVcornerIn2.RotateZ(3.*dphi_rad);
    xstart = getX(EVcornerIn1, EVcornerIn2, ylow) + MCPactiveArea/2.;    
  }
  if(cas1 == 4){ // 63.8 - 85.6 degrees    
    EVcornerIn1.RotateZ(3.*dphi_rad);
    EVcornerIn2.RotateZ(4.*dphi_rad);
    xstart = getX(EVcornerIn1, EVcornerIn2, ylow) + MCPactiveArea/2.;    
  }
  if(cas1 == 5){ // 85.6 - 90.    
    EVcornerIn1.RotateZ(4.*dphi_rad);
    EVcornerIn2.RotateZ(pi/2.);
    xstart = getX(EVcornerIn1, EVcornerIn2, ylow) + MCPactiveArea/2.;    
  } 
  
  if(cas2 == 1){ // 0 - 21.6 degrees   
    EVcorner2.RotateZ(dphi_rad);   
    xfinish = getX(EVcorner1, EVcorner2, ylow+step) - MCPactiveArea/2.;        
  }
  if(cas2 == 2){    // 21.6 - 43.2 degrees
    EVcorner1.RotateZ(1.*dphi_rad);
    EVcorner2.RotateZ(2.*dphi_rad);    
    xfinish = getX(EVcorner1, EVcorner2, ylow+step) - MCPactiveArea/2.;
  }
  if(cas2 == 3){ // 43.2 - 63.8 degrees
    EVcorner1.RotateZ(2.*dphi_rad);
    EVcorner2.RotateZ(3.*dphi_rad);    
    xfinish = getX(EVcorner1, EVcorner2, ylow+step) - MCPactiveArea/2.;
  }
  if(cas2 == 4){ // 63.8 - 85.6 degrees
    EVcorner1.RotateZ(3.*dphi_rad);
    EVcorner2.RotateZ(4.*dphi_rad);    
    xfinish = getX(EVcorner1, EVcorner2, ylow+step) - MCPactiveArea/2.;
  }
  if(cas2 == 5){ // 85.6 - 90.
    EVcorner1.RotateZ(4.*dphi_rad);
    EVcorner2.RotateZ(pi/2.);    
    xfinish = getX(EVcorner1, EVcorner2, ylow+step) - MCPactiveArea/2.;
  } 
  if(xstart <= 0.){xstart = step/2.;}
  if(xstart < step/2.){xstart = step/2.;}
  if(xfinish <= 0.){xfinish = step/2.;}
    x1 = xstart;
    x2 = xfinish;
  
  cout<<"-I- xstart = "<<xstart<<", xfinish = "<<xfinish<<endl;
  if(x1 != x2)return true;
  else return false;
}

double getX(TVector3 corner1, TVector3 corner2, double yy){
  //cout<<"-III- vector1"<<endl;
  //corner1.Print();
  //cout<<"-III- vector2 "<<endl;
  //corner2.Print();
  Double_t b = ( corner1.X()*corner2.Y() - corner1.Y()*corner2.X() ) / ( corner1.X() - corner2.X() );
  Double_t k = ( corner1.Y() - corner2.Y() ) / ( corner1.X() - corner2.X() );
  //cout<<"-II- b = "<<b<<", k = "<<k<<endl;
  if(( yy - b )/k >= 0.)  return ( yy - b )/k;
  if(( yy - b )/k < 0.) return 0.;
}