/*
$Log$
+Revision 1.25 2001/06/12 13:45:05 coppedis
+TDI in correct position and minor correction
+
Revision 1.24 2001/05/16 14:57:28 alibrary
New files for folders and Stack
gMC->Gsvolu("QTD2", "BOX ", idtmed[6], boxpar, 3);
gMC->Gspos("QTD2", 1, "ZDC ", 8.6+boxpar[0], 0., tubpar[2] + zd1 + 56.3, 0, "ONLY");
- tubspar[0] = 6.2; // R = 6.2 cm----------------------------------------
- tubspar[1] = 6.4;
- tubspar[2] = 400./2.;
- tubspar[3] = 180.-62.5;
- tubspar[4] = 180.+62.5;
-// tubspar[0] = 10.5; // R = 10.5 cm------------------------------------------
-// tubspar[1] = 10.7;
+// tubspar[0] = 6.2; // R = 6.2 cm----------------------------------------
+// tubspar[1] = 6.4;
// tubspar[2] = 400./2.;
-// tubspar[3] = 180.-75.5;
-// tubspar[4] = 180.+75.5;
+// tubspar[3] = 180.-62.5;
+// tubspar[4] = 180.+62.5;
+ tubspar[0] = 10.5; // R = 10.5 cm------------------------------------------
+ tubspar[1] = 10.7;
+ tubspar[2] = 400./2.;
+ tubspar[3] = 180.-75.5;
+ tubspar[4] = 180.+75.5;
gMC->Gsvolu("QTD3", "TUBS", idtmed[6], tubspar, 5);
gMC->Gspos("QTD3", 1, "ZDC ", 0., 0., tubpar[2] + zd1 + 56.3, 0, "ONLY");
/*
$Log$
+Revision 1.2 2001/06/12 13:45:11 coppedis
+TDI in correct position and minor correction
+
Revision 1.1 2001/05/14 09:57:39 coppedis
A different geometry for the ZDCs
gMC->Gsvolu("QTD2", "BOX ", idtmed[6], boxpar, 3);
gMC->Gspos("QTD2", 1, "ZDC ", 5.6+boxpar[0], 0., tubpar[2] + zd1 + 56.3, 0, "ONLY");
- tubspar[0] = 6.2;
- tubspar[1] = 6.4;
+// tubspar[0] = 6.2; // R = 6.2 cm----------------------------------------
+// tubspar[1] = 6.4;
+// tubspar[2] = 400./2.;
+// tubspar[3] = 180.-62.5;
+// tubspar[4] = 180.+62.5;
+ tubspar[0] = 10.5; // R = 10.5 cm------------------------------------------
+ tubspar[1] = 10.7;
tubspar[2] = 400./2.;
- tubspar[3] = 180.-62.5;
- tubspar[4] = 180.+62.5;
+ tubspar[3] = 180.-75.5;
+ tubspar[4] = 180.+75.5;
gMC->Gsvolu("QTD3", "TUBS", idtmed[6], tubspar, 5);
gMC->Gspos("QTD3", 1, "ZDC ", -3., 0., tubpar[2] + zd1 + 56.3, 0, "ONLY");