Replacing array of objects by array of pointers

[u/mrichter/AliRoot.git] / ITS / AliITSvSDD03.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.                  *
 **************************************************************************/

/*
 $Id$ 
*/
/////////////////////////////////////////////////////////////////
//  Class for the SDD beam test August2004                     //
//                                                             //
//                                                             //
/////////////////////////////////////////////////////////////////

#include <TGeometry.h>
#include <TNode.h>
#include <TBRIK.h>
#include <TLorentzVector.h>
#include <TVirtualMC.h>

#include "AliMC.h"
#include "AliRun.h"
#include "AliMagF.h"
#include "AliITSGeant3Geometry.h"
#include "AliTrackReference.h"
#include "AliITShit.h"
#include "AliITS.h"
#include "AliITSvSDD03.h"
#include "AliITSgeom.h"
#include "AliITSgeomSDD.h"
#include "AliITSgeomSSD.h"
#include "AliITSDetTypeSim.h"
#include "AliITSresponseSPD.h"
#include "AliITSresponseSDD.h"
#include "AliITSresponseSSD.h"
#include "AliITSsegmentationSPD.h"
#include "AliITSsegmentationSDD.h"
#include "AliITSsegmentationSSD.h"
#include "AliITSsimulationSPDdubna.h"
#include "AliITSsimulationSDD.h"
#include "AliITSsimulationSSD.h"


ClassImp(AliITSvSDD03)

