Reverse z-ordering in HMBS. (I. Hrivnacova)

[u/mrichter/AliRoot.git] / STRUCT / AliHALL.cxx

diff --git a/STRUCT/AliHALL.cxx b/STRUCT/AliHALL.cxx
index 5c8dc9cd1b34d69a250aa2e761785e7b89dec716..52e8a77a4c0f0364836dd98762519ec07e611747 100644 (file)
--- a/STRUCT/AliHALL.cxx
+++ b/STRUCT/AliHALL.cxx
@@ -15,6 +15,15 @@
 
 /*
 $Log$
+Revision 1.13  2001/06/21 12:26:52  morsch
+Simple concrete shielding around compensator dipole.
+
+Revision 1.12  2001/06/20 16:08:56  morsch
+Remove some shielding to accomodate compensator magnet.
+
+Revision 1.11  2001/05/16 14:57:22  alibrary
+New files for folders and Stack
+
 Revision 1.10  2000/10/02 21:28:15  fca
 Removal of useless dependecies via forward declarations
 
@@ -276,21 +285,22 @@ void AliHALL::CreateGeometry()
   gMC->Gspos("HPIL", 1, "ALIC", 165.,-706+pbox[1] , 1350., 0, "ONLY");
   gMC->Gspos("HPIL", 2, "ALIC",-165.,-706+pbox[1] , 1350., 0, "ONLY");
   
-  //     concrete beam shield 
-  
-  pbox[0] = 402.5;
-  pbox[1] = 260.;
-  pbox[2] = 120.;
-  gMC->Gsvolu("HMBS", "BOX ", idtmed[1956], pbox, 3);
-  pbox[0] = 85.;
-  pbox[1] = 100.;
-  gMC->Gsvolu("HBBS", "BOX ", idtmed[1956], pbox, 3);
-  gMC->Gspos("HBBS", 1, "HMBS", -157.5, 0., 0., 0, "ONLY");
-  pbox[0] = 40.;
-  pbox[1] = 130.;
-  gMC->Gsvolu("HPBS", "BOX ", idtmed[1956], pbox, 3);
-  gMC->Gspos("HPBS", 1, "HMBS", 202.5,  30.,    0., 0, "ONLY");
-  gMC->Gspos("HMBS", 1, "ALIC", 157.5, -50., -820., 0, "ONLY");
+  //     simple concrete beam shield 
+  
+  Float_t ppgon[10];
+  ppgon[0] =    45.;
+  ppgon[1] =   360.;
+  ppgon[2] =     4.;
+  ppgon[3] =     2.;
+  ppgon[4] = -1800.;
+  ppgon[5] =   150.;
+  ppgon[6] =   250.;
+  ppgon[7] =  -720.;
+  ppgon[8] =   150.;
+  ppgon[9] =   250.;
+
+  gMC->Gsvolu("HMBS", "PGON", idtmed[1956], ppgon, 10);
+  gMC->Gspos("HMBS", 1, "ALIC", 0., 70., 0., 0, "ONLY");
   
 }