- Float_t dz = (dzb+dzbb)/2.;
- gMC->Gspos("QBEM", 2 ,"QBE0", 0.0, 0.0, -dz, 0 , "ONLY");
- gMC->Gspos("QBEM", 1 ,"QBE0", 0.0, 0.0, dz, idrotm[2012], "ONLY");
-
- ptube[0] = 2.90;
- ptube[1] = 3.25;
- ptube[2] = 3.70;
-
- gMC->Gsvolu("QB19","TUBE", idtmed[kVac], ptube, 3);
- gMC->Gspos("QB19", 1 ,"QBEM", 0.0, 0.0, 0.5, 0 , "ONLY");
-
- ptube[0] = 3.25;
- ptube[1] = 3.74;
- ptube[2] = 0.095;
-
- gMC->Gsvolu("QB18","TUBE", idtmed[kVac], ptube, 3);
- for (i=0; i<15; i++) {
- gMC->Gspos("QB18", i+1, "QBEM", 0.0, 0.0, 3.3-i*0.4, 0, "ONLY");
- }
-
- ptube[0] = 2.90;
- ptube[1] = 3.00;
- ptube[2] = 1.20;
-
- gMC->Gsvolu("QB21","TUBE", idtmed[kVac], ptube, 3);
- gMC->Gspos("QB21", 1 ,"QBEM", 0.0, 0.0, -4.5, 0 , "ONLY");
-
- ptube[0] = 3.250;
- ptube[1] = 3.750;
- ptube[2] = 0.005;
-
- gMC->Gsvolu("QB15","TUBE", idtmed[kInox], ptube, 3);
- for (i=0; i<30; i++) {
- gMC->Gspos("QB15", i+1, "QBEM", 0.0, 0.0, 3.4-i*0.2, 0, "ONLY");
- }
-
- ptube[0] = 3.740;
- ptube[1] = 3.750;
- ptube[2] = 0.095;
-
- gMC->Gsvolu("QB16","TUBE", idtmed[kInox], ptube, 3);
- for (i=0; i<15; i++) {
- gMC->Gspos("QB16", i+1, "QBEM", 0.0, 0.0, 3.3-i*0.4, 0, "ONLY");
- }
-
- ptube[0] = 3.250;
- ptube[1] = 3.260;
- ptube[2] = 0.095;
-
- gMC->Gsvolu("QB17","TUBE", idtmed[kInox], ptube, 3);
- for (i=0; i<14; i++) {
- gMC->Gspos("QB17", i+1, "QBEM", 0.0, 0.0, 3.1-i*0.4, 0, "ONLY");
+ dz = -dzb+2.+dzub;
+ gMC->Gspos("QBEM", 2 ,"QBE0", 0.0, 0.0, dz, 0 , "ONLY");
+ gMC->Gspos("QBEM", 1 ,"QBE0", 0.0, 0.0, -dz, idrotm[2012], "ONLY");
+//
+ Float_t pund[30];
+ Float_t uw = 0.02;
+ Float_t ur = 2.*dzub-12.*uw;
+ Float_t uz = ur/13.;
+ Float_t ut = uz+uw;
+
+ pund[ 0] = 0;
+ pund[ 1] = 360;
+ pund[ 2] = 9;
+
+ pund[ 3] = -ut;
+ pund[ 4] = RinSt;
+ pund[ 5] = RinSt+uw;
+
+ pund[ 6] = -ut+uz;
+ pund[ 7] = pund[4];
+ pund[ 8] = pund[5];
+
+ pund[ 9] = pund[6];
+ pund[10] = pund[4];
+ pund[11] = 4.0;
+
+ pund[12] = pund[9]+uw;
+ pund[13] = pund[10];
+ pund[14] = pund[11];
+
+ pund[15] = pund[12];
+ pund[16] = 4.0-uw;
+ pund[17] = pund[14];
+
+ pund[18] = pund[12]+uz;
+ pund[19] = pund[16];
+ pund[20] = pund[17];
+
+ pund[21] = pund[18];
+ pund[22] = RinSt;
+ pund[23] = pund[20];
+
+ pund[24] = pund[21]+uw;
+ pund[25] = pund[22];
+ pund[26] = pund[23];
+
+ pund[27] = pund[24];
+ pund[28] = pund[25];
+ pund[29] = RinSt+uw;
+
+ gMC->Gsvolu("QBEU", "PCON", idtmed[kInox], pund, 30);
+
+ for (i = 0; i < 6; i++)
+ {
+ dz = -dzub+(1+2*i)*ut;
+ gMC->Gspos("QBEU", i+1 ,"QBEM", 0.0, 0.0, dz, 0 , "ONLY");