//______________________________________________________________________
AliITSvSDD03::AliITSvSDD03() :
AliITS(),
fGeomDetOut(kFALSE),
fGeomDetIn(kFALSE),
fMajorVersion(1),
fMinorVersion(2),
fEuclidGeomDet(),
fRead(),
fWrite(),
fDet1(300.0),
fDet2(300.0),
fChip1(300.0),
fChip2(300.0),
fIDMother(0),
fYear(2003){
    ////////////////////////////////////////////////////////////////////////
    // Standard default constructor for the ITS SDD test beam 2002 version 1.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    A default created class.
    ////////////////////////////////////////////////////////////////////////
    Int_t i;

    fIdN          = 0;
    fIdName       = 0;
    fIdSens       = 0;
    fEuclidOut    = kFALSE; // Don't write Euclide file
    for(i=0;i<60;i++) fRead[i] = '\0';
    for(i=0;i<60;i++) fWrite[i] = '\0';
    for(i=0;i<60;i++) fEuclidGeomDet[i] = '\0';
    fTarg=kNoTarg;
    fTargThick=0;
}
//______________________________________________________________________
AliITSvSDD03::AliITSvSDD03(const char *title,Int_t year):
AliITS("ITS", title),
fGeomDetOut(kFALSE),
fGeomDetIn(kFALSE),
fMajorVersion(1),
fMinorVersion(2),
fEuclidGeomDet(),
fRead(),
fWrite(),
fDet1(300.0),
fDet2(300.0),
fChip1(300.0),
fChip2(300.0),
fIDMother(0),
fYear(2003){
    ////////////////////////////////////////////////////////////////////////
    //    Standard constructor for the ITS SDD testbeam 2002 version 1.
    // Inputs:
    //    const char *title    title for this ITS geometry.
    // Outputs:
    //    none.
    // Return:
    //    A standard created class.
    ////////////////////////////////////////////////////////////////////////
    Int_t i;

    fIdN = 3;
    fIdName = new TString[fIdN];
    fIdName[0] = "IMBS";
    fIdName[1] = "ITST";
    fIdName[2] = "ISNT";
    fIdSens    = new Int_t[fIdN];
    for(i=0;i<fIdN;i++) fIdSens[i] = 0;
    fEuclidOut    = kFALSE; // Don't write Euclide file
    fYear         = year;
    fTarg=kNoTarg;
    fTargThick=0;    
    SetThicknessDet1();
    SetThicknessDet2();
    SetThicknessChip1();
    SetThicknessChip2();	 	 	 

    fEuclidGeometry="$ALICE_ROOT/ITS/ITSgeometry_vSDD032.euc";
    strncpy(fEuclidGeomDet,"$ALICE_ROOT/ITS/ITSgeometry_vSDD032.det",60);
    strncpy(fRead,fEuclidGeomDet,60);
    strncpy(fWrite,fEuclidGeomDet,60);
}
//______________________________________________________________________
AliITSvSDD03::AliITSvSDD03(const AliITSvSDD03 &source) :  AliITS(source){
    ////////////////////////////////////////////////////////////////////////
    //     Copy Constructor for ITS SDD test beam 2002 version 1.
    // This class is not to be copied. Function only dummy.
    // Inputs:
    //    const AliITSvSDD03 &source   The class to be copied
    // Outputs:
    //    none.
    // Return:
    //    A warning message.
    ////////////////////////////////////////////////////////////////////////
    if(&source == this) return;
    Warning("Copy Constructor","Not allowed to copy AliITSvSDD03");
    return;
}
//______________________________________________________________________
AliITSvSDD03& AliITSvSDD03::operator=(const AliITSvSDD03 &source){
    ////////////////////////////////////////////////////////////////////////
    //    Assignment operator for the ITS SDD test beam 2002 version 1.
    // This class is not to be copied. Function only dummy.
    // Inputs:
    //    const AliITSvSDD03 &source   The class to be copied
    // Outputs:
    //    none.
    // Return:
    //    A Warning message
    ////////////////////////////////////////////////////////////////////////
    if(&source == this) return *this;
    Warning("= operator","Not allowed to copy AliITSvSDD03");
    return *this;
}
//______________________________________________________________________
AliITSvSDD03::~AliITSvSDD03() {
    ////////////////////////////////////////////////////////////////////////
    //    Standard destructor for the ITS SDD test beam 2002 version 1.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////
}
//______________________________________________________________________
void AliITSvSDD03::BuildGeometry(){
    ////////////////////////////////////////////////////////////////////////
    //    Geometry builder for the ITS SDD test beam 2002 version 1.
    //    ALIC    ALICE Mother Volume
    //     |- ITSV     ITS Mother Volume
    //         |- IDET       Detector under Test
    //         |   |- ITS0       SDD Si Chip
    //         |   |  |- ITST      SDD Sensitivve Volume
    //         |   |- IPC0 *5    Readout chip
    //         |- ITEL *4    SDD Telescope
    //             |- IMB0       SDD Si Chip
    //             |   |- IMBS     SDD Sensitive volume
    //             |- ICMB       Chip MiniBus.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////
    // Get the top alice volume.
    TNode *nALIC = gAlice->GetGeometry()->GetNode("alice");
    nALIC->cd();

    // Define ITS Mother Volume
    Float_t data[3];
    Float_t ddettest=200.0E-4,ddettelescope=300.0E-4;
    //Float_t yposition= 0.0;
    TRotMatrix *r0 = new TRotMatrix("ITSidrotm0","ITSidrotm0",
				    90.0,0,0.0,0,90.0,270.0);
    data[0] = 10.0;
    data[1] = 10.0;
    data[2] = 100.0;
    TBRIK *sITSVshape =new TBRIK("ITSVshape","ITS Logical Mother Volume","Air",
				 data[0],data[1],data[2]);
    TNode *sITSV = new TNode("ITSV","ITS Mother Volume",sITSVshape,
			    0.0,0.0,0.0,0,0);
    sITSV->cd(); // set ourselve into ITSV subvolume of ALIC

    // SSD part of telescope (MiniBuS)
    data[0] = 1.06;
    data[1] = 0.5*ddettelescope;
    data[2] = 1.1;
    TBRIK *sIMB0shape = new TBRIK("IMB0shape","SDD wafer","Si",
				 data[0],data[1],data[2]);
    Float_t detMiniBusX,detMiniBusY,detMiniBusZ;
    data[0] = detMiniBusX = 0.5*384*50.0E-4;
    data[1] = detMiniBusY = 0.5*ddettelescope;
    data[2] = detMiniBusZ = 1.0;
    TBRIK *sIMBSshape = new TBRIK("IMBSshape","SDD Sensitive volume","Si",
				 data[0],data[1],data[2]);

    data[0] = 1.36;
    data[1] = 0.47;
    data[2] = 1.36;
    TBRIK *sITELshape = new TBRIK("ITELshape","ITELshape","Air",
				 data[0],data[1],data[2]);


    // SDD under test
    Float_t spdX,spdY,spdZ;
    data[0] = 3.62500;
    data[1] = 0.5*ddettest;
    data[2] = 4.37940;
    TBRIK *sITS0shape = new TBRIK("ITS0shape","SDD wafer","Si",
				 data[0],data[1],data[2]); // contains detector
    data[0] = spdX = 3.50860;
    data[1] = spdY = 0.5*ddettest;
    data[2] = spdZ = 3.76320;
    TBRIK *sITSTshape = new TBRIK("ITSTshape","SDD sensitive volume","Si",
				 data[0],data[1],data[2]);

    data[0] = 4.2;
    data[1] = 0.52;
    data[2] = 5.2;
    TBRIK *sIDETshape = new TBRIK("IDETshape","Detector Under Test","Air",
				 data[0],data[1],data[2]);


    // Place volumes in geometry
    char name[20],title[50];

    //place SDD under test
    Double_t px=0.0,py=0.0;
    Double_t pz[2]={0.0,5.2};
    TNode *nIDET[2],*nITS0[2],*nITST[2];
    for(Int_t i=0;i<2;i++){
	sITSV->cd();
	sprintf(name,"IDET%d",i);
	sprintf(title,"SDD #%d under test",i+1);
	nIDET[i] = new TNode(name,title,sIDETshape,px,py,pz[i],r0,0);
        nIDET[i]->cd();
	nITS0[i] = new TNode("ITS0","SDD wafer",sITS0shape,0.0,0.0,0.0,0,0);
        nITS0[i]->cd();
	nITST[i] = new TNode("ITST","SDD sensitive volume",sITSTshape,
			    0.0,0.0,0.0,0,0);
        nITST[i]->SetLineColor(kYellow);
        fNodes->Add(nITST[i]);
    } // end for i

    //place SSD telescope planes
    Double_t qx=0.0,qy=0.0;
    Double_t qz[10]={-58.4,-57.4,-50.4,-49.4,60.1,61.1,68.4,69.4,87.7,88.7};
    TNode *nITEL[10],*nIMB0[10],*nIMBS[10];
    for(Int_t i=0;i<10;i++){
	sITSV->cd();
	sprintf(name,"ITEL%d",i);
	sprintf(title,"Test beam telescope element #%d",i+1);
	nITEL[i] = new TNode(name,title,sITELshape,qx,qy,qz[i],r0,0);
	nITEL[i]->cd();
	nIMB0[i] = new TNode("IMB0","Chip MiniBus",sIMB0shape,
			    0.0, 0.0,0.0,0,0);
	nIMB0[i]->cd();
	nIMBS[i] = new TNode("IMBS","IMBS",sIMBSshape,0.0,0.0,0.0,0,0);
	nIMBS[i]->SetLineColor(kGreen);
	fNodes->Add(nIMBS[i]);
    } // end for i
    nALIC->cd();
    sITSV->Draw();
}
//______________________________________________________________________
Int_t AliITSvSDD03::DecodeDetector(Int_t id,Int_t cpy,Int_t &lay,
                                   Int_t &det,Int_t &lad) const{
    // Given the Geant id and copy volume number, returns the layer, ladder,
    // and detector number, allong with the module number of the detector
    // involved. Returns -1 and lay=0, lad=0, and det=0 if not a sensitive 
    // volume.
    // Inputs:
    //    Int_t id    Geometry volume id number
    //    Int_t cpy   Geometry copy number
    // Outputs:
    //    Int_t lay   ITS layer number
    //    Int_t lad   ITS ladder number
    //    Int_t det   ITS detector number
    // Return:
    //    Int_t module number.
    Int_t mod;

    lay = 0; lad = 0; det = 0; mod = -1;
    if(id==fIdSens[0]){ // Volume name is IMBS (ITEL)
        lad = 1; det = 1;
        lay = cpy;
        if(cpy>4) lay+=2;
        mod = lay-1;
        return mod;
    }// end if
    if(id==fIdSens[1]){ // Volume name is ITST (IDet)
        lad = 1; det = 1;lay = cpy+4; 
	mod = lay-1;
        return mod;
    }// end if
    return mod;
}
//______________________________________________________________________
void AliITSvSDD03::CreateGeometry(){
    ////////////////////////////////////////////////////////////////////////
    //  This routine defines and Creates the geometry for version 1 of the ITS.
    //    ALIC    ALICE Mother Volume
    //     |- ITSV     ITS Mother Volume
    //         |- IDET       Detector under Test (boxcontaining SDD)
    //         |   |-IDAI        Air inside box
    //         |       |- ITS0       SDD Si Chip
    //         |          |- ITST      SDD Sensitivve Volume
    //         |- ITEL *10   SSD Telescope (plastic box containting SSD's)
    //         |   |- ITAI       Air inside box
    //         |       |- IMB0       SDD Si Chip
    //         |           |- IMBS     SDD Sensitive volume
    //         |-ISNT*4    Sintilator triggers
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////
    Float_t data[49];
    // Define media off-set
    Int_t *idtmed = fIdtmed->GetArray()+1; // array of media indexes
    Int_t idrotm[4]; // Array of rotation matrix indexes
    //Float_t ddettest=200.0E-4,ddettelescope=300.0E-4;
    //Float_t dchipMiniBus=750.0E-4,dchiptest=300.0E-4;
    //Float_t yposition= 0.0;
    const Float_t kmm=0.1,kcm=1.0,kmicm=kmm/1000.;
    // Define Rotation-reflextion Matrixes needed
    // 0 is the unit matrix
    AliMatrix(idrotm[0], 90.0,0.0, 0.0,0.0, 90.0,270.0); // SDD and SSD X
    AliMatrix(idrotm[1], 90.0,90.0, 0.0,180.0, 90.0,270.0); // SSD Y
    AliMatrix(idrotm[2],90.0,90.0,90.0,180.0,0.0,0.0);  //Rotate about Z 90 degree

    data[0] = 150.0*kmm;
    data[1] = 150.0*kmm;
    data[2] = 1100.0*kmm;
    gMC->Gsvolu("ITSV","BOX ",idtmed[0],data,3);
    gMC->Gspos("ITSV",1,"ALIC",0.0,0.0,0.0,0,"ONLY");


    // Crossed sintilator triggers (2 in front 2 in back)
    data[0] = 10.0*kcm;
    data[1] = 2.0*kcm;
    data[2] = 2.0*kmm;
    gMC->Gsvolu("ISNT","BOX ",idtmed[2],data,3);
    gMC->Gspos("ISNT",1,"ITSV",0.0,0.0,-950.0*kmm,0,"ONLY");
    gMC->Gspos("ISNT",2,"ITSV",0.0,0.0,-950.0*kmm-data[2],idrotm[2],"ONLY");
    gMC->Gspos("ISNT",3,"ITSV",0.0,0.0,950.0*kmm+data[2],0,"ONLY");
    gMC->Gspos("ISNT",4,"ITSV",0.0,0.0,950.0*kmm,idrotm[2],"ONLY");


////Create Volumes

    // SSD part of telescope (MiniBuS)
    Float_t detMiniBusX,detMiniBusY,detMiniBusZ;
    data[0] = detMiniBusX = 10600.0*kmicm;
    data[1] = detMiniBusY = 0.150*kmm;
    data[2] = detMiniBusZ = 1.1*kcm;
    gMC->Gsvolu("IMB0", "BOX ", idtmed[1], data, 3);   // contains detector
    data[0] = 0.5*384*50*kmicm;
    data[1] = 0.1499*kmm;
    data[2] = 1.0*kcm;
    gMC->Gsvolu("IMBS","BOX ",idtmed[1],data,3); // sensitive detector volume
    gMC->Gspos("IMBS",1,"IMB0",0.0,0.0,0.0,0,"ONLY"); // place IMBS inside
    // Box containing SSD's
    data[0] = 11600.0*kmicm;
    data[1] = 0.450*kcm;
    data[2] = 1.16*kcm;
    gMC->Gsvolu("ITAI","BOX ",idtmed[0],data,3);
    // Plastic box size = insize + thickness.
    data[0] = data[0] + 2.0*kmm;
    data[1] = data[1] + 200.0*kmicm;
    data[2] = data[2] + 2.0*kmm;
    gMC->Gsvolu("ITEL","BOX ",idtmed[3],data,3);
    gMC->Gspos("ITAI",1,"ITEL",0.0,0.0,0.0,0,"ONLY");
    gMC->Gspos("IMB0",1,"ITAI",0.0,0.0,0.0,0,"ONLY");

    // SDD under test
    Float_t sddX,sddY,sddZ;
    data[0] = sddX = 3.62500*kcm;
    data[1] = sddY = 0.1500*kmm;
    data[2] = sddZ = 4.37940*kcm;
    gMC->Gsvolu("ITS0", "BOX ", idtmed[1], data, 3);   // contains detector
    data[0] = 3.50860*kcm;
    data[1] = 0.1499*kmm;
    data[2] = 3.76320*kcm;
    gMC->Gsvolu("ITST","BOX ",idtmed[1],data,3);// sensitive detecor volume
    gMC->Gspos("ITST",1,"ITS0",0.0,0.0,0.0,0,"ONLY"); // place ITST inside
    // Box containing SDD under test
    data[0] = 4.0*kcm;
    data[1] = 0.5*kcm;
    data[2] = 5.0*kcm;
    gMC->Gsvolu("IDAI","BOX ",idtmed[0],data,3);
    data[0] = data[0] + 2.0*kmm;
    data[1] = data[1] + 200.0*kmicm;
    data[2] = data[2] + 2.0*kmm;
    gMC->Gsvolu("IDET","BOX ",idtmed[3],data,3);
    gMC->Gspos("IDAI",1,"IDET",0.0,0.0,0.0,0,"ONLY");
    gMC->Gspos("ITS0",1,"IDAI",0.0,0.0,0.0,0,"ONLY");


//// Position detectors, Beam Axis Z, X to the right, Y up to the sky.
    // Upsteram planes of the telescope    
    Float_t p00X,p00Y,p00Z,p01X,p01Y,p01Z,p10X,p10Y,p10Z,p11X,p11Y,p11Z;
    p00X = 0.0*kcm;
    p00Y = 0.0*kcm;
    p00Z = -584*kmm;
    gMC->Gspos("ITEL",1,"ITSV",p00X,p00Y,p00Z,idrotm[0],"ONLY");//SSD X
    p01X = 0.0*kcm;
    p01Y = 0.0*kcm;
    p01Z = -574*kmm;
    gMC->Gspos("ITEL",2,"ITSV",p01X,p01Y,p01Z,idrotm[1],"ONLY");//SSD Y
    p01X = 0.0*kcm;
    p01Y = 0.0*kcm;
    p01Z = -504*kmm;
    gMC->Gspos("ITEL",3,"ITSV",p01X,p01Y,p01Z,idrotm[0],"ONLY");//SSD X
    p01X = 0.0*kcm;
    p01Y = 0.0*kcm;
    p01Z = -494*kmm;
    gMC->Gspos("ITEL",4,"ITSV",p01X,p01Y,p01Z,idrotm[1],"ONLY");//SSD Y

    // Downstream planes of the telescope
    p10X = 0.0*kcm;
    p10Y = 0.0*kcm;
    p10Z = +601.0*kmm; 
    gMC->Gspos("ITEL",5,"ITSV",p10X,p10Y,p10Z,idrotm[0],"ONLY");//SSD X
    p11X = 0.0*kcm;
    p11Y = 0.0*kcm;
    p11Z = +610.0*kmm; //611.0
    gMC->Gspos("ITEL",6,"ITSV",p11X,p11Y,p11Z,idrotm[1],"ONLY");//SSD Y
    p11X = 0.0*kcm;
    p11Y = 0.0*kcm;
    p11Z = +684.0*kmm;
    gMC->Gspos("ITEL",7,"ITSV",p11X,p11Y,p11Z,idrotm[0],"ONLY");//SSD X
    p11X = 0.0*kcm;
    p11Y = 0.0*kcm;
    p11Z = +694.0*kmm;
    gMC->Gspos("ITEL",8,"ITSV",p11X,p11Y,p11Z,idrotm[1],"ONLY");//SSD Y
    p11X = 0.0*kcm;
    p11Y = 0.0*kcm;
    p11Z = +877.0*kmm;
    gMC->Gspos("ITEL",9,"ITSV",p11X,p11Y,p11Z,idrotm[0],"ONLY");//SSD X
    p11X = 0.0*kcm;
    p11Y = 0.0*kcm;
    p11Z = +887.0*kmm;
    gMC->Gspos("ITEL",10,"ITSV",p11X,p11Y,p11Z,idrotm[1],"ONLY");//SSD Y

    // SDDs 
    Float_t pdet1X,pdet1Y,pdet1Z;
    Float_t pdet2X,pdet2Y,pdet2Z;
    pdet1X = 0.0*kcm;
    pdet1Y = 0.0*kcm;
    pdet1Z = 0.0*kcm;
    gMC->Gspos("IDET",1,"ITSV",pdet1X,pdet1Y,pdet1Z,idrotm[0],"ONLY");// Detector1
    pdet2X = 0.0*kcm;
    pdet2Y = 0.0*kcm;
    pdet2Z = 52*kmm; //52
    gMC->Gspos("IDET",2,"ITSV",pdet2X,pdet2Y,pdet2Z,idrotm[0],"ONLY");// Detector2

// Target definition and placement
    if(fTarg){
      data[0] = 30*kmm;
      data[1] = fTargThick*kmm;  // Target thickness
      data[2] = 30*kmm;
      gMC->Gsvolu("ITGT","BOX ",idtmed[fTarg],data,3);

      Float_t a,z,dens,radl,absl;
      Float_t* ubuf=0; Int_t nbuf;
      char* ssss="";
      gMC->Gfmate(idtmed[fTarg],ssss,a,z,dens,radl,absl,ubuf,nbuf);

      Info("CreateGeometry","Target A=%f,  Z=%f,  dens=%f",a,z,dens);
      Info("Creategeometry","Target thickness=%f mm",fTargThick);

      Float_t ptgtX,ptgtY,ptgtZ;
      ptgtX = 0.0*kcm;
      ptgtY = 0.0*kcm;
      ptgtZ = -50*kmm;
      gMC->Gspos("ITGT",1,"ITSV",ptgtX,ptgtY,ptgtZ,idrotm[0],"ONLY");// Target
    }else{
      Info("CreateGeometry","No target defined");
    }
}
//______________________________________________________________________
void AliITSvSDD03::CreateMaterials(){
    ////////////////////////////////////////////////////////////////////////
    //
    // Create ITS SDD test beam materials
    //     This function defines the default materials used in the Geant
    // Monte Carlo simulations for the geometries AliITSv1, AliITSv3,
    // AliITSvSDD03.
    // In general it is automatically replaced by
    // the CreatMaterials routine defined in AliITSv?. Should the function
    // CreateMaterials not exist for the geometry version you are using this
    // one is used. See the definition found in AliITSv5 or the other routine
    // for a complete definition.
    //
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    /////////////////////////////////////////////////////////////////////////
    Float_t tmaxfdSi = 0.1; // Degree
    Float_t stemaxSi = 0.0075; // cm //0.0075
    Float_t deemaxSi = 0.1; // Fraction of particle's energy 0<deemax<=1
    Float_t epsilSi  = 1.0E-4;//
    Float_t stminSi  = 0.0; // cm "Default value used"

    Float_t tmaxfdAir = 0.1; // Degree
    Float_t stemaxAir = .10000E+01; // 1 cm  //cm
    Float_t deemaxAir = 0.1; // Fraction of particle's energy 0<deemax<=1
    Float_t epsilAir  = 1.0E-4;//
    Float_t stminAir  = 0.0; // cm "Default value used"
    Int_t   ifield = gAlice->Field()->Integ();
    Float_t fieldm = gAlice->Field()->Max();
    //

    // AIR
    Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
    Float_t zAir[4]={6.,7.,8.,18.};
    Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
    Float_t dAir = 1.20479E-3;
    // Lucite/Plexiglass
    Float_t aLuc[3] = {1.,12.,16.};
    Float_t zLuc[3] = {1.,6.,8.};
    Float_t wLuc[3] = {8.,5.,2.};
    Float_t dLuc = 1.19;
    // stainless steel
    Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
    Float_t zsteel[4] = { 26.,24.,28.,14. };
    Float_t wsteel[4] = { .715,.18,.1,.005 };
    Float_t dsteel = 7.88;

    AliMixture(1, "AIR$",aAir,zAir,dAir,4,wAir);
    AliMaterial(2,"SI$",28.086,14.0,2.3300,9.3600,999.00);
    AliMixture(3,"Sintilator$",aLuc,zLuc,dLuc,-3,wLuc);
    AliMixture(4,"PlasticBox$",aLuc,zLuc,dLuc,-3,wLuc);
    AliMaterial(5, "IRON$", 55.85, 26., 7.87, 1.76, 999.00);
    AliMaterial(6, "LEAD$", 207.19, 82., 11.35, .56, 999.00);
    AliMixture(7, "STAINLESS STEEL$", asteel, zsteel,dsteel, 4, wsteel);
    AliMaterial(9, "C$", 12.011, 6., 2.265, 18.8, 999.00);
    AliMaterial(10, "Al$", 26.98, 13., 2.70, 8.9, 999.00);
    AliMaterial(11, "Be$", 9.012, 4., 1.848, 35.3, 999.00);
    AliMaterial(12, "Ti$", 47.88, 22., 4.54, 3.56, 999.00);
    AliMaterial(13, "Sn$", 118.69, 50., 7.31, 1.21, 999.00); 
    AliMaterial(14, "Cu$", 63.55, 29., 8.96, 1.43, 999.00);
    AliMaterial(15, "Ge$", 72.59, 32., 5.323, 2.30, 999.00);
    AliMaterial(20, "W$", 183.85, 74., 19.3, 0.35, 999.00);
 
    AliMedium(1,"AIR$",1,0,ifield,fieldm,tmaxfdAir,stemaxAir,deemaxAir,
	      epsilAir,stminAir);
    AliMedium(2,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
    AliMedium(3,"Scintillator$",3,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
    AliMedium(4,"PlasticBox$",4,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
    AliMedium(5,"IRON$",5,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
    AliMedium(6,"LEAD$",6,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
    AliMedium(7,"StainlessSteel$",7,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);

    AliMedium(9,"C$",9,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(10,"Al$",10,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(11,"Be$",11,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(12,"Ti$",12,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(13,"Sn$",13,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(14,"Cu$",14,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(15,"Ge$",15,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    AliMedium(20,"W$",20,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,epsilSi,stminSi);
    //dummy materials to avoid warning during simulation (galice.cuts)

   AliMedium(21,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(25,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(26,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(27,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(51,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(52,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(53,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(54,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(55,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(56,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(61,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(62,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(63,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(64,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(65,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(68,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(69,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(70,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(71,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(72,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(73,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(74,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(75,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(76,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(77,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(78,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(79,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(80,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(81,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(82,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(83,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(84,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(85,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(90,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(91,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(92,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(93,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(94,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(95,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);
   AliMedium(96,"SI$",2,0,ifield,fieldm,tmaxfdSi,stemaxSi,deemaxSi,
	      epsilSi,stminSi);

}	     
//______________________________________________________________________
void AliITSvSDD03::InitAliITSgeom(){
    //     Based on the geometry tree defined in Geant 3.21, this
    // routine initilizes the Class AliITSgeom from the Geant 3.21 ITS geometry
    // sturture.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.

  
  if(strcmp(gMC->GetName(),"TGeant3")) {
    Error("InitAliITSgeom",
	  "Wrong Monte Carlo. InitAliITSgeom uses TGeant3 calls");
    return;
  } // end if
  Info("InitAliITSgeom","Reading geometry transformation directly from Geant 3");
  const Int_t knp=384;
  const Float_t kpitch=50.E-4;/*cm*/
  Float_t box[3]={0.5*kpitch*(Float_t)knp,150.E-4,1.0},p[knp+1],n[knp+1];
  const Int_t kltypess = 2;
  const Int_t knlayers = 12;
  const Int_t kndeep = 6;
  Int_t itsGeomTreeNames[kltypess][kndeep],lnam[20],lnum[20];
  Int_t nlad[knlayers],ndet[knlayers];
  Double_t t[3],r[10];
  Float_t  par[20],att[20];
  Int_t    npar,natt,idshape,imat,imed,id;
  AliITSGeant3Geometry *ig = new AliITSGeant3Geometry();
  Int_t mod,typ,lay,lad,det,cpy,i,j,k;
  Char_t names[kltypess][kndeep][4];
  Int_t itsGeomTreeCopys[kltypess][kndeep];
  Char_t *namesA[kltypess][kndeep] = {
    {"ALIC","ITSV","ITEL","ITAI","IMB0","IMBS"}, 
    {"ALIC","ITSV","IDET","IDAI","ITS0","ITST"}};
  Int_t itsGeomTreeCopysA[kltypess][kndeep]= {{1,1,10,1,1,1},
					    {1,1,2,1,1,1}};
  for(i=0;i<kltypess;i++)for(j=0;j<kndeep;j++){
    for(k=0;k<4;k++) names[i][j][k] = namesA[i][j][k];
    itsGeomTreeCopys[i][j] = itsGeomTreeCopysA[i][j];
  } // end for i,j
  p[0]=-box[0];
  n[0]=box[0];
  for(i=1;i<knp;i++){// Fill in anode and cathode strip locations (lower edge)
    p[i] =p[i-1]+kpitch;
    n[i] =n[i-1]-kpitch;
  } // end for i
  p[knp+1]=box[0];
  n[knp+1]=-box[0];

  for(i=0;i<20;i++) lnam[i] = lnum[i] = 0;
  for(i=0;i<kltypess;i++)for(j=0;j<kndeep;j++) 
    strncpy((char*) &itsGeomTreeNames[i][j],names[i][j],4);
  //	itsGeomTreeNames[i][j] = ig->StringToInt(names[i][j]);
  mod = knlayers;
  if(GetITSgeom()!=0) SetITSgeom(0x0);
  for(Int_t iMod=0; iMod<knlayers; iMod++){
    nlad[iMod]=1; ndet[iMod]=1;
  }
  
  AliITSgeom* geom = new AliITSgeom(0,knlayers,nlad,ndet,mod);
  SetITSgeom(geom);
  fIdSens[0] = 0; fIdSens[1] = 1; // Properly reset in Init later.
  for(typ=1;typ<=kltypess;typ++){
    for(j=0;j<kndeep;j++) lnam[j] = itsGeomTreeNames[typ-1][j];
    for(j=0;j<kndeep;j++) lnum[j] = itsGeomTreeCopys[typ-1][j];
    if(typ == 1) id = fIdSens[0];
    else id = fIdSens[1];
    lad = 1;
    det = 1;
    for(cpy=1;cpy<=itsGeomTreeCopys[typ-1][2];cpy++){
      mod = DecodeDetector(id,cpy,lay,lad,det);
      //lunm[2] is the copy number, from 1 to 10 for SSD
      // 1,2 for SDD, depending on the module number
      if(mod<=3) lnum[2]=mod+1;
      if(mod>=6) lnum[2]=mod-1;
      if(mod==4) lnum[2]=1;
      if(mod==5) lnum[2]=2;
      ig->GetGeometry(kndeep,lnam,lnum,t,r,idshape,npar,natt,par,att,
		      imat,imed);

      switch (typ){
      case 2:
	GetITSgeom()->CreatMatrix(mod,lay,lad,det,kSDD,t,r);
	if(!(GetITSgeom()->IsShapeDefined((Int_t)kSDD))){
	  GetITSgeom()->ReSetShape(kSDD,new AliITSgeomSDD256(npar,par));
	} // end if
	break;
      case 1:
	GetITSgeom()->CreatMatrix(mod,lay,lad,det,kSSD,t,r);
	if(!(GetITSgeom()->IsShapeDefined((Int_t)kSSD))){
	  GetITSgeom()->ReSetShape(kSSD,new AliITSgeomSSD(box,0.0,0.0,
						      knp+1,p,knp+1,n));
	} // end if
	break;
      } // end switch
    } // end for cpy
  } // end for typ
  return;
}
//______________________________________________________________________
void AliITSvSDD03::Init(){
    ////////////////////////////////////////////////////////////////////////
    //     Initialise the ITS after it has been created.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////


    Info("Init","**********AliITSvSDD03 %d _Init *************",fMinorVersion);

    if(fRead[0]=='\0') strncpy(fRead,fEuclidGeomDet,60);
    if(fWrite[0]=='\0') strncpy(fWrite,fEuclidGeomDet,60);
    if(GetITSgeom()!=0) SetITSgeom(0x0);
    AliITSgeom* geom = new AliITSgeom();
    SetITSgeom(geom);
    if(fGeomDetIn) GetITSgeom()->ReadNewFile(fRead);
    if(!fGeomDetIn) this->InitAliITSgeom();
    if(fGeomDetOut) GetITSgeom()->WriteNewFile(fWrite);
    AliITS::Init();
    fIDMother = gMC->VolId("ITSV"); // ITS Mother Volume ID.

}
//______________________________________________________________________
void AliITSvSDD03::SetDefaults(){
    // sets the default segmentation, response, digit and raw cluster classes
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.

    const Float_t kconv = 1.0e+04; // convert cm to microns

    if(!fDetTypeSim) fDetTypeSim = new AliITSDetTypeSim();
    fDetTypeSim->SetITSgeom(GetITSgeom());
    fDetTypeSim->ResetResponse();
    fDetTypeSim->ResetSegmentation();
 
    AliITSgeomSDD *s1;
    AliITSgeomSSD *s2;
    for(Int_t nmod=0;nmod<GetITSgeom()->GetIndexMax();nmod++){
      if(GetITSgeom()->GetModuleType(nmod)==kSPD)SetResponseModel(nmod,new AliITSresponseSPD());
    }

    SetSegmentationModel(kSPD,new AliITSsegmentationSPD());
    fDetTypeSim->SetDigitClassName(kSPD,"AliITSdigitSPD");

    // SDD
    s1 = (AliITSgeomSDD*) GetITSgeom()->GetShape(kSDD);// Get shape info. Do it this way for now.
    AliITSresponseSDD *resp1=0;
    Int_t nsdd=0;

    for(Int_t nmod=0;nmod<GetITSgeom()->GetIndexMax();nmod++){
      if(GetITSgeom()->GetModuleType(nmod)==kSDD){
	resp1 = new AliITSresponseSDD("simulated");
	SetResponseModel(nmod,resp1);
	nsdd=nmod;
      }
    }


    AliITSsegmentationSDD *seg1=new AliITSsegmentationSDD(GetITSgeom(),resp1);
    seg1->SetDetSize(s1->GetDx()*kconv, // base this on AliITSgeomSDD
		     s1->GetDz()*2.*kconv, // for now.
		     s1->GetDy()*2.*kconv); // x,z,y full width in microns.

    seg1->SetNPads(256,256);// Use AliITSgeomSDD for now
    SetSegmentationModel(kSDD,seg1);
    const char *kData1=(fDetTypeSim->GetResponseModel(nsdd))->DataType();
    const char *kopt=fDetTypeSim->GetResponseModel(nsdd)->ZeroSuppOption();
    if((!strstr(kopt,"2D")) && (!strstr(kopt,"1D")) || strstr(kData1,"real") ){
	fDetTypeSim->SetDigitClassName(kSDD,"AliITSdigit");
    } else fDetTypeSim->SetDigitClassName(kSDD,"AliITSdigitSDD");

    // SSD  Layer 5

    s2 = (AliITSgeomSSD*) GetITSgeom()->GetShape(kSSD);// Get shape info. Do it this way for now.
   
    AliITSresponse *resp2=0;
    Int_t nssd=0; 			
    for(Int_t nmod=0;nmod<GetITSgeom()->GetIndexMax();nmod++){
      if(GetITSgeom()->GetModuleType(nmod)==kSSD){
	resp2 = new AliITSresponseSSD("simulated");
	SetResponseModel(nmod,resp2);
	nssd=nmod;
      }
    }


    AliITSsegmentationSSD *seg2=new AliITSsegmentationSSD(GetITSgeom());
    seg2->SetDetSize(s2->GetDx()*2.*kconv, // base this on AliITSgeomSSD
		     s2->GetDz()*2.*kconv, // for now.
		     s2->GetDy()*2.*kconv); // x,z,y full width in microns.
    seg2->SetPadSize(50.,0.); // strip x pitch in microns
    seg2->SetNPads(384,0); // number of strips on each side.
    seg2->SetLayer(5);
    seg2->SetAngles(0.,0.); // strip angles rad P and N side.
    seg2->SetAnglesLay5(0.,0.); // strip angles rad P and N side.
    seg2->SetAnglesLay6(0.,0.); // strip angles rad P and N side.

    SetSegmentationModel(kSSD,seg2); 
    const char *kData2=(fDetTypeSim->GetResponseModel(nsdd))->DataType();
    if(strstr(kData2,"real") ) fDetTypeSim->SetDigitClassName(kSSD,"AliITSdigit");
    else fDetTypeSim->SetDigitClassName(kSSD,"AliITSdigitSSD");

    if(fgkNTYPES>3){
	Warning("SetDefaults",
		"Only the four basic detector types are initialised!");
    }// end if
    return;
}
//______________________________________________________________________
void AliITSvSDD03::SetDefaultSimulation(){
    // sets the default simulation.
    // Inputs:
    //      none.
    // Outputs:
    //      none.
    // Return:
    //      none.

  if(!fDetTypeSim) fDetTypeSim = new AliITSDetTypeSim();
  AliITSsimulation *sim;
  AliITSsegmentation *seg;
  AliITSresponse *res;
  Int_t nspd =0;
  Int_t nsdd =0;
  Int_t nssd =0;
  for(Int_t i=0;i<GetITSgeom()->GetIndexMax();i++){
    if(GetITSgeom()->GetModuleType(i)==kSPD) nspd=i;
    if(GetITSgeom()->GetModuleType(i)==kSDD) nsdd=i;
    if(GetITSgeom()->GetModuleType(i)==kSSD) nssd=i;    
  }
  //SPD
  if(fDetTypeSim){
    sim = fDetTypeSim->GetSimulationModel(kSPD);
    if (!sim) {
      seg =(AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSPD);
      if(seg==0) seg = new AliITSsegmentationSPD();
      res = (AliITSresponse*)fDetTypeSim->GetResponseModel(nspd);
      if(res==0) res = new AliITSresponseSPD();
      sim = new AliITSsimulationSPDdubna(seg,res,0);
      SetSimulationModel(kSPD,sim);
    }else{ // simulation exists, make sure it is set up properly.
      sim->SetSegmentationModel((AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSPD));
      sim->SetResponseModel((AliITSresponse*)fDetTypeSim->GetResponseModel(nspd));
      sim->Init();
    } // end if
  } // end if iDetType
  //SDD
  if(fDetTypeSim){
    sim = fDetTypeSim->GetSimulationModel(kSDD);
    if (!sim) {
      seg = (AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSDD);
      res = (AliITSresponse*)fDetTypeSim->GetResponseModel(nsdd);
      sim = new AliITSsimulationSDD(seg,res);
      SetSimulationModel(kSDD,sim);
    }else{ // simulation exists, make sure it is set up properly.
      sim->SetSegmentationModel((AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSDD));
      sim->SetResponseModel((AliITSresponse*)fDetTypeSim->GetResponseModel(nsdd));
      
      sim->Init();
    } //end if
  } // end if iDetType
  //SSD
  if(fDetTypeSim){
    sim = fDetTypeSim->GetSimulationModel(kSSD);
    if (!sim) {
      seg = (AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSSD);
      res = (AliITSresponse*)fDetTypeSim->GetResponseModel(nsdd);
      sim = new AliITSsimulationSSD(seg,res);
      SetSimulationModel(kSSD,sim);
    }else{ // simulation exists, make sure it is set up properly.
      sim->SetSegmentationModel((AliITSsegmentation*)fDetTypeSim->GetSegmentationModel(kSSD));
      sim->SetResponseModel((AliITSresponse*)fDetTypeSim->GetResponseModel(nssd));
      sim->Init();
    } // end if
  } // end if iDetType
}
//______________________________________________________________________
void AliITSvSDD03::DrawModule() const{
    ////////////////////////////////////////////////////////////////////////
    //     Draw a shaded view of the ITS SDD test beam version 1.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////
    // Set everything unseen
    gMC->Gsatt("*", "seen", -1);
    // Set ALIC mother visible
    gMC->Gsatt("ALIC","SEEN",0);
    // Set ALIC ITS visible
    gMC->Gsatt("ITSV","SEEN",1);
    // Set ALIC Telescopes visible
    gMC->Gsatt("ITEL","SEEN",1);
    gMC->Gsatt("ITEL","colo",2);
    // Set ALIC detetcor visible
    gMC->Gsatt("IDET","SEEN",1);
    gMC->Gsatt("IDET","colo",4);
    // Set ALIC Scintillator visible
    gMC->Gsatt("ISNT","SEEN",1);
    gMC->Gsatt("ISNT","colo",3);
    // Set Detector mother visible and drawn
//    gMC->Gsatt("ITS0","SEEN",1);
    // Set minibus mother visible and drawn
//    gMC->Gsatt("IMB0","SEEN",1);

    // Draw
    gMC->Gdraw("alic", 60, 30, 180, 10,10, .12, .12);
}
//______________________________________________________________________
void AliITSvSDD03::StepManager(){
    ////////////////////////////////////////////////////////////////////////
    //    Called for every step in the ITS SDD test beam, then calles the 
    // AliITShit class  creator with the information to be recoreded about
    //  that hit.
    //     The value of the macro ALIITSPRINTGEOM if set to 1 will allow the
    // printing of information to a file which can be used to create a .det
    // file read in by the routine CreateGeometry(). If set to 0 or any other
    // value except 1, the default behavior, then no such file is created nor
    // it the extra variables and the like used in the printing allocated.
    // Inputs:
    //    none.
    // Outputs:
    //    none.
    // Return:
    //    none.
    ////////////////////////////////////////////////////////////////////////
    Int_t  copy, id;
    static TLorentzVector position0;
    static Int_t stat0=0;
    if((id=gMC->CurrentVolID(copy) == fIDMother)&&
       (gMC->IsTrackEntering()||gMC->IsTrackExiting())){
        copy = fTrackReferences->GetEntriesFast();
        TClonesArray &lTR = *fTrackReferences;
        // Fill TrackReference structure with this new TrackReference.
        new(lTR[copy]) AliTrackReference(gAlice->GetMCApp()->
                                         GetCurrentTrackNumber());
    } // if Outer ITS mother Volume
    //if(!(this->IsActive())) return;
    if(!(gMC->TrackCharge())) return;
    Int_t   vol[5],copy3;
    TLorentzVector position, momentum;
    TClonesArray &lhits = *fHits;
    //
    // Fill hit structure.
    gMC->TrackPosition(position);
    gMC->TrackMomentum(momentum);
    id   = gMC->CurrentVolID(copy);
    if(id==fIdSens[0] || id==fIdSens[1]){ // Volumes "ITST" or "IMBS"
        copy = gMC->CurrentVolOffID(3,copy3);
        copy = DecodeDetector(id,copy3,vol[0],vol[1],vol[2]);
	//    cout << "0: mod,lay,lad,det="<<copy<<","<<vol[0]<<","<<vol[1]
        //     <<","<<vol[2]<<" name="<<gMC->CurrentVolName()
	//     <<","<<fIdSens[0]<<","<<fIdSens[1]<<","<<id<<" z="
        //     <<position.Z()<<endl;
    }else if(id==fIdSens[2]){ // "ISNT" Sintilator
        //cout << "1: id,copy="<<id<<","<<copy
        //     <<" name="<<gMC->CurrentVolName()<<" z="
        //     <<position.Z()<<endl;
        return; // Do nothing for now.
    }else{
        //cout << "2: id,copy="<<id<<","<<copy
        //     <<" name="<<gMC->CurrentVolName()<<" z="
        //     <<position.Z()<<endl;
        return;
    } // end if
    //
    // Track status
    vol[3] = 0;
    vol[4] = 0;
    if(gMC->IsTrackInside())      vol[3] +=  1;
    if(gMC->IsTrackEntering())    vol[3] +=  2;
    if(gMC->IsTrackExiting())     vol[3] +=  4;
    if(gMC->IsTrackOut())         vol[3] +=  8;
    if(gMC->IsTrackDisappeared()) vol[3] += 16;
    if(gMC->IsTrackStop())        vol[3] += 32;
    if(gMC->IsTrackAlive())       vol[3] += 64;
    //
    vol[4] = stat0;
    if(gMC->IsTrackEntering()){
        position0 = position;
        stat0 = vol[3];
        return;
    }else{
        new(lhits[fNhits++]) AliITShit(fIshunt,
                                   gAlice->GetMCApp()->GetCurrentTrackNumber(),
                                       vol,gMC->Edep(),gMC->TrackTime(),
                                       position,position0,momentum);
    }// end if gMC->IsTrackEntering()
    position0 = position;
    stat0 = vol[3];

    return;
}