[u/mrichter/AliRoot.git] / STRUCT / AliSHIL.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$ */

///////////////////////////////////////////////////////////////////////////////
//                                                                           //
//  Muon Shield Class                                                        //
//  This class contains a description of the muon shield                     //
//                                                                           //
//Begin_Html
/*
<img src="picts/AliSHILClass.gif">
*/
//End_Html
//                                                                           //
//                                                                           //
///////////////////////////////////////////////////////////////////////////////

#include "AliSHIL.h"
#include "AliRun.h"
#include "AliMagF.h"
#include "AliConst.h"
#include "AliLog.h"

ClassImp(AliSHIL)
 
//_____________________________________________________________________________
AliSHIL::AliSHIL()
{
  //
  // Default constructor for muon shield
  //
}
 
//_____________________________________________________________________________
AliSHIL::AliSHIL(const char *name, const char *title)
  : AliModule(name,title)
{
  //
  // Standard constructor for muon shield
  //
  //PH  SetMarkerColor(7);
  //PH  SetMarkerStyle(2);
  //PH  SetMarkerSize(0.4);
}
 
//_____________________________________________________________________________
void AliSHIL::CreateGeometry()
{
  //
  // Build muon shield geometry
  //
}

//_____________________________________________________________________________
void AliSHIL::CreateMaterials()
{
  //
  // Defines materials for the muon shield
  //
  Int_t   isxfld1 = gAlice->Field()->Integ();
  Int_t   isxfld2 = gAlice->Field()->PrecInteg();

  Float_t sxmgmx = gAlice->Field()->Max();
// 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 };
// PbW
  Float_t apbw[2]   = { 207.2,183.85 };
  Float_t zpbw[2]   = { 82.,74. };
  Float_t wpbw[2]   = { .5,.5 };
// Concrete
  Float_t aconc[10] = { 1.,12.01,15.994,22.99,24.305,26.98,
			28.086,39.1,40.08,55.85 };
  Float_t zconc[10] = { 1.,6.,8.,11.,12.,13.,14.,19.,20.,26. };
  Float_t wconc[10] = { .01,.001,.529107,.016,.002,.033872,
			.337021,.013,.044,.014 };
// Ni-Cu-W alloy
  Float_t aniwcu[3] ={58.6934, 183.84, 63.546};
  Float_t zniwcu[3] ={28.,      74.,   29.};
  Float_t wniwcu[3] ={ 0.015,    0.95,  0.035};
//
// Insulation powder
//                    Si         O       Ti     Al
  Float_t ains[4] ={28.0855, 15.9994, 47.867,  26.982};
  Float_t zins[4] ={14.,      8.    , 22.   ,  13.   };
  Float_t wins[4] ={ 0.3019,  0.4887,  0.1914,  0.018};
//
// 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;
  Float_t dAir1 = 1.20479E-10;

  
  Float_t epsil, stmin, tmaxfd, deemax, stemax;
  
  //     STEEL 
  
  
  //     LEAD/TUNGSTEN MIXTURE 
  
  
  // --- Define the various materials for GEANT --- 
  //     Aluminum 
  AliMaterial(9,  "ALU1      ", 26.98, 13., 2.7, 8.9, 37.2);
  AliMaterial(29, "ALU2      ", 26.98, 13., 2.7, 8.9, 37.2);
  AliMaterial(49, "ALU3      ", 26.98, 13., 2.7, 8.9, 37.2);
  
  //     Iron 
  AliMaterial(10, "IRON1     ", 55.85, 26., 7.87, 1.76, 17.1);
  AliMaterial(30, "IRON2     ", 55.85, 26., 7.87, 1.76, 17.1);
  AliMaterial(50, "IRON3     ", 55.85, 26., 7.87, 1.76, 17.1);

  //
  //     Copper
  AliMaterial(11, "COPPER1   ", 63.55, 29., 8.96, 1.43, 15.1);
  AliMaterial(31, "COPPER2   ", 63.55, 29., 8.96, 1.43, 15.1);
  AliMaterial(51, "COPPER3   ", 63.55, 29., 8.96, 1.43, 15.1);
  
  //     Tungsten 
  AliMaterial(12, "TUNGSTEN1 ", 183.85, 74., 19.3, .35, 10.3);
  AliMaterial(32, "TUNGSTEN2 ", 183.85, 74., 19.3, .35, 10.3);
  AliMaterial(52, "TUNGSTEN3 ", 183.85, 74., 19.3, .35, 10.3);
  
  //     Lead 
  AliMaterial(13, "LEAD1     ", 207.19, 82., 11.35, .56, 18.5);
  AliMaterial(33, "LEAD2     ", 207.19, 82., 11.35, .56, 18.5);
  AliMaterial(53, "LEAD3     ", 207.19, 82., 11.35, .56, 18.5);
  
  //     Air 
  AliMixture(15, "AIR1      ", aAir, zAir, dAir, 4, wAir);
  AliMixture(35, "AIR2      ", aAir, zAir, dAir, 4, wAir);
  AliMixture(55, "AIR3      ", aAir, zAir, dAir, 4, wAir);
  AliMixture(75, "AIR_MUON  ", aAir, zAir, dAir, 4, wAir);

  //     Vacuum 
  AliMixture(16, "VACUUM1 ", aAir, zAir, dAir1, 4, wAir);
  AliMixture(36, "VACUUM2 ", aAir, zAir, dAir1, 4, wAir);
  AliMixture(56, "VACUUM3 ", aAir, zAir, dAir1, 4, wAir);
  
  //     Stainless Steel 
  AliMixture(19, "STAINLESS STEEL1", asteel, zsteel, 7.88, 4, wsteel);
  AliMixture(39, "STAINLESS STEEL2", asteel, zsteel, 7.88, 4, wsteel);
  AliMixture(59, "STAINLESS STEEL3", asteel, zsteel, 7.88, 4, wsteel);
  
  //     Lead/Tungsten 
  AliMixture(20, "LEAD/TUNGSTEN1", apbw, zpbw, 15.325, 2, wpbw);
  AliMixture(40, "LEAD/TUNGSTEN2", apbw, zpbw, 15.325, 2, wpbw);
  AliMixture(60, "LEAD/TUNGSTEN3", apbw, zpbw, 15.325, 2, wpbw);

  //     Ni-W-Cu 
  AliMixture(21, "Ni-W-Cu1", aniwcu, zniwcu, 18.78, 3, wniwcu);
  AliMixture(41, "Ni-W-Cu2", aniwcu, zniwcu, 18.78, 3, wniwcu);
  AliMixture(61, "Ni-W-Cu3", aniwcu, zniwcu, 18.78, 3, wniwcu);

  //     Concrete 
  AliMixture(17, "CONCRETE1", aconc, zconc, 2.35, 10, wconc);
  AliMixture(37, "CONCRETE2", aconc, zconc, 2.35, 10, wconc);
  AliMixture(57, "CONCRETE3", aconc, zconc, 2.35, 10, wconc);

  //     Insulation powder 
  AliMixture(14, "INSULATION1", ains, zins, 0.41, 4, wins);
  AliMixture(34, "INSULATION2", ains, zins, 0.41, 4, wins);
  AliMixture(54, "INSULATION3", ains, zins, 0.41, 4, wins);
  
  // **************** 
  //     Defines tracking media parameters. 
  //     Les valeurs sont commentees pour laisser le defaut 
  //     a GEANT (version 3-21, page CONS200), f.m. 
  epsil  = .001;  // Tracking precision, 
  stemax = -1.;   // Maximum displacement for multiple scat 
  tmaxfd = -20.;  // Maximum angle due to field deflection 
  deemax = -.3;   // Maximum fractional energy loss, DLS 
  stmin  = -.8;
  // *************** 
  
  //    Aluminum 
  AliMedium(9,  "ALU_C0          ", 9, 0,  isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(29, "ALU_C1          ", 29, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(49, "ALU_C2          ", 49, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Iron 
  AliMedium(10, "FE_C0           ", 10, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(30, "FE_C1           ", 30, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(50, "FE_C2           ", 50, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);

  //    Copper 
  AliMedium(11, "Cu_C0           ", 11, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(31, "Cu_C1           ", 31, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(51, "Cu_C2           ", 51, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Tungsten 
  AliMedium(12, "W_C0            ", 12, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(32, "W_C1            ", 32, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(52, "W_C2            ", 52, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Lead 
  AliMedium(13, "PB_C0           ", 13, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(33, "PB_C1           ", 33, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(53, "PB_C2           ", 53, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);

  //    Insulation Powder 
  AliMedium(14, "INS_C0          ", 14, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(34, "INS_C1          ", 34, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(54, "INS_C2          ", 54, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Air 
  AliMedium(15, "AIR_C0          ", 15, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(35, "AIR_C1          ", 35, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(55, "AIR_C2          ", 55, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(75, "AIR_MUON        ", 75, 0, isxfld2, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Vacuum 
  AliMedium(16, "VA_C0           ", 16, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(36, "VA_C1           ", 36, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(56, "VA_C2           ", 56, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Steel 
  AliMedium(19, "ST_C0           ", 19, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(39, "ST_C1           ", 39, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(59, "ST_C3           ", 59, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  
  //    Lead/Tungsten 
  AliMedium(20, "PB/W0           ", 20, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(40, "PB/W1           ", 40, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(60, "PB/W3           ", 60, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);

  //    Ni/Tungsten 
  AliMedium(21, "Ni/W0           ", 21, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(41, "Ni/W1           ", 41, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(61, "Ni/W3           ", 61, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);

//    Concrete 
  AliMedium(17, "CC_C0           ", 17, 0, 0,      sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(37, "CC_C1           ", 37, 0, 0,      sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
  AliMedium(57, "CC_C2           ", 57, 0, 0,      sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);

}

//_____________________________________________________________________________
void AliSHIL::DrawModule () const
{
    // Drawing options
}

//_____________________________________________________________________________
void AliSHIL::Init()
{
  //
  // Initialise the muon shield after it has been built
  //
  Int_t i;
  //
  if(AliLog::GetGlobalDebugLevel()>0) {
    printf("\n%s: ",ClassName());
    for(i=0;i<35;i++) printf("*");
    printf(" SHIL_INIT ");
    for(i=0;i<35;i++) printf("*");
    printf("\n%s: ",ClassName());
    //
    // Here the SHIL initialisation code (if any!)
    for(i=0;i<80;i++) printf("*");
    printf("\n");
  }
}
Commit	Line	Data
4c039060	1	/**************************************************************************
	2	* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
	3	* *
	4	* Author: The ALICE Off-line Project. *
	5	* Contributors are mentioned in the code where appropriate. *
	6	* *
	7	* Permission to use, copy, modify and distribute this software and its *
	8	* documentation strictly for non-commercial purposes is hereby granted *
	9	* without fee, provided that the above copyright notice appears in all *
	10	* copies and that both the copyright notice and this permission notice *
	11	* appear in the supporting documentation. The authors make no claims *
	12	* about the suitability of this software for any purpose. It is *
	13	* provided "as is" without express or implied warranty. *
	14	**************************************************************************/
	15
eeacf08b	16	/* $Id$ */
4c039060	17
fe4da5cc	18	///////////////////////////////////////////////////////////////////////////////
	19	// //
	20	// Muon Shield Class //
	21	// This class contains a description of the muon shield //
	22	// //
	23	//Begin_Html
	24	/*
1439f98e	25	<img src="picts/AliSHILClass.gif">
fe4da5cc	26	*/
	27	//End_Html
	28	// //
	29	// //
	30	///////////////////////////////////////////////////////////////////////////////
	31
	32	#include "AliSHIL.h"
fe4da5cc	33	#include "AliRun.h"
94de3818	34	#include "AliMagF.h"
fe4da5cc	35	#include "AliConst.h"
4951e003	36	#include "AliLog.h"
fe4da5cc	37
	38	ClassImp(AliSHIL)
	39
	40	//_____________________________________________________________________________
	41	AliSHIL::AliSHIL()
	42	{
	43	//
	44	// Default constructor for muon shield
	45	//
	46	}
	47
	48	//_____________________________________________________________________________
	49	AliSHIL::AliSHIL(const char name, const char title)
b8032157	50	: AliModule(name,title)
fe4da5cc	51	{
	52	//
	53	// Standard constructor for muon shield
	54	//
e939a978	55	//PH SetMarkerColor(7);
	56	//PH SetMarkerStyle(2);
	57	//PH SetMarkerSize(0.4);
fe4da5cc	58	}
fe4da5cc	59
fe4da5cc	60	//_____________________________________________________________________________
	61	void AliSHIL::CreateGeometry()
	62	{
	63	//
	64	// Build muon shield geometry
	65	//
fe4da5cc	66	}
	67
	68	//_____________________________________________________________________________
	69	void AliSHIL::CreateMaterials()
	70	{
	71	//
	72	// Defines materials for the muon shield
	73	//
dba681f5	74	Int_t isxfld1 = gAlice->Field()->Integ();
	75	Int_t isxfld2 = gAlice->Field()->PrecInteg();
	76
b43eb0dc	77	Float_t sxmgmx = gAlice->Field()->Max();
3f4d1718	78	// Steel
fe4da5cc	79	Float_t asteel[4] = { 55.847,51.9961,58.6934,28.0855 };
	80	Float_t zsteel[4] = { 26.,24.,28.,14. };
	81	Float_t wsteel[4] = { .715,.18,.1,.005 };
3f4d1718	82	// PbW
fe4da5cc	83	Float_t apbw[2] = { 207.2,183.85 };
	84	Float_t zpbw[2] = { 82.,74. };
	85	Float_t wpbw[2] = { .5,.5 };
3f4d1718	86	// Concrete
	87	Float_t aconc[10] = { 1.,12.01,15.994,22.99,24.305,26.98,
	88	28.086,39.1,40.08,55.85 };
	89	Float_t zconc[10] = { 1.,6.,8.,11.,12.,13.,14.,19.,20.,26. };
	90	Float_t wconc[10] = { .01,.001,.529107,.016,.002,.033872,
	91	.337021,.013,.044,.014 };
	92	// Ni-Cu-W alloy
	93	Float_t aniwcu[3] ={58.6934, 183.84, 63.546};
35a1fda7	94	Float_t zniwcu[3] ={28., 74., 29.};
35a1fda7	95	Float_t wniwcu[3] ={ 0.015, 0.95, 0.035};
3f4d1718	96	//
3f4d1718	97	// Insulation powder
9af0a493	98	// Si O Ti Al
	99	Float_t ains[4] ={28.0855, 15.9994, 47.867, 26.982};
	100	Float_t zins[4] ={14., 8. , 22. , 13. };
	101	Float_t wins[4] ={ 0.3019, 0.4887, 0.1914, 0.018};
002b3738	102	//
	103	// Air
	104	//
	105	Float_t aAir[4]={12.0107,14.0067,15.9994,39.948};
	106	Float_t zAir[4]={6.,7.,8.,18.};
	107	Float_t wAir[4]={0.000124,0.755267,0.231781,0.012827};
	108	Float_t dAir = 1.20479E-3;
6a894888	109	Float_t dAir1 = 1.20479E-10;
9af0a493	110
002b3738	111
fe4da5cc	112	Float_t epsil, stmin, tmaxfd, deemax, stemax;
	113
	114	// STEEL
	115
	116
	117	// LEAD/TUNGSTEN MIXTURE
	118
	119
	120	// --- Define the various materials for GEANT ---
	121	// Aluminum
def952f1	122	AliMaterial(9, "ALU1 ", 26.98, 13., 2.7, 8.9, 37.2);
	123	AliMaterial(29, "ALU2 ", 26.98, 13., 2.7, 8.9, 37.2);
	124	AliMaterial(49, "ALU3 ", 26.98, 13., 2.7, 8.9, 37.2);
fe4da5cc	125
fe4da5cc	126	// Iron
def952f1	127	AliMaterial(10, "IRON1 ", 55.85, 26., 7.87, 1.76, 17.1);
	128	AliMaterial(30, "IRON2 ", 55.85, 26., 7.87, 1.76, 17.1);
	129	AliMaterial(50, "IRON3 ", 55.85, 26., 7.87, 1.76, 17.1);
9af0a493	130
	131	//
	132	// Copper
def952f1	133	AliMaterial(11, "COPPER1 ", 63.55, 29., 8.96, 1.43, 15.1);
	134	AliMaterial(31, "COPPER2 ", 63.55, 29., 8.96, 1.43, 15.1);
	135	AliMaterial(51, "COPPER3 ", 63.55, 29., 8.96, 1.43, 15.1);
fe4da5cc	136
fe4da5cc	137	// Tungsten
def952f1	138	AliMaterial(12, "TUNGSTEN1 ", 183.85, 74., 19.3, .35, 10.3);
	139	AliMaterial(32, "TUNGSTEN2 ", 183.85, 74., 19.3, .35, 10.3);
	140	AliMaterial(52, "TUNGSTEN3 ", 183.85, 74., 19.3, .35, 10.3);
fe4da5cc	141
fe4da5cc	142	// Lead
def952f1	143	AliMaterial(13, "LEAD1 ", 207.19, 82., 11.35, .56, 18.5);
	144	AliMaterial(33, "LEAD2 ", 207.19, 82., 11.35, .56, 18.5);
	145	AliMaterial(53, "LEAD3 ", 207.19, 82., 11.35, .56, 18.5);
fe4da5cc	146
fe4da5cc	147	// Air
def952f1	148	AliMixture(15, "AIR1 ", aAir, zAir, dAir, 4, wAir);
	149	AliMixture(35, "AIR2 ", aAir, zAir, dAir, 4, wAir);
	150	AliMixture(55, "AIR3 ", aAir, zAir, dAir, 4, wAir);
35a1fda7	151	AliMixture(75, "AIR_MUON ", aAir, zAir, dAir, 4, wAir);
6a894888	152
fe4da5cc	153	// Vacuum
def952f1	154	AliMixture(16, "VACUUM1 ", aAir, zAir, dAir1, 4, wAir);
	155	AliMixture(36, "VACUUM2 ", aAir, zAir, dAir1, 4, wAir);
	156	AliMixture(56, "VACUUM3 ", aAir, zAir, dAir1, 4, wAir);
fe4da5cc	157
3f4d1718	158	// Stainless Steel
def952f1	159	AliMixture(19, "STAINLESS STEEL1", asteel, zsteel, 7.88, 4, wsteel);
	160	AliMixture(39, "STAINLESS STEEL2", asteel, zsteel, 7.88, 4, wsteel);
	161	AliMixture(59, "STAINLESS STEEL3", asteel, zsteel, 7.88, 4, wsteel);
fe4da5cc	162
fe4da5cc	163	// Lead/Tungsten
def952f1	164	AliMixture(20, "LEAD/TUNGSTEN1", apbw, zpbw, 15.325, 2, wpbw);
	165	AliMixture(40, "LEAD/TUNGSTEN2", apbw, zpbw, 15.325, 2, wpbw);
	166	AliMixture(60, "LEAD/TUNGSTEN3", apbw, zpbw, 15.325, 2, wpbw);
3f4d1718	167
3f4d1718	168	// Ni-W-Cu
def952f1	169	AliMixture(21, "Ni-W-Cu1", aniwcu, zniwcu, 18.78, 3, wniwcu);
	170	AliMixture(41, "Ni-W-Cu2", aniwcu, zniwcu, 18.78, 3, wniwcu);
	171	AliMixture(61, "Ni-W-Cu3", aniwcu, zniwcu, 18.78, 3, wniwcu);
3f4d1718	172
3f4d1718	173	// Concrete
def952f1	174	AliMixture(17, "CONCRETE1", aconc, zconc, 2.35, 10, wconc);
	175	AliMixture(37, "CONCRETE2", aconc, zconc, 2.35, 10, wconc);
	176	AliMixture(57, "CONCRETE3", aconc, zconc, 2.35, 10, wconc);
3f4d1718	177
3f4d1718	178	// Insulation powder
def952f1	179	AliMixture(14, "INSULATION1", ains, zins, 0.41, 4, wins);
	180	AliMixture(34, "INSULATION2", ains, zins, 0.41, 4, wins);
	181	AliMixture(54, "INSULATION3", ains, zins, 0.41, 4, wins);
fe4da5cc	182
	183	// ****************
	184	// Defines tracking media parameters.
	185	// Les valeurs sont commentees pour laisser le defaut
	186	// a GEANT (version 3-21, page CONS200), f.m.
	187	epsil = .001; // Tracking precision,
	188	stemax = -1.; // Maximum displacement for multiple scat
	189	tmaxfd = -20.; // Maximum angle due to field deflection
	190	deemax = -.3; // Maximum fractional energy loss, DLS
	191	stmin = -.8;
	192	// ***************
	193
	194	// Aluminum
dba681f5	195	AliMedium(9, "ALU_C0 ", 9, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	196	AliMedium(29, "ALU_C1 ", 29, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	197	AliMedium(49, "ALU_C2 ", 49, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	198
fe4da5cc	199	// Iron
dba681f5	200	AliMedium(10, "FE_C0 ", 10, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	201	AliMedium(30, "FE_C1 ", 30, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	202	AliMedium(50, "FE_C2 ", 50, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
9af0a493	203
35a1fda7	204	// Copper
dba681f5	205	AliMedium(11, "Cu_C0 ", 11, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	206	AliMedium(31, "Cu_C1 ", 31, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	207	AliMedium(51, "Cu_C2 ", 51, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	208
fe4da5cc	209	// Tungsten
dba681f5	210	AliMedium(12, "W_C0 ", 12, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	211	AliMedium(32, "W_C1 ", 32, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	212	AliMedium(52, "W_C2 ", 52, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	213
fe4da5cc	214	// Lead
dba681f5	215	AliMedium(13, "PB_C0 ", 13, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	216	AliMedium(33, "PB_C1 ", 33, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	217	AliMedium(53, "PB_C2 ", 53, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
3f4d1718	218
3f4d1718	219	// Insulation Powder
dba681f5	220	AliMedium(14, "INS_C0 ", 14, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	221	AliMedium(34, "INS_C1 ", 34, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	222	AliMedium(54, "INS_C2 ", 54, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	223
fe4da5cc	224	// Air
dba681f5	225	AliMedium(15, "AIR_C0 ", 15, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	226	AliMedium(35, "AIR_C1 ", 35, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	227	AliMedium(55, "AIR_C2 ", 55, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	228	AliMedium(75, "AIR_MUON ", 75, 0, isxfld2, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	229
fe4da5cc	230	// Vacuum
dba681f5	231	AliMedium(16, "VA_C0 ", 16, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	232	AliMedium(36, "VA_C1 ", 36, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	233	AliMedium(56, "VA_C2 ", 56, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	234
fe4da5cc	235	// Steel
dba681f5	236	AliMedium(19, "ST_C0 ", 19, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	237	AliMedium(39, "ST_C1 ", 39, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	238	AliMedium(59, "ST_C3 ", 59, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
fe4da5cc	239
fe4da5cc	240	// Lead/Tungsten
dba681f5	241	AliMedium(20, "PB/W0 ", 20, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	242	AliMedium(40, "PB/W1 ", 40, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	243	AliMedium(60, "PB/W3 ", 60, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
3f4d1718	244
3f4d1718	245	// Ni/Tungsten
dba681f5	246	AliMedium(21, "Ni/W0 ", 21, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	247	AliMedium(41, "Ni/W1 ", 41, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	248	AliMedium(61, "Ni/W3 ", 61, 0, isxfld1, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
3f4d1718	249
3f4d1718	250	// Concrete
def952f1	251	AliMedium(17, "CC_C0 ", 17, 0, 0, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	252	AliMedium(37, "CC_C1 ", 37, 0, 0, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
	253	AliMedium(57, "CC_C2 ", 57, 0, 0, sxmgmx, tmaxfd, stemax, deemax, epsil, stmin);
3f4d1718	254
fe4da5cc	255	}
	256
	257	//_____________________________________________________________________________
ba380e33	258	void AliSHIL::DrawModule () const
fe4da5cc	259	{
b43eb0dc	260	// Drawing options
fe4da5cc	261	}
	262
	263	//_____________________________________________________________________________
	264	void AliSHIL::Init()
	265	{
	266	//
	267	// Initialise the muon shield after it has been built
	268	//
	269	Int_t i;
	270	//
4951e003	271	if(AliLog::GetGlobalDebugLevel()>0) {
9e1a0ddb	272	printf("\n%s: ",ClassName());
	273	for(i=0;i<35;i++) printf("*");
	274	printf(" SHIL_INIT ");
	275	for(i=0;i<35;i++) printf("*");
	276	printf("\n%s: ",ClassName());
	277	//
	278	// Here the SHIL initialisation code (if any!)
	279	for(i=0;i<80;i++) printf("*");
	280	printf("\n");
	281	}
fe4da5cc	282	}
	283
	284