-// Steel envelope
-//
-// (1)
- tpar[0]=R11-dRSteel1;
- tpar[1]=R21;
- tpar[2]=2;
- gMC->Gsvolu("YS21", "TUBE", idtmed[kSteel], tpar, 3);
- dz=-dl+tpar[2];
- gMC->Gspos("YS21", 1, "YGO2", 0., 0., dz, 0, "ONLY");
- dz+=tpar[2];
-// (2)
- tpar[0]=R21-dRSteel2;
- tpar[1]=R21;
- tpar[2]=(zvac6-zvac5)/2.;
- gMC->Gsvolu("YS22", "TUBE", idtmed[kSteel], tpar, 3);
- dz+=tpar[2];
- gMC->Gspos("YS22", 1, "YGO2", 0., 0., dz, 0, "ONLY");
- dz+=tpar[2];
-// (3)
- cpar[0]=2.;
- cpar[1]=R21-dRSteel2;
- cpar[2]=zvac6 * TMath::Tan(accMin);
- cpar[3]=cpar[1];
- cpar[4]=cpar[2]+4.*TMath::Tan(accMin);
- gMC->Gsvolu("YS23", "CONE", idtmed[kSteel], cpar, 5);
- dz+=cpar[0];
- gMC->Gspos("YS23", 1, "YGO2", 0., 0., dz, 0, "ONLY");
- dz+=cpar[0];
-// (4)
- cpar[0]=(zPb-zvac6-4.)/2;
- cpar[2]=cpar[4];
- cpar[4]=cpar[2]+2.*cpar[0]*TMath::Tan(accMin);
- cpar[1]=cpar[2]-dRSteel2;
- cpar[3]=cpar[4]-dRSteel2;
-
- gMC->Gsvolu("YS24", "CONE", idtmed[kSteel], cpar, 5);
- dz+=cpar[0];
- gMC->Gspos("YS24", 1, "YGO2", 0., 0., dz, 0, "ONLY");
- dz+=cpar[0];
-
-// (5)
- cpar[0]=(zConeE-zPb)/2;
- cpar[2]=cpar[4];
- cpar[4]=cpar[2]+2.*cpar[0]*TMath::Tan(accMin);
- cpar[1]=cpar[2]-dRSteel2;
- cpar[3]=cpar[4]-dRSteel2;
-
- gMC->Gsvolu("YS25", "CONE", idtmed[kSteel], cpar, 5);
- dz=-dlPb+cpar[0];
- gMC->Gspos("YS25", 1, "YXO2", 0., 0., dz, 0, "ONLY");
- dz+=cpar[0];
-// (6)
- tpar[0]=26.;
- tpar[1]=30.;
- tpar[2]=(zvac7-zConeE)/2.;
-
- gMC->Gsvolu("YS26", "TUBE", idtmed[kSteel], tpar, 3);
- dz+=tpar[2];
- gMC->Gspos("YS26", 1, "YXO2", 0., 0., dz, 0, "ONLY");
- dz = -tpar[2];
-
-// Recess in steel for station 3
-//
- tpar[0]=29.;
- tpar[1]=30.;
- tpar[2]=(zch32-zch31)/2.;
- gMC->Gsvolu("YS27", "TUBE", idtmed[kAir], tpar, 3);
- dz+=(tpar[2]+zch31-zConeE);
-
- gMC->Gspos("YS27", 1, "YS26", 0., 0., dz, 0, "ONLY");
-
-//