11 #include "GeoModelKernel/GeoPcon.h"
12 #include "GeoModelKernel/GeoTubs.h"
13 #include "GeoModelKernel/GeoTube.h"
14 #include "GeoModelKernel/GeoTrd.h"
15 #include "GeoModelKernel/GeoTrap.h"
16 #include "GeoModelKernel/GeoBox.h"
17 #include "GeoModelKernel/GeoMaterial.h"
18 #include "GeoModelKernel/GeoLogVol.h"
19 #include "GeoModelKernel/GeoPhysVol.h"
20 #include "GeoModelKernel/GeoNameTag.h"
21 #include "GeoModelKernel/GeoTransform.h"
22 #include "GeoModelKernel/GeoSerialIdentifier.h"
23 #include "GeoModelKernel/GeoIdentifierTag.h"
24 #include "GeoModelKernel/GeoDefinitions.h"
25 #include "GeoModelKernel/Units.h"
27 #include "GeoModelKernel/GeoShapeUnion.h"
28 #include "GeoModelKernel/GeoShapeShift.h"
29 #include "GeoModelKernel/GeoShapeSubtraction.h"
30 #include "GeoModelKernel/GeoCutVolAction.h"
32 #include "GeoGenericFunctions/AbsFunction.h"
33 #include "GeoGenericFunctions/Variable.h"
34 #include "GeoModelKernel/GeoXF.h"
35 #include "GeoModelKernel/GeoSerialTransformer.h"
38 #include "GaudiKernel/MsgStream.h"
39 #include "GaudiKernel/SystemOfUnits.h"
41 #include "boost/io/ios_state.hpp"
46 #define MLOG(x) if (m_log->level()<=MSG::x) *m_log << MSG::x
49 using namespace GeoXF;
56 : m_theMaterialManager(matManager)
57 , m_dbManager(pDbManager)
59 , m_switches(switches)
60 , m_barrelPeriodThickness(0.)
62 , m_extendedPeriodThickness(0.)
65 , m_matIronHalfDens(0)
66 , m_additionalIronLayer(0.027)
84 (*m_log) <<
MSG::DEBUG <<
" TileGeoSectionBuilder::fillSection ModuleNcp= "<<ModuleNcp<<
endmsg;
94 const GeoMaterial* matAluminium{
nullptr};
99 double dX1 =0., dX2 =0., dY1 =0., dY2 =0., dZ1 =0., dZ2 =0.;
100 std::string volname =
"";
103 float PosXcut =0., PosYcut =0., PosY =0., Rmore =0.;
104 float Radius =0., YcorA =0., YcorB =0., lenPla =0., Blia =0.;
111 if (ModuleNcp>=35 && ModuleNcp<=37) SideFl = -1;
117 GeoIntrusivePtr<const GeoShapeUnion> CutA{
nullptr};
118 GeoIntrusivePtr<GeoShape> CutB{
nullptr};
121 if (sec_number==2 &&
m_dbManager->
BoolCuts() && ((ModuleNcp>=35 && ModuleNcp<=37) || (ModuleNcp>=60 && ModuleNcp<=62))) {
134 checking(
"CutB1",
false, 1, dX1,dX2,dY1,dY2,dZ1);
135 GeoTrd* CutB1 =
new GeoTrd(dX1,dX2,dY1,dY2,dZ1);
149 checking(
"Cut1up",
false, 1, dX1,dX2,dY1,dY2,dZ1);
150 GeoTrd* Cut1up =
new GeoTrd(dX1,dX2,dY1,dY2,dZ1);
159 checking(
"Cut2down",
false, 1, dX1,dX2,dY1,dY2,dZ2);
160 GeoTrd* Cut1down =
new GeoTrd(dX1,dX2,dY1,dY2,dZ2);
162 GeoTrf::Translate3D yPosA(0.,0.,-dZ1-dZ2);
164 const GeoShapeUnion& CutA1 = Cut1up->add(*Cut1down<<yPosA);
173 TransCut2 = GeoTrf::TranslateZ3D(-Radius)
181 TransCut2 = GeoTrf::TranslateX3D(2*ptTmp.x())*GeoTrf::RotateZ3D(180*
Gaudi::Units::deg)*TransCut2;
184 if (ModuleNcp>=60 && ModuleNcp<=62) {
185 TransCutL = GeoTrf::TranslateZ3D(-Radius)
192 TransCutL = GeoTrf::TranslateX3D(2*ptTmp.x())*GeoTrf::RotateZ3D(180*
Gaudi::Units::deg)*TransCutL;
195 }
else if (ModuleNcp>=35 && ModuleNcp<=37) {
196 TransCutR = GeoTrf::TranslateZ3D(-Radius)
203 TransCutR = GeoTrf::TranslateX3D(2*ptTmp.x())*GeoTrf::RotateZ3D(180*
Gaudi::Units::deg)*TransCutR;
214 double thicknessGirderMother = 0.0;
215 double specialModuleZShift = 0.0;
221 if ((Id4 == 7) && (sec_number == 3))
231 if ((Id4 == 7) && (sec_number == 3)) {
236 thicknessGirderMother/2,thicknessGirderMother/2,dy1GirderMother,dy2GirderMother,heightGirderMother/2);
238 GeoTrd* girderMother =
new GeoTrd(thicknessGirderMother/2,
239 thicknessGirderMother/2,
242 heightGirderMother/2);
244 GeoLogVol* lvGirderMother =
new GeoLogVol(
"GirderMother",girderMother,matAir);
245 PVLink pvGirderMother =
new GeoPhysVol(lvGirderMother);
253 GeoTransform* tfGirderMother{
nullptr};
262 mother->add(tfGirderMother);
263 mother->add(pvGirderMother);
271 double thicknessFrontPlate, heightFrontPlate, dy1FrontPlate, dy2FrontPlate;
280 if (thicknessFrontPlate > rless) {
286 (*
m_log) <<
MSG::DEBUG <<
" FrontPlateSh dX1,dX2= "<<thicknessFrontPlate/2<<
", "<<thicknessFrontPlate/2
287 <<
" dY1,dY2= "<<dy1FrontPlate<<
" "<<dy2FrontPlate<<
" dZ= "<<heightFrontPlate/2
290 GeoTrd* frontPlateSh =
new GeoTrd(thicknessFrontPlate/2,
291 thicknessFrontPlate/2,
296 GeoLogVol* lvFrontPlateSh =
new GeoLogVol(
"FrontPlateSh",frontPlateSh,matIron);
297 PVLink pvFrontPlateSh =
new GeoPhysVol(lvFrontPlateSh);
298 GeoTransform* tfFrontPlateSh =
new GeoTransform(GeoTrf::Translate3D(
302 mother->add(tfFrontPlateSh);
303 mother->add(pvFrontPlateSh);
311 ((ModuleNcp>=35 && ModuleNcp<=37)||(ModuleNcp>=60 && ModuleNcp<=62)) )) {
313 std::string volname =
"";
314 double dXCutA = 0, dXCutB = 0;
327 GeoTrd* frontPlate =
new GeoTrd(thicknessFrontPlate/2 -(dXCutA+dXCutB),
328 thicknessFrontPlate/2 -(dXCutA+dXCutB),
343 GeoLogVol* lvFrontPlate =
new GeoLogVol(
"FrontPlate",frontPlate,matIron);
344 PVLink pvFrontPlate =
new GeoPhysVol(lvFrontPlate);
345 GeoTransform* tfFrontPlate =
new GeoTransform(GeoTrf::Translate3D(
349 mother->add(tfFrontPlate);
350 mother->add(pvFrontPlate);
362 GeoTrd* frontPlate =
new GeoTrd(thicknessFrontPlate/2,
363 thicknessFrontPlate/2,
368 GeoLogVol* lvFrontPlate =
new GeoLogVol(
"FrontPlate",frontPlate,matIron);
369 PVLink pvFrontPlate =
new GeoPhysVol(lvFrontPlate);
370 GeoTransform* tfFrontPlate =
new GeoTransform(GeoTrf::Translate3D(
374 mother->add(tfFrontPlate);
375 mother->add(pvFrontPlate);
380 double dy1EndPlate, dy2EndPlate, thicknessEndPlate, heightEndPlate;
389 GeoIntrusivePtr<GeoTransform> tfEndPlateSh{
nullptr};
403 GeoTrd* endPlateSh =
new GeoTrd(thicknessEndPlate/2,
408 GeoLogVol* lvEndPlateSh{
nullptr};
411 if (sec_number==2 && ((ModuleNcp>=35 && ModuleNcp<=37)||(ModuleNcp>=60 && ModuleNcp<=62)) ) {
416 GeoTrd* endPlateShCut =
new GeoTrd(thicknessEndPlate,
423 double rotationAngle ;
424 double shiftCutPlate ;
425 int rotationSign = 1;
426 if (ModuleNcp > 50) rotationSign *= -1;
427 if ( neg ) rotationSign *= -1;
430 if ( ( ModuleNcp == 37 ) || ( ModuleNcp == 60 ) ) {
434 cutOutTransformation =
435 GeoTrf::Translate3D(0,0, -heightEndPlate/2.) *
437 GeoTrf::Translate3D(0.,0., -rotationSign * (dy2EndPlate + shiftCutPlate ) ) *
438 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
440 const GeoShape & endPlateShCutted3760 = (endPlateSh->subtract( (*endPlateShCut)<< cutOutTransformation ) ) ;
441 lvEndPlateSh =
new GeoLogVol(
"EndPlateSh", &(endPlateShCutted3760) , matIron);
443 }
else if ( ( ModuleNcp == 36 ) || ( ModuleNcp == 61 ) ) {
447 cutOutTransformation =
448 GeoTrf::Translate3D( 0, 0, -heightEndPlate/2. ) *
449 GeoTrf::Translate3D( 0, 0, - (dy2EndPlate - shiftCutPlate + 0.5*dy2EndPlate*(1.-
std::cos(rotationAngle*
Gaudi::Units::rad))) ) *
450 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
452 const GeoShape & endPlateShCutted3661 = (endPlateSh->subtract( (*endPlateShCut)<< cutOutTransformation ) ) ;
453 lvEndPlateSh =
new GeoLogVol(
"EndPlateSh", &(endPlateShCutted3661) , matIron);
455 }
else if ( ( ModuleNcp == 35 ) || ( ModuleNcp == 62 ) ) {
459 cutOutTransformation =
460 GeoTrf::Translate3D( 0, 0, -heightEndPlate/2. ) *
461 GeoTrf::Translate3D( 0, 0, - (dy2EndPlate - shiftCutPlate) ) *
462 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
464 const GeoShape & endPlateShCutted3562 = (endPlateSh->subtract( (*endPlateShCut)<< cutOutTransformation ) ) ;
465 lvEndPlateSh =
new GeoLogVol(
"EndPlateSh", &(endPlateShCutted3562) , matIron);
471 (*m_log) << MSG::ERROR <<
" TileGeoSectionBuilder::fillSection . Wrong Module in cut-out region. ModuleNcp= "<<ModuleNcp<<
endmsg;
472 lvEndPlateSh =
new GeoLogVol(
"EndPlateSh", endPlateSh , matIron);
476 lvEndPlateSh =
new GeoLogVol(
"EndPlateSh", endPlateSh , matIron);
485 PVLink pvEndPlateSh =
new GeoPhysVol(lvEndPlateSh);
487 tfEndPlateSh =
new GeoTransform(GeoTrf::Translate3D(
488 specialModuleZShift +
492 mother->add(tfEndPlateSh);
493 mother->add(pvEndPlateSh);
496 (*m_log) <<
MSG::DEBUG <<
" _fillSection: ext.barrel EndPlateSh Ok "<<
endmsg;
505 GeoTrd* endPlate1 =
new GeoTrd(thicknessEndPlate/2,
511 GeoLogVol* lvEndPlate1 =
new GeoLogVol(
"EndPlate1",endPlate1,matIron);
512 PVLink pvEndPlate1 =
new GeoPhysVol(lvEndPlate1);
516 GeoTrd* epHole1 =
new GeoTrd (thicknessEndPlate/2,
522 GeoLogVol* lvEPHole1 =
new GeoLogVol(
"EPHole1",epHole1,matAir);
523 PVLink pvEPHole1 =
new GeoPhysVol(lvEPHole1);
524 GeoTransform* tfEPHole1 =
new GeoTransform(GeoTrf::Translate3D(0.,0.,
526 pvEndPlate1->add(tfEPHole1);
527 pvEndPlate1->add(pvEPHole1);
530 GeoTransform* tfEndPlate1 =
new GeoTransform(GeoTrf::Translate3D(
532 mother->add(tfEndPlate1);
533 mother->add(pvEndPlate1);
541 GeoIntrusivePtr<GeoTransform> tfEndPlate2{
nullptr};
545 double radShift =lenPla;
546 double rminbT=rminb + radShift;
554 GeoLogVol* lvEndPlate2{
nullptr};
555 GeoTrd* endPlate2 =
new GeoTrd(thicknessEndPlate/2,
561 tfEndPlate2 =
new GeoTransform(GeoTrf::Translate3D(
564 if (sec_number==2 && ((ModuleNcp>=35 && ModuleNcp<=37)||(ModuleNcp>=60 && ModuleNcp<=62)) ) {
566 GeoTrd* endPlate2Cut =
new GeoTrd(thicknessEndPlate,
571 double rotationAngle ;
572 double shiftCutPlate ;
573 int rotationSign = 1;
574 if (ModuleNcp > 50) rotationSign *= -1;
575 if ( neg ) rotationSign *= -1;
577 if ( ( ModuleNcp == 37 ) || ( ModuleNcp == 60 ) ) {
581 cutOutTransformation =
582 GeoTrf::Translate3D( 0, 0, -heightEndPlate/2. ) *
583 GeoTrf::Translate3D( 0, 0, - (dy2EndPlate - shiftCutPlate) ) *
584 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
586 const GeoShape & endPlate2Cutted3760 = (endPlate2->subtract( (*endPlate2Cut)<< cutOutTransformation ) ) ;
587 lvEndPlate2 =
new GeoLogVol(
"EndPlate2", &(endPlate2Cutted3760) , matIron);
589 }
else if ( ( ModuleNcp == 36 ) || ( ModuleNcp == 61 ) ) {
593 cutOutTransformation =
594 GeoTrf::Translate3D( 0, 0, -heightEndPlate/2. ) *
595 GeoTrf::Translate3D( 0, 0, - (dy2EndPlate - shiftCutPlate) ) *
596 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
598 const GeoShape & endPlate2Cutted3661 = (endPlate2->subtract( (*endPlate2Cut)<< cutOutTransformation ) ) ;
599 lvEndPlate2 =
new GeoLogVol(
"EndPlate2", &(endPlate2Cutted3661) , matIron);
601 }
else if ( ( ModuleNcp == 35 ) || ( ModuleNcp == 62 ) ) {
605 cutOutTransformation =
606 GeoTrf::Translate3D( 0, 0, -heightEndPlate/2. ) *
607 GeoTrf::Translate3D( 0, 0, - (dy2EndPlate - shiftCutPlate) ) *
608 GeoTrf::RotateX3D( rotationSign * rotationAngle ) ;
610 const GeoShape & endPlate2Cutted3562 = (endPlate2->subtract( (*endPlate2Cut)<< cutOutTransformation ) ) ;
611 lvEndPlate2 =
new GeoLogVol(
"EndPlate2", &(endPlate2Cutted3562) , matIron);
623 lvEndPlate2 =
new GeoLogVol(
"EndPlate2",endPlate2,matIron);
626 PVLink pvEndPlate2 =
new GeoPhysVol(lvEndPlate2);
632 GeoTrd* epHole2 =
new GeoTrd (thicknessEndPlate/2,
638 GeoLogVol* lvEPHole2 =
new GeoLogVol(
"EPHole2",epHole2,matAir);
639 PVLink pvEPHole2 =
new GeoPhysVol(lvEPHole2);
640 GeoTransform* tfEPHole2 =
new GeoTransform(GeoTrf::Translate3D(0.,0.,
642 pvEndPlate2->add(tfEPHole2);
643 pvEndPlate2->add(pvEPHole2);
646 mother->add(tfEndPlate2);
647 mother->add(pvEndPlate2);
661 thicknessAbsorber/2,thicknessAbsorber/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
664 double thicknessPeriod =0, thicknessAbsorber1 =0, thicknessAbsorber2 =0, thicknessAbsorber3 =0;
665 double PosAbsor1 =0, PosAbsor2 =0, PosAbsor3 =0;
666 int nA1 =32, nA2 = 0, nA3 =16;
668 GeoTrd *absorber{
nullptr}, *absorber1{
nullptr}, *absorber3{
nullptr};
669 GeoLogVol *lvAbsorber{
nullptr}, *lvAbsorber1{
nullptr}, *lvAbsorber3{
nullptr};
670 PVLink pvAbsorber{
nullptr}, pvAbsorber1{
nullptr}, pvAbsorber3{
nullptr},
671 pvTmp_Absorber1{
nullptr}, pvTmp_Absorber3{
nullptr};
674 switch (sec_number) {
683 thicknessAbsorber1 = nA1*thicknessPeriod;
684 PosAbsor1 = thicknessAbsorber/2 - thicknessAbsorber1/2;
686 thicknessAbsorber2 = nA2*thicknessPeriod;
687 PosAbsor2 = thicknessAbsorber/2 - thicknessAbsorber1 - thicknessAbsorber2/2;
689 thicknessAbsorber3 = nA3*thicknessPeriod;
690 PosAbsor3 = thicknessAbsorber/2 - thicknessAbsorber1 - thicknessAbsorber2 - thicknessAbsorber3/2;
693 (*
m_log) <<
MSG::DEBUG <<
" Number of periods per Module: N= "<<nA1+nA2+nA3
694 <<
" Middle absorber, numbers of periods = "<<nA2
698 absorber1 =
new GeoTrd(thicknessAbsorber1/2, thicknessAbsorber1/2,
699 dy1Absorber, dy2Absorber,
702 lvAbsorber1 =
new GeoLogVol(
"Absorber",absorber1,matIron);
703 pvAbsorber1 =
new GeoPhysVol(lvAbsorber1);
706 absorber =
new GeoTrd(thicknessAbsorber2/2, thicknessAbsorber2/2,
707 dy1Absorber, dy2Absorber,
710 lvAbsorber =
new GeoLogVol(
"Absorber",absorber,matIron);
711 pvAbsorber =
new GeoPhysVol(lvAbsorber);
715 absorber3 =
new GeoTrd(thicknessAbsorber3/2, thicknessAbsorber3/2,
716 dy1Absorber, dy2Absorber,
719 lvAbsorber3 =
new GeoLogVol(
"Absorber",absorber3,matIron);
720 pvAbsorber3 =
new GeoPhysVol(lvAbsorber3);
724 (*m_log) <<
MSG::DEBUG <<
" _fillSection: Ex.Barrel pvAbsorber 1,3 Ok "<<
endmsg;
730 absorber =
new GeoTrd(thicknessAbsorber/2, thicknessAbsorber/2,
731 dy1Absorber, dy2Absorber,
735 lvAbsorber =
new GeoLogVol(
"Absorber",absorber,matIron);
738 lvAbsorber =
new GeoLogVol(
"Absorber",absorber,matAir);
740 pvAbsorber =
new GeoPhysVol(lvAbsorber);
746 (*m_log) <<
MSG::DEBUG <<
" _fillSection: special pvAbsorber made from Air Ok "<<
endmsg;
754 double thicknessAbsorberChild;
758 GeoLogVol* lvPeriod{
nullptr};
759 PVLink pvPeriod{
nullptr};
760 GeoTransform* tfPeriod{
nullptr};
761 GeoSerialTransformer* stPeriod{
nullptr};
763 GeoTrd* absorberChild{
nullptr};
764 GeoLogVol* lvAbsorberChild{
nullptr};
765 PVLink pvAbsorberChild{
nullptr};
766 GeoTransform* tfAbsorberChild{
nullptr};
769 switch (sec_number) {
779 <<
", dzglue: " << dzglue <<
" ==> thicknessPeriod: " << thicknessPeriod <<
endmsg;
785 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
787 period =
new GeoTrd(thicknessPeriod/2,
793 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
794 pvPeriod =
new GeoPhysVol(lvPeriod);
804 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
805 thicknessAbsorberChild/2,
809 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
810 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
813 GENFUNCTION periodPos1 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorberChild)/2;
814 TRANSFUNCTION xfReplica1 = Pow(GeoTrf::TranslateX3D(1.),periodPos1);
816 (thicknessAbsorberChild - thicknessAbsorber)/2);
818 stPeriod =
new GeoSerialTransformer(pvPeriod,
822 pvAbsorberChild->add(
new GeoSerialIdentifier(0));
823 pvAbsorberChild->add(stPeriod);
826 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((thicknessAbsorberChild - thicknessAbsorber)/2,0.,0.));
827 pvAbsorber->add(tfAbsorberChild);
828 pvAbsorber->add(pvAbsorberChild);
834 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
836 period =
new GeoTrd(thicknessPeriod/2,
841 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
842 pvPeriod =
new GeoPhysVol(lvPeriod);
851 thicknessAbsorberChild = thicknessPeriod;
852 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
853 thicknessAbsorberChild/2,
857 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
858 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
861 (-thicknessAbsorberChild + thicknessAbsorber)/2);
864 tfPeriod =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
867 pvAbsorberChild->add(tfPeriod);
868 pvAbsorberChild->add(pvPeriod);
871 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((-thicknessAbsorberChild + thicknessAbsorber)/2,0.,0.));
872 pvAbsorber->add(tfAbsorberChild);
873 pvAbsorber->add(pvAbsorberChild);
882 <<
", dzglue: " << dzglue <<
" ==> thicknessPeriod: " << thicknessPeriod <<
endmsg;
885 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
887 period =
new GeoTrd(thicknessPeriod/2,
892 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
893 pvPeriod =
new GeoPhysVol(lvPeriod);
906 GENFUNCTION periodPos1 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorber1)/2;
907 TRANSFUNCTION xfReplica1 = Pow(GeoTrf::TranslateX3D(1.),periodPos1);
909 (-thicknessAbsorber+thicknessAbsorber1)/2.);
911 stPeriod =
new GeoSerialTransformer(pvPeriod,&xfReplica1,nA1);
913 pvAbsorber1->add(
new GeoSerialIdentifier(0));
914 pvAbsorber1->add(stPeriod);
918 if ((ModuleNcp>=35 && ModuleNcp<=37) || (ModuleNcp>=60 && ModuleNcp<=62)) {
920 GeoCutVolAction action1(*CutA, TransCut2);
921 pvAbsorber1->apply(&action1);
922 pvTmp_Absorber1 = action1.getPV();
932 GENFUNCTION periodPos2 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorber2)/2;
933 TRANSFUNCTION xfReplica2 = Pow(GeoTrf::TranslateX3D(1.),periodPos2);
935 (-thicknessAbsorber+thicknessAbsorber2)/2.+thicknessAbsorber1);
937 stPeriod =
new GeoSerialTransformer(pvPeriod,&xfReplica2,nA2);
939 pvAbsorber->add(
new GeoSerialIdentifier(nA1));
940 pvAbsorber->add(stPeriod);
947 GENFUNCTION periodPos3 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorber3)/2;
948 TRANSFUNCTION xfReplica3 = Pow(GeoTrf::TranslateX3D(1.),periodPos3);
950 (-thicknessAbsorber+thicknessAbsorber3)/2.+thicknessAbsorber2+thicknessAbsorber1);
952 stPeriod =
new GeoSerialTransformer(pvPeriod,&xfReplica3,nA3);
954 pvAbsorber3->add(
new GeoSerialIdentifier(nA1+nA2));
955 pvAbsorber3->add(stPeriod);
958 if (ModuleNcp>=60 && ModuleNcp<=62) {
961 GeoCutVolAction action2(*CutB, TransCutL);
962 pvAbsorber3->apply(&action2);
963 pvTmp_Absorber3 = action2.getPV();
967 }
else if (ModuleNcp>=35 && ModuleNcp<=37) {
970 GeoCutVolAction action3(*CutB, TransCutR);
971 pvAbsorber3->apply(&action3);
972 pvTmp_Absorber3 = action3.getPV();
994 <<
", dzglue: " << dzglue <<
" ==> thicknessPeriod: " << thicknessPeriod <<
endmsg;
996 checking(
"Period 3 (ITC1 special)",
true, 4,
997 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
999 period =
new GeoTrd(thicknessPeriod/2,
1004 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
1005 pvPeriod =
new GeoPhysVol(lvPeriod);
1015 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
1016 thicknessAbsorberChild/2,
1020 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
1021 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
1024 GENFUNCTION periodPosITC1sp = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorberChild)/2;
1025 TRANSFUNCTION xfReplicaITC1sp = Pow(GeoTrf::TranslateX3D(1.),periodPosITC1sp);
1027 (thicknessAbsorberChild - thicknessAbsorber)/2);
1029 stPeriod =
new GeoSerialTransformer(pvPeriod,
1033 pvAbsorberChild->add(
new GeoSerialIdentifier(0));
1034 pvAbsorberChild->add(stPeriod);
1037 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((thicknessAbsorberChild - thicknessAbsorber)/2,0.,0.));
1038 pvAbsorber->add(tfAbsorberChild);
1039 pvAbsorber->add(pvAbsorberChild);
1045 checking(
"Period 5 (ITC1 special)",
true, 4,
1046 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
1048 period =
new GeoTrd(thicknessPeriod/2,
1053 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
1054 pvPeriod =
new GeoPhysVol(lvPeriod);
1062 thicknessAbsorberChild = thicknessPeriod;
1063 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
1064 thicknessAbsorberChild/2,
1068 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
1069 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
1072 (-thicknessAbsorberChild + thicknessAbsorber)/2);
1075 tfPeriod =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
1077 pvAbsorberChild->add(tfPeriod);
1078 pvAbsorberChild->add(pvPeriod);
1081 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((-thicknessAbsorberChild + thicknessAbsorber)/2,0.,0.));
1082 pvAbsorber->add(tfAbsorberChild);
1083 pvAbsorber->add(pvAbsorberChild);
1086 (*m_log) <<
MSG::DEBUG <<
" _fillSection: Absorber (ITC plug special) Ok "<<
endmsg;
1092 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
1094 period =
new GeoTrd(thicknessPeriod/2,
1099 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
1100 pvPeriod =
new GeoPhysVol(lvPeriod);
1109 GENFUNCTION periodPos3 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorber)/2;
1110 TRANSFUNCTION xfReplica3 = Pow(GeoTrf::TranslateX3D(1.),periodPos3);
1121 stPeriod =
new GeoSerialTransformer(pvPeriod,
1125 pvAbsorber->add(
new GeoSerialIdentifier(0));
1126 pvAbsorber->add(stPeriod);
1141 <<
", dzglue: " << dzglue <<
" ==> thicknessPeriod: " << thicknessPeriod <<
endmsg;
1144 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
1146 period =
new GeoTrd(thicknessPeriod/2,
1151 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
1152 pvPeriod =
new GeoPhysVol(lvPeriod);
1162 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
1163 thicknessAbsorberChild/2,
1167 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
1168 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
1171 GENFUNCTION periodPos1 = (thicknessPeriod*(2*periodInd+1)-thicknessAbsorberChild)/2;
1172 TRANSFUNCTION xfReplica1 = Pow(GeoTrf::TranslateX3D(1.),periodPos1);
1174 (thicknessAbsorberChild - thicknessAbsorber)/2);
1176 stPeriod =
new GeoSerialTransformer(pvPeriod,
1180 pvAbsorberChild->add(
new GeoSerialIdentifier(0));
1181 pvAbsorberChild->add(stPeriod);
1184 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((thicknessAbsorberChild - thicknessAbsorber)/2,0.,0.));
1185 pvAbsorber->add(tfAbsorberChild);
1186 pvAbsorber->add(pvAbsorberChild);
1192 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
1194 period =
new GeoTrd(thicknessPeriod/2,
1199 lvPeriod =
new GeoLogVol(
"Period",
period,matIron);
1200 pvPeriod =
new GeoPhysVol(lvPeriod);
1208 thicknessAbsorberChild = thicknessPeriod;
1209 absorberChild =
new GeoTrd(thicknessAbsorberChild/2,
1210 thicknessAbsorberChild/2,
1214 lvAbsorberChild =
new GeoLogVol(
"AbsorberChild",absorberChild,matAir);
1215 pvAbsorberChild =
new GeoPhysVol(lvAbsorberChild);
1218 (-thicknessAbsorberChild + thicknessAbsorber)/2);
1221 tfPeriod =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
1223 pvAbsorberChild->add(tfPeriod);
1224 pvAbsorberChild->add(pvPeriod);
1227 tfAbsorberChild =
new GeoTransform(GeoTrf::Translate3D((-thicknessAbsorberChild + thicknessAbsorber)/2,0.,0.));
1228 pvAbsorber->add(tfAbsorberChild);
1229 pvAbsorber->add(pvAbsorberChild);
1246 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::fillSection: Unexpected section = "
1251 thicknessPeriod = thicknessAbsorber;
1252 MLOG(
DEBUG) <<
"DEFAULT Section -- thicknessAbsorber: " << thicknessAbsorber <<
" ==> thicknessPeriod: " << thicknessPeriod <<
endmsg;
1255 thicknessPeriod/2,thicknessPeriod/2,dy1Absorber,dy2Absorber,heightAbsorber/2);
1259 if (dy1Period <= 0.0 || dy2Period <= 0.0 || dy1Period > dy1Absorber || dy2Period > dy2Absorber || dy1Period >= dy2Period ) {
1260 dy1Period = dy1Absorber;
1261 dy2Period = dy2Absorber;
1264 period =
new GeoTrd(thicknessPeriod/2,
1270 lvPeriod =
new GeoLogVol(
"Period",
period,matAluminium);
1271 pvPeriod =
new GeoPhysVol(lvPeriod);
1282 tfPeriod =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
1283 pvAbsorber->add(
new GeoIdentifierTag(0));
1284 pvAbsorber->add(tfPeriod);
1285 pvAbsorber->add(pvPeriod);
1288 (*m_log) <<
MSG::DEBUG <<
" _fillSection: Absorber (case default) Ok "<<
endmsg;
1294 GeoTransform *tfAbsorber{
nullptr}, *tfAbsorber1{
nullptr}, *tfAbsorber3{
nullptr};
1299 if (sec_number==3) {
1302 mother->add(tfAbsorber);
1303 mother->add(pvAbsorber);
1305 }
else if (sec_number==2) {
1309 tfAbsorber1 =
new GeoTransform(GeoTrf::Translate3D(dXAbsorber*
Gaudi::Units::cm/2 - PosAbsor1, 0.,
1311 mother->add(tfAbsorber1);
1312 if (
m_dbManager->
BoolCuts() && ((ModuleNcp>=35 && ModuleNcp<=37) || (ModuleNcp>=60 && ModuleNcp<=62)) ) {
1313 mother->add(pvTmp_Absorber1);
1315 mother->add(pvAbsorber1);
1319 (*m_log) <<
MSG::DEBUG <<
" _fillsection ext.barrel pvAbsorber1 Ok"<<
endmsg;
1321 tfAbsorber =
new GeoTransform(GeoTrf::Translate3D(dXAbsorber*
Gaudi::Units::cm/2 - PosAbsor2, 0.,
1323 mother->add(tfAbsorber);
1324 mother->add(pvAbsorber);
1327 (*m_log) <<
MSG::DEBUG <<
" _fillsection ext.barrel pvAbsorber Ok"<<
endmsg;
1329 tfAbsorber3 =
new GeoTransform(GeoTrf::Translate3D(dXAbsorber*
Gaudi::Units::cm/2 - PosAbsor3, 0.,
1331 mother->add(tfAbsorber3);
1332 if (
m_dbManager->
BoolCuts() && ((ModuleNcp>=35 && ModuleNcp<=37) || (ModuleNcp>=60 && ModuleNcp<=62)) ) {
1333 mother->add(pvTmp_Absorber3);
1335 mother->add(pvAbsorber3);
1339 (*m_log) <<
MSG::DEBUG <<
" _fillsection ext.barrel pvAbsorber3 Ok"<<
endmsg;
1342 tfAbsorber =
new GeoTransform(GeoTrf::Translate3D(dXAbsorber*
Gaudi::Units::cm/2, 0.,
1344 mother->add(tfAbsorber);
1345 mother->add(pvAbsorber);
1357 double tan_delta_phi_2,
1370 GeoTrd* girderElement{
nullptr};
1371 GeoLogVol* lvGirderElement{
nullptr};
1372 PVLink pvGirderElement{
nullptr};
1373 GeoTransform* tfGirderElement{
nullptr};
1375 int CurrentGird = 1;
1389 double dy1GirderElement, dy2GirderElement;
1390 if (elementSizeInY >0) {
1391 dy1GirderElement = elementSizeInY/2;
1392 dy2GirderElement = elementSizeInY/2;
1394 dy1GirderElement = (elementRC - elementSizeInR/2) * tan_delta_phi_2;
1395 dy2GirderElement = (elementRC + elementSizeInR/2) * tan_delta_phi_2;
1407 lvGirderElement =
new GeoLogVol(
"GirderIron",girderElement,matIron);
1412 lvGirderElement =
new GeoLogVol(
"GirderAluminium",girderElement,matAluminium);
1417 lvGirderElement =
new GeoLogVol(
"GirderElectronics",girderElement,matElBoard);
1422 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::FillGirder: unknown material = "
1428 pvGirderElement =
new GeoPhysVol(lvGirderElement);
1429 tfGirderElement =
new GeoTransform(GeoTrf::Translate3D(0.,
1432 mother->add(tfGirderElement);
1433 mother->add(pvGirderElement);
1445 double corrected_dz)
1447 bool boolNeg =
false;
1449 if (ModuleNcp > 99) {
1450 ModuleNcp = ModuleNcp/100;
1496 GeoTrd* fingerElementTrd{
nullptr};
1497 GeoTrap* fingerElementTrap{
nullptr};
1499 GeoBox *fingerCablesL{
nullptr}, *fingerCablesR{
nullptr};
1500 PVLink pvFingerElement{
nullptr}, pvFingerCablesL{
nullptr}, pvFingerCablesR{
nullptr};
1501 GeoLogVol *lvFingerElement{
nullptr}, *lvFingerCablesL{
nullptr}, *lvFingerCablesR{
nullptr};
1502 GeoTransform* tfFingerElement{
nullptr}, *tfFingerCables{
nullptr};
1504 GeoTransform* ZrotateMod{
nullptr};
1505 GeoTransform* yrotateMod{
nullptr};
1506 GeoTransform* zrotateMod{
nullptr};
1508 const GeoMaterial *currentMaterial{
nullptr}, *leftMaterial{
nullptr}, *rightMaterial{
nullptr};
1509 std::string currentName, leftName, rightName;
1511 int CurrentTicg = 100*sec_number + 1;
1513 double AirVolumeShift = 0.0;
1514 double AirVolumeSize = corrected_dz;
1526 if (corrected_dz > 0.) {
1527 if (j-CurrentTicg==0) {
1528 AirVolumeShift = (elementDz-corrected_dz)/2 - elementZPozition;
1529 AirVolumeSize = elementDz;
1531 (*m_log) <<
MSG::DEBUG <<
"TileFinger: OldAirVolumeCenter ="<<elementZPozition <<
endmsg;
1532 (*m_log) <<
MSG::DEBUG <<
"TileFinger: NewAirVolumeCenter ="<<elementZPozition+AirVolumeShift <<
endmsg;
1533 (*m_log) <<
MSG::DEBUG <<
"TileFinger: AirVolumeShift ="<< AirVolumeShift <<
endmsg;
1534 (*m_log) <<
MSG::DEBUG <<
"TileFinger: AirVolumeSize ="<< AirVolumeSize <<
endmsg;
1538 if (elementZPozition*2-AirVolumeSize<-0.01) {
1539 elementZPozition += AirVolumeShift;
1544 elementDz = corrected_dz - AirVolumeSize;
1546 (*m_log) <<
MSG::DEBUG <<
"TileFinger: NewCoverThickness ="<<elementDz <<
endmsg;
1547 (*m_log) <<
MSG::DEBUG <<
"TileFinger: OldCoverCenter ="<<elementZPozition <<
endmsg;
1549 elementZPozition = (corrected_dz-elementDz)/2;
1558 currentMaterial = matIron;
1559 currentName =
"FingerIron";
1564 currentMaterial = matAluminium;
1565 currentName =
"FingerAluminum";
1570 currentMaterial = matElBoard;
1571 currentName =
"FingerElectronics";
1576 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::fillFinger: unexpected material = "
1588 lvFingerElement =
new GeoLogVol(currentName,fingerElementTrd,currentMaterial);
1598 std::atan((elementDy1-elementDy2)/(2.*elementHeight)),
1602 std::atan((elementDy1-elementDy2)/(2.*elementHeight)));
1604 lvFingerElement =
new GeoLogVol(currentName,fingerElementTrap,currentMaterial);
1607 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::fillFinger: unexpected shape = "
1613 pvFingerElement =
new GeoPhysVol(lvFingerElement);
1614 tfFingerElement =
new GeoTransform(GeoTrf::Translate3D(elementZPozition*
Gaudi::Units::cm,
1618 mother->add(tfFingerElement);
1620 if (elementOffset<0) {
1622 mother->add(ZrotateMod);
1627 mother->add(yrotateMod);
1628 mother->add(zrotateMod);
1631 mother->add(
new GeoIdentifierTag(ModuleNcp));
1632 mother->add(pvFingerElement);
1635 if (testbeam)
return;
1639 int Isector =0, LRflag =0;
1641 if ((ModuleNcp/4 - (
float)ModuleNcp/4) != 0) {
1642 Isector = (
int)ModuleNcp/4;
1644 Isector = (
int)ModuleNcp/4-1;
1646 LRflag = ModuleNcp-4*Isector;
1655 double dXleft =35., dXright = 35.;
1656 double dZleft = elementDz/2, dZright = dZleft;
1657 double dZsaddleL = elementDz/4, dZsaddleR = dZsaddleL;
1661 rightName = leftName =
"LArCables";
1664 dZright = elementDz, dXright = 35;
1667 rightName =
"LArService";
1669 }
else if (LRflag == 4) {
1670 dZleft = elementDz, dXleft = 35;
1673 leftName =
"LArService";
1676 if (sec_number == 1) {
1677 if ( (ModuleNcp >=40 && ModuleNcp <=41) || (ModuleNcp >=56 && ModuleNcp <=57) ) {
1678 dZright = dZleft = 8.5;
1679 dZsaddleL = dZsaddleR = 13.7;
1680 rightMaterial = leftMaterial = iron;
1681 rightName = leftName =
"BarrelSaddleSupport";
1685 if ( (ModuleNcp >=39 && ModuleNcp <=42) || (ModuleNcp >=55 && ModuleNcp <=58) ) {
1686 dZright = dZleft = 8.5;
1687 dZsaddleR = dZsaddleL = 13.7;
1688 rightMaterial = leftMaterial = iron;
1689 rightName = leftName =
"ExtBarrelSaddleSupport";
1694 (*
m_log) <<
MSG::DEBUG <<
" Finger : number= "<<sec_number<<
" ModuleNcp = " <<ModuleNcp<<
" Sector= "<< Isector
1695 <<
" LRflag= " << LRflag <<
" Neg "<< boolNeg
1698 GeoTransform *rotateY =
new GeoTransform(GeoTrf::RotateY3D(90*
Gaudi::Units::deg));
1699 GeoTransform *rotateZ =
new GeoTransform(GeoTrf::RotateZ3D(3*
Gaudi::Units::deg));
1700 GeoTransform *rotateZm =
new GeoTransform(GeoTrf::RotateZ3D(-3*
Gaudi::Units::deg));
1704 lvFingerCablesL =
new GeoLogVol(leftName,fingerCablesL,leftMaterial);
1705 pvFingerCablesL =
new GeoPhysVol(lvFingerCablesL);
1709 lvFingerCablesR =
new GeoLogVol(rightName,fingerCablesR,rightMaterial);
1710 pvFingerCablesR =
new GeoPhysVol(lvFingerCablesR);
1712 double YpoFinger =0;
1715 YpoFinger = -elementOffset+5.4;
1717 YpoFinger = elementOffset-5.4;
1723 mother->add(tfFingerCables);
1727 mother->add(rotateY);
1728 mother->add(rotateZm);
1730 mother->add(rotateY);
1731 mother->add(rotateZ);
1734 mother->add(
new GeoIdentifierTag(ModuleNcp));
1735 mother->add(pvFingerCablesL);
1738 YpoFinger = elementOffset-5.4;
1740 YpoFinger = -elementOffset+5.4;
1746 mother->add(tfFingerCables);
1750 mother->add(rotateY);
1751 mother->add(rotateZ);
1753 mother->add(rotateY);
1754 mother->add(rotateZm);
1757 mother->add(
new GeoIdentifierTag(ModuleNcp));
1758 mother->add(pvFingerCablesR);
1765 double tan_delta_phi_2,
1770 int CurrentScin = 0;
1771 const GeoShape* glue{
nullptr};
1772 GeoLogVol* lvGlue{
nullptr};
1773 PVLink pvGlue{
nullptr};
1774 GeoTransform* tfGlue{
nullptr};
1776 double scintiWrapInZ, scintiWrapInR, scintiThickness, scintiDeltaInPhi;
1777 double scintiHeight, scintiRC, scintiZPos, dy1Scintillator, dy2Scintillator;
1778 const GeoShape* scintillator{
nullptr};
1779 GeoLogVol* lvScintillator{
nullptr};
1780 PVLink pvScintillator{
nullptr};
1781 GeoTransform* tfScintillator{
nullptr};
1783 double thicknessWrapper, heightWrapper, dy1Wrapper, dy2Wrapper;
1784 const GeoShape* wrapper{
nullptr};
1785 GeoLogVol* lvWrapper{
nullptr};
1786 PVLink pvWrapper{
nullptr};
1787 GeoTransform* tfWrapper{
nullptr};
1807 CurrentScin = 100*2 + 1;
1826 const GeoMaterial* matScin =
nullptr;
1833 if (matScin !=
nullptr) {
1854 if (dzglue>0.0 && period_type<4 && !removeGlue) {
1858 dzglue2 = floor(dzglue2*1.0
e+10)*1.0e-10;
1871 dzglue2,dzglue2,dy1Glue,dy2Glue,heightGlue2);
1873 glue =
new GeoTrd(dzglue2,dzglue2,dy1Glue,dy2Glue,heightGlue2);
1887 GeoShape *air1 =
new GeoTubs(csTubeOuterR, csHoleR, thicknessMother2, 0.,360.0 *
Gaudi::Units::deg);
1888 GeoShape *air2 =
new GeoTubs(csTubeOuterR, csHoleR, thicknessMother2, 0.,360.0 *
Gaudi::Units::deg);
1889 GeoShape *air3 =
new GeoTubs(0., csTubeInnerR, thicknessMother2, 0.,360.0 *
Gaudi::Units::deg);
1891 GeoLogVol * lvAir1 =
new GeoLogVol(
"CsTubeAir1",air1,matAir);
1892 GeoLogVol * lvAir2 =
new GeoLogVol(
"CsTubeAir2",air2,matAir);
1893 GeoLogVol * lvAir3 =
new GeoLogVol(
"CsTubeAir3",air3,matAir);
1894 GeoPhysVol * pvAir1 =
new GeoPhysVol(lvAir1);
1895 GeoPhysVol * pvAir2 =
new GeoPhysVol(lvAir2);
1896 GeoPhysVol * pvAir3 =
new GeoPhysVol(lvAir3);
1898 GeoTransform* tftube1 =
new GeoTransform(tfHole1);
1899 GeoTransform* tftube2 =
new GeoTransform(tfHole2);
1900 GeoTransform* tftube3 =
new GeoTransform(tfHole2);
1902 mother->add(tftube1);
1903 mother->add(pvAir1);
1904 mother->add(tftube2);
1905 mother->add(pvAir2);
1906 mother->add(tftube3);
1907 mother->add(pvAir3);
1911 glue =
makeHoles(glue, csHoleR, dzglue2, off, off0);
1915 lvGlue =
new GeoLogVol(
"Glue",glue,matGlue);
1916 pvGlue =
new GeoPhysVol(lvGlue);
1919 switch(period_type) {
1929 mother->add(tfGlue);
1930 mother->add(pvGlue);
1934 tfGlue =
new GeoTransform(GeoTrf::Translate3D(-dzglue/2*
Gaudi::Units::cm,0.,0.));
1935 mother->add(tfGlue);
1936 mother->add(pvGlue);
1941 mother->add(tfGlue);
1942 mother->add(pvGlue);
1946 tfGlue =
new GeoTransform(GeoTrf::Translate3D((thickness-dzglue)/2*
Gaudi::Units::cm,0.,0.));
1947 mother->add(tfGlue);
1948 mother->add(pvGlue);
1952 GeoIdentifierTag* idTag =
new GeoIdentifierTag(j-CurrentScin);
1975 thicknessWrapper/2,thicknessWrapper/2,dy1Wrapper,dy2Wrapper,heightWrapper/2);
1977 wrapper =
new GeoTrd(thicknessWrapper/2,
1986 lvWrapper =
new GeoLogVol(
"Wrapper",wrapper,matAir);
1987 pvWrapper =
new GeoPhysVol(lvWrapper);
1995 checking(
"Scintillator 0",
true, 6,
2007 lvScintillator =
new GeoLogVol(
"Scintillator",scintillator,matScin);
2008 pvScintillator =
new GeoPhysVol(lvScintillator);
2011 tfScintillator =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
2012 pvWrapper->add(idTag);
2013 pvWrapper->add(tfScintillator);
2014 pvWrapper->add(pvScintillator);
2018 (*m_log) <<
MSG::VERBOSE <<
" X scintiZPos= "<<scintiZPos;
2027 mother->add(tfWrapper);
2028 mother->add(pvWrapper);
2041 mother->add(tfGlue);
2042 mother->add(pvGlue);
2047 mother->add(tfGlue);
2048 mother->add(pvGlue);
2052 GeoIdentifierTag* idTag =
new GeoIdentifierTag(j-CurrentScin);
2075 thicknessWrapper/2,thicknessWrapper/2,dy1Wrapper,dy2Wrapper,heightWrapper/2);
2077 wrapper =
new GeoTrd(thicknessWrapper/2,
2086 lvWrapper =
new GeoLogVol(
"Wrapper",wrapper,matAir);
2087 pvWrapper =
new GeoPhysVol(lvWrapper);
2095 checking(
"Scintillator 1",
true, 6,
2107 lvScintillator =
new GeoLogVol(
"Scintillator",scintillator,matScin);
2108 pvScintillator =
new GeoPhysVol(lvScintillator);
2111 tfScintillator =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
2112 pvWrapper->add(idTag);
2113 pvWrapper->add(tfScintillator);
2114 pvWrapper->add(pvScintillator);
2118 (*m_log) <<
MSG::VERBOSE <<
" X scintiZPos= "<<scintiZPos;
2127 mother->add(tfWrapper);
2128 mother->add(pvWrapper);
2140 tfGlue =
new GeoTransform(GeoTrf::Translate3D((-thickness + dzglue)*
Gaudi::Units::cm/2,0.,0.));
2141 mother->add(tfGlue);
2142 mother->add(pvGlue);
2147 mother->add(tfGlue);
2148 mother->add(pvGlue);
2152 tfGlue =
new GeoTransform(GeoTrf::Translate3D(dzglue/2*
Gaudi::Units::cm,0.,0.));
2153 mother->add(tfGlue);
2154 mother->add(pvGlue);
2159 mother->add(tfGlue);
2160 mother->add(pvGlue);
2164 GeoIdentifierTag* idTag =
new GeoIdentifierTag(j-CurrentScin);
2188 thicknessWrapper/2,thicknessWrapper/2,dy1Wrapper,dy2Wrapper,heightWrapper/2);
2190 wrapper =
new GeoTrd(thicknessWrapper/2,
2199 lvWrapper =
new GeoLogVol(
"Wrapper",wrapper,matAir);
2200 pvWrapper =
new GeoPhysVol(lvWrapper);
2208 checking(
"Scintillator 2",
true, 6,
2220 lvScintillator =
new GeoLogVol(
"Scintillator",scintillator,matScin);
2221 pvScintillator =
new GeoPhysVol(lvScintillator);
2224 tfScintillator =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
2225 pvWrapper->add(idTag);
2226 pvWrapper->add(tfScintillator);
2227 pvWrapper->add(pvScintillator);
2231 (*m_log) <<
MSG::VERBOSE <<
" X scintiZPos= "<<scintiZPos;
2240 mother->add(tfWrapper);
2241 mother->add(pvWrapper);
2265 GeoIdentifierTag* idTag =
new GeoIdentifierTag(j-CurrentScin);
2274 thicknessWrapper/2,thicknessWrapper/2,dy1Wrapper,dy2Wrapper,heightWrapper/2);
2276 wrapper =
new GeoTrd(thicknessWrapper/2,
2285 lvWrapper =
new GeoLogVol(
"Wrapper",wrapper,matAir);
2286 pvWrapper =
new GeoPhysVol(lvWrapper);
2294 checking(
"Scintillator 3",
true, 6,
2306 lvScintillator =
new GeoLogVol(
"Scintillator",scintillator,matScin);
2307 pvScintillator =
new GeoPhysVol(lvScintillator);
2310 tfScintillator =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
2311 pvWrapper->add(idTag);
2312 pvWrapper->add(tfScintillator);
2313 pvWrapper->add(pvScintillator);
2321 tfWrapper =
new GeoTransform(GeoTrf::Translate3D(0.,
2325 mother->add(tfWrapper);
2326 mother->add(pvWrapper);
2336 double dy1Period =
period->getYHalfLength1();
2337 double tanphi = (
period->getYHalfLength2()-dy1Period)/
period->getZHalfLength()/2.;
2339 if (std::abs(tanphi-tan_delta_phi_2) > 1.e-5)
2343 GeoIdentifierTag* idTag =
new GeoIdentifierTag(j-CurrentScin);
2360 dy1Wrapper = dy1Period - thicknessEnvelope + ((scintiRC - scintiHeight/2. - scintiWrapInR)*tanphi)*
Gaudi::Units::cm;
2361 dy2Wrapper = dy1Period - thicknessEnvelope + ((scintiRC + scintiHeight/2. + scintiWrapInR)*tanphi)*
Gaudi::Units::cm;
2366 thicknessWrapper/2,thicknessWrapper/2,dy1Wrapper,dy2Wrapper,heightWrapper/2);
2368 wrapper =
new GeoTrd(thicknessWrapper/2,
2373 lvWrapper =
new GeoLogVol(
"Wrapper",wrapper,matAir);
2374 pvWrapper =
new GeoPhysVol(lvWrapper);
2377 dy1Scintillator = dy1Period - thicknessEnvelope + ((scintiRC - scintiHeight/2.)*tanphi - scintiDeltaInPhi)*
Gaudi::Units::cm;
2378 dy2Scintillator = dy1Period - thicknessEnvelope + ((scintiRC + scintiHeight/2.)*tanphi - scintiDeltaInPhi)*
Gaudi::Units::cm;
2380 checking(
"Scintillator 4",
true, 6,
2388 lvScintillator =
new GeoLogVol(
"Scintillator",scintillator,matScin);
2389 pvScintillator =
new GeoPhysVol(lvScintillator);
2392 tfScintillator =
new GeoTransform(GeoTrf::Translate3D(0.,0.,0.));
2393 pvWrapper->add(idTag);
2394 pvWrapper->add(tfScintillator);
2395 pvWrapper->add(pvScintillator);
2403 tfWrapper =
new GeoTransform(GeoTrf::Translate3D(0.,
2407 mother->add(tfWrapper);
2408 mother->add(pvWrapper);
2419 double X1,
double X2,
double Y1,
double Y2,
double Z)
2421 double rless = .005;
2422 std::string Step[8] = {
" ",
2433 << std::setiosflags(std::ios::fixed) << std::setw(9) << std::setprecision(4)
2434 <<
" dX1,dX2= "<<X1<<
" "<<X2
2435 <<
" dY1,dY2= "<<Y1<<
" "<<Y2
2437 << std::resetiosflags(std::ios::fixed)
2440 if (X1 < rless && X2 < rless) {
2441 (*m_log) << MSG::WARNING <<
" volume "<<
Name<<
" is empty, X1 or X2<0 "<<
endmsg;
2443 if (Y1 < rless && Y2 < rless) {
2444 (*m_log) << MSG::WARNING <<
" volume "<<
Name<<
" is empty, Y1 or Y2<0 "<<
endmsg;
2447 (*m_log) << MSG::WARNING <<
" volume "<<
Name<<
" is empty, Z<0 "<<
endmsg;
2464 int currentSample, etaIndex, nsamp;
2465 std::vector<int> samples;
2466 std::vector<int> firstScin;
2467 std::vector<int> lastScin;
2471 float phi_min, phi_max;
2472 float dphi = 2.0f*
M_PI/64;
2475 phi_max = nphi*dphi/2;
2479 phi_max = nphi * dphi;
2483 float rBarrel[] = {2450., 3020., 3630.};
2484 float drBarrel[] = {300., 840., 380.};
2486 float rExtended[] = {2450., 2870., 3480.};
2487 float drExtended[] = {300., 540., 680.};
2489 float rGap[] = {3215., 3630., 2802.5, 2475.5, 2066., 1646.};
2490 float drGap[] = {450., 380., 313., 341., 478., 362.};
2505 int indHardcoded = 0;
2522 int sign_eta = (
side>0) ? 1 : -1;
2535 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::fillDescriptor: No TICL structures for detector: "
2553 if (currentSample==samples[
index])
break;
2554 if (
index==samples.size()) {
2555 samples.push_back(currentSample);
2563 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::fillDescriptor: No TICL structures for the detector: "
2570 etaIndex = samples[
index];
2571 if (etaIndex > nsamp) nsamp = etaIndex;
2575 eta_min[etaIndex-1],
2576 eta_max[etaIndex-1],
2583 zcenter[etaIndex-1],
2588 rcenter[etaIndex-1] = rBarrel[indHardcoded];
2589 dr[etaIndex-1] = drBarrel[indHardcoded];
2591 rcenter[etaIndex-1] = rExtended[indHardcoded];
2592 dr[etaIndex-1] = drExtended[indHardcoded];
2599 rcenter[etaIndex-1],
2620 if (etaIndex > nsamp) nsamp = etaIndex;
2622 neta[etaIndex-1] = 1;
2630 zcenter[etaIndex-1],
2634 rcenter[etaIndex-1] = rGap[indHardcoded];
2635 dr[etaIndex-1] = drGap[indHardcoded];
2642 rcenter[etaIndex-1],
2657 float rMB[] = { 676., 254. };
2658 float drMB[] = { 306., 116. };
2662 for (
int ind=0; ind<2; ++ind) {
2665 eta_min[ind] = 2. + ind;
2666 eta_max[ind] = 3. + ind;
2669 rcenter[ind] = rMB[ind];
2670 dr[ind] = drMB[ind];
2676 phi_max = nphi * dphi + phi_min;
2679 descriptor->
set(&*eta_min.begin(),
2698 descriptor->
print();
2715 MLOG(
DEBUG) <<
"TileGeoSectionBuilder::computeCellDim for detector="
2719 std::vector<double> rmins;
2720 std::vector<double> rmaxs;
2721 std::vector<double> zmins;
2722 std::vector<double> zmaxs;
2726 std::vector<int> samples;
2730 unsigned int CurrentScin;
2732 int nSide, nTower, nSample=0;
2733 unsigned int nFirstRow, nLastRow,
nRows;
2735 double dzCell, dzPeriod;
2737 double zEnd1 =0,zEnd2 =0,zEnd1Lim =0,zEnd2Lim =0;
2740 float minTilesInRow;
2764 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::computeCellDim: Error return from TileDddbManager::TILBsection() " <<
endmsg;
2767 CurrentScin = 100*
section + 1;
2785 tileSize=
round(tileSize);
2789 rmins.push_back(rMin);
2790 rmaxs.push_back(rMax);
2810 zmaxs.push_back(0.);
2822 if (currentSample==samples[
index])
break;
2823 if (
index==samples.size()) samples.push_back(currentSample);
2827 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::computeCellDim: No TICL structures for the detector: "
2834 currentSample = samples[
index];
2840 nLastRow = nFirstRow + 2;
2844 nRows = nLastRow - nFirstRow + 1;
2849 for (
unsigned int jj=1; jj<
nRows; jj++) {
2857 dzCell = minTilesInRow * dzPeriod;
2859 dzCell = (minTilesInRow + 0.5) * dzPeriod;
2861 MLOG(
DEBUG) <<
"dzCell: " << dzCell <<
" minTilesInRow: " << minTilesInRow <<
" isSquare: " << isSquare <<
" dzPeriod: " << dzPeriod <<
endmsg;
2863 for (
unsigned int jj=nFirstRow; jj<=nLastRow; jj++)
2864 zmaxs[jj-1] = zmins[jj-1] + dzCell;
2871 int firstC = nLastRow + 1;
2876 for (
unsigned int jj=firstC-nFirstRow+1; jj<=nLastRow-nFirstRow; jj++) {
2884 dzCell = minTilesInRow*dzPeriod;
2886 dzCell = (minTilesInRow + 0.5)*dzPeriod;
2889 MLOG(
DEBUG) <<
"BC - dzCell: " << dzCell <<
" minTilesInRow: " << minTilesInRow <<
" isSquare: " << isSquare <<
endmsg;
2891 for (
unsigned int jj=firstC; jj<=nLastRow; jj++)
2892 zmaxs[jj-1] = zmins[jj-1] + dzCell;
2904 for (
unsigned int jj=nFirstRow; jj<=nLastRow; jj++) {
2905 double Zmin=zmins[jj-1];
2906 double Zmax=zmaxs[jj-1];
2909 else if (
Zmin>zEnd2Lim)
Zmin=zEnd2;
2911 else if (
Zmax>zEnd2Lim)
Zmax=zEnd2;
2914 cellDim->
addRMin(rmins[jj-1]);
2915 cellDim->
addRMax(rmaxs[jj-1]);
2920 cellDimNeg->addRMin(rmins[jj-1]);
2921 cellDimNeg->addRMax(rmaxs[jj-1]);
2922 cellDimNeg->addZMin(-
Zmax-zShiftNeg);
2923 cellDimNeg->addZMax(-
Zmin-zShiftNeg);
2925 MLOG(
DEBUG) <<
"Zmin: " <<
Zmin <<
" Zmax: " <<
Zmax <<
" zShiftPos: " << zShiftPos <<
" zShiftNeg: " << zShiftNeg <<
endmsg;
2928 if (jj==nFirstRow || (BCcell && jj==nLastRow))
2933 for (
unsigned int jj=nFirstRow; jj<=nLastRow; jj++)
2934 zmins[jj-1] = zmaxs[jj-1];
2942 nSample = currentSample - 1;
2950 cellDimNeg->computeVolume();
2960 std::cout << std::setiosflags(std::ios::fixed)
2961 << std::setw(9) << std::setprecision(2);
2962 std::cout <<
"\n **** Cell dimensions computed for : ";
2963 std::cout <<
"(" <<
detector <<
", "
2966 << nSample <<
")\n";
2967 std::cout <<
" >> CellDim contains " << cellDim->
getNRows() <<
" rows\n";
2968 for (
unsigned int jj=0; jj<cellDim->
getNRows(); jj++)
2969 std::cout << cellDim->
getRMin(jj) <<
" "
2970 << cellDim->
getRMax(jj) <<
" "
2971 << cellDim->
getZMin(jj) <<
" "
2972 << cellDim->
getZMax(jj) <<
"\n";
2976 std::cout <<
" >> CellDimNeg contains " << cellDimNeg->getNRows() <<
" rows\n";
2977 for (
unsigned int jj=0; jj<cellDimNeg->getNRows(); jj++)
2978 std::cout << cellDimNeg->getRMin(jj) <<
" "
2979 << cellDimNeg->getRMax(jj) <<
" "
2980 << cellDimNeg->getZMin(jj) <<
" "
2981 << cellDimNeg->getZMax(jj) <<
"\n";
2982 std::cout <<
" >> CellNeg Volume is " << cellDimNeg->getVolume()*(1./
Gaudi::Units::cm3) <<
" cm^3\n";
2984 std::cout <<
"\n" << std::resetiosflags(std::ios::fixed);
2991 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::computeCellDim: No TICL structures in detector: "
3001 for (
unsigned int sec=0; sec<2; sec++) {
3027 if (addPlates && sec)
3034 tileSize=
round(tileSize);
3038 rmins.push_back(rMin);
3039 rmaxs.push_back(rMax);
3058 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::computeCellDim: Bad return from TILBnscin" <<
endmsg;
3065 for (
unsigned int jj=0; jj<nscin; jj++) {
3068 cellDim->
addZMin(zmins[jj]+zShiftPos);
3069 cellDim->
addZMax(zmaxs[jj]+zShiftPos);
3071 cellDimNeg->addRMin(rmins[jj]);
3072 cellDimNeg->addRMax(rmaxs[jj]);
3073 cellDimNeg->addZMin(-zmaxs[jj]-zShiftNeg);
3074 cellDimNeg->addZMax(-zmins[jj]-zShiftNeg);
3076 MLOG(
DEBUG) <<
"Zmin: " << zmins[0] <<
" Zmax: " << zmaxs[0] <<
" zShiftPos: " << zShiftPos <<
" zShiftNeg: " << zShiftNeg <<
endmsg;
3082 cellDimNeg->computeVolume();
3088 std::cout << std::setiosflags(std::ios::fixed)
3089 << std::setw(9) << std::setprecision(2);
3090 std::cout <<
"\n **** Cell dimension computed for : ";
3091 std::cout <<
"(" <<
detector <<
", "
3094 << nSample <<
")\n";
3095 std::cout <<
" >> CellDim contains " << cellDim->
getNRows() <<
" rows\n";
3096 for (
unsigned int jj=0; jj<cellDim->
getNRows(); jj++)
3097 std::cout << cellDim->
getRMin(jj) <<
" "
3098 << cellDim->
getRMax(jj) <<
" "
3099 << cellDim->
getZMin(jj) <<
" "
3100 << cellDim->
getZMax(jj) <<
"\n";
3103 std::cout <<
" >> CellDimNeg contains " << cellDimNeg->getNRows() <<
" rows\n";
3104 for (
unsigned int jj=0; jj<cellDimNeg->getNRows(); jj++)
3105 std::cout << cellDimNeg->getRMin(jj) <<
" "
3106 << cellDimNeg->getRMax(jj) <<
" "
3107 << cellDimNeg->getZMin(jj) <<
" "
3108 << cellDimNeg->getZMax(jj) <<
"\n";
3109 std::cout <<
" >> CellNeg Volume is " << cellDimNeg->getVolume()*(1./
Gaudi::Units::cm3) <<
" cm^3\n";
3110 std::cout <<
"\n" << std::resetiosflags(std::ios::fixed);
3115 for (
unsigned int sec=0; sec<2; sec++) {
3139 if (j==CurrentScin) {
3141 rMax = rCenter + dR2;
3143 rMin = rCenter - dR2;
3147 rMin = rCenter - dR2;
3148 rMax = rCenter + dR2;
3151 rmins.push_back(rMin);
3152 rmaxs.push_back(rMax);
3160 if (sec==0 && jj==0)
3185 cellDimNeg->computeVolume();
3191 boost::io::ios_base_all_saver coutsave (std::cout);
3192 std::cout << std::setiosflags(std::ios::fixed)
3193 << std::setw(9) << std::setprecision(2);
3194 std::cout <<
"\n **** Cell dimension computed for : ";
3195 std::cout <<
"(" <<
detector <<
", "
3198 << nSample <<
")\n";
3199 std::cout <<
" >> CellDim contains " << cellDim->
getNRows() <<
" rows\n";
3200 for (
unsigned int jj=0; jj<cellDim->
getNRows(); jj++)
3201 std::cout << cellDim->
getRMin(jj) <<
" "
3202 << cellDim->
getRMax(jj) <<
" "
3203 << cellDim->
getZMin(jj) <<
" "
3204 << cellDim->
getZMax(jj) <<
"\n";
3207 std::cout <<
" >> CellDimNeg contains " << cellDimNeg->getNRows() <<
" rows\n";
3208 for (
unsigned int jj=0; jj<cellDimNeg->getNRows(); jj++)
3209 std::cout << cellDimNeg->getRMin(jj) <<
" "
3210 << cellDimNeg->getRMax(jj) <<
" "
3211 << cellDimNeg->getZMin(jj) <<
" "
3212 << cellDimNeg->getZMax(jj) <<
"\n";
3213 std::cout <<
" >> CellNeg Volume is " << cellDimNeg->getVolume()*(1./
Gaudi::Units::cm3) <<
" cm^3\n";
3248 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateZ: Unexpected detector: "
3273 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateZ: Error return from TileDddbManager::TILBsection() " <<
endmsg;
3287 if (
side<1) zcenter *= -1;
3318 cell = firstScin - 2;
3325 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateR: Unexpected detector: "
3330 float oldrc = rcenter;
3339 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateR: Error return from TileDddbManager::TILBsection() " <<
endmsg;
3347 rMax = rcenter +
dr * 0.5;
3349 rMin = rcenter -
dr * 0.5;
3351 rcenter = (rMax+rMin) * 0.5;
3366 }
else if (
cell == -2) {
3368 }
else if (firstScin == 1) {
3389 rcenter = (rMax+rMin)*0.5;
3398 boost::io::ios_base_all_saver coutsave (std::cout);
3399 std::cout << std::setiosflags(std::ios::fixed) << std::setw(9) << std::setprecision(2);
3400 std::cout <<
"Detector " <<
detector <<
" sample " <<
sample <<
" old r/dr " << oldrc <<
" " << olddr << std::endl;
3401 std::cout <<
"Detector " <<
detector <<
" sample " <<
sample <<
" new r/dr " << rcenter <<
" " <<
dr <<
" delta r/dr " << rcenter-oldrc <<
" " <<
dr-olddr << std::endl;
3436 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateEta: No TICL structures of positive side "
3437 <<
"in Central Barrel for sample: " <<
sample <<
endmsg;
3459 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateEta: No TICL structures in detector: "
3467 (*m_log) << MSG::ERROR <<
"TileGeoSectionBuilder::calculateEta: Unexpected detector: "
3496 (*m_log) << MSG::WARNING <<
"TileGeoSectionBuilder::checktransfunc: np is negative!"<<
endmsg;
3500 << std::setprecision (std::numeric_limits<double>::digits10 + 1)
3501 <<
" Absorber center = " << center
3502 <<
" length = " << absorber
3503 <<
" period = " <<
period
3504 <<
" nperiods = " <<
np
3506 double zC,dZ,z1,z2=-absorber/2.+center;
3507 for (
int i=0;
i<
np; ++
i) {
3508 zC = (
period*(2*
i+1)-absorber)/2. + center;
3513 <<
i <<
" z1= " << z1 <<
" z2= " << z2
3514 <<
" dist from previous= " << dZ <<
endmsg;
3521 (*m_log) <<
MSG::VERBOSE << std::setprecision (std::numeric_limits<double>::digits10 + 1)
3528 const GeoShapeUnion& scintUnion =
hole->add( *
hole << GeoTrf::Translate3D((off0-off*2.0),0.,0.));
3530 const GeoShape & motherWithHoles = (mother->subtract(scintUnion<<tfHole));
3531 return &motherWithHoles;
3540 const GeoShape & motherWithHoles = (mother->subtract((*hole1)<<tfHole1).subtract((*hole2)<<tfHole2));
3541 return &motherWithHoles;