- // Define parameters for right disk #2
-
- rin = 7.7;
- rout = 13.7;
- z = 64.4;
-
- // Ring #1
-
- par[0] = rin;
- par[1] = rout;
- par[2] = 1.5;
- gMC->Gsvolu("R1R2", "TUBE", idtmed[1], par, 3);
- gMC->Gspos("R1R2", 1, "ALIC", 0., 0., z + 1.5, 0, "ONLY");
-
- // Ring #2
-
- par[0] = rout;
- par[1] = rout + .65;
- par[2] = 1.5;
- gMC->Gsvolu("R2R2", "TUBE", idtmed[2], par, 3);
- gMC->Gspos("R2R2", 1, "ALIC", 0., 0., z + 1.5, 0, "ONLY");
-
- // Ring #3
-
- par[0] = rout + .65;
- par[1] = rout + 5.65;
- par[2] = .025;
- gMC->Gsvolu("R3R2", "TUBE", idtmed[3], par, 3);
- gMC->Gspos("R3R2", 1, "ALIC", 0., 0., z + 1.525, 0, "ONLY");
-
- // Bracket #1
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[21], 90., 30., 139.3, 120., 49.3, 120.);
- gMC->Gsposp("BR2_",1,"ALIC", -13.4, 23.3, 78.7, irotm[21],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",1,"ALIC", -13.56, 23.6, 78.4, irotm[21],"ONLY",par,3);
-
- // Bracket #2
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[22], 90., 210., 139.3, 300., 49.3, 300.);
- gMC->Gsposp("BR2_",2,"ALIC", 13.4,-23.3, 78.7, irotm[22],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",2,"ALIC", 13.5,-23.6, 78.4,irotm[22],"ONLY",par,3);
-
-
- // Bracket #3
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[23], 90., 300., 139.3, 30., 49.3, 30.);
- gMC->Gsposp("BR2_",3,"ALIC", 23.3, 13.4, 78.7, irotm[23],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",3,"ALIC", 23.6, 13.56, 78.4,irotm[23],"ONLY",par,3);
-
- // Bracket #4
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[24], 90., 120., 139.3, 210., 49.3, 210.);
- gMC->Gsposp("BR2_",4,"ALIC", -23.3, -13.4, 78.7,irotm[24],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",4,"ALIC", -23.6, -13.56, 78.4,irotm[24],"ONLY",par,3);
-
- // Define parameters for left disk
-
- rin = 7.7;
- rout = 13.7;
- z = -64.4;
-
- // Ring #1
-
- par[0] = rin;
- par[1] = rout;
- par[2] = 1.5;
- gMC->Gsvolu("R1L2", "TUBE", idtmed[1], par, 3);
- gMC->Gspos("R1L2", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #2
-
- par[0] = rout;
- par[1] = rout + .65;
- par[2] = 1.5;
- gMC->Gsvolu("R2L2", "TUBE", idtmed[2], par, 3);
- gMC->Gspos("R2L2", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #3
-
- par[0] = rout + .65;
- par[1] = rout + 5.65;
- par[2] = .025;
- gMC->Gsvolu("R3L2", "TUBE", idtmed[3], par, 3);
- gMC->Gspos("R3L2", 1, "ALIC", 0., 0., z - 1.525, 0, "ONLY");
-
- // Bracket #1
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[51], 90., 30., 180.-139.3, 120., 180.-49.3, 120.);
- gMC->Gsposp("BR2_",5,"ALIC", -13.4, 23.3, -78.7, irotm[51],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",5,"ALIC", -13.56, 23.6, -78.4,irotm[51],"ONLY",par,3);
-
- gMC->Matrix(irotm[81], 90., 30., 90.-10.6, 120., 180.-10.6, 120.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",5,"ALIC", -27.5, 47.6, -170.0,irotm[81],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",5,"ALIC", -27.85, 48., -169.5,irotm[81],"ONLY",par,3);
-
- // Bracket #2
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[52], 90., 210., 180.-139.3, 300., 180.-49.3, 300.);
- gMC->Gsposp("BR2_",6,"ALIC", 13.4, -23.3, -78.7,irotm[52],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",6,"ALIC", 13.56, -23.6, -78.4,irotm[52],"ONLY",par,3);
-
- gMC->Matrix(irotm[82], 90., 210., 90.-10.6, 300., 180.-10.6, 300.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",6,"ALIC", 27.5, -47.6, -170.0,irotm[82],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",6,"ALIC", 27.85, -48., -169.5,irotm[82],"ONLY",par,3);
-
- // Bracket #3
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[53], 90., 300., 180.-139.3, 30., 180.-49.3, 30.);
- gMC->Gsposp("BR2_",7,"ALIC", 23.3, 13.4, -78.7, irotm[53],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",7,"ALIC", 23.6, 13.56, -78.4,irotm[53],"ONLY",par,3);
-
- gMC->Matrix(irotm[83], 90., 300., 90.-10.6, 30., 180.-10.6, 30.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",7,"ALIC", 47.6, 27.5, -170.,irotm[83],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",7,"ALIC", 48., 27.85, -169.5,irotm[83],"ONLY",par,3);
-
- // Bracket #4
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.35;
- gMC->Matrix(irotm[54], 90., 120., 180.-139.3, 210., 180.-49.3, 210.);
- gMC->Gsposp("BR2_",8,"ALIC", -23.3, -13.4, -78.7, irotm[54],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB2_",8,"ALIC", -23.6, -13.56, -78.4,irotm[54],"ONLY",par,3);
-
- gMC->Matrix(irotm[84], 90., 120., 90.-10.6, 210., 180.-10.6, 210.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",8,"ALIC", -47.6, -27.5, -170.,irotm[84],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",8,"ALIC", -48., -27.85, -169.5,irotm[84],"ONLY",par,3);
-
- // ********************************************************
- // DEFINE DISK#1 OF FMD
- // ********************************************************
-
- gMC->Gsvolu("BR1_", "BOX ", idtmed[4], par, 0);
- gMC->Gsvolu("CB1_", "BOX ", idtmed[5], par, 0);
-
- // Define parameters for right disk #1
-
- rin = 12.4;
- rout = 18.4;
- z = 59.4;
-
- // Ring #1
-
- par[0] = rin;
- par[1] = rout;
- par[2] = 1.5;
- gMC->Gsvolu("R1R1", "TUBE", idtmed[1], par, 3);
- gMC->Gspos("R1R1", 1, "ALIC", 0., 0., z + 1.5, 0, "ONLY");
-
- // Ring #2
-
- par[0] = rout;
- par[1] = rout + .65;
- par[2] = 1.5;
- gMC->Gsvolu("R2R1", "TUBE", idtmed[2], par, 3);
- gMC->Gspos("R2R1", 1, "ALIC", 0., 0., z + 1.5, 0, "ONLY");
-
- // Ring #3
-
- par[0] = rout + .65;
- par[1] = rout + 5.65;
- par[2] = .025;
- gMC->Gsvolu("R3R1", "TUBE", idtmed[3], par, 3);
- gMC->Gspos("R3R1", 1, "ALIC", 0., 0., z + 1.525, 0, "ONLY");
-
- // Bracket #1
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[31], 90., 60., 128., 150., 38., 150.);
- gMC->Gsposp("BR1_",1,"ALIC", -25.3, 14.6, 76.2, irotm[31],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",1,"ALIC", -25.35, 14.8, 75.9, irotm[31],"ONLY",par,3);
-
- // Bracket #2
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[32], 90., 240., 128., 330., 38., 330.);
- gMC->Gsposp("BR1_",2,"ALIC", 25.3, -14.6, 76.2, irotm[32],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",2,"ALIC", 25.35, -14.8, 75.9,irotm[32],"ONLY",par,3);
-
- // Bracket #3
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[33], 90., 330., 128., 60., 38., 60.);
- gMC->Gsposp("BR1_",3,"ALIC", 14.6, 25.3, 76.2, irotm[33],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",3,"ALIC", 14.8, 25.35, 75.9,irotm[33],"ONLY",par,3);
-
- // Bracket #4
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[34], 90., 150., 128., 240., 38., 240.);
- gMC->Gsposp("BR1_",4,"ALIC", -14.6, -25.3, 76.2,irotm[34],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",4,"ALIC", -14.8, -25.35, 75.9,irotm[34],"ONLY",par,3);
-
- // Define parameters for left disk #1
-
- rin = 12.4;
- rout = 18.4;
- z = -59.4;
-
- // Ring #1
-
- par[0] = rin;
- par[1] = rout;
- par[2] = 1.5;
- gMC->Gsvolu("R1L1", "TUBE", idtmed[1], par, 3);
- gMC->Gspos("R1L1", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #2
-
- par[0] = rout;
- par[1] = rout + .65;
- par[2] = 1.5;
- gMC->Gsvolu("R2L1", "TUBE", idtmed[2], par, 3);
- gMC->Gspos("R2L1", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #3
-
- par[0] = rout + .65;
- par[1] = rout + 5.65;
- par[2] = .025;
- gMC->Gsvolu("R3L1", "TUBE", idtmed[3], par, 3);
- gMC->Gspos("R3L1", 1, "ALIC", 0., 0., z - 1.525, 0, "ONLY");
-
- // Bracket #1
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[41], 90., 60., 180.-128., 150., 180.-38.0, 150.);
- gMC->Gsposp("BR1_",5,"ALIC", -25.3, 14.6, -76.2, irotm[41],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",5,"ALIC", -25.35, 14.8, -75.9,irotm[41],"ONLY",par,3);
-
- gMC->Matrix(irotm[1], 90., 60., 90.-10.6, 150., 180.-10.6, 150.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",9,"ALIC", -47.6, 27.5, -170.,irotm[1],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",9,"ALIC", -48., 27.85, -169.5,irotm[1],"ONLY",par,3);
-
- // Bracket #2
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[42], 90., 240., 180.-128., 330., 180.-38., 330.);
- gMC->Gsposp("BR1_",6,"ALIC", 25.3,-14.6, -76.2,irotm[42],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",6,"ALIC", 25.35,-14.8, -75.9,irotm[42],"ONLY",par,3);
-
- gMC->Matrix(irotm[2], 90., 240., 90.-10.6, 330., 180.-10.6, 330.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",10,"ALIC", 47.6, -27.5, -170.0,irotm[2],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",10,"ALIC", 48., -27.85, -169.5,irotm[2],"ONLY",par,3);
-
- // Bracket #3
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[43], 90., 330., 180.-128., 60., 180.-38., 60.);
- gMC->Gsposp("BR1_",7,"ALIC", 14.6, 25.3, -76.2, irotm[43],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",7,"ALIC", 14.8, 25.35, -75.9,irotm[43],"ONLY",par,3);
-
- gMC->Matrix(irotm[3], 90., 330., 90.-10.6, 60., 180.-10.6, 60.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",11,"ALIC", 27.5, 47.6, -170.,irotm[3],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",11,"ALIC", 27.85, 48., -169.5,irotm[3],"ONLY",par,3);
-
- // Bracket #4
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 17.5;
- gMC->Matrix(irotm[44], 90., 150., 180.-128., 240., 180.-38., 240.);
- gMC->Gsposp("BR1_",8,"ALIC", -14.6, -25.3, -76.2, irotm[44],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB1_",8,"ALIC", -14.8, -25.35, -75.9,irotm[44],"ONLY",par,3);
-
- gMC->Matrix(irotm[4], 90., 150., 90.-10.6, 240., 180.-10.6, 240.);
- par[1] = 0.1;
- par[2] = 81.4;
- gMC->Gsposp("BR5_",12,"ALIC", -27.5, -47.6, -170.,irotm[4],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB5_",12,"ALIC", -27.85, -48., -169.5,irotm[4],"ONLY",par,3);
-
- // ***********************************************************
- // DEFINE LEFT DISK#4 OF FMD
- // ***********************************************************
-
- gMC->Gsvolu("BR4_", "BOX ", idtmed[4], par, 0);
- gMC->Gsvolu("CB4_", "BOX ", idtmed[5], par, 0);
-
- // Define parameters
-
- rin = 4.5;
- rout = 10.5;
- z = -229.5;
-
- // Ring #1
-
- par[0] = rin;
- par[1] = rout;
- par[2] = 1.5;
- gMC->Gsvolu("R1L4", "TUBE", idtmed[1], par, 3);
- gMC->Gspos("R1L4", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #2
-
- par[0] = rout;
- par[1] = rout + .65;
- par[2] = 1.5;
- gMC->Gsvolu("R2L4", "TUBE", idtmed[2], par, 3);
- gMC->Gspos("R2L4", 1, "ALIC", 0., 0., z - 1.5, 0, "ONLY");
-
- // Ring #3
-
- par[0] = rout + .65;
- par[1] = rout + 5.65;
- par[2] = .025;
- gMC->Gsvolu("R3L4", "TUBE", idtmed[3], par, 3);
- gMC->Gspos("R3L4", 1, "ALIC", 0., 0., z - 1.525, 0, "ONLY");
-
- // Bracket #1
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 31.25;
- gMC->Matrix(irotm[71], 90., 0., 90.-71., 90., 180.-71., 90.);
- gMC->Gsposp("BR4_",1,"ALIC", 0., 40.25, -240., irotm[71],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB4_",1,"ALIC", 0., 40.75, -239.5, irotm[71],"ONLY",par,3);
-
- // Bracket #2
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 31.25;
- gMC->Matrix(irotm[72], 90., 180., 90.-71., 270., 180.-71., 270.);
- gMC->Gsposp("BR4_",2,"ALIC", 0., -40.25, -240., irotm[72],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB4_",2,"ALIC", 0., -40.75, -239.5,irotm[72],"ONLY",par,3);
-
- // Bracket #3
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 31.25;
- gMC->Matrix(irotm[73], 90., 270., 90.-71., 0., 180.-71., 0.);
- gMC->Gsposp("BR4_",3,"ALIC", 40.25, 0., -240., irotm[73],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB4_",3,"ALIC", 40.75, 0., -239.5,irotm[73],"ONLY",par,3);
-
- // Bracket #4
-
- par[0] = 1.5;
- par[1] = 0.1;
- par[2] = 31.25;
- gMC->Matrix(irotm[74], 90., 90., 90.-71., 180., 180.-71., 180.);
- gMC->Gsposp("BR4_",4,"ALIC", -40.25, 0., -240.,irotm[74],"ONLY",par,3);
- par[1] = 0.5;
- gMC->Gsposp("CB4_",4,"ALIC", -40.75, 0., -239.5,irotm[74],"ONLY",par,3);