- coneshape->Z(10) = coneshape->GetZ(9);
- coneshape->Rmin(10) = kConeRinCylinder;
-
- coneshape->Rmin(11) = kConeRinCylinder;
- coneshape->Rmax(11) = coneshape->GetRmin(11);
-
- rmin = coneshape->GetRmin(8);
- RadiusOfCurvature(kConeRCurv,90.0-kConeTheta,
- coneshape->GetZ(8),coneshape->GetRmax(8),90.0,z,rmax);
- rmax = kConeRinMax;
- coneshape->Z(11) = z + (coneshape->GetZ(8)-z)*
- (coneshape->GetRmax(11)-rmax)/(coneshape->GetRmax(8)-rmax);
-
- coneshape->Rmax(9) = RmaxFrom2Points(coneshape,11,8,coneshape->GetZ(9));
-
- coneshape->Rmax(10) = coneshape->GetRmax(9);
-
- coneshape->Z(6) = z - kConeDZin;
- coneshape->Z(7) = coneshape->GetZ(6);
-
- coneshape->Rmax(6) = RmaxFromZpCone(coneshape,4,kConeTheta,
- coneshape->GetZ(6));
-
- coneshape->Rmax(7) = coneshape->GetRmax(6);
-
- RadiusOfCurvature(kConeRCurv,90.,
- coneshape->GetZ(6),0.0,90.0-kConeTheta,z,rmin);
- coneshape->Z(5) = z;
- coneshape->Rmin(5) = RminFromZpCone(coneshape,3,kConeTheta,z);
- coneshape->Rmax(5) = RmaxFromZpCone(coneshape,4,kConeTheta,z);
-
- RadiusOfCurvature(kConeRCurv,90.-kConeTheta,
- 0.0,coneshape->Rmin(5),90.0,z,rmin);
- coneshape->Rmin(6) = rmin;