-//Frame - inner
- Float_t fr_c[5]; //semi-circular frame
- fr_c[0] = 20.6;
- fr_c[1] = 23.1;
- fr_c[2] = 0.95/2.;
- fr_c[3] = -3.5;
- fr_c[4] = 93.5;
-
- Float_t xpos_frc = 0.0;
- Float_t ypos_frc = 0.0;
- Float_t zpos_frc = fr_c[2];
-
- Float_t rib_c[5];
- rib_c[0] = 21.5;
- rib_c[1] = 22.5;
- rib_c[2] = 1.84/2.;
- rib_c[3] = fr_c[3]-2.0;
- rib_c[4] = fr_c[4]+2.0;
-
- Float_t xpos_rc = 0.0;
- Float_t ypos_rc = 0.0;
- Float_t zpos_rc = fr_c[2] + rib_c[2];
-
- gMC->Gsvolu("FRCL", "TUBS", idPGF30, fr_c, 5); //Frame - semi circular
- gMC->Gsvolu("RBCL", "TUBS", idPGF30, rib_c, 5); //Rib
-
-//Screws
- gMC->Gsvolu("SCYL","TUBE",idScru, spar,3); //screw-vertical part for extended part in -Y
- gMC->Gsvolu("SCIL","TUBE",idScru, spar,3); //screw-vertical part
- gMC->Gsvolu("SCXL","TUBE",idScru, spar,3); //screw-vertical part for extended part in -X
- gMC->Gspos("HDFL",3,"SCIL",xpos_h,ypos_h,zpos_h,0,"ONLY");//positioning Screw-head
-
- // on circular part
- Float_t zpos_is2 = 0.0;
- Float_t theta[7];
- Float_t radius = fr_c[0] + 0.4 ; //inner radius + 0.4
- Float_t arc = 3.667; // for 10-degree angle
- for(Int_t i = 0; i<8; i++)
- {
- theta[i] = arc/radius;
- Float_t xpos_is2 = radius * cos(theta[i]);
- Float_t ypos_is2 = radius * sin(theta[i]);
- gMC->Gspos("SCIL",i+1,"FRCL",xpos_is2, ypos_is2, zpos_is2,0,"ONLY");
- arc +=3.667;
- }
-
-
-
- gMC->Gspos("RBCL",1, "FRCL", xpos_rc, ypos_rc, zpos_rc,0, "only"); //Rib
-
- gMC->Gspos("FRHL",1, "SQM3", xpos_fr1, ypos_fr1, zpos_fr1,0, "only");// frame -1
- gMC->Gspos("FRHL",1, "SQM4", xpos_fr1, ypos_fr1, zpos_fr1,0, "only");// frame -1
-
- gMC->Gspos("FRVL",1, "SQM3", xpos_fr7, ypos_fr7, zpos_fr7,0, "only");// frame vertical
- gMC->Gspos("FRVL",1, "SQM4", xpos_fr7, ypos_fr7, zpos_fr7,0, "only");// frame vertical
-
- gMC->Gspos("FRCL",1, "SQM3", xpos_frc, ypos_frc, zpos_frc,0, "only");// frame semi circular
- gMC->Gspos("FRCL",1, "SQM4", xpos_frc, ypos_frc, zpos_frc,0, "only");// frame semi circular
-
-//=============================================================================================
-
-// Plane - 2
-
-//=============================================================================================
-
- //Cathode PCB + Copper sheet over PCB + Roha cell over copper sheet
-
-//Segment - 0
- bpar_h[0] = 95.5/2.;
- bpar_h[1] = 1.6/2.;
- bpar_h[2] = zcbb/2.;
- gMC->Gsvolu("CB0R", "BOX", idPCB, bpar_h, 3);
-
- bpar_h[2] = zcu/2.; //Thickness of Copper sheet
- gMC->Gsvolu("CU0R", "BOX", idCU, bpar_h, 3);
-
- bpar_h[2] = zRoha/2.; //Thickness of Roha cell
- gMC->Gsvolu("RH0R", "BOX", idRoha, bpar_h, 3);
-
- bpar_h[0] = (100.6/2)-(0.9/2);
- bpar_h[1] = 2.8/2.;
- bpar_h[2] = zmeb/2.;
- gMC->Gsvolu("MB0R", "BOX", idPCB, bpar_h, 3);
-
- bpar_h[2] = zcu2/2;
- gMC->Gsvolu("EB0R", "BOX", idCU, bpar_h, 3);
-
-//Segment-1
- pgpar[1] = 13.;
- pgpar[5] = 22.5;
- pgpar[6] = 120.2;
- pgpar[7] = pgpar[4] - zcbb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("CB1R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu; // Thickness of copper-sheet
- gMC->Gsvolu("CU1R", "PGON", idCU, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zRoha; // Thickness of Roha cell
- gMC->Gsvolu("RH1R", "PGON", idRoha, pgpar, 10);
-
- pgpar[5] = 21.5; // radius of inner rib
- pgpar[6] = 121.2;
- pgpar[7] = pgpar[4] - zmeb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("MB1R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu2;
- gMC->Gsvolu("EB1R", "PGON", idCU, pgpar, 10);
-
-//Segment-2
-
- pgpar[1] = 21.;
- pgpar[5] = 22.5;
- pgpar[6] = 121.5;
- pgpar[7] = pgpar[4] - zcbb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("CB2R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu; // Thickness of copper-sheet
- gMC->Gsvolu("CU2R", "PGON", idCU, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zRoha; // Thickness of Roha cell
- gMC->Gsvolu("RH2R", "PGON", idRoha, pgpar, 10);
-
- pgpar[5] = 21.5; // radius of inner rib
- pgpar[6] = 122.5;
- pgpar[7] = pgpar[4] - zmeb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("MB2R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu2;
- gMC->Gsvolu("EB2R", "PGON", idCU, pgpar, 10);
-
-//Segment-3
-
- pgpar[1] = 22.;
- pgpar[5] = 22.5;
- pgpar[6] = 119.9;
- pgpar[7] = pgpar[4] - zcbb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("CB3R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu; // Thickness of copper-sheet
- gMC->Gsvolu("CU3R", "PGON", idCU, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zRoha; // Thickness of Roha cell
- gMC->Gsvolu("RH3R", "PGON", idRoha, pgpar, 10);
-
- pgpar[5] = 21.5; // radius of inner rib
- pgpar[6] = 120.9;
- pgpar[7] = pgpar[4] - zmeb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("MB3R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu2;
- gMC->Gsvolu("EB3R", "PGON", idCU, pgpar, 10);
-
-//Segment-4
-
- pgpar[1] = 20.;
- pgpar[5] = 22.5;
- pgpar[6] = 119.9;
- pgpar[7] = pgpar[4] - zcbb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("CB4R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu; // Thickness of copper-sheet
- gMC->Gsvolu("CU4R", "PGON", idCU, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zRoha; // Thickness of Roha cell
- gMC->Gsvolu("RH4R", "PGON", idRoha, pgpar, 10);
-
- pgpar[5] = 21.5; // radius of inner rib
- pgpar[6] = 120.9;
- pgpar[7] = pgpar[4] - zmeb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("MB4R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu2;
- gMC->Gsvolu("EB4R", "PGON", idCU, pgpar, 10);
-
-//Segment-5
-
- pgpar[1] = 14.;
- pgpar[5] = 22.5;
- pgpar[6] = 117.5;
- pgpar[7] = pgpar[4] - zcbb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("CB5R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu; // Thickness of copper-sheet
- gMC->Gsvolu("CU5R", "PGON", idCU, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zRoha; // Thickness of Roha cell
- gMC->Gsvolu("RH5R", "PGON", idRoha, pgpar, 10);
-
- pgpar[5] = 21.5;// radius of inner rib
- pgpar[6] = 118.5;
- pgpar[7] = pgpar[4] - zmeb;
- pgpar[8] = pgpar[5];
- pgpar[9] = pgpar[6];
- gMC->Gsvolu("MB5R", "PGON", idPCB, pgpar, 10);
-
- pgpar[7] = pgpar[4] - zcu2;
- gMC->Gsvolu("EB5R", "PGON", idCU, pgpar, 10);
-
-//Segment-6 - vertical box
-
- bpar_v[0] = 1.6/2.;
- bpar_v[1] = 95.5/2.;
- bpar_v[2] = zcbb/2.;
- gMC->Gsvolu("CB6R", "BOX", idPCB, bpar_v, 3);
- bpar_v[2] = zcu/2.;
- gMC->Gsvolu("CU6R", "BOX", idCU, bpar_v, 3);
-
- bpar_v[2] = zRoha/2.;
- gMC->Gsvolu("RH6R", "BOX", idRoha, bpar_v, 3);
-
- bpar_v[0] = 2.8/2.;
- bpar_v[1] = (97.9/2)-(0.9/2.);
- bpar_v[2] = zmeb/2;
- gMC->Gsvolu("MB6R", "BOX", idPCB, bpar_v, 3);
-
- bpar_v[2] = zcu2/2;
- gMC->Gsvolu("EB6R", "BOX", idCU, bpar_v, 3);
-
-
-//...........................................................................................
-//Positioning of Electronic exit board
- gMC->Gspos("EB0R",1, "MB0R", 0.,0.,-zpos_eeb_bar,0, "only");
- gMC->Gspos("EB1R",1, "MB1R", 0.,0.,-zpos_cu2,0, "only");
- gMC->Gspos("EB2R",1, "MB2R", 0.,0.,-zpos_cu2,0, "only");
- gMC->Gspos("EB3R",1, "MB3R", 0.,0.,-zpos_cu2,0, "only");
- gMC->Gspos("EB4R",1, "MB4R", 0.,0.,-zpos_cu2,0, "only");
- gMC->Gspos("EB5R",1, "MB5R", 0.,0.,-zpos_cu2,0, "only");
- gMC->Gspos("EB6R",1, "MB6R", 0.,0.,-zpos_eeb_bar,0, "only");
-
-//Positioning of Mech. exit board
- xpos_meb_hor = 1.1;
- ypos_meb_hor = -0.6;
- xpos_meb_ver = -0.6;
- ypos_meb_ver = -0.35;
-
- gMC->Gspos("MB0R",1, "RH0R", xpos_meb_hor,ypos_meb_hor,-zpos_meb_bar,0, "only");
- gMC->Gspos("MB1R",1, "RH1R", 0.,0.,-zpos_meb,0, "only");
- gMC->Gspos("MB2R",1, "RH2R", 0.,0.,-zpos_meb,0, "only");
- gMC->Gspos("MB3R",1, "RH3R", 0.,0.,-zpos_meb,0, "only");
- gMC->Gspos("MB4R",1, "RH4R", 0.,0.,-zpos_meb,0, "only");
- gMC->Gspos("MB5R",1, "RH5R", 0.,0.,-zpos_meb,0, "only");
- gMC->Gspos("MB6R",1, "RH6R", xpos_meb_ver,ypos_meb_ver,-zpos_meb_bar,0, "only");
-
-//Positioning Roha cell over copper sheet
- gMC->Gspos("RH0R",1, "CU0R", 0.,0.,-zpos_Roha_bar,0, "only");// box horizontal
- gMC->Gspos("RH1R",1, "CU1R", 0.,0.,-zpos_Roha,0, "only");
- gMC->Gspos("RH2R",1, "CU2R", 0.,0.,-zpos_Roha,0, "only");
- gMC->Gspos("RH3R",1, "CU3R", 0.,0.,-zpos_Roha,0, "only");
- gMC->Gspos("RH4R",1, "CU4R", 0.,0.,-zpos_Roha,0, "only");
- gMC->Gspos("RH5R",1, "CU5R", 0.,0.,-zpos_Roha,0, "only");
- gMC->Gspos("RH6R",1, "CU6R", 0.,0.,-zpos_Roha_bar,0, "only");
-
-//Positioning Copper sheet over PCB
- gMC->Gspos("CU0R",1, "CB0R", 0.,0.,-zpos_cubar,0, "only");// box horizontal
- gMC->Gspos("CU1R",1, "CB1R", 0.,0.,-zpos_cu,0, "only");
- gMC->Gspos("CU2R",1, "CB2R", 0.,0.,-zpos_cu,0, "only");
- gMC->Gspos("CU3R",1, "CB3R", 0.,0.,-zpos_cu,0, "only");
- gMC->Gspos("CU4R",1, "CB4R", 0.,0.,-zpos_cu,0, "only");
- gMC->Gspos("CU5R",1, "CB5R", 0.,0.,-zpos_cu,0, "only");
- gMC->Gspos("CU6R",1, "CB6R", 0.,0.,-zpos_cubar,0, "only");
-
-
-//Positioning the PCB
- x_hor_pos = 95.5/2.+ 22.6; // 22.6 is inner radius of PCB
- y_hor_pos = -(1.6/2); //
-
- x_ver_pos = -(1.6/2); //
- y_ver_pos = 95.5/2.+ 22.6;
-
- gMC->Gspos("CB0R",1, "SQM3", x_hor_pos,-bpar_h[1],-zpos_cbb_bar,0, "only");// box horizontal
- gMC->Gspos("CB1R",1, "SQM3", 0.,0.,-zpos_cbb,0, "only");
- gMC->Gspos("CB2R",1, "SQM3", 0.,0.,-zpos_cbb,irot1,"only");
- gMC->Gspos("CB3R",1, "SQM3", 0.,0.,-zpos_cbb,irot2, "only");
- gMC->Gspos("CB4R",1, "SQM3", 0.,0.,-zpos_cbb,irot3, "only");
- gMC->Gspos("CB5R",1, "SQM3", 0.,0.,-zpos_cbb,irot4, "only");
- gMC->Gspos("CB6R",1, "SQM3", x_ver_pos,y_ver_pos,-zpos_cbb_bar,0, "only");// box vertical
-
- gMC->Gspos("CB0R",1, "SQM4", x_hor_pos,-bpar_h[1],-zpos_cbb_bar,0, "only");// box horizontal
- gMC->Gspos("CB1R",1, "SQM4", 0.,0.,-zpos_cbb,0, "only");
- gMC->Gspos("CB2R",1, "SQM4", 0.,0.,-zpos_cbb,irot1,"only");
- gMC->Gspos("CB3R",1, "SQM4", 0.,0.,-zpos_cbb,irot2, "only");
- gMC->Gspos("CB4R",1, "SQM4", 0.,0.,-zpos_cbb,irot3, "only");
- gMC->Gspos("CB5R",1, "SQM4", 0.,0.,-zpos_cbb,irot4, "only");
- gMC->Gspos("CB6R",1, "SQM4", x_ver_pos,y_ver_pos,-zpos_cbb_bar,0, "only");// box vertical
-
-//----------------------------------------------------------------------
-// Frames P2
-//----------------------------------------------------------------------
-//Frame-1 P2
-
- ypos_s = -frame1[1] + 0.4;
- zpos_fr1 = -frame1[2];
-
- zpos_rb1 = -(frame1[2] + rib1[2]);