57 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
58 mBlocks = geom->
MakeTubs(no_Block,Iron,21,29,1.8,sP,sP+6.25);
63 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
64 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,1.8,sP,sP+2.5);
68 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
69 mBlocks = geom->
MakeTubs(no_Block,Iron,21,31,1.8,sP,sP+1);
73 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
74 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,1.8,sP,sP+1);
78 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
79 mBlocks = geom->
MakeTubs(no_Block,Iron,21,31,1.8,sP,sP+1);
83 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
84 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,1.8,sP,sP+2.5);
90 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
91 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,1.8,sP,103);
98 sprintf(no_Block,
"B1_F%d", ++F);
99 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,2.2,0,103);
104 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
105 mBlocks = geom->
MakeTubs(no_Block,Iron,18.5,21,0.8,92,101);
110 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
111 mBlocks = geom->
MakeTubs(no_Block,Iron,18.5,21,3.2,92,102);
118 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
119 mBlocks = geom->
MakeTubs(no_Block,Iron,18.5,21,2,92,102);
122 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
123 mBlocks = geom->
MakeTubs(no_Block,Iron,18.5,21,3.2,92,102);
127 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
128 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,2,0,103);
132 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
133 mBlocks = geom->
MakeTubs(no_Block,Iron,18,21,2,0,102);
137 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
138 mBlocks = geom->
MakeTubs(no_Block,Iron,18,18.5,14,92,103);
143 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
144 mBlocks = geom->
MakeTubs(no_Block,Iron,21,29,2,0,97);
148 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
149 mBlocks = geom->
MakeTubs(no_Block,Iron,21,32,2,37,97);
153 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
154 mBlocks = geom->
MakeTubs(no_Block,Iron,21,29,1.95,0,37);
157 sprintf(no_Block,
"B1_F%d_%d", F, ++N);
158 mBlocks = geom->
MakeTubs(no_Block,Iron,21,29,0.05,0,37);
164 sprintf(no_Block,
"B1_RT%d", N = 0);
165 mBlocks = geom->
MakeTubs(no_Block,Iron,21,29.5,0.2,0,102);
168 sprintf(no_Block,
"B1_RT%d", ++N);
169 mBlocks = geom->
MakeTubs(no_Block,Iron,18.5,21,0.2,0,101);
173 sprintf(no_Block,
"B1_RT%d", ++N);
174 mBlocks = geom->
MakeTubs(no_Block,Iron,21,30,0.7,102.9,103);
177 sprintf(no_Block,
"B1_RT%d", ++N);
178 mBlocks = geom->
MakeTubs(no_Block,Iron,21.1,29.9,0.7,102,102.9);
182 sprintf(no_Block,
"B1_RT%d", ++N);
183 mBlocks = geom->
MakeTubs(no_Block,Iron,21.1,21.5,0.5,98,102.9);
186 sprintf(no_Block,
"B1_RT%d", ++N);
187 mBlocks = geom->
MakeTubs(no_Block,Iron,21,21.1,0.7,98,103);
191 sprintf(no_Block,
"B1_RT%d", ++N);
192 mBlocks = geom->
MakeTubs(no_Block,Iron,18.6,21,0.7,101.9,102);
195 sprintf(no_Block,
"B1_RT%d", ++N);
196 mBlocks = geom->
MakeTubs(no_Block,Iron,18.6,21,0.7,101,101.9);
200 sprintf(no_Block,
"B1_RT%d", ++N);
201 mBlocks = geom->
MakeTubs(no_Block,Iron,29.5,29.9,0.5,0,102);
204 sprintf(no_Block,
"B1_RT%d", ++N);
205 mBlocks = geom->
MakeTubs(no_Block,Iron,29.9,30,0.5,0,103);
209 sprintf(no_Block,
"B1_RT%d", ++N);
210 mBlocks = geom->
MakeTubs(no_Block,Iron,18.1,18.5,0.5,-1,101.9);
213 sprintf(no_Block,
"B1_RT%d", ++N);
214 mBlocks = geom->
MakeTubs(no_Block,Iron,18,18.1,0.5,-0.5,102);
218 sprintf(no_Block,
"B1_RT%d", ++N);
219 mBlocks = geom->
MakeTubs(no_Block,Iron,18.1,18.4,0.5,101.9,102.9);
222 sprintf(no_Block,
"B1_RT%d", ++N);
223 mBlocks = geom->
MakeTubs(no_Block,Iron,18,18.1,0.5,102,103);
226 sprintf(no_Block,
"B1_RT%d", ++N);
227 mBlocks = geom->
MakeTubs(no_Block,Iron,18.4,18.5,0.5,102,103);
230 sprintf(no_Block,
"B1_RT%d", ++N);
231 mBlocks = geom->
MakeTubs(no_Block,Iron,18,18.5,0.5,102.9,103);
237 sprintf(no_Block,
"B1_WW%d", N = 0);
238 mBlocks = geom->
MakeTubs(no_Block,Iron,20.8,31,19.5,sP,sP+1);
242 sprintf(no_Block,
"B1_WW%d", ++N);
243 mBlocks = geom->
MakeTubs(no_Block,Iron,26.8,31,5,sP,sP+1);
247 sprintf(no_Block,
"B1_WW%d", ++N);
248 mBlocks = geom->
MakeTubs(no_Block,Iron,23,24.3,5,sP,sP+1);
252 sprintf(no_Block,
"B1_WW%d", ++N);
253 mBlocks = geom->
MakeTubs(no_Block,Iron,20.8,21.3,5,sP,sP+1);
260 sprintf(no_Block,
"B1_ZF%d",N=0);
261 mBlocks = geom->
MakeTubs(no_Block,Iron,0,21,9,0,92);
265 sprintf(no_Block,
"B1_ZF%d",++N);
266 mBlocks = geom->
MakeTubs(no_Block,Iron,18,21,7.5,0,92);
270 sprintf(no_Block,
"B1_ZF%d",++N);
271 mBlocks = geom->
MakeTubs(no_Block,Iron,18,21,4.5,0,92);
275 sprintf(no_Block,
"B1_ZF%d",++N);
276 mBlocks = geom->
MakeTubs(no_Block,Iron,0,18,0.2,0,101);
279 sprintf(no_Block,
"B1_ZF%d",++N);
280 mBlocks = geom->
MakeTubs(no_Block,Iron,0,18,1.7,0,100);
283 sprintf(no_Block,
"B1_ZF%d",++N);
284 mBlocks = geom->
MakeTubs(no_Block,Iron,0,18,1.2,101,101.9);
287 sprintf(no_Block,
"B1_ZF%d",++N);
288 mBlocks = geom->
MakeTubs(no_Block,Iron,0,18,1.2,101.9,102);
294 sprintf(no_Block,
"B1_ZF%d", ++N);
295 mBlocks = geom->
MakeBox(no_Block,Iron,6.5,7,2.5);
299 sprintf(no_Block,
"B1_ZF%d", ++N);
300 mBlocks = geom->
MakeBox(no_Block,Iron,6.5,7,3);
304 sprintf(no_Block,
"B1_ZF%d", ++N);
305 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.05,10);
308 sprintf(no_Block,
"B1_ZF%d", ++N);
309 mBlocks = geom->
MakeBox(no_Block,Iron,6.9,0.20,10);
312 sprintf(no_Block,
"B1_ZF%d", ++N);
313 mBlocks = geom->
MakeBox(no_Block,Iron,0.1,0.20,10);
317 sprintf(no_Block,
"B1_ZF%d", ++N);
318 mBlocks = geom->
MakeBox(no_Block,Iron,0.05,7,3.5);
321 sprintf(no_Block,
"B1_ZF%d", ++N);
322 mBlocks = geom->
MakeBox(no_Block,Iron,0.20,6.9,3.5);
326 sprintf(no_Block,
"B1_ZF%d", ++N);
327 mBlocks = geom->
MakeBox(no_Block,Iron,0.25,7,4);
331 sprintf(no_Block,
"B1_ZF%d", ++N);
332 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.05,10);
335 sprintf(no_Block,
"B1_ZF%d", ++N);
336 mBlocks = geom->
MakeBox(no_Block,Iron,6.9,0.20,10);
339 sprintf(no_Block,
"B1_ZF%d", ++N);
340 mBlocks = geom->
MakeBox(no_Block,Iron,0.1,0.20,10);
346 sprintf(no_Block,
"B1_ZF%d", ++N);
347 mBlocks = geom->
MakeBox(no_Block,Iron,5,5,1);
351 sprintf(no_Block,
"B1_ZF%d", ++N);
352 mBlocks = geom->
MakeBox(no_Block,Iron,5,0.25,1.5);
356 sprintf(no_Block,
"B1_ZF%d", ++N);
357 mBlocks = geom->
MakeBox(no_Block,Iron,0.25,5.5,1.5);
361 sprintf(no_Block,
"B1_ZF%d", ++N);
362 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,3.5,5);
368 sprintf(no_Block,
"B1_GRD%d",N=0);
369 mBlocks = geom->
MakeTubs(no_Block,Iron,0,29,1,0,36.75);
373 sprintf(no_Block,
"B1_GRD%d",++N);
374 mBlocks = geom->
MakeTubs(no_Block,Iron,0,30.4,0.4,36.75,77.25);
378 sprintf(no_Block,
"B1_GRD%d",++N);
379 mBlocks = geom->
MakeTubs(no_Block,Iron,0,29.7,0.3,36.75,77.25);
383 sprintf(no_Block,
"B1_GRD%d",++N);
384 mBlocks = geom->
MakeTubs(no_Block,Iron,0,29,0.3,36.75,77.25);
388 sprintf(no_Block,
"B1_GRD%d",++N);
389 mBlocks = geom->
MakeTubs(no_Block,Iron,0,29,1,77.25,97);
395 sprintf(no_Block,
"B1_PF%d", N = 0);
396 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
400 sprintf(no_Block,
"B1_PF%d", ++N);
401 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
405 sprintf(no_Block,
"B1_PF%d", ++N);
406 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
410 sprintf(no_Block,
"B1_PF%d", ++N);
411 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
415 sprintf(no_Block,
"B1_PF%d",++N);
416 mBlocks = geom->
MakeTubs(no_Block,Iron,29,30,2,0,36.75);
420 sprintf(no_Block,
"B1_PF%d", ++N);
421 mBlocks = geom->
MakeBox(no_Block,Iron,3,2,2);
425 sprintf(no_Block,
"B1_PF%d", ++N);
426 mBlocks = geom->
MakeBox(no_Block,Iron,0.25,4.3,1.5);
430 sprintf(no_Block,
"B1_PF%d", ++N);
431 mBlocks = geom->
MakeBox(no_Block,Iron,5.25,4.3,0.4);
435 sprintf(no_Block,
"B1_PF%d", ++N);
436 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,0.25,0.75);
440 sprintf(no_Block,
"B1_PF%d", ++N);
441 mBlocks = geom->
MakeTrd1(no_Block,Iron,1.5,0,0.25,5.5);
459 N = 0; i = 0; nW = 7;
462 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
463 mBlocks = geom->
MakeBox(no_Block,Iron,3.8,0.35,1.8);
466 new TGeoCombiTrans(23.38 + (21.65-6*i)*0.13,-21.2 + (21.65-6*i)*0.99,hP+(8*F),
468 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
469 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,0.3,1.8);
472 new TGeoCombiTrans(23.38 + (21.0-6*i)*0.13,-21.2 + (21-6*i)*0.99,hP+(8*F),
474 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
475 mBlocks = geom->
MakeBox(no_Block,Iron,3.8,0.3,1.8);
478 new TGeoCombiTrans(23.38 + (20.4-6*i)*0.13,-21.2 + (20.4-6*i)*0.99,hP+(8*F),
480 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
481 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,0.3,1.8);
484 new TGeoCombiTrans(23.38 + (19.7-6*i)*0.13,-21.2 + (19.7-6*i)*0.99,hP+(8*F),
486 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
487 mBlocks = geom->
MakeBox(no_Block,Iron,3.8,0.35,1.8);
490 new TGeoCombiTrans(23.38 + (19.05-6*i)*0.13,-21.2 + (19.05-6*i)*0.99,hP+(8*F),
494 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
495 mBlocks = geom->
MakeBox(no_Block,Iron,3,1.4,1.8);
498 new TGeoCombiTrans(23.38 + (17.4-6*i)*0.13,-21.2 + (17.4-6*i)*0.99,hP+(8*F),
502 sprintf(no_Block,
"B12_F%d_B%d",F, ++N);
503 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,1,1.8);
511 sprintf(no_Block,
"B12_F%d_B%d",++F, ++N);
512 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,22,2.2);
517 sprintf(no_Block,
"B12_F%d_%d", F, ++N);
518 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,22,2);
522 sprintf(no_Block,
"B12_F%d_%d", F, ++N);
523 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,22,14);
529 sprintf(no_Block,
"B12_RT%d_%d", F, N=0);
530 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,21.75,0.2);
534 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
535 mBlocks = geom->
MakeBox(no_Block,Iron,0.23,21.95,0.5);
538 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
539 mBlocks = geom->
MakeBox(no_Block,Iron,0.1,22,0.5);
544 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
545 mBlocks = geom->
MakeBox(no_Block,Iron,0.23,3.6,0.5);
549 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
550 mBlocks = geom->
MakeBox(no_Block,Iron,0.02,3.8,0.5);
556 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
557 mBlocks = geom->
MakeBox(no_Block,Iron,5.7,0.23,0.5);
560 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
561 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,0.1,0.5);
567 sprintf(no_Block,
"B12_PF%d", N = 0);
568 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
572 sprintf(no_Block,
"B12_PF%d", ++N);
573 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
577 sprintf(no_Block,
"B12_PF%d", ++N);
578 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,9);
582 sprintf(no_Block,
"B12_PF%d", ++N);
583 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,11);
587 sprintf(no_Block,
"B12_PF%d", ++N);
588 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,11);
594 sprintf(no_Block,
"B12_PF%d", ++N);
595 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,15.75,2);
599 sprintf(no_Block,
"B12_PF%d", ++N);
600 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,2,4);
604 sprintf(no_Block,
"B12_PF%d", ++N);
605 mBlocks = geom->
MakeBox(no_Block,Iron,1.5,15.75,2);
609 sprintf(no_Block,
"B12_RT%d_%d", F, ++N);
610 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,0.5,4);
616 sprintf(no_Block,
"B12_PF%d", ++N);
617 mBlocks = geom->
MakeBox(no_Block,Iron,3,0.5,3.25);
621 sprintf(no_Block,
"B12_PF%d", ++N);
622 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,6.25,1.625);
625 sprintf(no_Block,
"B1_PF%d", ++N);
626 mBlocks = geom->
MakeTrd1(no_Block,Iron,3.25,0,0.5,6.25);
631 sprintf(no_Block,
"B12_PF%d", ++N);
632 mBlocks = geom->
MakeBox(no_Block,Iron,3,3,0.5);
635 sprintf(no_Block,
"B12_PF%d", ++N);
636 mBlocks = geom->
MakeBox(no_Block,Iron,2.5,3,0.5);
639 sprintf(no_Block,
"B12_PF%d", ++N);
640 mBlocks = geom->
MakeBox(no_Block,Iron,2.5,3,0.5);
643 sprintf(no_Block,
"B12_PF%d", ++N);
644 mBlocks = geom->
MakeBox(no_Block,Iron,2.5,3,0.5);
651 sprintf(no_Block,
"B12_GR%d", N=0);
652 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,21,1);
656 sprintf(no_Block,
"B12_GR%d", ++N);
657 mBlocks = geom->
MakeBox(no_Block,Iron,5.8,18,9);
661 sprintf(no_Block,
"B12_GR%d", ++N);
662 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,22,2);
666 sprintf(no_Block,
"B12_GR%d_%d", F, ++N);
667 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,22,1.95);
670 sprintf(no_Block,
"B12_GR%d_%d", F, ++N);
671 mBlocks = geom->
MakeBox(no_Block,Iron,4.8,22,0.05);
687 sprintf(no_Block,
"B2_F%d", 6);
688 mBlocks = geom->
MakeBox(no_Block,Iron,7,17.5,2);
694 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
695 mBlocks = geom->
MakeBox(no_Block,Iron,0.8,4,4);
699 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
700 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,3.5,1);
703 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
704 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,4.5,0.2);
707 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
708 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,4,2.8);
712 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
713 mBlocks = geom->
MakeBox(no_Block,Iron,0.7,4,4);
717 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
718 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,3.5,1);
721 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
722 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,4.5,0.2);
725 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
726 mBlocks = geom->
MakeBox(no_Block,Iron,1.1,4,2.8);
730 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
731 mBlocks = geom->
MakeBox(no_Block,Iron,0.7,4,4);
737 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
738 mBlocks = geom->
MakeBox(no_Block,Iron,1.3,13.5,1.5);
741 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
742 mBlocks = geom->
MakeBox(no_Block,Iron,1.3,14,0.2);
745 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
746 mBlocks = geom->
MakeBox(no_Block,Iron,1.3,13.5,2.3);
752 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
753 mBlocks = geom->
MakeBox(no_Block,Iron,3.7,13,1.5);
756 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
757 mBlocks = geom->
MakeBox(no_Block,Iron,3.7,14,0.2);
760 sprintf(no_Block,
"B2_F%d_%d",F, ++N);
761 mBlocks = geom->
MakeBox(no_Block,Iron,3.7,13.5,2.3);
769 sprintf(no_Block,
"B2_F%d_%d", 0,1);
770 mBlocks = geom->
MakeBox(no_Block,Iron,5,13.5,6);
773 sprintf(no_Block,
"B2_F%d_%d", 0,2);
774 mBlocks = geom->
MakeBox(no_Block,Iron,5,13.5,4);
777 sprintf(no_Block,
"B2_F%d_%d", 0,3);
778 mBlocks = geom->
MakeBox(no_Block,Iron,5,13.5,4);
785 sprintf(no_Block,
"B2_F%d", ++N);
786 mBlocks = geom->
MakeBox(no_Block,Iron,7,17.4,0.1);
790 sprintf(no_Block,
"B2_F%d", ++N);
791 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,0.2,0.5);
794 sprintf(no_Block,
"B2_F%d", ++N);
795 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,0.05,0.5);
799 sprintf(no_Block,
"B2_F%d", ++N);
800 mBlocks = geom->
MakeBox(no_Block,Iron,4.75,0.2,0.5);
803 sprintf(no_Block,
"B2_F%d", ++N);
804 mBlocks = geom->
MakeBox(no_Block,Iron,4.55,0.05,0.5);
819 F=0; N = 0; nF = 4; nW = 6;
822 sprintf(no_Block,
"B3_F0%d", 7);
823 mBlocks = geom->
MakeBox(no_Block,Iron,3,36,2);
830 sprintf(no_Block,
"B3_F%d_%d",F, ++N);
831 mBlocks = geom->
MakeBox(no_Block,Iron,4,36,0.2);
836 sprintf(no_Block,
"B3_F%d_%d",F, ++N);
837 mBlocks = geom->
MakeBox(no_Block,Iron,2.5,5,1.8);
841 sprintf(no_Block,
"B3_F%d_%d",F, ++N);
842 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,1,1.8);
848 sprintf(no_Block,
"B3_F%d_%d",F, ++N);
849 mBlocks = geom->
MakeBox(no_Block,Iron,3,36,2);
855 sprintf(no_Block,
"B3_F0%d", 1);
856 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,36,2);
859 sprintf(no_Block,
"B3_F0%d", 2);
860 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,36,2);
864 sprintf(no_Block,
"B3_F0%d", 3);
865 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,36,4);
869 sprintf(no_Block,
"B3_F0%d", 4);
870 mBlocks = geom->
MakeBox(no_Block,Iron,2.8,36,4);
879 sprintf(no_Block,
"B3_F0%d", 61);
880 mBlocks = geom->
MakeBox(no_Block,Iron,3,8,2);
884 sprintf(no_Block,
"B3_F0%d", 62);
885 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,8,24);
888 sprintf(no_Block,
"B3_F0%d", 63);
889 mBlocks = geom->
MakeBox(no_Block,Iron,2,7,24);
892 sprintf(no_Block,
"B3_F0%d", 64);
893 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,8,24);
897 sprintf(no_Block,
"B3_F0%d", 65);
898 mBlocks = geom->
MakeBox(no_Block,Iron,3,8,4);
905 sprintf(no_Block,
"B3_F2%d",7);
906 mBlocks = geom->
MakeBox(no_Block,Iron,7,40.5,2);
910 for (F=0 ; F<nF ; F++){ N=0;
911 for (i = 0 ; i<nW ; i++){
912 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
913 mBlocks = geom->
MakeBox(no_Block,Iron,6,2.35,2);
916 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
917 mBlocks = geom->
MakeBox(no_Block,Iron,6.5,0.3,2);
920 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
921 mBlocks = geom->
MakeBox(no_Block,Iron,6,2.35,2);
925 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
926 mBlocks = geom->
MakeBox(no_Block,Iron,7,1,2);
931 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
932 mBlocks = geom->
MakeBox(no_Block,Iron,6.8,36,0.3);
936 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
937 mBlocks = geom->
MakeBox(no_Block,Iron,7,36,2);
941 for(
int i=0;i<4;i++){
942 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
943 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.5,1.4);
947 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
948 mBlocks = geom->
MakeBox(no_Block,Iron,6,0.7,1.4);
952 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
953 mBlocks = geom->
MakeBox(no_Block,Iron,7,1.6,1.4);
957 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
958 mBlocks = geom->
MakeBox(no_Block,Iron,6,0.7,1.4);
963 sprintf(no_Block,
"B3_F2%d_%d",F,++N);
964 mBlocks = geom->
MakeBox(no_Block,Iron,7,3.5,2.6);
969 sprintf(no_Block,
"B3_F2%d",71);
970 mBlocks = geom->
MakeBox(no_Block,Iron,7,40.5,4);
974 sprintf(no_Block,
"B3_F2%d",72);
975 mBlocks = geom->
MakeBox(no_Block,Iron,7,2,30);
979 sprintf(no_Block,
"B3_F2%d",73);
980 mBlocks = geom->
MakeBox(no_Block,Iron,7,1,30);
987 sprintf(no_Block,
"B3_RT%d",N = 0);
988 mBlocks = geom->
MakeBox(no_Block,Iron,7,42.25,0.1);
991 sprintf(no_Block,
"B3_RT%d", ++N);
992 mBlocks = geom->
MakeBox(no_Block,Iron,2.75,41.75,0.1);
996 sprintf(no_Block,
"B3_RT%d", ++N);
997 mBlocks = geom->
MakeBox(no_Block,Iron,0.24,41.99,0.5);
1000 sprintf(no_Block,
"B3_RT%d", ++N);
1001 mBlocks = geom->
MakeBox(no_Block,Iron,0.01,42,0.5);
1005 sprintf(no_Block,
"B3_RT%d", ++N);
1006 mBlocks = geom->
MakeBox(no_Block,Iron,0.24,3.99,0.5);
1009 sprintf(no_Block,
"B3_RT%d", ++N);
1010 mBlocks = geom->
MakeBox(no_Block,Iron,0.01,4,0.5);
1014 sprintf(no_Block,
"B3_RT%d", ++N);
1015 mBlocks = geom->
MakeBox(no_Block,Iron,2.99,0.24,0.5);
1018 sprintf(no_Block,
"B3_RT%d", ++N);
1019 mBlocks = geom->
MakeBox(no_Block,Iron,3,0.01,0.5);
1023 sprintf(no_Block,
"B3_RT%d",++N);
1024 mBlocks = geom->
MakeBox(no_Block,Iron,0.24,42.49,0.5);
1027 sprintf(no_Block,
"B3_RT%d",++N);
1028 mBlocks = geom->
MakeBox(no_Block,Iron,0.01,42.5,0.5);
1034 sprintf(no_Block,
"B3_RT%d",++N);
1035 mBlocks = geom->
MakeBox(no_Block,Iron,6.99,0.24,0.5);
1038 sprintf(no_Block,
"B3_RT%d",++N);
1039 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.01,0.5);
1043 sprintf(no_Block,
"B3_RT%d",++N);
1044 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.25,0.5);
1047 sprintf(no_Block,
"B3_RT%d",++N);
1048 mBlocks = geom->
MakeBox(no_Block,Iron,7,0.01,0.5);
1056 for (i=0 ; i<6; i++) {
1057 sprintf(no_Block,
"B3_PF%d", ++N);
1058 mBlocks = geom->
MakeBox(no_Block,Iron,1.2,1.5,12);
1062 sprintf(no_Block,
"B3_PF%d", ++N);
1063 mBlocks = geom->
MakeBox(no_Block,Iron,1.5,40,2);
1069 sprintf(no_Block,
"B3_ST%d",N=0);
1070 mBlocks = geom->
MakeBox(no_Block,Iron,0.5,7,5);
1074 for(
int i=0;i<5;i++){
1075 sprintf(no_Block,
"B3_ST%d",++N);
1076 mBlocks = geom->
MakeBox(no_Block,Iron,3,5,0.5);
1088 for(
int F=0;F<5;F++){ N=0;
1089 sprintf(no_Block,
"B4_LF%d_%d",F,++N);
1090 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,12.5,2.3);
1094 sprintf(no_Block,
"B4_LF%d_%d",F,++N);
1095 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,2,1.7);
1099 sprintf(no_Block,
"B4_LF%d_%d",F,++N);
1100 mBlocks = geom->
MakeBox(no_Block,Iron,5,10.5,1.7);
1105 sprintf(no_Block,
"B4_LF%d_%d",9,N=0);
1106 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,12.5,6);
1110 sprintf(no_Block,
"B4_LF%d_%d",9,++N);
1111 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,2,4.5);
1114 sprintf(no_Block,
"B4_LF%d_%d",9,++N);
1115 mBlocks = geom->
MakeBox(no_Block,Iron,5,10.5,4.5);
1119 sprintf(no_Block,
"B4_LF%d_%d",9,++N);
1120 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,12.5,5);
1128 sprintf(no_Block,
"B4_RS%d",++N);
1129 mBlocks = geom->
MakeBox(no_Block,Iron,4.25,11,24);
1132 sprintf(no_Block,
"B4_RS%d",++N);
1133 mBlocks = geom->
MakeBox(no_Block,Iron,0.25,4,32);
1138 sprintf(no_Block,
"B4_RS%d",++N);
1139 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,2,1.8);
1142 sprintf(no_Block,
"B4_RS%d",++N);
1143 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,3.5,5);
1146 sprintf(no_Block,
"B4_RS%d",++N);
1147 mBlocks = geom->
MakeBox(no_Block,Iron,6,2,0.3);
1150 sprintf(no_Block,
"B4_RS%d",++N);
1151 mBlocks = geom->
MakeBox(no_Block,Iron,4,2,1.5);
1154 sprintf(no_Block,
"B4_RS%d",++N);
1155 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,7,1.8);
1159 sprintf(no_Block,
"B4_RS%d",++N);
1160 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,11,1.8);
1164 sprintf(no_Block,
"B4_RS%d",++N);
1165 mBlocks = geom->
MakeBox(no_Block,Iron,4.25,1.5,2);
1168 sprintf(no_Block,
"B4_RS%d",++N);
1169 mBlocks = geom->
MakeBox(no_Block,Iron,4,2,2);
1172 sprintf(no_Block,
"B4_RS%d",++N);
1173 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,7,2);
1178 sprintf(no_Block,
"B4_RS%d",++N);
1179 mBlocks = geom->
MakeBox(no_Block,Iron,4.5,11,2.4);
1184 sprintf(no_Block,
"B4_RT%d",N=0);
1185 mBlocks = geom->
MakeBox(no_Block,Iron,4.25,10.9,0.2);
1188 sprintf(no_Block,
"B4_RT%d",++N);
1189 mBlocks = geom->
MakeBox(no_Block,Iron,5.25,12.4,0.2);
1193 sprintf(no_Block,
"B4_RT%d",++N);
1194 mBlocks = geom->
MakeBox(no_Block,Iron,0.24,12.4,0.5);
1197 sprintf(no_Block,
"B4_RT%d",++N);
1198 mBlocks = geom->
MakeBox(no_Block,Iron,0.01,12.4,0.5);
1202 sprintf(no_Block,
"B4_RT%d",++N);
1203 mBlocks = geom->
MakeBox(no_Block,Iron,0.24,13,0.5);
1206 sprintf(no_Block,
"B4_RT%d",++N);
1207 mBlocks = geom->
MakeBox(no_Block,Iron,0.01,13,0.5);
1211 sprintf(no_Block,
"B4_RT%d",++N);
1212 mBlocks = geom->
MakeBox(no_Block,Iron,8.75,0.24,0.5);
1215 sprintf(no_Block,
"B4_RT%d",++N);
1216 mBlocks = geom->
MakeBox(no_Block,Iron,8.75,0.01,0.5);
1220 sprintf(no_Block,
"B4_RT%d",++N);
1221 mBlocks = geom->
MakeBox(no_Block,Iron,5.25,0.24,0.5);
1224 sprintf(no_Block,
"B4_RT%d",++N);
1225 mBlocks = geom->
MakeBox(no_Block,Iron,5.5,0.01,0.5);
1229 sprintf(no_Block,
"B4_RT%d",++N);
1230 mBlocks = geom->
MakeBox(no_Block,Iron,3.5,0.24,0.5);
1233 sprintf(no_Block,
"B4_RT%d",++N);
1234 mBlocks = geom->
MakeBox(no_Block,Iron,3.5,0.01,0.5);
1242 sprintf(no_Block,
"GRD%d",++N);
1243 mBlocks = geom->
MakeBox(no_Block,Iron,40,90,2);
1247 sprintf(no_Block,
"GRD%d",++N);
1248 mBlocks = geom->
MakeBox(no_Block,Iron,30,30,2);
1258 Phy_Building->
Draw(
"ogl");
void SetTopVisible(Bool_t vis=kTRUE)
make top volume visible on screen
virtual void AddNodeOverlap(TGeoVolume *vol, Int_t copy_no, TGeoMatrix *mat=0, Option_t *option="")
Add a TGeoNode to the list of nodes.
virtual void Draw(Option_t *option="")
draw top volume according to option
void SetTopVolume(TGeoVolume *vol)
Set the top volume and corresponding node as starting point of the geometry.
TGeoVolume * MakeTrd1(const char *name, TGeoMedium *medium, Double_t dx1, Double_t dx2, Double_t dy, Double_t dz)
Make in one step a volume pointing to a TGeoTrd1 shape with given medium.
TGeoVolume * MakeBox(const char *name, TGeoMedium *medium, Double_t dx, Double_t dy, Double_t dz)
Make in one step a volume pointing to a box shape with given medium.
void CloseGeometry(Option_t *option="d")
Closing geometry implies checking the geometry validity, fixing shapes with negative parameters (run-...
TGeoVolume * MakeTubs(const char *name, TGeoMedium *medium, Double_t rmin, Double_t rmax, Double_t dz, Double_t phi1, Double_t phi2)
Make in one step a volume pointing to a tube segment shape with given medium.
virtual void SetVisibility(Bool_t vis=kTRUE)
set visibility of this volume
virtual void SetLineColor(Color_t lcolor)
Set the line color.