Make geometry consistent with new current parameters.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 24 Jul 2002 13:28:49 +0000 (13:28 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 24 Jul 2002 13:28:49 +0000 (13:28 +0000)
STRUCT/AliSHILv0.cxx

index b24359e..b532f77 100644 (file)
@@ -15,6 +15,9 @@
 
 /*
 $Log$
+Revision 1.17  2001/11/17 01:29:21  morsch
+Obsolete and wrong volume YXO5 removed.
+
 Revision 1.16  2001/11/16 08:57:42  morsch
 Volume YP32 obsolete.
 
@@ -345,7 +348,6 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 
   Float_t r2  = par1[37];
   Float_t rBox= par1[31]-0.1;
-  Float_t rc1 = par1[7];
 
   gMC->Gsvolu("YGO1", "PCON", idtmed[kNiCuW], par1, 39);
   Int_t i;
@@ -374,6 +376,10 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 //
 // Bellow 1
 //
+
+//
+// Bellow 1
+//
   tpar[0]=rB1;
   tpar[1]=rB1+hB1;
   tpar[2]=eB1/2.;
@@ -395,10 +401,10 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 
   tpar[0]=0;
   tpar[1]=rB1+hB1;
-  tpar[2]=lB1/2.;
+  tpar[2]=-lB1/2.;
   gMC->Gsvolu("YBU1", "TUBE", idtmed[kVacuum+40], tpar, 3);
 
-  dz=-tpar[2]+dl3;
+  dz=-lB1/2.+dl3;
   gMC->Gspos("YB13", 1, "YBU1", 0., 0., dz, 0, "ONLY"); 
   dz+=dl3;
   dz+=dl1;  
@@ -416,27 +422,21 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 
   tpar[0]=0;
   tpar[1]=rB1+hB1+0.5;
-  tpar[2]=10.*lB1/2.;
+  tpar[2]=12.*lB1/2.;
   gMC->Gsvolu("YBM1", "TUBE", idtmed[kVacuum+40], tpar, 3);
+  gMC->Gsdvn("YB1S", "YBM1", 12 , 3);
+
   Float_t bsize = tpar[2];
   tpar[0]=rB1+hB1;
+  tpar[2]=-lB1/2.;
   gMC->Gsvolu("YBI1", "TUBE", idtmed[kInsulation+40], tpar, 3);
-  gMC->Gspos("YBI1", 2, "YBM1", 0., 0., 0., 0, "ONLY"); 
 
-  dz=-bsize+lB1/2.;
+  gMC->Gspos("YBI1", 1, "YB1S", 0., 0., 0., 0, "ONLY"); 
+  gMC->Gspos("YBU1", 1, "YB1S", 0., 0., 0., 0, "ONLY"); 
 
-  for (i=0; i<10; i++) {
-    gMC->Gspos("YBU1", i+1 , "YBM1", 0., 0., dz, 0, "ONLY"); 
-    dz+=lB1;
-  }
-
-  dz=-dl+(zvac1-zstart)+dr11+bsize;
+  dz=-dl+(zvac1-zstart)+dr11/2.+bsize;
   gMC->Gspos("YBM1", 1, "YMO1", 0., 0., dz, 0, "ONLY"); 
 
-  dz=dl-dr13-(zvac4-zvac3)-bsize;
-  gMC->Gspos("YBM1", 2, "YMO1", 0., 0., dz, 0, "ONLY"); 
-
-
 //
 // Flange
 
@@ -459,7 +459,7 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
   gMC->Gspos("YF11", 1, "YFM1", 0., 0., 0., 0, "ONLY"); 
   gMC->Gspos("YF12", 1, "YFM1", 0., 0., 0., 0, "ONLY"); 
 
-  dz=-dl+(zvac2-zstart);
+  dz=-dl+(zvac1-zstart)+dr11/2.+2.*bsize+dF1/2.+3.;
   gMC->Gspos("YFM1", 2, "YMO1", 0., 0., dz, 0, "ONLY"); 
 
 //
@@ -468,7 +468,7 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 // Steel 
   tpar[0]=rB1-dTubeS;
   tpar[1]=rB1+0.6;
-  tpar[2]=2.*(dB1+dr12-10.*lB1)/4.;
+  tpar[2]=1.5;
   gMC->Gsvolu("YPF1", "TUBE", idtmed[kSteel+40], tpar, 3);
 // Insulation
   tpar[0]=rB1;
@@ -476,10 +476,11 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
   gMC->Gsvolu("YPS1", "TUBE", idtmed[kInsulation+40], tpar, 3);
   gMC->Gspos("YPS1", 1, "YPF1", 0., 0., 0., 0, "ONLY"); 
 
-  dz=-dl+(zvac2-zstart)-dF1/2.-tpar[2];
+  dz=dz-1.5-dF1/2.;
   gMC->Gspos("YPF1", 1, "YMO1", 0., 0., dz, 0, "ONLY"); 
-  dz=-dl+(zvac2-zstart)+dF1/2.+tpar[2];
+  dz=dz+3.0+dF1;
   gMC->Gspos("YPF1", 2, "YMO1", 0., 0., dz, 0, "ONLY"); 
+//
 
 // Pipe+Heating     1.5 mm 
 // Heating Jacket   5.0 mm
@@ -489,7 +490,7 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 // pipe and heating jackets outside bellows
 //
 // left side
-  cpar0[0]=(zvac1+dr11-zstart)/2;
+  cpar0[0]=(zvac1+dr11/2.-zstart)/2;
   cpar0[1]=rVacu-0.05  +(zstart-zOpen)*TMath::Tan(thetaOpen1);
   cpar0[2]=rVacu+0.7   +(zstart-zOpen)*TMath::Tan(thetaOpen1);
   cpar0[3]=cpar0[1]+2.*cpar0[0]*TMath::Tan(thetaOpen1);
@@ -531,6 +532,7 @@ enum {kC=1705, kAl=1708, kFe=1709, kCu=1710, kW=1711, kPb=1712,
 
   dz=dl-cpar0[0];
   gMC->Gspos("YV12", 1, "YMO1", 0., 0., dz, 0, "ONLY"); 
+
 //
 // Second Section
 // Between first and second bellow section