+ //----------------- NOW TO PLACE SS-CHANNELS -----------------------//
+
+ Float_t xchanepm11, ychanepm11,ychanepm12;
+ Float_t xchanepm21, ychanepm21,ychanepm22;
+ Float_t xchanepm31, ychanepm31,ychanepm32,ychanepm33,ychanepm34;
+ Float_t xchanepm41, ychanepm41,ychanepm42,ychanepm43,ychanepm44;
+
+ xchanepm11 = xLead1;
+ ychanepm11 = ya1 + yLead1 + dboxSS1[1] + 0.1 + 0.1/2.;
+ ychanepm12 = ya1 + yLead1 - dboxSS1[1] - 0.1 - 0.1/2.;
+
+ xchanepm21 = xLead2;
+ ychanepm21 = -ya1 + yLead2 - dboxSS1[1] - 0.1 - 0.1/2.;
+ ychanepm22 = -ya1 + yLead2 + dboxSS1[1] + 0.1 + 0.1/2.;
+
+ gMC->Gspos("ECHA", 1, "EPM1", xchanepm11, ychanepm11, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHA", 2, "EPM1", xchanepm11, ychanepm12, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHA", 3, "EPM1", xchanepm11, ychanepm11, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHA", 4, "EPM1", xchanepm11, ychanepm12, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHA", 1, "EPM2", xchanepm21, ychanepm21, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHA", 2, "EPM2", xchanepm21, ychanepm22, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHA", 3, "EPM2", xchanepm21, ychanepm21, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHA", 4, "EPM2", xchanepm21, ychanepm22, zchanVeto, 0, "ONLY");
+
+ xchanepm31 = xLead3;
+ ychanepm31 = yb1 + yLead3 + dboxSS2[1] + 0.1 + 0.1/2.;
+ ychanepm32 = yb1 + yLead3 - dboxSS2[1] - 0.1 - 0.1/2.;
+ ychanepm33 = yb3 + yLead3 + dboxSS2[1] + 0.1 + 0.1/2.;
+ ychanepm34 = yb3 + yLead3 - dboxSS2[1] - 0.1 - 0.1/2.;
+
+ xchanepm41 = xLead4;
+ ychanepm41 = -yb1 + yLead4 - dboxSS2[1] - 0.1 - 0.1/2.;
+ ychanepm42 = -yb1 + yLead4 + dboxSS2[1] + 0.1 + 0.1/2.;
+ ychanepm43 = -yb3 + yLead4 - dboxSS2[1] - 0.1 - 0.1/2.;
+ ychanepm44 = -yb3 + yLead4 + dboxSS2[1] + 0.1 + 0.1/2.;
+
+
+ gMC->Gspos("ECHB", 1, "EPM3", xchanepm31, ychanepm31, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 2, "EPM3", xchanepm31, ychanepm32, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 3, "EPM3", xchanepm31, ychanepm33, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 4, "EPM3", xchanepm31, ychanepm34 + 0.200005, zchanPS, 0, "ONLY");
+ // Because of overlaping a factor 0.200005 is added in ychanepm34
+
+ gMC->Gspos("ECHB", 5, "EPM3", xchanepm31, ychanepm31, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 6, "EPM3", xchanepm31, ychanepm32, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 7, "EPM3", xchanepm31, ychanepm33, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 8, "EPM3", xchanepm31, ychanepm34 + 0.200005, zchanVeto, 0, "ONLY");
+ // Because of overlaping a factor 0.200005 is added in ychanepm34
+
+ gMC->Gspos("ECHB", 1, "EPM4", xchanepm41, ychanepm41, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 2, "EPM4", xchanepm41, ychanepm42, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 3, "EPM4", xchanepm41, ychanepm43, zchanPS, 0, "ONLY");
+ gMC->Gspos("ECHB", 4, "EPM4", xchanepm41, ychanepm44 - 0.200002, zchanPS, 0, "ONLY");
+ // Because of overlaping a factor 0.200002 is subtracted in ychanepm44
+
+ gMC->Gspos("ECHB", 5, "EPM4", xchanepm41, ychanepm41, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 6, "EPM4", xchanepm41, ychanepm42, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 7, "EPM4", xchanepm41, ychanepm43, zchanVeto, 0, "ONLY");
+ gMC->Gspos("ECHB", 8, "EPM4", xchanepm41, ychanepm44 -0.200002, zchanVeto, 0, "ONLY");
+ // Because of overlaping a factor 0.200002 is subtracted in ychanepm44
+
+ //================= Channel Placement Completed ======================//
+ //============ Now to Create Al Box and then LVDBs and Cables //
+ // are Placed inside it //
+
+ // Eight Al Boxes are created, four on Preshower side
+ // and four on Veto side
+
+ // FOR PRESHOWER
+
+ // First to Create hollow Al Box
+ // there are two types of modules, therefore, two Al box of
+ // long type and two of short type are created
+
+ // For Long Type
+ // X-dimension = 16.5cm
+ // Y-dimension = same as EFE1
+ // Z-dimension = 7.4cm
+ // Integer assigned to Al medium is 603
+
+ Float_t esvdA1[3];
+ esvdA1[0]= 16.5/2.;
+ esvdA1[1]= dboxFea1[1];
+ esvdA1[2]= 7.4/2.;
+
+ gMC->Gsvolu("ESV1", "BOX", idtmed[603], esvdA1, 3);
+ gMC->Gsvolu("ESV2", "BOX", idtmed[603], esvdA1, 3);
+
+ // Create Air strip for Al Boxes type-A
+ // Al boxes are 3mm thick In X and Z on both sides
+ // X-dimension = 16.5cm - 0.3cm
+ // Y-dimension = same as EFE1
+ // Z-dimension = 7.4cm - 0.3cm
+
+ Float_t eairA1[3];
+ eairA1[0]= esvdA1[0] - 0.3;
+ eairA1[1]= esvdA1[1];
+ eairA1[2]= esvdA1[2] - 0.3;
+
+ gMC->Gsvolu("EIR1", "BOX", idtmed[698], eairA1, 3);
+ gMC->Gsvolu("EIR2", "BOX", idtmed[698], eairA1, 3);
+
+ // Put air strips EIR1 & EIR2 inside ESV1 & ESV2 respectively
+ gMC->Gspos("EIR1", 1, "ESV1", 0., 0., 0., 0, "ONLY");
+ gMC->Gspos("EIR2", 1, "ESV2", 0., 0., 0., 0, "ONLY");
+