create_rootgeom_GEMS_Run9_detailed.C

Go to the documentation of this file.

/*
 * Basic ROOT geometry for the configuration of GEM detector in RUN-9
 * (only sensor volumes)
 *
 * Author: Baranov D.
 * Date: 07.04.2025 (created)
 *       22.04.2025 (st.3 z-pos. corrected)
 */
 
// Set Parameters of GEMS -------------------------------------------------------
const Int_t NStations = 8;     // stations in the detector
const Int_t NMaxModules = 4;   // max. number of modules in a station
 
// X-position of the hole center for the plane closest to the target (in a station)
const Double_t XStationPositions[NStations] = {
    +1.419,   // 0 st. (M15)
    +2.529,   // 1 st. (M10)
    +3.408,   // 2 st. (M14)
    +4.697,   // 3 st. (M8)
    +6.335,   // 4 st. (M16)
    +8.213,   // 5 st. (M7)
    +9.784,   // 6 st. (M12)
    +50.494   // 7 st. (small GEM)
};
 
// Y-position of the hole center for the plane closest to the target (in a station)
const Double_t YStationPositions[NStations] = {
    -0.032,   // 0 st. (M15)
    +0.123,   // 1 st. (M10)
    +0.026,   // 2 st. (M14)
    -0.013,   // 3 st. (M8),
    -0.026,   // 4 st. (M16)
    +0.058,   // 5 st. (M7)
    -0.048,   // 6 st. (M12)
    -0.186    // 7 st. (small GEM)
};
 
// Z-position of gas volume for the plane closest to the target (in a station)
const Double_t ZStationPositions[NStations] = {
    +61.107,    // 0 st. (M15)
    +92.313,    // 1 st. (M10)
    +123.541,   // 2 st. (M14)
    +154.778,   // 3 st. (M8)
    +185.458,   // 4 st. (M16)
    +217.141,   // 5 st. (M7)
    +248.367,   // 6 st. (M12)
    +792.532    // 7 st. (small GEM)
};
 
// Shifts for the second plane in a station relative to the closest half-plane
const Double_t xShift[NStations] = {
    +0.111,   // 0 st. (M6)
    +0.142,   // 1 st. (M13)
    +0.081,   // 2 st. (M11)
    +0.100,   // 3 st. (M18)
    +0.092,   // 4 st. (M5)
    +0.113,   // 5 st. (M17)
    +0.155,   // 6 st. (M9)
    +0.0      // 7 st. (small GEM)
};
const Double_t yShift[NStations] = {
    +0.008,   // 0 st. (M6)
    -0.100,   // 1 st. (M13)
    +0.048,   // 2 st. (M11)
    +0.042,   // 3 st. (M18)
    +0.109,   // 4 st. (M5)
    -0.089,   // 5 st. (M17)
    +0.168,   // 6 st. (M9)
    +0.0      // 7 st. (small GEM)
};
const Double_t zShift[NStations] = {
    +4.691,   // 0 st. (M6)
    +4.158,   // 1 st. (M13)
    +4.672,   // 2 st. (M11)
    +4.124,   // 3 st. (M18)
    +4.683,   // 4 st. (M5)
    +3.995,   // 5 st. (M17)
    +4.063,   // 6 st. (M9)
    +0.0      // 7 st. (small GEM)
};
 
//(X-Y-Z)Shifts of modules in each station
const Double_t XModuleShifts[NStations][NMaxModules] = {
    {163.2 * 0.25 + xShift[0], -163.2 * 0.25 + xShift[0],   // 0 st. (upper h. plane)
     163.2 * 0.25, -163.2 * 0.25},                          // 0 st. (lower h. plane)
 
    {163.2 * 0.25, -163.2 * 0.25,                            // 1 st. (upper h. plane)
     163.2 * 0.25 + xShift[1], -163.2 * 0.25 + xShift[1]},   // 1 st. (lower h. plane)
 
    {163.2 * 0.25 + xShift[2], -163.2 * 0.25 + xShift[2],   // 2 st. (upper h. plane)
     163.2 * 0.25, -163.2 * 0.25},                          // 2 st. (lower h. plane)
 
    {163.2 * 0.25, -163.2 * 0.25,                            // 3 st. (upper h. plane)
     163.2 * 0.25 + xShift[3], -163.2 * 0.25 + xShift[3]},   // 3 st. (lower h. plane)
 
    {163.2 * 0.25 + xShift[4], -163.2 * 0.25 + xShift[4],   // 4 st. (upper h. plane)
     163.2 * 0.25, -163.2 * 0.25},                          // 4 st. (lower h. plane)
 
    {163.2 * 0.25, -163.2 * 0.25,                            // 5 st. (upper h. plane)
     163.2 * 0.25 + xShift[5], -163.2 * 0.25 + xShift[5]},   // 5 st. (lower h. plane)
 
    {163.2 * 0.25 + xShift[6], -163.2 * 0.25 + xShift[6],   // 6 st. (upper h. plane)
     163.2 * 0.25, -163.2 * 0.25},                          // 6 st. (lower h. plane)
 
    {0.0}   // 7 st.
};
const Double_t YModuleShifts[NStations][NMaxModules] = {
    {+22.5 + yShift[0], +22.5 + yShift[0],   // 0 st. (upper h. plane)
     -19.5, -19.5},                          // 0 st. (lower h. plane)
 
    {+22.5, +22.5,                            // 1 st. (upper h. plane)
     -19.5 + yShift[1], -19.5 + yShift[1]},   // 1 st. (lower h. plane)
 
    {+22.5 + yShift[2], +22.5 + yShift[2],   // 2 st. (upper h. plane)
     -19.5, -19.5},                          // 2 st. (lower h. plane)
 
    {+22.5, +22.5,                            // 3 st. (upper h. plane)
     -19.5 + yShift[3], -19.5 + yShift[3]},   // 3 st. (lower h. plane)
 
    {+22.5 + yShift[4], +22.5 + yShift[4],   // 4 st. (upper h. plane)
     -19.5, -19.5},                          // 4 st. (lower h. plane)
 
    {+22.5, +22.5,                            // 5 st. (upper h. plane)
     -19.5 + yShift[5], -19.5 + yShift[5]},   // 5 st. (lower h. plane)
 
    {+22.5 + yShift[6], +22.5 + yShift[6],   // 6 st. (upper h. plane)
     -19.5, -19.5},                          // 6 st. (lower h. plane)
 
    {0.0}   // 7 st.
};
const Double_t ZModuleShifts[NStations][NMaxModules] = {
    {zShift[0], zShift[0], 0.0, 0.0},   // 0 st.
    {0.0, 0.0, zShift[1], zShift[1]},   // 1 st.
    {zShift[2], zShift[2], 0.0, 0.0},   // 2 st.
    {0.0, 0.0, zShift[3], zShift[3]},   // 3 st.
    {zShift[4], zShift[4], 0.0, 0.0},   // 4 st.
    {0.0, 0.0, zShift[5], zShift[5]},   // 5 st.
    {zShift[6], zShift[6], 0.0, 0.0},   // 6 st.
    {0.0}                               // 7 st.
};
 
/*
 * Basic station:
 *
 *  -------------------- --------------------
 * |                    |                    |
 * |  module 0          |  module 1          |    ^ beam direction (Z)
 * |                    |                    |   /
 * |        ------------|--------------      |  /
 * |       /            |             /      | /
 * |      /             |            /       |/
 *  -----------------------------------------
 * |      \             |            \       |
 * |       \            |             \      |
 * |        \___________|______________\     |
 * |                    |                    |
 * |                    |                    |
 * |  module 2          |  module 3          |
 *  -----------------------------------------
 *
 */
 
// rotations of stations around y-axis by 180 deg.
const Bool_t YStationRotations[NStations] = {true /*0*/, false /*1*/, true /*2*/, false /*3*/,
                                             true /*4*/, false /*5*/, true /*6*/, false /*7*/};
 
// rotations of stations around x-axis by 180 deg.
const Bool_t XStationRotations[NStations] = {false /*0*/, false /*1*/, false /*2*/, false /*3*/,
                                             false /*4*/, false /*5*/, false /*6*/, false /*7*/};
 
// GEM plane sizes (163x45 type) ------------------------------------------------
const Double_t XModuleSize_Station163x45 = 163.2 * 0.5;   // 81.6
const Double_t YModuleSize_Station163x45 = 45.0;
const Double_t ZModuleSize_Station163x45 = 0.9;   // sensitive volume
const Double_t ZGEMSize_Station163x45 = 3.9;      // common thickness of GEM (including sens. vol)
//------------------------------------------------------------------------------
 
// GEM plane sizes (163x39 type) ------------------------------------------------
const Double_t XModuleSize_Station163x39 = 163.2 * 0.5;   // 81.6
const Double_t YModuleSize_Station163x39 = 39.0;
const Double_t ZModuleSize_Station163x39 = 0.9;   // sensitive volume
const Double_t ZGEMSize_Station163x39 = 3.9;      // common thickness of GEM (including sens. vol)
//------------------------------------------------------------------------------
 
// GEM plane sizes (10x10 type) -------------------------------------------------
const Double_t XModuleSize_Station10x10 = 10.0;   // cm
const Double_t YModuleSize_Station10x10 = 10.0;   // cm
const Double_t ZModuleSize_Station10x10 = 0.9;    // sensitive volume
//------------------------------------------------------------------------------
 
// GeoManager
TGeoManager* gGeoMan = NULL;
 
// media
TGeoMedium* pMedAir = 0;
TGeoMedium* pMedCarbon = 0;
TGeoMedium* pMedFiberGlass = 0;
TGeoMedium* pMedCopper = 0;
TGeoMedium* pMedArCO27030 = 0;
TGeoMedium* pMedArC4H10_80_20 = 0;
TGeoMedium* pMedAluminium = 0;
TGeoMedium* pMedEpoxideCompound = 0;
TGeoMedium* pMedGlue = 0;
TGeoMedium* pMedBrass = 0;
TGeoMedium* pMedSteel = 0;
TGeoMedium* pMedHoneyComb = 0;
TGeoMedium* pMedPolyacetal = 0;
TGeoMedium* pMedPolyamide = 0;
TGeoMedium* pMedKapton = 0;
 
class FairGeoMedia;
class FairGeoBuilder;
 
TGeoVolume* CreateStation(TString station_name);
 
TGeoVolume* CreateModule_Station163x45(TString module_name,
                                       Double_t xsize,
                                       Double_t ysize,
                                       Double_t zsize,
                                       Double_t hole_radius);
TGeoVolume* CreateLayersForModule_Station163x45(TString layer_name);
TGeoVolume* CreateFrameForHalfPlane_Station163x45(TString frame_name);
 
TGeoVolume* CreateModule_Station163x39(TString module_name,
                                       Double_t xsize,
                                       Double_t ysize,
                                       Double_t zsize,
                                       Double_t hole_radius);
TGeoVolume* CreateLayersForModule_Station163x39(TString layer_name);
TGeoVolume* CreateFrameForHalfPlane_Station163x39(TString frame_name);
 
TGeoVolume* CreateModule_Station10x10(TString module_name, Double_t xsize, Double_t ysize, Double_t zsize);
TGeoVolume* CreateLayersForModule_Station10x10(TString layer_name);
TGeoVolume* CreateFrameForModule_Station10x10(TString frame_name);
 
void DefineRequiredMedia(FairGeoMedia* geoMedia, FairGeoBuilder* geoBuild)
{
 
    // air medium
    FairGeoMedium* mAir = geoMedia->getMedium("air");
    if (!mAir)
        Fatal("Main", "FairMedium air not found");
    geoBuild->createMedium(mAir);
    pMedAir = gGeoManager->GetMedium("air");
    if (!pMedAir)
        Fatal("Main", "Medium air not found");
 
    // carbon medium
    FairGeoMedium* mCarbon = geoMedia->getMedium("carbon");
    if (!mCarbon)
        Fatal("Main", "FairMedium carbon not found");
    geoBuild->createMedium(mCarbon);
    pMedCarbon = gGeoManager->GetMedium("carbon");
    if (!pMedCarbon)
        Fatal("Main", "Medium carbon not found");
 
    // fiberglass medium
    FairGeoMedium* mFiberGlass = geoMedia->getMedium("fiberglass");
    if (!mFiberGlass)
        Fatal("Main", "FairMedium fiberglass not found");
    geoBuild->createMedium(mFiberGlass);
    pMedFiberGlass = gGeoManager->GetMedium("fiberglass");
    if (!pMedFiberGlass)
        Fatal("Main", "Medium fiberglass not found");
 
    // copper medium
    FairGeoMedium* mCopper = geoMedia->getMedium("copper");
    if (!mCopper)
        Fatal("Main", "FairMedium copper not found");
    geoBuild->createMedium(mCopper);
    pMedCopper = gGeoManager->GetMedium("copper");
    if (!pMedCopper)
        Fatal("Main", "Medium copper not found");
 
    // arco27020 medium
    FairGeoMedium* mArCO27030 = geoMedia->getMedium("arco27030");
    if (!mArCO27030)
        Fatal("Main", "FairMedium arco27030 not found");
    geoBuild->createMedium(mArCO27030);
    pMedArCO27030 = gGeoManager->GetMedium("arco27030");
    if (!pMedArCO27030)
        Fatal("Main", "Medium arco27030 not found");
 
    // ArC4H10_80_20 medium
    FairGeoMedium* mArC4H10_80_20 = geoMedia->getMedium("ArC4H10_80_20");
    if (!mArC4H10_80_20)
        Fatal("Main", "FairMedium ArC4H10_80_20 not found");
    geoBuild->createMedium(mArC4H10_80_20);
    pMedArC4H10_80_20 = gGeoManager->GetMedium("ArC4H10_80_20");
    if (!pMedArC4H10_80_20)
        Fatal("Main", "Medium ArC4H10_80_20 not found");
 
    // aluminium medium
    FairGeoMedium* mAluminium = geoMedia->getMedium("aluminium");
    if (!mAluminium)
        Fatal("Main", "FairMedium aluminium not found");
    geoBuild->createMedium(mAluminium);
    pMedAluminium = gGeoManager->GetMedium("aluminium");
    if (!pMedAluminium)
        Fatal("Main", "Medium aluminium not found");
 
    // epoxide compound (for GEM frames)
    FairGeoMedium* mEpoxideCompound = geoMedia->getMedium("polyurethane_hd");
    if (!mEpoxideCompound)
        Fatal("Main", "FairMedium epoxideCompound not found");
    geoBuild->createMedium(mEpoxideCompound);
    pMedEpoxideCompound = gGeoManager->GetMedium("polyurethane_hd");
    if (!pMedEpoxideCompound)
        Fatal("Main", "Medium epoxideCompound not found");
 
    // glue
    FairGeoMedium* mGlue = geoMedia->getMedium("acrylic_glue");
    if (!mGlue)
        Fatal("Main", "FairMedium acrylic_glue not found");
    geoBuild->createMedium(mGlue);
    pMedGlue = gGeoManager->GetMedium("acrylic_glue");
    if (!pMedGlue)
        Fatal("Main", "Medium acrylic_glue not found");
 
    // brass medium
    FairGeoMedium* mBrass = geoMedia->getMedium("brass");
    if (!mBrass)
        Fatal("Main", "FairMedium brass not found");
    geoBuild->createMedium(mBrass);
    pMedBrass = gGeoManager->GetMedium("brass");
    if (!pMedBrass)
        Fatal("Main", "Medium brass not found");
 
    // steel medium
    FairGeoMedium* mSteel = geoMedia->getMedium("steel");
    if (!mSteel)
        Fatal("Main", "FairMedium steel not found");
    geoBuild->createMedium(mSteel);
    pMedSteel = gGeoManager->GetMedium("steel");
    if (!pMedSteel)
        Fatal("Main", "Medium steel not found");
 
    // honeycomb medium
    FairGeoMedium* mHoneyComb = geoMedia->getMedium("AramidHoneyComb");
    if (!mHoneyComb)
        Fatal("Main", "FairMedium AramidHoneyComb not found");
    geoBuild->createMedium(mHoneyComb);
    pMedHoneyComb = gGeoManager->GetMedium("AramidHoneyComb");
    if (!pMedHoneyComb)
        Fatal("Main", "Medium AramidHoneyComb not found");
 
    // polyacetal medium ((polyoxymethylene))
    FairGeoMedium* mPolyacetal = geoMedia->getMedium("polyacetal");
    if (!mPolyacetal)
        Fatal("Main", "FairMedium polyacetal not found");
    geoBuild->createMedium(mPolyacetal);
    pMedPolyacetal = gGeoManager->GetMedium("polyacetal");
    if (!pMedPolyacetal)
        Fatal("Main", "Medium polyacetal not found");
 
    // polyamide medium
    FairGeoMedium* mPolyamide = geoMedia->getMedium("polyamide");
    if (!mPolyamide)
        Fatal("Main", "FairMedium polyamide not found");
    geoBuild->createMedium(mPolyamide);
    pMedPolyamide = gGeoManager->GetMedium("polyamide");
    if (!pMedPolyamide)
        Fatal("Main", "Medium polyamide not found");
 
    // kapton medium
    FairGeoMedium* mKapton = geoMedia->getMedium("kapton");
    if (!mKapton)
        Fatal("Main", "FairMedium kapton not found");
    geoBuild->createMedium(mKapton);
    pMedKapton = gGeoManager->GetMedium("kapton");
    if (!pMedKapton)
        Fatal("Main", "Medium kapton not found");
}
 
void create_rootgeom_GEMS_Run9_detailed()
{
 
    // ----  set working directory  --------------------------------------------
    TString gPath = gSystem->Getenv("VMCWORKDIR");
 
    // -------   Geometry file name (output)   ---------------------------------
    const TString geoDetectorName = "GEMS";
    const TString geoDetectorVersion = "Run9_detailed";
    const TString geoFileName = gPath + "/geometry/" + geoDetectorName + "_" + geoDetectorVersion + ".root";
 
    // ----  global geometry parameters  ---------------------------------------
    FairGeoLoader* geoLoad = new FairGeoLoader("TGeo", "FairGeoLoader");
    FairGeoInterface* geoFace = geoLoad->getGeoInterface();
 
    // -------   Load media from media file   ----------------------------------
    TString medFile = gPath + "/geometry/media.geo";
    geoFace->setMediaFile(medFile);
    geoFace->readMedia();
    FairGeoMedia* geoMedia = geoFace->getMedia();
    FairGeoBuilder* geoBuild = geoLoad->getGeoBuilder();
 
    DefineRequiredMedia(geoMedia, geoBuild);
    // -------------------------------------------------------------------------
 
    // --------------   Create geometry and top volume  ------------------------
    gGeoMan = (TGeoManager*)gROOT->FindObject("FAIRGeom");
    gGeoMan->SetName(geoDetectorName + "_geom");
    TGeoVolume* top = new TGeoVolumeAssembly("TOP");
    top->SetMedium(pMedAir);
    gGeoMan->SetTopVolume(top);
    // gGeoMan->SetTopVisible(1);
    //  -------------------------------------------------------------------------
 
    // Define TOP Geometry
    TGeoVolume* GEMS = new TGeoVolumeAssembly(geoDetectorName);
    GEMS->SetMedium(pMedAir);
 
    for (Int_t istation = 0; istation < NStations; ++istation) {
        // for(Int_t istation = 0; istation < 1; ++istation) {
 
        Int_t stationNum = istation;
        TGeoVolume* station = CreateStation(TString("station") + TString::Itoa(stationNum, 10) + TString("_GEM"));
 
        if (istation < 7) {   // big GEMs
            // upper part
            TGeoVolume* module0 =
                CreateModule_Station163x45(TString("Sensor_module0_") + station->GetName(), XModuleSize_Station163x45,
                                           YModuleSize_Station163x45, ZModuleSize_Station163x45, 4.0 + 2.0);
            TGeoVolume* module1 =
                CreateModule_Station163x45(TString("Sensor_module1_") + station->GetName(), XModuleSize_Station163x45,
                                           YModuleSize_Station163x45, ZModuleSize_Station163x45, 4.0 + 2.0);
 
            TGeoVolume* layers0 = CreateLayersForModule_Station163x45(TString("layer0_") + station->GetName());
            TGeoVolume* layers1 = CreateLayersForModule_Station163x45(TString("layer1_") + station->GetName());
 
            TGeoVolume* frame_upper =
                CreateFrameForHalfPlane_Station163x45(TString("frame_upper_") + station->GetName());
 
            // lower part
            TGeoVolume* module2 =
                CreateModule_Station163x39(TString("Sensor_module2_") + station->GetName(), XModuleSize_Station163x39,
                                           YModuleSize_Station163x39, ZModuleSize_Station163x39, 4.0 + 2.0);
            TGeoVolume* module3 =
                CreateModule_Station163x39(TString("Sensor_module3_") + station->GetName(), XModuleSize_Station163x39,
                                           YModuleSize_Station163x39, ZModuleSize_Station163x39, 4.0 + 2.0);
 
            TGeoVolume* layers2 = CreateLayersForModule_Station163x39(TString("layer2_") + station->GetName());
            TGeoVolume* layers3 = CreateLayersForModule_Station163x39(TString("layer3_") + station->GetName());
 
            TGeoVolume* frame_lower =
                CreateFrameForHalfPlane_Station163x39(TString("frame_lower_") + station->GetName());
 
            TGeoCombiTrans* module0_transform = new TGeoCombiTrans();
            module0_transform->SetTranslation(XModuleShifts[stationNum][0], YModuleShifts[stationNum][0],
                                              ZModuleShifts[stationNum][0] + ZModuleSize_Station163x45 * 0.5);
 
            TGeoCombiTrans* module1_transform = new TGeoCombiTrans();
            module1_transform->RotateY(180.0);
            module1_transform->SetTranslation(XModuleShifts[stationNum][1], YModuleShifts[stationNum][1],
                                              ZModuleShifts[stationNum][1] + ZModuleSize_Station163x45 * 0.5);
 
            TGeoCombiTrans* module2_transform = new TGeoCombiTrans();
            module2_transform->RotateX(180.0);
            module2_transform->SetTranslation(XModuleShifts[stationNum][2], YModuleShifts[stationNum][2],
                                              ZModuleShifts[stationNum][2] + ZModuleSize_Station163x39 * 0.5);
 
            TGeoCombiTrans* module3_transform = new TGeoCombiTrans();
            module3_transform->RotateX(180.0);
            module3_transform->RotateY(180.0);
            module3_transform->SetTranslation(XModuleShifts[stationNum][3], YModuleShifts[stationNum][3],
                                              ZModuleShifts[stationNum][3] + ZModuleSize_Station163x39 * 0.5);
 
            TGeoCombiTrans* layers0_transform = new TGeoCombiTrans();
            layers0_transform->SetTranslation(XModuleShifts[stationNum][0], YModuleShifts[stationNum][0],
                                              ZModuleShifts[stationNum][0] + ZModuleSize_Station163x45 * 0.5);
 
            TGeoCombiTrans* layers1_transform = new TGeoCombiTrans();
            layers1_transform->RotateY(180.0);
            layers1_transform->SetTranslation(XModuleShifts[stationNum][1], YModuleShifts[stationNum][1],
                                              ZModuleShifts[stationNum][1] + ZModuleSize_Station163x45 * 0.5);
 
            TGeoCombiTrans* layers2_transform = new TGeoCombiTrans();
            layers2_transform->RotateX(180.0);
            layers2_transform->SetTranslation(XModuleShifts[stationNum][2], YModuleShifts[stationNum][2],
                                              ZModuleShifts[stationNum][2] + ZModuleSize_Station163x39 * 0.5);
 
            TGeoCombiTrans* layers3_transform = new TGeoCombiTrans();
            layers3_transform->RotateX(180.0);
            layers3_transform->RotateY(180.0);
            layers3_transform->SetTranslation(XModuleShifts[stationNum][3], YModuleShifts[stationNum][3],
                                              ZModuleShifts[stationNum][3] + ZModuleSize_Station163x39 * 0.5);
 
            TGeoCombiTrans* frame_upper_transform = new TGeoCombiTrans();
            if (YStationRotations[stationNum] == true)
                frame_upper_transform->RotateY(180.0);
            if (XStationRotations[stationNum] == true)
                frame_upper_transform->RotateX(180.0);
            frame_upper_transform->SetTranslation((XModuleShifts[stationNum][0] + XModuleShifts[stationNum][1]) * 0.5,
                                                  YModuleShifts[stationNum][0],
                                                  ZModuleShifts[stationNum][0] + ZModuleSize_Station163x45 * 0.5);
 
            TGeoCombiTrans* frame_lower_transform = new TGeoCombiTrans();
            frame_lower_transform->RotateZ(180.0);
            if (YStationRotations[stationNum] == false)
                frame_lower_transform->RotateY(180.0);
            if (XStationRotations[stationNum] == true)
                frame_lower_transform->RotateX(180.0);
            frame_lower_transform->SetTranslation((XModuleShifts[stationNum][2] + XModuleShifts[stationNum][3]) * 0.5,
                                                  YModuleShifts[stationNum][2],
                                                  ZModuleShifts[stationNum][2] + ZModuleSize_Station163x39 * 0.5);
 
            station->AddNode(module0, 0, new TGeoCombiTrans(*module0_transform));   // module
            station->AddNode(module1, 0, new TGeoCombiTrans(*module1_transform));   // module
            station->AddNode(module2, 0, new TGeoCombiTrans(*module2_transform));   // module
            station->AddNode(module3, 0, new TGeoCombiTrans(*module3_transform));   // module
 
            station->AddNode(layers0, 0, new TGeoCombiTrans(*layers0_transform));   // layers
            station->AddNode(layers1, 0, new TGeoCombiTrans(*layers1_transform));   // layers
            station->AddNode(layers2, 0, new TGeoCombiTrans(*layers2_transform));   // layers
            station->AddNode(layers3, 0, new TGeoCombiTrans(*layers3_transform));   // layers
 
            station->AddNode(frame_upper, 0, frame_upper_transform);
            station->AddNode(frame_lower, 0, frame_lower_transform);
        }
 
        if (istation == 7) {   // small GEM
            TGeoVolume* module0 =
                CreateModule_Station10x10(TString("Sensor_module0_") + station->GetName(), XModuleSize_Station10x10,
                                          YModuleSize_Station10x10, ZModuleSize_Station10x10);
            TGeoVolume* layers0 = CreateLayersForModule_Station10x10(TString("layers0_") + station->GetName());
            TGeoVolume* frames0 = CreateFrameForModule_Station10x10(TString("frames0_") + station->GetName());
 
            TGeoCombiTrans* module0_transform = new TGeoCombiTrans();
            module0_transform->SetTranslation(XModuleShifts[stationNum][0], YModuleShifts[stationNum][0],
                                              ZModuleShifts[stationNum][0] + ZModuleSize_Station10x10 * 0.5);
 
            TGeoCombiTrans* layers0_transform = new TGeoCombiTrans();
            layers0_transform->SetTranslation(XModuleShifts[stationNum][0], YModuleShifts[stationNum][0],
                                              ZModuleShifts[stationNum][0] + ZModuleSize_Station10x10 * 0.5);
 
            TGeoCombiTrans* frames0_transform = new TGeoCombiTrans();
            frames0_transform->SetTranslation((XModuleShifts[stationNum][0] + XModuleShifts[stationNum][1]),
                                              YModuleShifts[stationNum][0], ZModuleSize_Station10x10 * 0.5);
 
            station->AddNode(module0, 0, new TGeoCombiTrans(*module0_transform));   // module
            station->AddNode(layers0, 0, new TGeoCombiTrans(*layers0_transform));   // layers
            station->AddNode(frames0, 0, new TGeoCombiTrans(*frames0_transform));   // frame
        }
 
        TGeoCombiTrans* station_transform = new TGeoCombiTrans();
        station_transform->SetTranslation(XStationPositions[stationNum], YStationPositions[stationNum],
                                          ZStationPositions[stationNum]);
 
        GEMS->AddNode(station, 0, station_transform);
    }
 
    top->AddNode(GEMS, 0);
    top->SetVisContainers(kTRUE);
 
    // ---------------   Finish   -----------------------------------------------
    gGeoMan->CloseGeometry();
    gGeoMan->CheckOverlaps(0.0001);
    gGeoMan->PrintOverlaps();
    gGeoMan->Test();
    // gGeoMan->RestoreMasterVolume();
 
    TFile* geoFile = new TFile(geoFileName, "RECREATE");
    top->Write();
    geoFile->Close();
    top->Draw("ogl");
}
 
//------------------------------------------------------------------------------
 
TGeoVolume* CreateStation(TString station_name)
{
 
    TGeoVolume* stationA = new TGeoVolumeAssembly(station_name);
    stationA->SetMedium(pMedAir);
 
    return stationA;
}
 
TGeoVolume* CreateModule_Station163x45(TString module_name,
                                       Double_t xsize,
                                       Double_t ysize,
                                       Double_t zsize,
                                       Double_t hole_radius)
{
 
    gRandom->SetSeed(0);
    Int_t uniqueId = gRandom->Integer(100000);
 
    // module shapes
    TGeoShape* module_partS =
        new TGeoBBox(TString("module_partS_") + TString::Itoa(uniqueId, 10), xsize * 0.5, ysize * 0.5, zsize * 0.5);
    TGeoShape* holeS =
        new TGeoTube(TString("holeS_") + TString::Itoa(uniqueId, 10), 0.0, hole_radius, zsize * 0.5 + 0.01);
 
    TGeoTranslation* hole_module_trans = new TGeoTranslation(
        TString("hole_module_trans_") + TString::Itoa(uniqueId, 10), -xsize * 0.5, -ysize * 0.5, 0.0);
 
    hole_module_trans->RegisterYourself();
 
    TString bool_expression_module = TString(module_partS->GetName()) + TString(" - ") + TString(holeS->GetName())
                                     + TString(":") + TString(hole_module_trans->GetName());
    TGeoCompositeShape* moduleS = new TGeoCompositeShape(bool_expression_module);
 
    // module volume
    TGeoVolume* moduleV = new TGeoVolume(module_name, moduleS);
 
    // medium
    if (pMedArC4H10_80_20)
        moduleV->SetMedium(pMedArC4H10_80_20);
    else
        Fatal("Main", "Invalid medium for sensitive modules!");
 
    // visual parameters
    moduleV->SetLineColor(TColor::GetColor("#ff47ca"));
    moduleV->SetTransparency(20);
 
    return moduleV;
}
//--------------------------F----------------------------------------------------
 
TGeoVolume* CreateLayersForModule_Station163x45(TString layer_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    // frame volumes
    TGeoVolume* layers = new TGeoVolumeAssembly(layer_name);
    layers->SetMedium(pMedAir);
 
    // Common parameters for all layers
    Double_t layer_XSize = XModuleSize_Station163x45;   // cm
    Double_t layer_YSize = YModuleSize_Station163x45;   // cm
 
    Double_t layerFront_XSize = 80.71;     // cm
    Double_t layerFront_YSize = 44.2;      // cm
    Double_t layerFront_XShift = -0.445;   // cm
    Double_t layerFront_YShift = -0.2;     // cm
 
    Double_t layerBack_XSize = 80.71;     // cm
    Double_t layerBack_YSize = 44.2;      // cm
    Double_t layerBack_XShift = -0.445;   // cm
    Double_t layerBack_YShift = -0.2;     // cm
 
    // copper layer -------------------------------------------------------------
    Double_t copperLayer_ZSize = 0.00655;    // cm;
    Double_t copperLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* copperLayerFrontBlankS =
        new TGeoBBox(TString("copperLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, copperLayer_ZSize * 0.5);
    TGeoShape* copperLayerBackBlankS =
        new TGeoBBox(TString("copperLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, copperLayer_ZSize * 0.5);
 
    TGeoShape* copperLayerFrontHoleS =
        new TGeoTube(TString("copperLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, copperLayerHole_Radius, copperLayer_ZSize * 0.5 + 0.01);
    TGeoShape* copperLayerBackHoleS =
        new TGeoTube(TString("copperLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, copperLayerHole_Radius, copperLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* copperLayerFrontHole_pos = new TGeoTranslation();
    copperLayerFrontHole_pos->SetName(TString("copperLayerFrontHole_pos") +=
                                      TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    copperLayerFrontHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerFront_XShift);
    copperLayerFrontHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerFront_YShift);
    copperLayerFrontHole_pos->SetDz(0.0);
    copperLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* copperLayerBackHole_pos = new TGeoTranslation();
    copperLayerBackHole_pos->SetName(TString("copperLayerBackHole_pos") +=
                                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    copperLayerBackHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerBack_XShift);
    copperLayerBackHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerBack_YShift);
    copperLayerBackHole_pos->SetDz(0.0);
    copperLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* copperLayerFrontS = new TGeoCompositeShape();
    copperLayerFrontS->SetName(TString("copperLayerFrontS") +=
                               TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "copperLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-copperLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":copperLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        copperLayerFrontS->MakeNode(expression);
        copperLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperLayerBackS = new TGeoCompositeShape();
    copperLayerBackS->SetName(TString("copperLayerBackS") +=
                              TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "copperLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-copperLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":copperLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        copperLayerBackS->MakeNode(expression);
        copperLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* copperLayerFrontV =
        new TGeoVolume(TString("copperLayerFrontV") += TString("_") + layers->GetName(), copperLayerFrontS);
    TGeoVolume* copperLayerBackV =
        new TGeoVolume(TString("copperLayerBackV") += TString("_") + layers->GetName(), copperLayerBackS);
 
    // volume medium
    TGeoMedium* copperLayerV_medium = pMedCopper;
    if (copperLayerV_medium) {
        copperLayerFrontV->SetMedium(copperLayerV_medium);
        copperLayerBackV->SetMedium(copperLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for copperLayerV!");
 
    // volume visual property (transparency)
    copperLayerFrontV->SetLineColor(TColor::GetColor("#ff7538"));
    copperLayerFrontV->SetTransparency(0);
    copperLayerBackV->SetLineColor(TColor::GetColor("#ff7538"));
    copperLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* copperLayerFront_transf[2];
 
    copperLayerFront_transf[0] = new TGeoCombiTrans();
    copperLayerFront_transf[0]->SetDx(+layerFront_XShift);
    copperLayerFront_transf[0]->SetDy(+layerFront_YShift);
    copperLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x45 * 0.5 + copperLayer_ZSize * 0.5);
 
    TGeoCombiTrans* copperLayerBack_transf[1];
 
    copperLayerBack_transf[0] = new TGeoCombiTrans();
    copperLayerBack_transf[0]->SetDx(+layerBack_XShift);
    copperLayerBack_transf[0]->SetDy(+layerBack_YShift);
    copperLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x45 * 0.5 - copperLayer_ZSize * 0.5);
 
    layers->AddNode(copperLayerFrontV, 0, copperLayerFront_transf[0]);
    layers->AddNode(copperLayerBackV, 0, copperLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // glue layer ---------------------------------------------------------------
    Double_t glueLayer_ZSize = 0.01;       // cm; half-thickness of all glue layers
    Double_t glueLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* glueLayerFrontBlankS =
        new TGeoBBox(TString("glueLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, glueLayer_ZSize * 0.5);
    TGeoShape* glueLayerBackBlankS = new TGeoBBox(
        TString("glueLayerBackBlankS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        layerBack_XSize * 0.5, layerBack_YSize * 0.5, glueLayer_ZSize * 0.5);
 
    TGeoShape* glueLayerFrontHoleS = new TGeoTube(
        TString("glueLayerFrontHoleS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        0.0, glueLayerHole_Radius, glueLayer_ZSize * 0.5 + 0.01);
    TGeoShape* glueLayerBackHoleS = new TGeoTube(
        TString("glueLayerBackHoleS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        0.0, glueLayerHole_Radius, glueLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* glueLayerFrontHole_pos = new TGeoTranslation();
    glueLayerFrontHole_pos->SetName(TString("glueLayerFrontHole_pos") +=
                                    TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    glueLayerFrontHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerFront_XShift);
    glueLayerFrontHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerFront_YShift);
    glueLayerFrontHole_pos->SetDz(0.0);
    glueLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* glueLayerBackHole_pos = new TGeoTranslation();
    glueLayerBackHole_pos->SetName(TString("glueLayerBackHole_pos") +=
                                   TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    glueLayerBackHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerBack_XShift);
    glueLayerBackHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerBack_YShift);
    glueLayerBackHole_pos->SetDz(0.0);
    glueLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* glueLayerFrontS = new TGeoCompositeShape();
    glueLayerFrontS->SetName(TString("glueLayerFrontS") +=
                             TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "glueLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-glueLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":glueLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        glueLayerFrontS->MakeNode(expression);
        glueLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* glueLayerBackS = new TGeoCompositeShape();
    glueLayerBackS->SetName(TString("glueLayerBackS") +=
                            TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "glueLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-glueLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":glueLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        glueLayerBackS->MakeNode(expression);
        glueLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* glueLayerFrontV =
        new TGeoVolume(TString("glueLayerFrontV") += TString("_") + layers->GetName(), glueLayerFrontS);
    TGeoVolume* glueLayerBackV =
        new TGeoVolume(TString("glueLayerBackV") += TString("_") + layers->GetName(), glueLayerBackS);
 
    // volume medium
    TGeoMedium* glueLayerV_medium = pMedGlue;
    if (glueLayerV_medium) {
        glueLayerFrontV->SetMedium(glueLayerV_medium);
        glueLayerBackV->SetMedium(glueLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for glueLayerV!");
 
    // volume visual property (transparency)
    glueLayerFrontV->SetLineColor(TColor::GetColor("#1919ff"));
    glueLayerFrontV->SetTransparency(0);
    glueLayerBackV->SetLineColor(TColor::GetColor("#1919ff"));
    glueLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* glueLayerFront_transf[1];
 
    glueLayerFront_transf[0] = new TGeoCombiTrans();
    glueLayerFront_transf[0]->SetDx(+layerFront_XShift);
    glueLayerFront_transf[0]->SetDy(+layerFront_YShift);
    glueLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x45 * 0.5 + copperLayer_ZSize + glueLayer_ZSize * 0.5);
 
    TGeoCombiTrans* glueLayerBack_transf[1];
 
    glueLayerBack_transf[0] = new TGeoCombiTrans();
    glueLayerBack_transf[0]->SetDx(+layerBack_XShift);
    glueLayerBack_transf[0]->SetDy(+layerBack_YShift);
    glueLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x45 * 0.5 - copperLayer_ZSize - glueLayer_ZSize * 0.5);
 
    layers->AddNode(glueLayerFrontV, 0, glueLayerFront_transf[0]);
    layers->AddNode(glueLayerBackV, 0, glueLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // epoxide layer ------------------------------------------------------------
    Double_t epoxideLayer_ZSize = 0.105;      // cm; half-thickness of all epoxide layers
    Double_t epoxideLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* epoxideLayerFrontBlankS =
        new TGeoBBox(TString("epoxideLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, epoxideLayer_ZSize * 0.5);
    TGeoShape* epoxideLayerBackBlankS =
        new TGeoBBox(TString("epoxideLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, epoxideLayer_ZSize * 0.5);
 
    TGeoShape* epoxideLayerFrontHoleS =
        new TGeoTube(TString("epoxideLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, epoxideLayerHole_Radius, epoxideLayer_ZSize * 0.5 + 0.01);
    TGeoShape* epoxideLayerBackHoleS =
        new TGeoTube(TString("epoxideLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, epoxideLayerHole_Radius, epoxideLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* epoxideLayerFrontHole_pos = new TGeoTranslation();
    epoxideLayerFrontHole_pos->SetName(TString("epoxideLayerFrontHole_pos") +=
                                       TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    epoxideLayerFrontHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerFront_XShift);
    epoxideLayerFrontHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerFront_YShift);
    epoxideLayerFrontHole_pos->SetDz(0.0);
    epoxideLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* epoxideLayerBackHole_pos = new TGeoTranslation();
    epoxideLayerBackHole_pos->SetName(TString("epoxideLayerBackHole_pos") +=
                                      TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    epoxideLayerBackHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerBack_XShift);
    epoxideLayerBackHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerBack_YShift);
    epoxideLayerBackHole_pos->SetDz(0.0);
    epoxideLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* epoxideLayerFrontS = new TGeoCompositeShape();
    epoxideLayerFrontS->SetName(TString("epoxideLayerFrontS") +=
                                TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "epoxideLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-epoxideLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":epoxideLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        epoxideLayerFrontS->MakeNode(expression);
        epoxideLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* epoxideLayerBackS = new TGeoCompositeShape();
    epoxideLayerBackS->SetName(TString("epoxideLayerBackS") +=
                               TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "epoxideLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-epoxideLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":epoxideLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        epoxideLayerBackS->MakeNode(expression);
        epoxideLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* epoxideLayerFrontV = new TGeoVolume(
        TString("epoxideLayerFrontV") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        epoxideLayerFrontS);
    TGeoVolume* epoxideLayerBackV = new TGeoVolume(
        TString("epoxideLayerBackV") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        epoxideLayerBackS);
 
    // volume medium
    TGeoMedium* epoxideLayerV_medium = pMedEpoxideCompound;
    if (epoxideLayerV_medium) {
        epoxideLayerFrontV->SetMedium(epoxideLayerV_medium);
        epoxideLayerBackV->SetMedium(epoxideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for epoxideLayerV!");
 
    // volume visual property (transparency)
    epoxideLayerFrontV->SetLineColor(TColor::GetColor("#aa33ff"));
    epoxideLayerFrontV->SetTransparency(0);
    epoxideLayerBackV->SetLineColor(TColor::GetColor("#aa33ff"));
    epoxideLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* epoxideLayerFront_transf[1];
 
    epoxideLayerFront_transf[0] = new TGeoCombiTrans();
    epoxideLayerFront_transf[0]->SetDx(+layerFront_XShift);
    epoxideLayerFront_transf[0]->SetDy(+layerFront_YShift);
    epoxideLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x45 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                       + epoxideLayer_ZSize * 0.5);
 
    TGeoCombiTrans* epoxideLayerBack_transf[1];
 
    epoxideLayerBack_transf[0] = new TGeoCombiTrans();
    epoxideLayerBack_transf[0]->SetDx(+layerBack_XShift);
    epoxideLayerBack_transf[0]->SetDy(+layerBack_YShift);
    epoxideLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x45 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                      - epoxideLayer_ZSize * 0.5);
 
    layers->AddNode(epoxideLayerFrontV, 0, epoxideLayerFront_transf[0]);
    layers->AddNode(epoxideLayerBackV, 0, epoxideLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // honeycomb layer ----------------------------------------------------------
    // Double_t honeycombLayer_ZSize = 1.5-(0.05+0.00055+0.005+0.0125); //cm; half-thickness of all honeycomb layers
    Double_t honeycombLayer_ZSize = 1.4 - (0.06805);   // cm; half-thickness of all honeycomb layers
    Double_t honeycombLayerHole_Radius = 6.0;          // cm
 
    // layer shape
    TGeoShape* honeycombLayerFrontBlankS =
        new TGeoBBox(TString("honeycombLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, honeycombLayer_ZSize * 0.5);
    TGeoShape* honeycombLayerBackBlankS =
        new TGeoBBox(TString("honeycombLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, honeycombLayer_ZSize * 0.5);
 
    TGeoShape* honeycombLayerFrontHoleS =
        new TGeoTube(TString("honeycombLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, honeycombLayerHole_Radius, honeycombLayer_ZSize * 0.5 + 0.01);
    TGeoShape* honeycombLayerBackHoleS =
        new TGeoTube(TString("honeycombLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, honeycombLayerHole_Radius, honeycombLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* honeycombLayerFrontHole_pos = new TGeoTranslation();
    honeycombLayerFrontHole_pos->SetName(TString("honeycombLayerFrontHole_pos") +=
                                         TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    honeycombLayerFrontHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerFront_XShift);
    honeycombLayerFrontHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerFront_YShift);
    honeycombLayerFrontHole_pos->SetDz(0.0);
    honeycombLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* honeycombLayerBackHole_pos = new TGeoTranslation();
    honeycombLayerBackHole_pos->SetName(TString("honeycombLayerBackHole_pos") +=
                                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    honeycombLayerBackHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerBack_XShift);
    honeycombLayerBackHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerBack_YShift);
    honeycombLayerBackHole_pos->SetDz(0.0);
    honeycombLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* honeycombLayerFrontS = new TGeoCompositeShape();
    honeycombLayerFrontS->SetName(TString("honeycombLayerFrontS") +=
                                  TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "honeycombLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-honeycombLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":honeycombLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        honeycombLayerFrontS->MakeNode(expression);
        honeycombLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* honeycombLayerBackS = new TGeoCompositeShape();
    honeycombLayerBackS->SetName(TString("honeycombLayerBackS") +=
                                 TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "honeycombLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-honeycombLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":honeycombLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        honeycombLayerBackS->MakeNode(expression);
        honeycombLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* honeycombLayerFrontV =
        new TGeoVolume(TString("honeycombLayerFrontV") += TString("_") + layers->GetName(), honeycombLayerFrontS);
    TGeoVolume* honeycombLayerBackV =
        new TGeoVolume(TString("honeycombLayerBackV") += TString("_") + layers->GetName(), honeycombLayerBackS);
 
    // volume medium
    TGeoMedium* honeycombLayerV_medium = pMedHoneyComb;
    if (honeycombLayerV_medium) {
        honeycombLayerFrontV->SetMedium(honeycombLayerV_medium);
        honeycombLayerBackV->SetMedium(honeycombLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for honeycombLayerV!");
 
    // volume visual property (transparency)
    honeycombLayerFrontV->SetLineColor(TColor::GetColor("#ffdf84"));
    honeycombLayerFrontV->SetTransparency(0);
    honeycombLayerBackV->SetLineColor(TColor::GetColor("#ffdf84"));
    honeycombLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* honeycombLayerFront_transf[1];
 
    honeycombLayerFront_transf[0] = new TGeoCombiTrans();
    honeycombLayerFront_transf[0]->SetDx(+layerFront_XShift);
    honeycombLayerFront_transf[0]->SetDy(+layerFront_YShift);
    honeycombLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x45 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                         + epoxideLayer_ZSize + honeycombLayer_ZSize * 0.5);
 
    TGeoCombiTrans* honeycombLayerBack_transf[1];
 
    honeycombLayerBack_transf[0] = new TGeoCombiTrans();
    honeycombLayerBack_transf[0]->SetDx(+layerBack_XShift);
    honeycombLayerBack_transf[0]->SetDy(+layerBack_YShift);
    honeycombLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x45 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                        - epoxideLayer_ZSize - honeycombLayer_ZSize * 0.5);
 
    layers->AddNode(honeycombLayerFrontV, 0, honeycombLayerFront_transf[0]);
    layers->AddNode(honeycombLayerBackV, 0, honeycombLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // polyamide layer ----------------------------------------------------------
    Double_t polyamideLayer_ZSize = 0.0125;     // cm; half-thickness of all polyamide layers
    Double_t polyamideLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* polyamideLayerFrontBlankS =
        new TGeoBBox(TString("polyamideLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, polyamideLayer_ZSize * 0.5);
    TGeoShape* polyamideLayerBackBlankS =
        new TGeoBBox(TString("polyamideLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, polyamideLayer_ZSize * 0.5);
 
    TGeoShape* polyamideLayerFrontHoleS =
        new TGeoTube(TString("polyamideLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, polyamideLayerHole_Radius, polyamideLayer_ZSize * 0.5 + 0.01);
    TGeoShape* polyamideLayerBackHoleS =
        new TGeoTube(TString("polyamideLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, polyamideLayerHole_Radius, polyamideLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* polyamideLayerFrontHole_pos = new TGeoTranslation();
    polyamideLayerFrontHole_pos->SetName(TString("polyamideLayerFrontHole_pos") +=
                                         TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    polyamideLayerFrontHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerFront_XShift);
    polyamideLayerFrontHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerFront_YShift);
    polyamideLayerFrontHole_pos->SetDz(0.0);
    polyamideLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* polyamideLayerBackHole_pos = new TGeoTranslation();
    polyamideLayerBackHole_pos->SetName(TString("polyamideLayerBackHole_pos") +=
                                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    polyamideLayerBackHole_pos->SetDx(-XModuleSize_Station163x45 * 0.5 - layerBack_XShift);
    polyamideLayerBackHole_pos->SetDy(-YModuleSize_Station163x45 * 0.5 - layerBack_YShift);
    polyamideLayerBackHole_pos->SetDz(0.0);
    polyamideLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* polyamideLayerFrontS = new TGeoCompositeShape();
    polyamideLayerFrontS->SetName(TString("polyamideLayerFrontS") +=
                                  TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "polyamideLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-polyamideLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":polyamideLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        polyamideLayerFrontS->MakeNode(expression);
        polyamideLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* polyamideLayerBackS = new TGeoCompositeShape();
    polyamideLayerBackS->SetName(TString("polyamideLayerBackS") +=
                                 TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "polyamideLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-polyamideLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":polyamideLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        polyamideLayerBackS->MakeNode(expression);
        polyamideLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* polyamideLayerFrontV =
        new TGeoVolume(TString("polyamideLayerFrontV") += TString("_") + layers->GetName(), polyamideLayerFrontS);
    TGeoVolume* polyamideLayerBackV =
        new TGeoVolume(TString("polyamideLayerBackV") += TString("_") + layers->GetName(), polyamideLayerBackS);
 
    // volume medium
    TGeoMedium* polyamideLayerV_medium = pMedPolyamide;
    if (polyamideLayerV_medium) {
        polyamideLayerFrontV->SetMedium(polyamideLayerV_medium);
        polyamideLayerBackV->SetMedium(polyamideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for polyamideLayerV!");
 
    // volume visual property (transparency)
    polyamideLayerFrontV->SetLineColor(TColor::GetColor("#fefe22"));
    polyamideLayerFrontV->SetTransparency(0);
    polyamideLayerBackV->SetLineColor(TColor::GetColor("#fefe22"));
    polyamideLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* polyamideLayerFront_transf[1];
 
    polyamideLayerFront_transf[0] = new TGeoCombiTrans();
    polyamideLayerFront_transf[0]->SetDx(+layerFront_XShift);
    polyamideLayerFront_transf[0]->SetDy(+layerFront_YShift);
    polyamideLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x45 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                         + epoxideLayer_ZSize + honeycombLayer_ZSize + polyamideLayer_ZSize * 0.5);
 
    TGeoCombiTrans* polyamideLayerBack_transf[1];
 
    polyamideLayerBack_transf[0] = new TGeoCombiTrans();
    polyamideLayerBack_transf[0]->SetDx(+layerBack_XShift);
    polyamideLayerBack_transf[0]->SetDy(+layerBack_YShift);
    polyamideLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x45 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                        - epoxideLayer_ZSize - honeycombLayer_ZSize - polyamideLayer_ZSize * 0.5);
 
    layers->AddNode(polyamideLayerFrontV, 0, polyamideLayerFront_transf[0]);
    layers->AddNode(polyamideLayerBackV, 0, polyamideLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    return layers;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateFrameForHalfPlane_Station163x45(TString frame_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    // frame volumes
    TGeoVolume* frames = new TGeoVolumeAssembly(frame_name);
    frames->SetMedium(pMedAir);
 
    // back lower epoxide frame -------------------------------------------------
    Double_t backLowerEpoxideFrame_XSize = 161.42;   // cm
    Double_t backLowerEpoxideFrame_YSize = 2.2;      // cm
    Double_t backLowerEpoxideFrame_ZSize = 1.5;      // cm
 
    Double_t backLowerEpoxideFrameArch_Rmin = 4.0;
    Double_t backLowerEpoxideFrameArch_Rmax = 6.0;
    Double_t backLowerEpoxideFrameArch_ZSize = backLowerEpoxideFrame_ZSize;
 
    TGeoShape* backLowerEpoxideFrameHalfS =
        new TGeoBBox(TString("backLowerEpoxideFrameHalfS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     (backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5,
                     backLowerEpoxideFrame_YSize * 0.5, backLowerEpoxideFrame_ZSize * 0.5);
    TGeoShape* backLowerEpoxideFrameArchS =
        new TGeoTubeSeg(TString("backLowerEpoxideFrameArchS") +=
                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                        backLowerEpoxideFrameArch_Rmin, backLowerEpoxideFrameArch_Rmax,
                        backLowerEpoxideFrameArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* backLowerEpoxideFrameHalf_pos1 = new TGeoTranslation();
    backLowerEpoxideFrameHalf_pos1->SetName(TString("backLowerEpoxideFrameHalf1_pos1") + TString("_")
                                            + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    backLowerEpoxideFrameHalf_pos1->SetDx(
        +((backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5 + backLowerEpoxideFrameArch_Rmin));
    backLowerEpoxideFrameHalf_pos1->SetDy(-(backLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    backLowerEpoxideFrameHalf_pos1->SetDz(0.0);
    backLowerEpoxideFrameHalf_pos1->RegisterYourself();
 
    TGeoTranslation* backLowerEpoxideFrameHalf_pos2 = new TGeoTranslation();
    backLowerEpoxideFrameHalf_pos2->SetName(TString("backLowerEpoxideFrameHalf1_pos2") + TString("_")
                                            + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    backLowerEpoxideFrameHalf_pos2->SetDx(
        -((backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5 + backLowerEpoxideFrameArch_Rmin));
    backLowerEpoxideFrameHalf_pos2->SetDy(-(backLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    backLowerEpoxideFrameHalf_pos2->SetDz(0.0);
    backLowerEpoxideFrameHalf_pos2->RegisterYourself();
 
    TGeoTranslation* backLowerEpoxideFrameArch_pos = new TGeoTranslation();
    backLowerEpoxideFrameArch_pos->SetName(TString("backLowerEpoxideFrameArch_pos") + TString("_")
                                           + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    backLowerEpoxideFrameArch_pos->SetDx(0.0);
    backLowerEpoxideFrameArch_pos->SetDy(0.0);
    backLowerEpoxideFrameArch_pos->SetDz(0.0);
    backLowerEpoxideFrameArch_pos->RegisterYourself();
 
    TGeoCompositeShape* backLowerEpoxideFrameS = new TGeoCompositeShape();
    backLowerEpoxideFrameS->SetName(TString("backLowerEpoxideFrameS") +=
                                    TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "backLowerEpoxideFrameHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameHalf1_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+backLowerEpoxideFrameHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameHalf1_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+backLowerEpoxideFrameArchS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameArch_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        backLowerEpoxideFrameS->MakeNode(expression);
        backLowerEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* backLowerEpoxideFrameV =
        new TGeoVolume(TString("backLowerEpoxideFrameV") += TString("_") + frames->GetName(), backLowerEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backLowerEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backLowerEpoxideFrameV_medium) {
        backLowerEpoxideFrameV->SetMedium(backLowerEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backLowerEpoxideFrameV!");
 
    // volume visual property (transparency)
    backLowerEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backLowerEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backLowerEpoxideFrame_transf[1];
 
    backLowerEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backLowerEpoxideFrame_transf[0]->SetDx(0.0);
    backLowerEpoxideFrame_transf[0]->SetDy(-(YModuleSize_Station163x45 * 0.5));
    backLowerEpoxideFrame_transf[0]->SetDz(+(backLowerEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(backLowerEpoxideFrameV, 0, backLowerEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front lower epoxide frame -------------------------------------------------
    Double_t frontLowerEpoxideFrame_XSize = 161.7;   // cm
    Double_t frontLowerEpoxideFrame_YSize = 2.2;     // cm
    Double_t frontLowerEpoxideFrame_ZSize = 1.6;     // cm
 
    Double_t frontLowerEpoxideFrameArch_Rmin = 4.0;
    Double_t frontLowerEpoxideFrameArch_Rmax = 6.0;
    Double_t frontLowerEpoxideFrameArch_ZSize = frontLowerEpoxideFrame_ZSize;
 
    TGeoShape* frontLowerEpoxideFrameHalfS =
        new TGeoBBox(TString("frontLowerEpoxideFrameHalfS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     (frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5,
                     frontLowerEpoxideFrame_YSize * 0.5, frontLowerEpoxideFrame_ZSize * 0.5);
    TGeoShape* frontLowerEpoxideFrameArchS =
        new TGeoTubeSeg(TString("frontLowerEpoxideFrameArchS") +=
                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                        frontLowerEpoxideFrameArch_Rmin, frontLowerEpoxideFrameArch_Rmax,
                        frontLowerEpoxideFrameArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* frontLowerEpoxideFrameHalf_pos1 = new TGeoTranslation();
    frontLowerEpoxideFrameHalf_pos1->SetName(TString("frontLowerEpoxideFrameHalf1_pos1") + TString("_")
                                             + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    frontLowerEpoxideFrameHalf_pos1->SetDx(
        +((frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5
          + frontLowerEpoxideFrameArch_Rmin));
    frontLowerEpoxideFrameHalf_pos1->SetDy(-(frontLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    frontLowerEpoxideFrameHalf_pos1->SetDz(0.0);
    frontLowerEpoxideFrameHalf_pos1->RegisterYourself();
 
    TGeoTranslation* frontLowerEpoxideFrameHalf_pos2 = new TGeoTranslation();
    frontLowerEpoxideFrameHalf_pos2->SetName(TString("frontLowerEpoxideFrameHalf1_pos2") + TString("_")
                                             + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    frontLowerEpoxideFrameHalf_pos2->SetDx(
        -((frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5
          + frontLowerEpoxideFrameArch_Rmin));
    frontLowerEpoxideFrameHalf_pos2->SetDy(-(frontLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    frontLowerEpoxideFrameHalf_pos2->SetDz(0.0);
    frontLowerEpoxideFrameHalf_pos2->RegisterYourself();
 
    TGeoTranslation* frontLowerEpoxideFrameArch_pos = new TGeoTranslation();
    frontLowerEpoxideFrameArch_pos->SetName(TString("frontLowerEpoxideFrameArch_pos") + TString("_")
                                            + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    frontLowerEpoxideFrameArch_pos->SetDx(0.0);
    frontLowerEpoxideFrameArch_pos->SetDy(0.0);
    frontLowerEpoxideFrameArch_pos->SetDz(0.0);
    frontLowerEpoxideFrameArch_pos->RegisterYourself();
 
    TGeoCompositeShape* frontLowerEpoxideFrameS = new TGeoCompositeShape();
    frontLowerEpoxideFrameS->SetName(TString("frontLowerEpoxideFrameS") +=
                                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "frontLowerEpoxideFrameHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameHalf1_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+frontLowerEpoxideFrameHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameHalf1_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+frontLowerEpoxideFrameArchS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameArch_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        frontLowerEpoxideFrameS->MakeNode(expression);
        frontLowerEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* frontLowerEpoxideFrameV =
        new TGeoVolume(TString("frontLowerEpoxideFrameV") += TString("_") + frames->GetName(), frontLowerEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontLowerEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontLowerEpoxideFrameV_medium) {
        frontLowerEpoxideFrameV->SetMedium(frontLowerEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontLowerEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontLowerEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontLowerEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontLowerEpoxideFrame_transf[1];
 
    frontLowerEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontLowerEpoxideFrame_transf[0]->SetDx(0.0);
    frontLowerEpoxideFrame_transf[0]->SetDy(-(YModuleSize_Station163x45 * 0.5));
    frontLowerEpoxideFrame_transf[0]->SetDz(-(frontLowerEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(frontLowerEpoxideFrameV, 0, frontLowerEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // back side epoxide frame --------------------------------------------------
    Double_t backSideEpoxideFramePart_XSize = 9.2;    // cm
    Double_t backSideEpoxideFramePart_YSize = 52.6;   // cm
    Double_t backSideEpoxideFramePart_ZSize = 1.5;    // cm
 
    Double_t backSideEpoxideFrame_XDistBetweenParts = 161.42;   // cm
 
    TGeoShape* backSideEpoxideFramePartS =
        new TGeoBBox(TString("backSideEpoxideFramePartS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     backSideEpoxideFramePart_XSize * 0.5, backSideEpoxideFramePart_YSize * 0.5,
                     backSideEpoxideFramePart_ZSize * 0.5);
 
    TGeoTranslation* backSideEpoxideFramePart_pos1 = new TGeoTranslation();
    backSideEpoxideFramePart_pos1->SetName(TString("backSideEpoxideFramePart_pos1") + TString("_")
                                           + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    backSideEpoxideFramePart_pos1->SetDx(
        +(backSideEpoxideFrame_XDistBetweenParts * 0.5 + backSideEpoxideFramePart_XSize * 0.5));
    backSideEpoxideFramePart_pos1->SetDy(0.0);
    backSideEpoxideFramePart_pos1->SetDz(0.0);
    backSideEpoxideFramePart_pos1->RegisterYourself();
 
    TGeoTranslation* backSideEpoxideFramePart_pos2 = new TGeoTranslation();
    backSideEpoxideFramePart_pos2->SetName(TString("backSideEpoxideFramePart_pos2") + TString("_")
                                           + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    backSideEpoxideFramePart_pos2->SetDx(
        -(backSideEpoxideFrame_XDistBetweenParts * 0.5 + backSideEpoxideFramePart_XSize * 0.5));
    backSideEpoxideFramePart_pos2->SetDy(0.0);
    backSideEpoxideFramePart_pos2->SetDz(0.0);
    backSideEpoxideFramePart_pos2->RegisterYourself();
 
    TGeoCompositeShape* backSideEpoxideFrameS = new TGeoCompositeShape();
    backSideEpoxideFrameS->SetName(TString("backSideEpoxideFrameS") +=
                                   TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "backSideEpoxideFramePartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":backSideEpoxideFramePart_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+backSideEpoxideFramePartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":backSideEpoxideFramePart_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        backSideEpoxideFrameS->MakeNode(expression);
        backSideEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* backSideEpoxideFrameV =
        new TGeoVolume(TString("backSideEpoxideFrameV") += TString("_") + frames->GetName(), backSideEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backSideEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backSideEpoxideFrameV_medium) {
        backSideEpoxideFrameV->SetMedium(backSideEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backSideEpoxideFrameV!");
 
    // volume visual property (transparency)
    backSideEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backSideEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backSideEpoxideFrame_transf[1];
 
    backSideEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backSideEpoxideFrame_transf[0]->SetDx(0.0);
    backSideEpoxideFrame_transf[0]->SetDy(+((backSideEpoxideFramePart_YSize - YModuleSize_Station163x45) * 0.5)
                                          - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    backSideEpoxideFrame_transf[0]->SetDz(+(backSideEpoxideFramePart_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(backSideEpoxideFrameV, 0, backSideEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // back upper epoxide frame -------------------------------------------------
    Double_t backUpperEpoxideFrame_XSize = 161.42;   // cm
    Double_t backUpperEpoxideFrame_YSize = 6.2;      // cm
    Double_t backUpperEpoxideFrame_ZSize = 1.6;      // cm
 
    TGeoShape* backUpperEpoxideFrameS = new TGeoBBox(
        TString("backUpperEpoxideFrameS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        backUpperEpoxideFrame_XSize * 0.5, backUpperEpoxideFrame_YSize * 0.5, backUpperEpoxideFrame_ZSize * 0.5);
 
    TGeoVolume* backUpperEpoxideFrameV =
        new TGeoVolume(TString("backUpperEpoxideFrameV") += TString("_") + frames->GetName(), backUpperEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backUpperEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backUpperEpoxideFrameV_medium) {
        backUpperEpoxideFrameV->SetMedium(backUpperEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backUpperEpoxideFrameV!");
 
    // volume visual property (transparency)
    backUpperEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backUpperEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backUpperEpoxideFrame_transf[1];
 
    backUpperEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backUpperEpoxideFrame_transf[0]->SetDx(0.0);
    backUpperEpoxideFrame_transf[0]->SetDy(+(backUpperEpoxideFrame_YSize * 0.5 + YModuleSize_Station163x45 * 0.5)
                                           - 0.6 /*shift*/);
    backUpperEpoxideFrame_transf[0]->SetDz(+(backUpperEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(backUpperEpoxideFrameV, 0, backUpperEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front side epoxide frame -------------------------------------------------
    Double_t frontSideEpoxideFramePart_XSize = 3.5;    // cm
    Double_t frontSideEpoxideFramePart_YSize = 49.9;   // cm
    Double_t frontSideEpoxideFramePart_ZSize = 1.6;    // cm
 
    Double_t frontSideEpoxideFrame_XDistBetweenParts = 161.7;   // cm
 
    TGeoShape* frontSideEpoxideFramePartS =
        new TGeoBBox(TString("frontSideEpoxideFramePartS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     frontSideEpoxideFramePart_XSize * 0.5, frontSideEpoxideFramePart_YSize * 0.5,
                     frontSideEpoxideFramePart_ZSize * 0.5);
 
    TGeoTranslation* frontSideEpoxideFramePart_pos1 = new TGeoTranslation();
    frontSideEpoxideFramePart_pos1->SetName(TString("frontSideEpoxideFramePart_pos1") + TString("_")
                                            + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    frontSideEpoxideFramePart_pos1->SetDx(
        +(frontSideEpoxideFrame_XDistBetweenParts * 0.5 + frontSideEpoxideFramePart_XSize * 0.5));
    frontSideEpoxideFramePart_pos1->SetDy(0.0);
    frontSideEpoxideFramePart_pos1->SetDz(0.0);
    frontSideEpoxideFramePart_pos1->RegisterYourself();
 
    TGeoTranslation* frontSideEpoxideFramePart_pos2 = new TGeoTranslation();
    frontSideEpoxideFramePart_pos2->SetName(TString("frontSideEpoxideFramePart_pos2") + TString("_")
                                            + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    frontSideEpoxideFramePart_pos2->SetDx(
        -(frontSideEpoxideFrame_XDistBetweenParts * 0.5 + frontSideEpoxideFramePart_XSize * 0.5));
    frontSideEpoxideFramePart_pos2->SetDy(0.0);
    frontSideEpoxideFramePart_pos2->SetDz(0.0);
    frontSideEpoxideFramePart_pos2->RegisterYourself();
 
    TGeoCompositeShape* frontSideEpoxideFrameS = new TGeoCompositeShape();
    frontSideEpoxideFrameS->SetName(TString("frontSideEpoxideFrameS") +=
                                    TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "frontSideEpoxideFramePartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":frontSideEpoxideFramePart_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+frontSideEpoxideFramePartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":frontSideEpoxideFramePart_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        frontSideEpoxideFrameS->MakeNode(expression);
        frontSideEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* frontSideEpoxideFrameV =
        new TGeoVolume(TString("frontSideEpoxideFrameV") += TString("_") + frames->GetName(), frontSideEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontSideEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontSideEpoxideFrameV_medium) {
        frontSideEpoxideFrameV->SetMedium(frontSideEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontSideEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontSideEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontSideEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontSideEpoxideFrame_transf[1];
 
    frontSideEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontSideEpoxideFrame_transf[0]->SetDx(0.0);
    frontSideEpoxideFrame_transf[0]->SetDy(+((frontSideEpoxideFramePart_YSize - YModuleSize_Station163x45) * 0.5)
                                           - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    frontSideEpoxideFrame_transf[0]->SetDz(-(frontSideEpoxideFramePart_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(frontSideEpoxideFrameV, 0, frontSideEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front upper epoxide frame -------------------------------------------------
    Double_t frontUpperEpoxideFrame_XSize = 161.7;   // cm
    Double_t frontUpperEpoxideFrame_YSize = 3.5;     // cm
    Double_t frontUpperEpoxideFrame_ZSize = 1.6;     // cm
 
    TGeoShape* frontUpperEpoxideFrameS = new TGeoBBox(
        TString("frontUpperEpoxideFrameS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        frontUpperEpoxideFrame_XSize * 0.5, frontUpperEpoxideFrame_YSize * 0.5, frontUpperEpoxideFrame_ZSize * 0.5);
 
    TGeoVolume* frontUpperEpoxideFrameV =
        new TGeoVolume(TString("frontUpperEpoxideFrameV") += TString("_") + frames->GetName(), frontUpperEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontUpperEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontUpperEpoxideFrameV_medium) {
        frontUpperEpoxideFrameV->SetMedium(frontUpperEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontUpperEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontUpperEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontUpperEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontUpperEpoxideFrame_transf[1];
 
    frontUpperEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontUpperEpoxideFrame_transf[0]->SetDx(0.0);
    frontUpperEpoxideFrame_transf[0]->SetDy(+(frontUpperEpoxideFrame_YSize * 0.5 + YModuleSize_Station163x45 * 0.5)
                                            - 0.6 /*shift*/);
    frontUpperEpoxideFrame_transf[0]->SetDz(-(frontUpperEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5));
 
    frames->AddNode(frontUpperEpoxideFrameV, 0, frontUpperEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // alum. cable support ------------------------------------------------------
    Double_t alumCableSupportPart_XSize = 3.0;    // cm
    Double_t alumCableSupportPart_YSize = 41.3;   // cm
    Double_t alumCableSupportPart_ZSize = 0.2;    // cm
 
    Double_t alumCableSupport_XDistBetweenParts = 164.82;   // cm
 
    TGeoShape* alumCableSupportPartS = new TGeoBBox(
        TString("alumCableSupportPartS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        alumCableSupportPart_XSize * 0.5, alumCableSupportPart_YSize * 0.5, alumCableSupportPart_ZSize * 0.5);
 
    TGeoTranslation* alumCableSupportPart_pos1 = new TGeoTranslation();
    alumCableSupportPart_pos1->SetName(TString("alumCableSupportPart_pos1") + TString("_") + TString::Itoa(uniqueId, 10)
                                       + TString("_") + frames->GetName());
    alumCableSupportPart_pos1->SetDx(+(alumCableSupport_XDistBetweenParts * 0.5 + alumCableSupportPart_XSize * 0.5));
    alumCableSupportPart_pos1->SetDy(0.0);
    alumCableSupportPart_pos1->SetDz(0.0);
    alumCableSupportPart_pos1->RegisterYourself();
 
    TGeoTranslation* alumCableSupportPart_pos2 = new TGeoTranslation();
    alumCableSupportPart_pos2->SetName(TString("alumCableSupportPart_pos2") + TString("_") + TString::Itoa(uniqueId, 10)
                                       + TString("_") + frames->GetName());
    alumCableSupportPart_pos2->SetDx(-(alumCableSupport_XDistBetweenParts * 0.5 + alumCableSupportPart_XSize * 0.5));
    alumCableSupportPart_pos2->SetDy(0.0);
    alumCableSupportPart_pos2->SetDz(0.0);
    alumCableSupportPart_pos2->RegisterYourself();
 
    TGeoCompositeShape* alumCableSupportS = new TGeoCompositeShape();
    alumCableSupportS->SetName(TString("alumCableSupportS") += TString("_") + frames->GetName());
    {
        TString expression = "alumCableSupportPartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":alumCableSupportPart_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+alumCableSupportPartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":alumCableSupportPart_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        alumCableSupportS->MakeNode(expression);
        alumCableSupportS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* alumCableSupportV =
        new TGeoVolume(TString("alumCableSupportV") += TString("_") + frames->GetName(), alumCableSupportS);
 
    // volume medium
    TGeoMedium* alumCableSupportV_medium = pMedAluminium;
    if (alumCableSupportV_medium) {
        alumCableSupportV->SetMedium(alumCableSupportV_medium);
    } else
        Fatal("Main", "Invalid medium for alumCableSupportV!");
 
    // volume visual property (transparency)
    alumCableSupportV->SetLineColor(TColor::GetColor("#ffcccc"));
    alumCableSupportV->SetTransparency(0);
 
    TGeoCombiTrans* alumCableSupport_transf[1];
 
    alumCableSupport_transf[0] = new TGeoCombiTrans();
    alumCableSupport_transf[0]->SetDx(0.0);
    alumCableSupport_transf[0]->SetDy(+((alumCableSupportPart_YSize - YModuleSize_Station163x45) * 0.5)
                                      - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    alumCableSupport_transf[0]->SetDz(-(alumCableSupportPart_ZSize * 0.5 + ZModuleSize_Station163x45 * 0.5
                                        + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    frames->AddNode(alumCableSupportV, 0, alumCableSupport_transf[0]);
    //--------------------------------------------------------------------------
 
    // amplifier upper block ----------------------------------------------------
    Double_t amplifierUpperBlockPart1_XSize = 161.44;   // cm
    Double_t amplifierUpperBlockPart1_YSize = 0.6;      // cm
    Double_t amplifierUpperBlockPart1_ZSize = 8.41;     // cm
 
    Double_t amplifierUpperBlockPart2_XSize = 161.16;   // cm
    Double_t amplifierUpperBlockPart2_YSize = 0.6;      // cm
    Double_t amplifierUpperBlockPart2_ZSize = 8.41;     // cm
 
    TGeoShape* amplifierUpperBlockPart1S =
        new TGeoBBox(TString("amplifierUpperBlockPart1S") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     amplifierUpperBlockPart1_XSize * 0.5, amplifierUpperBlockPart1_YSize * 0.5,
                     amplifierUpperBlockPart1_ZSize * 0.5);
    TGeoShape* amplifierUpperBlockPart2S =
        new TGeoBBox(TString("amplifierUpperBlockPart2S") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     amplifierUpperBlockPart2_XSize * 0.5, amplifierUpperBlockPart2_YSize * 0.5,
                     amplifierUpperBlockPart2_ZSize * 0.5);
 
    TGeoTranslation* amplifierUpperBlockPart1_pos = new TGeoTranslation();
    amplifierUpperBlockPart1_pos->SetName(TString("amplifierUpperBlockPart1_pos") + TString("_")
                                          + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    amplifierUpperBlockPart1_pos->SetDx(0.0);
    amplifierUpperBlockPart1_pos->SetDy(0.0);
    amplifierUpperBlockPart1_pos->SetDz(0.0);
    amplifierUpperBlockPart1_pos->RegisterYourself();
 
    TGeoTranslation* amplifierUpperBlockPart2_pos = new TGeoTranslation();
    amplifierUpperBlockPart2_pos->SetName(TString("amplifierUpperBlockPart2_pos") + TString("_")
                                          + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    amplifierUpperBlockPart2_pos->SetDx(-0.76);
    amplifierUpperBlockPart2_pos->SetDy(
        -(amplifierUpperBlockPart1_YSize * 0.5 + amplifierUpperBlockPart2_YSize * 0.5 + 0.33));
    amplifierUpperBlockPart2_pos->SetDz(0.0);
    amplifierUpperBlockPart2_pos->RegisterYourself();
 
    TGeoCompositeShape* amplifierUpperBlockS = new TGeoCompositeShape();
    amplifierUpperBlockS->SetName(TString("amplifierUpperBlockS") +=
                                  TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "amplifierUpperBlockPart1S";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":amplifierUpperBlockPart1_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+amplifierUpperBlockPart1S";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":amplifierUpperBlockPart2_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        amplifierUpperBlockS->MakeNode(expression);
        amplifierUpperBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* amplifierUpperBlockV =
        new TGeoVolume(TString("amplifierUpperBlockV") += TString("_") + frames->GetName(), amplifierUpperBlockS);
 
    // volume medium
    TGeoMedium* amplifierUpperBlockV_medium = pMedFiberGlass;
    if (amplifierUpperBlockV_medium) {
        amplifierUpperBlockV->SetMedium(amplifierUpperBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierUpperBlockV!");
 
    // volume visual property (transparency)
    amplifierUpperBlockV->SetLineColor(TColor::GetColor("#ccffcc"));
    amplifierUpperBlockV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierUpperBlock_transf[1];
 
    amplifierUpperBlock_transf[0] = new TGeoCombiTrans();
    amplifierUpperBlock_transf[0]->SetDx(0.0);
    amplifierUpperBlock_transf[0]->SetDy(+(YModuleSize_Station163x45 * 0.5 + backUpperEpoxideFrame_YSize)
                                         - 1.0 /*shift*/);
    amplifierUpperBlock_transf[0]->SetDz(-(amplifierUpperBlockPart1_ZSize * 0.5) + ZModuleSize_Station163x45 * 0.5);
 
    frames->AddNode(amplifierUpperBlockV, 0, amplifierUpperBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // amplifier side block -----------------------------------------------------
    Double_t amplifierSideBlockPartBig_XSize = 0.6;    // cm
    Double_t amplifierSideBlockPartBig_YSize = 33.9;   // cm
    Double_t amplifierSideBlockPartBig_ZSize = 8.41;   // cm
 
    Double_t amplifierSideBlockPartSmall_XSize = 0.6;     // cm
    Double_t amplifierSideBlockPartSmall_YSize = 27.05;   // cm
    Double_t amplifierSideBlockPartSmall_ZSize = 8.41;    // cm
 
    TGeoShape* amplifierSideBlockPartBigS =
        new TGeoBBox(TString("amplifierSideBlockPartBigS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     amplifierSideBlockPartBig_XSize * 0.5, amplifierSideBlockPartBig_YSize * 0.5,
                     amplifierSideBlockPartBig_ZSize * 0.5);
    TGeoShape* amplifierSideBlockPartSmallS =
        new TGeoBBox(TString("amplifierSideBlockPartSmallS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     amplifierSideBlockPartSmall_XSize * 0.5, amplifierSideBlockPartSmall_YSize * 0.5,
                     amplifierSideBlockPartSmall_ZSize * 0.5);
 
    TGeoTranslation* amplifierSideBlockPartBig_pos = new TGeoTranslation();
    amplifierSideBlockPartBig_pos->SetName(TString("amplifierSideBlockPartBig_pos") + TString("_")
                                           + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    amplifierSideBlockPartBig_pos->SetDx(0.0);
    amplifierSideBlockPartBig_pos->SetDy(0.0);
    amplifierSideBlockPartBig_pos->SetDz(0.0);
    amplifierSideBlockPartBig_pos->RegisterYourself();
 
    TGeoTranslation* amplifierSideBlockPartSmall_pos = new TGeoTranslation();
    amplifierSideBlockPartSmall_pos->SetName(TString("amplifierSideBlockPartSmall_pos") + TString("_")
                                             + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    amplifierSideBlockPartSmall_pos->SetDx(
        +(amplifierSideBlockPartBig_XSize * 0.5 + amplifierSideBlockPartSmall_XSize * 0.5 + 1.72));
    amplifierSideBlockPartSmall_pos->SetDy(+0.05);
    amplifierSideBlockPartSmall_pos->SetDz(0.0);
    amplifierSideBlockPartSmall_pos->RegisterYourself();
 
    TGeoCompositeShape* amplifierSideBlockS = new TGeoCompositeShape();
    amplifierSideBlockS->SetName(TString("amplifierSideBlockS") += TString("_") + frames->GetName());
    {
        TString expression = "amplifierSideBlockPartBigS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":amplifierSideBlockPartBig_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+amplifierSideBlockPartSmallS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":amplifierSideBlockPartSmall_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        amplifierSideBlockS->MakeNode(expression);
        amplifierSideBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* amplifierSideBlockV =
        new TGeoVolume(TString("amplifierSideBlockV") += TString("_") + frames->GetName(), amplifierSideBlockS);
 
    // volume medium
    TGeoMedium* amplifierSideBlockV_medium = pMedFiberGlass;
    if (amplifierSideBlockV_medium) {
        amplifierSideBlockV->SetMedium(amplifierSideBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierSideBlockV!");
 
    // volume visual property (transparency)
    amplifierSideBlockV->SetLineColor(TColor::GetColor("#ccffcc"));
    amplifierSideBlockV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierSideBlock_transf[2];
 
    amplifierSideBlock_transf[0] = new TGeoCombiTrans();
    amplifierSideBlock_transf[0]->SetDx(+86.47 /*shift*/);
    amplifierSideBlock_transf[0]->SetDy(-5.5);
    amplifierSideBlock_transf[0]->SetDz(-(amplifierSideBlockPartBig_ZSize * 0.5) + ZModuleSize_Station163x45 * 0.5
                                        - 0.4 /*shift*/);
 
    amplifierSideBlock_transf[1] = new TGeoCombiTrans();
    amplifierSideBlock_transf[1]->RotateY(180.0);
    amplifierSideBlock_transf[1]->SetDx(-86.47 /*shift*/);
    amplifierSideBlock_transf[1]->SetDy(-5.5);
    amplifierSideBlock_transf[1]->SetDz(-(amplifierSideBlockPartBig_ZSize * 0.5) + ZModuleSize_Station163x45 * 0.5
                                        - 0.4 /*shift*/);
 
    frames->AddNode(amplifierSideBlockV, 0, amplifierSideBlock_transf[0]);
    frames->AddNode(amplifierSideBlockV, 1, amplifierSideBlock_transf[1]);
    //--------------------------------------------------------------------------
 
    // upper PCB (Printed Circuit Board) ----------------------------------------
    Double_t upperPcb_XSize = 177.22;   // cm
    Double_t upperPcb_YSize = 0.3;      // cm
    Double_t upperPcb_ZSize = 4.0;      // cm
 
    TGeoShape* upperPcbS = new TGeoBBox(TString("upperPcbS") +=
                                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                                        upperPcb_XSize * 0.5, upperPcb_YSize * 0.5, upperPcb_ZSize * 0.5);
 
    TGeoVolume* upperPcbV = new TGeoVolume(TString("upperPcbV") += TString("_") + frames->GetName(), upperPcbS);
 
    // volume medium
    TGeoMedium* upperPcbV_medium = pMedFiberGlass;
    if (upperPcbV_medium) {
        upperPcbV->SetMedium(upperPcbV_medium);
    } else
        Fatal("Main", "Invalid medium for upperPcbV!");
 
    // volume visual property (transparency)
    upperPcbV->SetLineColor(TColor::GetColor("#88ff88"));
    upperPcbV->SetTransparency(0);
 
    TGeoCombiTrans* upperPcb_transf[1];
 
    upperPcb_transf[0] = new TGeoCombiTrans();
    upperPcb_transf[0]->SetDx(+0.1 /*shift*/);
    upperPcb_transf[0]->SetDy(+(upperPcb_YSize * 0.5 + 23.5 /*shift*/));
    upperPcb_transf[0]->SetDz(-(upperPcb_ZSize * 0.5) + ZModuleSize_Station163x45 * 0.5 - ZModuleSize_Station163x45
                              - frontSideEpoxideFramePart_ZSize);
 
    frames->AddNode(upperPcbV, 0, upperPcb_transf[0]);
    //--------------------------------------------------------------------------
 
    // side PCB -----------------------------------------------------------------
    Double_t sidePcbPart_XSize = 0.3;     // cm
    Double_t sidePcbPart_YSize = 35.05;   // cm
    Double_t sidePcbPart_ZSize = 4.0;     // cm
 
    TGeoShape* sidePcbPartS = new TGeoBBox(TString("sidePcbPartS") += TString("_") + TString::Itoa(uniqueId, 10)
                                                                      + TString("_") + frames->GetName(),
                                           sidePcbPart_XSize * 0.5, sidePcbPart_YSize * 0.5, sidePcbPart_ZSize * 0.5);
 
    TGeoTranslation* sidePcbPart_pos1 = new TGeoTranslation();
    sidePcbPart_pos1->SetName(TString("sidePcbPart_pos1") + TString("_") + TString::Itoa(uniqueId, 10) + TString("_")
                              + frames->GetName());
    sidePcbPart_pos1->SetDx(0.0);
    sidePcbPart_pos1->SetDy(0.0);
    sidePcbPart_pos1->SetDz(0.0);
    sidePcbPart_pos1->RegisterYourself();
 
    TGeoTranslation* sidePcbPart_pos2 = new TGeoTranslation();
    sidePcbPart_pos2->SetName(TString("sidePcbPart_pos2") + TString("_") + TString::Itoa(uniqueId, 10) + TString("_")
                              + frames->GetName());
    sidePcbPart_pos2->SetDx(+(sidePcbPart_XSize + 6.1 /*shift*/));
    sidePcbPart_pos2->SetDy(0.0);
    sidePcbPart_pos2->SetDz(0.0);
    sidePcbPart_pos2->RegisterYourself();
 
    TGeoCompositeShape* sidePcbS = new TGeoCompositeShape();
    sidePcbS->SetName(TString("sidePcbS") += TString("_") + frames->GetName());
    {
        TString expression = "sidePcbPartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":sidePcbPart_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+sidePcbPartS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":sidePcbPart_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        sidePcbS->MakeNode(expression);
        sidePcbS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* sidePcbV = new TGeoVolume(TString("sidePcbV") += TString("_") + frames->GetName(), sidePcbS);
 
    // volume medium
    TGeoMedium* sidePcbV_medium = pMedFiberGlass;
    if (sidePcbV_medium) {
        sidePcbV->SetMedium(sidePcbV_medium);
    } else
        Fatal("Main", "Invalid medium for sidePcbV!");
 
    // volume visual property (transparency)
    sidePcbV->SetLineColor(TColor::GetColor("#88ff88"));
    sidePcbV->SetTransparency(0);
 
    TGeoCombiTrans* sidePcb_transf[2];
 
    sidePcb_transf[0] = new TGeoCombiTrans();
    sidePcb_transf[0]->SetDx(+(sidePcbPart_XSize * 0.5 + 84.1 /*shift*/));
    sidePcb_transf[0]->SetDy(-6.8 /*shift*/);
    sidePcb_transf[0]->SetDz(-(sidePcbPart_ZSize * 0.5 + alumCableSupportPart_ZSize + ZModuleSize_Station163x45 * 0.5
                               + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    sidePcb_transf[1] = new TGeoCombiTrans();
    sidePcb_transf[1]->RotateY(180.0);
    sidePcb_transf[1]->SetDx(-(sidePcbPart_XSize * 0.5 + 84.1 /*shift*/));
    sidePcb_transf[1]->SetDy(-6.8 /*shift*/);
    sidePcb_transf[1]->SetDz(-(sidePcbPart_ZSize * 0.5 + alumCableSupportPart_ZSize + ZModuleSize_Station163x45 * 0.5
                               + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    frames->AddNode(sidePcbV, 0, sidePcb_transf[0]);
    frames->AddNode(sidePcbV, 1, sidePcb_transf[1]);
    //--------------------------------------------------------------------------
 
    // alum. side support -------------------------------------------------------
    Double_t alumSideSupport_XSize = 4.8;    // cm
    Double_t alumSideSupport_YSize = 52.6;   // cm
    Double_t alumSideSupport_ZSize = 0.4;    // cm
 
    TGeoShape* alumSideSupportS = new TGeoBBox(
        TString("alumSideSupportS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        alumSideSupport_XSize * 0.5, alumSideSupport_YSize * 0.5, alumSideSupport_ZSize * 0.5);
 
    TGeoVolume* alumSideSupportV =
        new TGeoVolume(TString("alumSideSupportV") += TString("_") + frames->GetName(), alumSideSupportS);
 
    // volume medium
    TGeoMedium* alumSideSupportV_medium = pMedAluminium;
    if (alumSideSupportV_medium) {
        alumSideSupportV->SetMedium(alumSideSupportV_medium);
    } else
        Fatal("Main", "Invalid medium for alumSideSupportV!");
 
    // volume visual property (transparency)
    alumSideSupportV->SetLineColor(TColor::GetColor("#ffcccc"));
    alumSideSupportV->SetTransparency(0);
 
    TGeoCombiTrans* alumSideSupport_transf[2];
 
    alumSideSupport_transf[0] = new TGeoCombiTrans();
    alumSideSupport_transf[0]->SetDx(+(alumSideSupport_XSize * 0.5 + 88.31 /*shift*/));
    alumSideSupport_transf[0]->SetDy(+1.8);
    alumSideSupport_transf[0]->SetDz(+(ZModuleSize_Station163x45 * 0.5 - alumSideSupport_ZSize * 0.5));
 
    alumSideSupport_transf[1] = new TGeoCombiTrans();
    alumSideSupport_transf[1]->SetDx(-(alumSideSupport_XSize * 0.5 + 88.31 /*shift*/));
    alumSideSupport_transf[1]->SetDy(+1.8 /*shift*/);
    alumSideSupport_transf[1]->SetDz(+(ZModuleSize_Station163x45 * 0.5 - alumSideSupport_ZSize * 0.5));
 
    frames->AddNode(alumSideSupportV, 0, alumSideSupport_transf[0]);
    frames->AddNode(alumSideSupportV, 1, alumSideSupport_transf[1]);
    //--------------------------------------------------------------------------
 
    // bosch shape --------------------------------------------------------------
    Double_t boschShape_XSize = 2.25;   // cm
    Double_t boschShape_YSize = 52.6;   // cm
    Double_t boschShape_ZSize = 2.25;   // cm
 
    TGeoShape* boschShapeS = new TGeoBBox(TString("boschShapeS") +=
                                          TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                                          boschShape_XSize * 0.5, boschShape_YSize * 0.5, boschShape_ZSize * 0.5);
 
    TGeoVolume* boschShapeV = new TGeoVolume(TString("boschShapeV") += TString("_") + frames->GetName(), boschShapeS);
 
    // volume medium
    TGeoMedium* boschShapeV_medium = pMedAluminium;
    if (boschShapeV_medium) {
        boschShapeV->SetMedium(boschShapeV_medium);
    } else
        Fatal("Main", "Invalid medium for boschShapeV!");
 
    // volume visual property (transparency)
    boschShapeV->SetLineColor(TColor::GetColor("#ffcccc"));
    boschShapeV->SetTransparency(0);
 
    TGeoCombiTrans* boschShape_transf[2];
 
    boschShape_transf[0] = new TGeoCombiTrans();
    boschShape_transf[0]->SetDx(+(boschShape_XSize * 0.5 + 90.86 /*shift*/));
    boschShape_transf[0]->SetDy(+1.8 /*shift*/);
    boschShape_transf[0]->SetDz(+(ZModuleSize_Station163x45 * 0.5 + boschShape_ZSize * 0.5));
 
    boschShape_transf[1] = new TGeoCombiTrans();
    boschShape_transf[1]->SetDx(-(boschShape_XSize * 0.5 + 90.86 /*shift*/));
    boschShape_transf[1]->SetDy(+1.8 /*shift*/);
    boschShape_transf[1]->SetDz(+(ZModuleSize_Station163x45 * 0.5 + boschShape_ZSize * 0.5));
 
    // frames->AddNode(boschShapeV, 0, boschShape_transf[0]);
    // frames->AddNode(boschShapeV, 1, boschShape_transf[1]);
    //--------------------------------------------------------------------------
 
    // polyacetal shape ---------------------------------------------------------
    Double_t insidePolyacetalShapeUpper_XSize = 11.46;                // cm
    Double_t insidePolyacetalShapeUpper_YSize = 52.6;                 // cm
    Double_t insidePolyacetalShapeUpper_ZSize = 3.0;                  // cm
    Double_t insidePolyacetalShapeUpper_XDistBetweenParts = 186.22;   // cm
 
    Double_t outsidePolyacetalShapeUpper_XSize = 23.5;                 // cm
    Double_t outsidePolyacetalShapeUpper_YSize = 5.405;                // cm
    Double_t outsidePolyacetalShapeUpper_ZSize = 3.0;                  // cm
    Double_t outsidePolyacetalShapeUpper_XDistBetweenParts = 209.14;   // cm
 
    Double_t insidePolyacetalShapeLower_XSize = 8.4;                  // cm
    Double_t insidePolyacetalShapeLower_YSize = 52.6;                 // cm
    Double_t insidePolyacetalShapeLower_ZSize = 3.0;                  // cm
    Double_t insidePolyacetalShapeLower_XDistBetweenParts = 186.22;   // cm
 
    Double_t outsidePolyacetalShapeLower_XSize = 26.7;                 // cm
    Double_t outsidePolyacetalShapeLower_YSize = 24.4;                 // cm
    Double_t outsidePolyacetalShapeLower_ZSize = 3.0;                  // cm
    Double_t outsidePolyacetalShapeLower_XDistBetweenParts = 203.02;   // cm
 
    TGeoShape* insidePolyacetalShapeUpperS =
        new TGeoBBox(TString("insidePolyacetalShapeUpperS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     insidePolyacetalShapeUpper_XSize * 0.5, insidePolyacetalShapeUpper_YSize * 0.5,
                     insidePolyacetalShapeUpper_ZSize * 0.5);
    TGeoShape* outsidePolyacetalShapeUpperS =
        new TGeoBBox(TString("outsidePolyacetalShapeUpperS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     outsidePolyacetalShapeUpper_XSize * 0.5, outsidePolyacetalShapeUpper_YSize * 0.5,
                     outsidePolyacetalShapeUpper_ZSize * 0.5);
    TGeoShape* insidePolyacetalShapeLowerS =
        new TGeoBBox(TString("insidePolyacetalShapeLowerS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     insidePolyacetalShapeLower_XSize * 0.5, insidePolyacetalShapeLower_YSize * 0.5,
                     insidePolyacetalShapeLower_ZSize * 0.5);
    TGeoShape* outsidePolyacetalShapeLowerS =
        new TGeoBBox(TString("outsidePolyacetalShapeLowerS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     outsidePolyacetalShapeLower_XSize * 0.5, outsidePolyacetalShapeLower_YSize * 0.5,
                     outsidePolyacetalShapeLower_ZSize * 0.5);
 
    TGeoVolume* insidePolyacetalShapeUpperV = new TGeoVolume(
        TString("insidePolyacetalShapeUpperV") += TString("_") + frames->GetName(), insidePolyacetalShapeUpperS);
    TGeoVolume* outsidePolyacetalShapeUpperV = new TGeoVolume(
        TString("outsidePolyacetalShapeUpperV") += TString("_") + frames->GetName(), outsidePolyacetalShapeUpperS);
    TGeoVolume* insidePolyacetalShapeLowerV = new TGeoVolume(
        TString("insidePolyacetalShapeLowerV") += TString("_") + frames->GetName(), insidePolyacetalShapeLowerS);
    TGeoVolume* outsidePolyacetalShapeLowerV = new TGeoVolume(
        TString("outsidePolyacetalShapeLowerV") += TString("_") + frames->GetName(), outsidePolyacetalShapeLowerS);
 
    // volume medium
    TGeoMedium* polyacetalShapeV_medium = pMedPolyacetal;
    if (polyacetalShapeV_medium) {
        insidePolyacetalShapeUpperV->SetMedium(polyacetalShapeV_medium);
        outsidePolyacetalShapeUpperV->SetMedium(polyacetalShapeV_medium);
        insidePolyacetalShapeLowerV->SetMedium(polyacetalShapeV_medium);
        outsidePolyacetalShapeLowerV->SetMedium(polyacetalShapeV_medium);
    } else
        Fatal("Main", "Invalid medium for insidePolyacetalShapeUpperV!");
 
    // volume visual property (transparency)
    insidePolyacetalShapeUpperV->SetLineColor(TColor::GetColor("#ffcccc"));
    insidePolyacetalShapeUpperV->SetTransparency(0);
    outsidePolyacetalShapeUpperV->SetLineColor(TColor::GetColor("#ffcccc"));
    outsidePolyacetalShapeUpperV->SetTransparency(0);
    insidePolyacetalShapeLowerV->SetLineColor(TColor::GetColor("#ffcccc"));
    insidePolyacetalShapeLowerV->SetTransparency(0);
    outsidePolyacetalShapeLowerV->SetLineColor(TColor::GetColor("#ffcccc"));
    outsidePolyacetalShapeLowerV->SetTransparency(0);
 
    TGeoCombiTrans* insidePolyacetalShapeUpper_transf[2];
 
    insidePolyacetalShapeUpper_transf[0] = new TGeoCombiTrans();
    insidePolyacetalShapeUpper_transf[0]->SetDx(
        +(insidePolyacetalShapeUpper_XSize * 0.5 + insidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    insidePolyacetalShapeUpper_transf[0]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeUpper_transf[0]->SetDz(0.0);
 
    insidePolyacetalShapeUpper_transf[1] = new TGeoCombiTrans();
    insidePolyacetalShapeUpper_transf[1]->SetDx(
        -(insidePolyacetalShapeUpper_XSize * 0.5 + insidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    insidePolyacetalShapeUpper_transf[1]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeUpper_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* outsidePolyacetalShapeUpper_transf[2];
 
    outsidePolyacetalShapeUpper_transf[0] = new TGeoCombiTrans();
    outsidePolyacetalShapeUpper_transf[0]->SetDx(
        +(outsidePolyacetalShapeUpper_XSize * 0.5 + outsidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeUpper_transf[0]->SetDy(-insidePolyacetalShapeUpper_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeUpper_YSize * 0.5);
    outsidePolyacetalShapeUpper_transf[0]->SetDz(0.0);
 
    outsidePolyacetalShapeUpper_transf[1] = new TGeoCombiTrans();
    outsidePolyacetalShapeUpper_transf[1]->SetDx(
        -(outsidePolyacetalShapeUpper_XSize * 0.5 + outsidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeUpper_transf[1]->SetDy(-insidePolyacetalShapeUpper_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeUpper_YSize * 0.5);
    outsidePolyacetalShapeUpper_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* insidePolyacetalShapeLower_transf[2];
 
    insidePolyacetalShapeLower_transf[0] = new TGeoCombiTrans();
    insidePolyacetalShapeLower_transf[0]->SetDx(
        +(insidePolyacetalShapeLower_XSize * 0.5 + insidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    insidePolyacetalShapeLower_transf[0]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeLower_transf[0]->SetDz(0.0);
 
    insidePolyacetalShapeLower_transf[1] = new TGeoCombiTrans();
    insidePolyacetalShapeLower_transf[1]->SetDx(
        -(insidePolyacetalShapeLower_XSize * 0.5 + insidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    insidePolyacetalShapeLower_transf[1]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeLower_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* outsidePolyacetalShapeLower_transf[2];
 
    outsidePolyacetalShapeLower_transf[0] = new TGeoCombiTrans();
    outsidePolyacetalShapeLower_transf[0]->SetDx(
        +(outsidePolyacetalShapeLower_XSize * 0.5 + outsidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeLower_transf[0]->SetDy(-insidePolyacetalShapeLower_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeLower_YSize * 0.5);
    outsidePolyacetalShapeLower_transf[0]->SetDz(0.0);
 
    outsidePolyacetalShapeLower_transf[1] = new TGeoCombiTrans();
    outsidePolyacetalShapeLower_transf[1]->SetDx(
        -(outsidePolyacetalShapeLower_XSize * 0.5 + outsidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeLower_transf[1]->SetDy(-insidePolyacetalShapeLower_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeLower_YSize * 0.5);
    outsidePolyacetalShapeLower_transf[1]->SetDz(0.0);
 
    if (TString(frames->GetName()).Contains("upper")) {
        frames->AddNode(insidePolyacetalShapeUpperV, 0, insidePolyacetalShapeUpper_transf[0]);
        frames->AddNode(insidePolyacetalShapeUpperV, 1, insidePolyacetalShapeUpper_transf[1]);
        frames->AddNode(outsidePolyacetalShapeUpperV, 0, outsidePolyacetalShapeUpper_transf[0]);
        frames->AddNode(outsidePolyacetalShapeUpperV, 1, outsidePolyacetalShapeUpper_transf[1]);
    }
 
    if (TString(frames->GetName()).Contains("lower")) {
        frames->AddNode(insidePolyacetalShapeLowerV, 0, insidePolyacetalShapeLower_transf[0]);
        frames->AddNode(insidePolyacetalShapeLowerV, 1, insidePolyacetalShapeLower_transf[1]);
        frames->AddNode(outsidePolyacetalShapeLowerV, 0, outsidePolyacetalShapeLower_transf[0]);
        frames->AddNode(outsidePolyacetalShapeLowerV, 1, outsidePolyacetalShapeLower_transf[1]);
    }
 
    //--------------------------------------------------------------------------
 
    // lower fiberglass block ---------------------------------------------------
    Double_t lowerFiberGlassBlock_XSize = 165.1;   // cm
    Double_t lowerFiberGlassBlock_YSize = 1.75;    // cm
    Double_t lowerFiberGlassBlock_ZSize = 0.9;     // cm
 
    Double_t lowerFiberGlassBlockArch_Rmin = 4.0;
    Double_t lowerFiberGlassBlockArch_Rmax = 5.75;
    Double_t lowerFiberGlassBlockArch_ZSize = lowerFiberGlassBlock_ZSize;
 
    TGeoShape* lowerFiberGlassBlockHalfS =
        new TGeoBBox(TString("lowerFiberGlassBlockHalfS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
                     (lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5,
                     lowerFiberGlassBlock_YSize * 0.5, lowerFiberGlassBlock_ZSize * 0.5);
    TGeoShape* lowerFiberGlassBlockArchS = new TGeoTubeSeg(
        TString("lowerFiberGlassBlockArchS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        lowerFiberGlassBlockArch_Rmin, lowerFiberGlassBlockArch_Rmax, lowerFiberGlassBlockArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* lowerFiberGlassBlockHalf_pos1 = new TGeoTranslation();
    lowerFiberGlassBlockHalf_pos1->SetName(TString("lowerFiberGlassBlockHalf_pos1") +=
                                           TString("_") + TString::Itoa(uniqueId, 10) + TString("_")
                                           + frames->GetName());
    lowerFiberGlassBlockHalf_pos1->SetDx(
        +((lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5 + lowerFiberGlassBlockArch_Rmin));
    lowerFiberGlassBlockHalf_pos1->SetDy(-(lowerFiberGlassBlock_YSize * 0.5));
    lowerFiberGlassBlockHalf_pos1->SetDz(0.0);
    lowerFiberGlassBlockHalf_pos1->RegisterYourself();
 
    TGeoTranslation* lowerFiberGlassBlockHalf_pos2 = new TGeoTranslation();
    lowerFiberGlassBlockHalf_pos2->SetName(TString("lowerFiberGlassBlockHalf_pos2") +=
                                           TString("_") + TString::Itoa(uniqueId, 10) + TString("_")
                                           + frames->GetName());
    lowerFiberGlassBlockHalf_pos2->SetDx(
        -((lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5 + lowerFiberGlassBlockArch_Rmin));
    lowerFiberGlassBlockHalf_pos2->SetDy(-(lowerFiberGlassBlock_YSize * 0.5));
    lowerFiberGlassBlockHalf_pos2->SetDz(0.0);
    lowerFiberGlassBlockHalf_pos2->RegisterYourself();
 
    TGeoTranslation* lowerFiberGlassBlockArch_pos = new TGeoTranslation();
    lowerFiberGlassBlockArch_pos->SetName(TString("lowerFiberGlassBlockArch_pos") +=
                                          TString("_") + TString::Itoa(uniqueId, 10) + TString("_")
                                          + frames->GetName());
    lowerFiberGlassBlockArch_pos->SetDx(0.0);
    lowerFiberGlassBlockArch_pos->SetDy(0.0);
    lowerFiberGlassBlockArch_pos->SetDz(0.0);
    lowerFiberGlassBlockArch_pos->RegisterYourself();
 
    TGeoCompositeShape* lowerFiberGlassBlockS = new TGeoCompositeShape();
    lowerFiberGlassBlockS->SetName(TString("lowerFiberGlassBlockS") +=
                                   TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName());
    {
        TString expression = "lowerFiberGlassBlockHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockHalf_pos1";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+lowerFiberGlassBlockHalfS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockHalf_pos2";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += "+lowerFiberGlassBlockArchS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockArch_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName();
 
        lowerFiberGlassBlockS->MakeNode(expression);
        lowerFiberGlassBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* lowerFiberGlassBlockV =
        new TGeoVolume(TString("lowerFiberGlassBlockV") += TString("_") + frames->GetName(), lowerFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* lowerFiberGlassBlockV_medium = pMedFiberGlass;
    if (lowerFiberGlassBlockV_medium) {
        lowerFiberGlassBlockV->SetMedium(lowerFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for lowerFiberGlassBlockV!");
 
    // volume visual property (transparency)
    lowerFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    lowerFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* lowerFiberGlassBlock_transf[1];
 
    lowerFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    lowerFiberGlassBlock_transf[0]->SetDx(0.0);
    lowerFiberGlassBlock_transf[0]->SetDy(-(YModuleSize_Station163x45 * 0.5));
    lowerFiberGlassBlock_transf[0]->SetDz(0.0);
 
    frames->AddNode(lowerFiberGlassBlockV, 0, lowerFiberGlassBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // side fiberglass block ----------------------------------------------------
    Double_t sideFiberGlassBlockPart_XSize = 1.45;   // cm
    Double_t sideFiberGlassBlockPart_YSize = 49.4;   // cm
    Double_t sideFiberGlassBlockPart_ZSize = 0.89;   // cm
 
    TGeoShape* sideFiberGlassBlockS = new TGeoBBox(
        TString("sideFiberGlassBlockS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        sideFiberGlassBlockPart_XSize * 0.5, sideFiberGlassBlockPart_YSize * 0.5, sideFiberGlassBlockPart_ZSize * 0.5);
 
    TGeoVolume* sideFiberGlassBlockV =
        new TGeoVolume(TString("sideFiberGlassBlockV") += TString("_") + frames->GetName(), sideFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* sideFiberGlassBlockV_medium = pMedFiberGlass;
    if (sideFiberGlassBlockV_medium) {
        sideFiberGlassBlockV->SetMedium(sideFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for sideFiberGlassBlockV!");
 
    // volume visual property (transparency)
    sideFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    sideFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* sideFiberGlassBlock_transf[2];
 
    sideFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    sideFiberGlassBlock_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideFiberGlassBlockPart_XSize * 0.5));
    sideFiberGlassBlock_transf[0]->SetDy(+0.45 /*shift*/);
    sideFiberGlassBlock_transf[0]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    sideFiberGlassBlock_transf[1] = new TGeoCombiTrans();
    sideFiberGlassBlock_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideFiberGlassBlockPart_XSize * 0.5));
    sideFiberGlassBlock_transf[1]->SetDy(+0.45 /*shift*/);
    sideFiberGlassBlock_transf[1]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    frames->AddNode(sideFiberGlassBlockV, 0, sideFiberGlassBlock_transf[0]);
    frames->AddNode(sideFiberGlassBlockV, 1, sideFiberGlassBlock_transf[1]);
    //--------------------------------------------------------------------------
 
    // upper fiberglass block ---------------------------------------------------
    Double_t upperFiberGlassBlock_XSize = 165.1;   // cm
    Double_t upperFiberGlassBlock_YSize = 1.45;    // cm
    Double_t upperFiberGlassBlock_ZSize = 0.89;    // cm
 
    TGeoShape* upperFiberGlassBlockS = new TGeoBBox(
        TString("upperFiberGlassBlockS") +=
        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        upperFiberGlassBlock_XSize * 0.5, upperFiberGlassBlock_YSize * 0.5, upperFiberGlassBlock_ZSize * 0.5);
 
    TGeoVolume* upperFiberGlassBlockV =
        new TGeoVolume(TString("upperFiberGlassBlockV") += TString("_") + frames->GetName(), upperFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* upperFiberGlassBlockV_medium = pMedFiberGlass;
    if (upperFiberGlassBlockV_medium) {
        upperFiberGlassBlockV->SetMedium(upperFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for upperFiberGlassBlockV!");
 
    // volume visual property (transparency)
    upperFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    upperFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* upperFiberGlassBlock_transf[1];
 
    upperFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    upperFiberGlassBlock_transf[0]->SetDx(0.0);
    upperFiberGlassBlock_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperFiberGlassBlock_YSize * 0.5 + 0.45 /*shift*/));
    upperFiberGlassBlock_transf[0]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    frames->AddNode(upperFiberGlassBlockV, 0, upperFiberGlassBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // brass layer --------------------------------------------------------------
    Double_t upperBrasslayer_XSize = 165.1;   // cm
    Double_t upperBrasslayer_YSize = 1.45;    // cm
    Double_t upperBrasslayer_ZSize = 0.005;   // cm
 
    Double_t sideBrasslayer_XSize = 1.45;    // cm
    Double_t sideBrasslayer_YSize = 49.4;    // cm
    Double_t sideBrasslayer_ZSize = 0.005;   // cm
 
    TGeoShape* upperBrasslayerS = new TGeoBBox(
        TString("upperBrasslayerS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        upperBrasslayer_XSize * 0.5, upperBrasslayer_YSize * 0.5, upperBrasslayer_ZSize * 0.5);
    TGeoShape* sideBrasslayerS = new TGeoBBox(
        TString("sideBrasslayerS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        sideBrasslayer_XSize * 0.5, sideBrasslayer_YSize * 0.5, sideBrasslayer_ZSize * 0.5);
 
    TGeoVolume* upperBrasslayerV =
        new TGeoVolume(TString("upperBrasslayerV") += TString("_") + frames->GetName(), upperBrasslayerS);
    TGeoVolume* sideBrasslayerV =
        new TGeoVolume(TString("sideBrasslayerV") += TString("_") + frames->GetName(), sideBrasslayerS);
 
    // volume medium
    TGeoMedium* upperBrasslayerV_medium = pMedBrass;
    if (upperBrasslayerV_medium) {
        upperBrasslayerV->SetMedium(upperBrasslayerV_medium);
        sideBrasslayerV->SetMedium(upperBrasslayerV_medium);
    } else
        Fatal("Main", "Invalid medium for upperBrasslayerV_medium!");
 
    // volume visual property (transparency)
    upperBrasslayerV->SetLineColor(TColor::GetColor("#f07422"));
    upperBrasslayerV->SetTransparency(0);
    sideBrasslayerV->SetLineColor(TColor::GetColor("#f07422"));
    sideBrasslayerV->SetTransparency(0);
 
    TGeoCombiTrans* upperBrasslayer_transf[1];
 
    upperBrasslayer_transf[0] = new TGeoCombiTrans();
    upperBrasslayer_transf[0]->SetDx(0.0);
    upperBrasslayer_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperBrasslayer_YSize * 0.5 + 0.45 /*shift*/));
    upperBrasslayer_transf[0]->SetDz(-ZModuleSize_Station163x45 * 0.5 + upperBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    TGeoCombiTrans* sideBrasslayer_transf[2];
 
    sideBrasslayer_transf[0] = new TGeoCombiTrans();
    sideBrasslayer_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideBrasslayer_XSize * 0.5));
    sideBrasslayer_transf[0]->SetDy(+0.45 /*shift*/);
    sideBrasslayer_transf[0]->SetDz(-ZModuleSize_Station163x45 * 0.5 + sideBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    sideBrasslayer_transf[1] = new TGeoCombiTrans();
    sideBrasslayer_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideBrasslayer_XSize * 0.5));
    sideBrasslayer_transf[1]->SetDy(+0.45 /*shift*/);
    sideBrasslayer_transf[1]->SetDz(-ZModuleSize_Station163x45 * 0.5 + sideBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    frames->AddNode(upperBrasslayerV, 0, upperBrasslayer_transf[0]);
 
    frames->AddNode(sideBrasslayerV, 0, sideBrasslayer_transf[0]);
    frames->AddNode(sideBrasslayerV, 1, sideBrasslayer_transf[1]);
    //--------------------------------------------------------------------------
 
    // steel layer --------------------------------------------------------------
    Double_t upperSteellayer_XSize = 165.1;   // cm
    Double_t upperSteellayer_YSize = 1.45;    // cm
    Double_t upperSteellayer_ZSize = 0.005;   // cm
 
    Double_t sideSteellayer_XSize = 1.45;    // cm
    Double_t sideSteellayer_YSize = 49.4;    // cm
    Double_t sideSteellayer_ZSize = 0.005;   // cm
 
    TGeoShape* upperSteellayerS = new TGeoBBox(
        TString("upperSteellayerS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        upperSteellayer_XSize * 0.5, upperSteellayer_YSize * 0.5, upperSteellayer_ZSize * 0.5);
    TGeoShape* sideSteellayerS = new TGeoBBox(
        TString("sideSteellayerS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + frames->GetName(),
        sideSteellayer_XSize * 0.5, sideSteellayer_YSize * 0.5, sideSteellayer_ZSize * 0.5);
 
    TGeoVolume* upperSteellayerV =
        new TGeoVolume(TString("upperSteellayerV") += TString("_") + frames->GetName(), upperSteellayerS);
    TGeoVolume* sideSteellayerV =
        new TGeoVolume(TString("sideSteellayerV") += TString("_") + frames->GetName(), sideSteellayerS);
 
    // volume medium
    TGeoMedium* upperSteellayerV_medium = pMedSteel;
    if (upperSteellayerV_medium) {
        upperSteellayerV->SetMedium(upperSteellayerV_medium);
        sideSteellayerV->SetMedium(upperSteellayerV_medium);
    } else
        Fatal("Main", "Invalid medium for upperSteellayerV_medium!");
 
    // volume visual property (transparency)
    upperSteellayerV->SetLineColor(TColor::GetColor("#42aaff"));
    upperSteellayerV->SetTransparency(0);
    sideSteellayerV->SetLineColor(TColor::GetColor("#42aaff"));
    sideSteellayerV->SetTransparency(0);
 
    TGeoCombiTrans* upperSteellayer_transf[1];
 
    upperSteellayer_transf[0] = new TGeoCombiTrans();
    upperSteellayer_transf[0]->SetDx(0.0);
    upperSteellayer_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperSteellayer_YSize * 0.5 + 0.45 /*shift*/));
    upperSteellayer_transf[0]->SetDz(-ZModuleSize_Station163x45 * 0.5 + upperSteellayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    TGeoCombiTrans* sideSteellayer_transf[2];
 
    sideSteellayer_transf[0] = new TGeoCombiTrans();
    sideSteellayer_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideSteellayer_XSize * 0.5));
    sideSteellayer_transf[0]->SetDy(+0.45 /*shift*/);
    sideSteellayer_transf[0]->SetDz(-ZModuleSize_Station163x45 * 0.5 + sideSteellayer_ZSize * 0.5);
 
    sideSteellayer_transf[1] = new TGeoCombiTrans();
    sideSteellayer_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideSteellayer_XSize * 0.5));
    sideSteellayer_transf[1]->SetDy(+0.45 /*shift*/);
    sideSteellayer_transf[1]->SetDz(-ZModuleSize_Station163x45 * 0.5 + sideSteellayer_ZSize * 0.5);
 
    frames->AddNode(upperSteellayerV, 0, upperSteellayer_transf[0]);
 
    frames->AddNode(sideSteellayerV, 0, sideSteellayer_transf[0]);
    frames->AddNode(sideSteellayerV, 1, sideSteellayer_transf[1]);
    //--------------------------------------------------------------------------
 
    return frames;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateModule_Station163x39(TString module_name,
                                       Double_t xsize,
                                       Double_t ysize,
                                       Double_t zsize,
                                       Double_t hole_radius)
{
 
    return CreateModule_Station163x45(module_name, xsize, ysize, zsize, hole_radius);
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateLayersForModule_Station163x39(TString layer_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    // frame volumes
    TGeoVolume* layers = new TGeoVolumeAssembly(layer_name);
    layers->SetMedium(pMedAir);
 
    // Common parameters for all layers
    Double_t layer_XSize = XModuleSize_Station163x39;   // cm
    Double_t layer_YSize = YModuleSize_Station163x39;   // cm
 
    Double_t layerFront_XSize = 80.71;     // cm
    Double_t layerFront_YSize = 38.2;      // cm
    Double_t layerFront_XShift = -0.445;   // cm
    Double_t layerFront_YShift = -0.2;     // cm
 
    Double_t layerBack_XSize = 80.71;     // cm
    Double_t layerBack_YSize = 38.2;      // cm
    Double_t layerBack_XShift = -0.445;   // cm
    Double_t layerBack_YShift = -0.2;     // cm
 
    // copper layer -------------------------------------------------------------
    Double_t copperLayer_ZSize = 0.00655;    // cm;
    Double_t copperLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* copperLayerFrontBlankS =
        new TGeoBBox(TString("copperLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, copperLayer_ZSize * 0.5);
    TGeoShape* copperLayerBackBlankS =
        new TGeoBBox(TString("copperLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, copperLayer_ZSize * 0.5);
 
    TGeoShape* copperLayerFrontHoleS =
        new TGeoTube(TString("copperLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, copperLayerHole_Radius, copperLayer_ZSize * 0.5 + 0.01);
    TGeoShape* copperLayerBackHoleS =
        new TGeoTube(TString("copperLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, copperLayerHole_Radius, copperLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* copperLayerFrontHole_pos = new TGeoTranslation();
    copperLayerFrontHole_pos->SetName(TString("copperLayerFrontHole_pos") +=
                                      TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    copperLayerFrontHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerFront_XShift);
    copperLayerFrontHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerFront_YShift);
    copperLayerFrontHole_pos->SetDz(0.0);
    copperLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* copperLayerBackHole_pos = new TGeoTranslation();
    copperLayerBackHole_pos->SetName(TString("copperLayerBackHole_pos") +=
                                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    copperLayerBackHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerBack_XShift);
    copperLayerBackHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerBack_YShift);
    copperLayerBackHole_pos->SetDz(0.0);
    copperLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* copperLayerFrontS = new TGeoCompositeShape();
    copperLayerFrontS->SetName(TString("copperLayerFrontS") +=
                               TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "copperLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-copperLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":copperLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        copperLayerFrontS->MakeNode(expression);
        copperLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperLayerBackS = new TGeoCompositeShape();
    copperLayerBackS->SetName(TString("copperLayerBackS") +=
                              TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "copperLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-copperLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":copperLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        copperLayerBackS->MakeNode(expression);
        copperLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* copperLayerFrontV =
        new TGeoVolume(TString("copperLayerFrontV") += TString("_") + layers->GetName(), copperLayerFrontS);
    TGeoVolume* copperLayerBackV =
        new TGeoVolume(TString("copperLayerBackV") += TString("_") + layers->GetName(), copperLayerBackS);
 
    // volume medium
    TGeoMedium* copperLayerV_medium = pMedCopper;
    if (copperLayerV_medium) {
        copperLayerFrontV->SetMedium(copperLayerV_medium);
        copperLayerBackV->SetMedium(copperLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for copperLayerV!");
 
    // volume visual property (transparency)
    copperLayerFrontV->SetLineColor(TColor::GetColor("#ff7538"));
    copperLayerFrontV->SetTransparency(0);
    copperLayerBackV->SetLineColor(TColor::GetColor("#ff7538"));
    copperLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* copperLayerFront_transf[2];
 
    copperLayerFront_transf[0] = new TGeoCombiTrans();
    copperLayerFront_transf[0]->SetDx(+layerFront_XShift);
    copperLayerFront_transf[0]->SetDy(+layerFront_YShift);
    copperLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x39 * 0.5 + copperLayer_ZSize * 0.5);
 
    TGeoCombiTrans* copperLayerBack_transf[1];
 
    copperLayerBack_transf[0] = new TGeoCombiTrans();
    copperLayerBack_transf[0]->SetDx(+layerBack_XShift);
    copperLayerBack_transf[0]->SetDy(+layerBack_YShift);
    copperLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x39 * 0.5 - copperLayer_ZSize * 0.5);
 
    layers->AddNode(copperLayerFrontV, 0, copperLayerFront_transf[0]);
    layers->AddNode(copperLayerBackV, 0, copperLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // glue layer ---------------------------------------------------------------
    Double_t glueLayer_ZSize = 0.01;       // cm; half-thickness of all glue layers
    Double_t glueLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* glueLayerFrontBlankS =
        new TGeoBBox(TString("glueLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, glueLayer_ZSize * 0.5);
    TGeoShape* glueLayerBackBlankS = new TGeoBBox(
        TString("glueLayerBackBlankS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        layerBack_XSize * 0.5, layerBack_YSize * 0.5, glueLayer_ZSize * 0.5);
 
    TGeoShape* glueLayerFrontHoleS = new TGeoTube(
        TString("glueLayerFrontHoleS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        0.0, glueLayerHole_Radius, glueLayer_ZSize * 0.5 + 0.01);
    TGeoShape* glueLayerBackHoleS = new TGeoTube(
        TString("glueLayerBackHoleS") += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
        0.0, glueLayerHole_Radius, glueLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* glueLayerFrontHole_pos = new TGeoTranslation();
    glueLayerFrontHole_pos->SetName(TString("glueLayerFrontHole_pos") +=
                                    TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    glueLayerFrontHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerFront_XShift);
    glueLayerFrontHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerFront_YShift);
    glueLayerFrontHole_pos->SetDz(0.0);
    glueLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* glueLayerBackHole_pos = new TGeoTranslation();
    glueLayerBackHole_pos->SetName(TString("glueLayerBackHole_pos") +=
                                   TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    glueLayerBackHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerBack_XShift);
    glueLayerBackHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerBack_YShift);
    glueLayerBackHole_pos->SetDz(0.0);
    glueLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* glueLayerFrontS = new TGeoCompositeShape();
    glueLayerFrontS->SetName(TString("glueLayerFrontS") +=
                             TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "glueLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-glueLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":glueLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        glueLayerFrontS->MakeNode(expression);
        glueLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* glueLayerBackS = new TGeoCompositeShape();
    glueLayerBackS->SetName(TString("glueLayerBackS") +=
                            TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "glueLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-glueLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":glueLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        glueLayerBackS->MakeNode(expression);
        glueLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* glueLayerFrontV =
        new TGeoVolume(TString("glueLayerFrontV") += TString("_") + layers->GetName(), glueLayerFrontS);
    TGeoVolume* glueLayerBackV =
        new TGeoVolume(TString("glueLayerBackV") += TString("_") + layers->GetName(), glueLayerBackS);
 
    // volume medium
    TGeoMedium* glueLayerV_medium = pMedGlue;
    if (glueLayerV_medium) {
        glueLayerFrontV->SetMedium(glueLayerV_medium);
        glueLayerBackV->SetMedium(glueLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for glueLayerV!");
 
    // volume visual property (transparency)
    glueLayerFrontV->SetLineColor(TColor::GetColor("#1919ff"));
    glueLayerFrontV->SetTransparency(0);
    glueLayerBackV->SetLineColor(TColor::GetColor("#1919ff"));
    glueLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* glueLayerFront_transf[1];
 
    glueLayerFront_transf[0] = new TGeoCombiTrans();
    glueLayerFront_transf[0]->SetDx(+layerFront_XShift);
    glueLayerFront_transf[0]->SetDy(+layerFront_YShift);
    glueLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x39 * 0.5 + copperLayer_ZSize + glueLayer_ZSize * 0.5);
 
    TGeoCombiTrans* glueLayerBack_transf[1];
 
    glueLayerBack_transf[0] = new TGeoCombiTrans();
    glueLayerBack_transf[0]->SetDx(+layerBack_XShift);
    glueLayerBack_transf[0]->SetDy(+layerBack_YShift);
    glueLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x39 * 0.5 - copperLayer_ZSize - glueLayer_ZSize * 0.5);
 
    layers->AddNode(glueLayerFrontV, 0, glueLayerFront_transf[0]);
    layers->AddNode(glueLayerBackV, 0, glueLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // epoxide layer ------------------------------------------------------------
    Double_t epoxideLayer_ZSize = 0.105;      // cm; half-thickness of all epoxide layers
    Double_t epoxideLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* epoxideLayerFrontBlankS =
        new TGeoBBox(TString("epoxideLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, epoxideLayer_ZSize * 0.5);
    TGeoShape* epoxideLayerBackBlankS =
        new TGeoBBox(TString("epoxideLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, epoxideLayer_ZSize * 0.5);
 
    TGeoShape* epoxideLayerFrontHoleS =
        new TGeoTube(TString("epoxideLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, epoxideLayerHole_Radius, epoxideLayer_ZSize * 0.5 + 0.01);
    TGeoShape* epoxideLayerBackHoleS =
        new TGeoTube(TString("epoxideLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, epoxideLayerHole_Radius, epoxideLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* epoxideLayerFrontHole_pos = new TGeoTranslation();
    epoxideLayerFrontHole_pos->SetName(TString("epoxideLayerFrontHole_pos") +=
                                       TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    epoxideLayerFrontHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerFront_XShift);
    epoxideLayerFrontHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerFront_YShift);
    epoxideLayerFrontHole_pos->SetDz(0.0);
    epoxideLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* epoxideLayerBackHole_pos = new TGeoTranslation();
    epoxideLayerBackHole_pos->SetName(TString("epoxideLayerBackHole_pos") +=
                                      TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    epoxideLayerBackHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerBack_XShift);
    epoxideLayerBackHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerBack_YShift);
    epoxideLayerBackHole_pos->SetDz(0.0);
    epoxideLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* epoxideLayerFrontS = new TGeoCompositeShape();
    epoxideLayerFrontS->SetName(TString("epoxideLayerFrontS") +=
                                TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "epoxideLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-epoxideLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":epoxideLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        epoxideLayerFrontS->MakeNode(expression);
        epoxideLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* epoxideLayerBackS = new TGeoCompositeShape();
    epoxideLayerBackS->SetName(TString("epoxideLayerBackS") +=
                               TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "epoxideLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-epoxideLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":epoxideLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        epoxideLayerBackS->MakeNode(expression);
        epoxideLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* epoxideLayerFrontV =
        new TGeoVolume(TString("epoxideLayerFrontV") += TString("_") + layers->GetName(), epoxideLayerFrontS);
    TGeoVolume* epoxideLayerBackV =
        new TGeoVolume(TString("epoxideLayerBackV") += TString("_") + layers->GetName(), epoxideLayerBackS);
 
    // volume medium
    TGeoMedium* epoxideLayerV_medium = pMedEpoxideCompound;
    if (epoxideLayerV_medium) {
        epoxideLayerFrontV->SetMedium(epoxideLayerV_medium);
        epoxideLayerBackV->SetMedium(epoxideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for epoxideLayerV!");
 
    // volume visual property (transparency)
    epoxideLayerFrontV->SetLineColor(TColor::GetColor("#aa33ff"));
    epoxideLayerFrontV->SetTransparency(0);
    epoxideLayerBackV->SetLineColor(TColor::GetColor("#aa33ff"));
    epoxideLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* epoxideLayerFront_transf[1];
 
    epoxideLayerFront_transf[0] = new TGeoCombiTrans();
    epoxideLayerFront_transf[0]->SetDx(+layerFront_XShift);
    epoxideLayerFront_transf[0]->SetDy(+layerFront_YShift);
    epoxideLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x39 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                       + epoxideLayer_ZSize * 0.5);
 
    TGeoCombiTrans* epoxideLayerBack_transf[1];
 
    epoxideLayerBack_transf[0] = new TGeoCombiTrans();
    epoxideLayerBack_transf[0]->SetDx(+layerBack_XShift);
    epoxideLayerBack_transf[0]->SetDy(+layerBack_YShift);
    epoxideLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x39 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                      - epoxideLayer_ZSize * 0.5);
 
    layers->AddNode(epoxideLayerFrontV, 0, epoxideLayerFront_transf[0]);
    layers->AddNode(epoxideLayerBackV, 0, epoxideLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // honeycomb layer ----------------------------------------------------------
    // Double_t honeycombLayer_ZSize = 1.5-(0.05+0.00055+0.005+0.0125); //cm; half-thickness of all honeycomb layers
    Double_t honeycombLayer_ZSize = 1.4 - (0.06805);   // cm; half-thickness of all honeycomb layers
    Double_t honeycombLayerHole_Radius = 6.0;          // cm
 
    // layer shape
    TGeoShape* honeycombLayerFrontBlankS =
        new TGeoBBox(TString("honeycombLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, honeycombLayer_ZSize * 0.5);
    TGeoShape* honeycombLayerBackBlankS =
        new TGeoBBox(TString("honeycombLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, honeycombLayer_ZSize * 0.5);
 
    TGeoShape* honeycombLayerFrontHoleS =
        new TGeoTube(TString("honeycombLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, honeycombLayerHole_Radius, honeycombLayer_ZSize * 0.5 + 0.01);
    TGeoShape* honeycombLayerBackHoleS =
        new TGeoTube(TString("honeycombLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, honeycombLayerHole_Radius, honeycombLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* honeycombLayerFrontHole_pos = new TGeoTranslation();
    honeycombLayerFrontHole_pos->SetName(TString("honeycombLayerFrontHole_pos") +=
                                         TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    honeycombLayerFrontHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerFront_XShift);
    honeycombLayerFrontHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerFront_YShift);
    honeycombLayerFrontHole_pos->SetDz(0.0);
    honeycombLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* honeycombLayerBackHole_pos = new TGeoTranslation();
    honeycombLayerBackHole_pos->SetName(TString("honeycombLayerBackHole_pos") +=
                                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    honeycombLayerBackHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerBack_XShift);
    honeycombLayerBackHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerBack_YShift);
    honeycombLayerBackHole_pos->SetDz(0.0);
    honeycombLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* honeycombLayerFrontS = new TGeoCompositeShape();
    honeycombLayerFrontS->SetName(TString("honeycombLayerFrontS") +=
                                  TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "honeycombLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-honeycombLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":honeycombLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        honeycombLayerFrontS->MakeNode(expression);
        honeycombLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* honeycombLayerBackS = new TGeoCompositeShape();
    honeycombLayerBackS->SetName(TString("honeycombLayerBackS") +=
                                 TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "honeycombLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-honeycombLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":honeycombLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        honeycombLayerBackS->MakeNode(expression);
        honeycombLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* honeycombLayerFrontV =
        new TGeoVolume(TString("honeycombLayerFrontV") += TString("_") + layers->GetName(), honeycombLayerFrontS);
    TGeoVolume* honeycombLayerBackV =
        new TGeoVolume(TString("honeycombLayerBackV") += TString("_") + layers->GetName(), honeycombLayerBackS);
 
    // volume medium
    TGeoMedium* honeycombLayerV_medium = pMedHoneyComb;
    if (honeycombLayerV_medium) {
        honeycombLayerFrontV->SetMedium(honeycombLayerV_medium);
        honeycombLayerBackV->SetMedium(honeycombLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for honeycombLayerV!");
 
    // volume visual property (transparency)
    honeycombLayerFrontV->SetLineColor(TColor::GetColor("#ffdf84"));
    honeycombLayerFrontV->SetTransparency(0);
    honeycombLayerBackV->SetLineColor(TColor::GetColor("#ffdf84"));
    honeycombLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* honeycombLayerFront_transf[1];
 
    honeycombLayerFront_transf[0] = new TGeoCombiTrans();
    honeycombLayerFront_transf[0]->SetDx(+layerFront_XShift);
    honeycombLayerFront_transf[0]->SetDy(+layerFront_YShift);
    honeycombLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x39 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                         + epoxideLayer_ZSize + honeycombLayer_ZSize * 0.5);
 
    TGeoCombiTrans* honeycombLayerBack_transf[1];
 
    honeycombLayerBack_transf[0] = new TGeoCombiTrans();
    honeycombLayerBack_transf[0]->SetDx(+layerBack_XShift);
    honeycombLayerBack_transf[0]->SetDy(+layerBack_YShift);
    honeycombLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x39 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                        - epoxideLayer_ZSize - honeycombLayer_ZSize * 0.5);
 
    layers->AddNode(honeycombLayerFrontV, 0, honeycombLayerFront_transf[0]);
    layers->AddNode(honeycombLayerBackV, 0, honeycombLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    // polyamide layer ----------------------------------------------------------
    Double_t polyamideLayer_ZSize = 0.0125;     // cm; half-thickness of all polyamide layers
    Double_t polyamideLayerHole_Radius = 6.0;   // cm
 
    // layer shape
    TGeoShape* polyamideLayerFrontBlankS =
        new TGeoBBox(TString("polyamideLayerFrontBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerFront_XSize * 0.5, layerFront_YSize * 0.5, polyamideLayer_ZSize * 0.5);
    TGeoShape* polyamideLayerBackBlankS =
        new TGeoBBox(TString("polyamideLayerBackBlankS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     layerBack_XSize * 0.5, layerBack_YSize * 0.5, polyamideLayer_ZSize * 0.5);
 
    TGeoShape* polyamideLayerFrontHoleS =
        new TGeoTube(TString("polyamideLayerFrontHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, polyamideLayerHole_Radius, polyamideLayer_ZSize * 0.5 + 0.01);
    TGeoShape* polyamideLayerBackHoleS =
        new TGeoTube(TString("polyamideLayerBackHoleS") +=
                     TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName(),
                     0.0, polyamideLayerHole_Radius, polyamideLayer_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* polyamideLayerFrontHole_pos = new TGeoTranslation();
    polyamideLayerFrontHole_pos->SetName(TString("polyamideLayerFrontHole_pos") +=
                                         TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    polyamideLayerFrontHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerFront_XShift);
    polyamideLayerFrontHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerFront_YShift);
    polyamideLayerFrontHole_pos->SetDz(0.0);
    polyamideLayerFrontHole_pos->RegisterYourself();
 
    TGeoTranslation* polyamideLayerBackHole_pos = new TGeoTranslation();
    polyamideLayerBackHole_pos->SetName(TString("polyamideLayerBackHole_pos") +=
                                        TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    polyamideLayerBackHole_pos->SetDx(-XModuleSize_Station163x39 * 0.5 - layerBack_XShift);
    polyamideLayerBackHole_pos->SetDy(-YModuleSize_Station163x39 * 0.5 - layerBack_YShift);
    polyamideLayerBackHole_pos->SetDz(0.0);
    polyamideLayerBackHole_pos->RegisterYourself();
 
    TGeoCompositeShape* polyamideLayerFrontS = new TGeoCompositeShape();
    polyamideLayerFrontS->SetName(TString("polyamideLayerFrontS") +=
                                  TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "polyamideLayerFrontBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-polyamideLayerFrontHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":polyamideLayerFrontHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        polyamideLayerFrontS->MakeNode(expression);
        polyamideLayerFrontS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* polyamideLayerBackS = new TGeoCompositeShape();
    polyamideLayerBackS->SetName(TString("polyamideLayerBackS") +=
                                 TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName());
    {
        TString expression = "polyamideLayerBackBlankS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += "-polyamideLayerBackHoleS";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
        expression += ":polyamideLayerBackHole_pos";
        expression += TString("_") + TString::Itoa(uniqueId, 10) + TString("_") + layers->GetName();
 
        polyamideLayerBackS->MakeNode(expression);
        polyamideLayerBackS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* polyamideLayerFrontV =
        new TGeoVolume(TString("polyamideLayerFrontV") += TString("_") + layers->GetName(), polyamideLayerFrontS);
    TGeoVolume* polyamideLayerBackV =
        new TGeoVolume(TString("polyamideLayerBackV") += TString("_") + layers->GetName(), polyamideLayerBackS);
 
    // volume medium
    TGeoMedium* polyamideLayerV_medium = pMedPolyamide;
    if (polyamideLayerV_medium) {
        polyamideLayerFrontV->SetMedium(polyamideLayerV_medium);
        polyamideLayerBackV->SetMedium(polyamideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for polyamideLayerV!");
 
    // volume visual property (transparency)
    polyamideLayerFrontV->SetLineColor(TColor::GetColor("#fefe22"));
    polyamideLayerFrontV->SetTransparency(0);
    polyamideLayerBackV->SetLineColor(TColor::GetColor("#fefe22"));
    polyamideLayerBackV->SetTransparency(0);
 
    TGeoCombiTrans* polyamideLayerFront_transf[1];
 
    polyamideLayerFront_transf[0] = new TGeoCombiTrans();
    polyamideLayerFront_transf[0]->SetDx(+layerFront_XShift);
    polyamideLayerFront_transf[0]->SetDy(+layerFront_YShift);
    polyamideLayerFront_transf[0]->SetDz(-ZGEMSize_Station163x39 * 0.5 + copperLayer_ZSize + glueLayer_ZSize
                                         + epoxideLayer_ZSize + honeycombLayer_ZSize + polyamideLayer_ZSize * 0.5);
 
    TGeoCombiTrans* polyamideLayerBack_transf[1];
 
    polyamideLayerBack_transf[0] = new TGeoCombiTrans();
    polyamideLayerBack_transf[0]->SetDx(+layerBack_XShift);
    polyamideLayerBack_transf[0]->SetDy(+layerBack_YShift);
    polyamideLayerBack_transf[0]->SetDz(+ZGEMSize_Station163x39 * 0.5 - copperLayer_ZSize - glueLayer_ZSize
                                        - epoxideLayer_ZSize - honeycombLayer_ZSize - polyamideLayer_ZSize * 0.5);
 
    layers->AddNode(polyamideLayerFrontV, 0, polyamideLayerFront_transf[0]);
    layers->AddNode(polyamideLayerBackV, 0, polyamideLayerBack_transf[0]);
    //--------------------------------------------------------------------------
 
    return layers;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateFrameForHalfPlane_Station163x39(TString frame_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    // frame volumes
    TGeoVolume* frames = new TGeoVolumeAssembly(frame_name);
    frames->SetMedium(pMedAir);
 
    // back lower epoxide frame -------------------------------------------------
    Double_t backLowerEpoxideFrame_XSize = 161.42;   // cm
    Double_t backLowerEpoxideFrame_YSize = 2.2;      // cm
    Double_t backLowerEpoxideFrame_ZSize = 1.5;      // cm
 
    Double_t backLowerEpoxideFrameArch_Rmin = 4.0;
    Double_t backLowerEpoxideFrameArch_Rmax = 6.0;
    Double_t backLowerEpoxideFrameArch_ZSize = backLowerEpoxideFrame_ZSize;
 
    TGeoShape* backLowerEpoxideFrameHalfS =
        new TGeoBBox(TString("backLowerEpoxideFrameHalfS") += TString("_") + frames->GetName(),
                     (backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5,
                     backLowerEpoxideFrame_YSize * 0.5, backLowerEpoxideFrame_ZSize * 0.5);
    TGeoShape* backLowerEpoxideFrameArchS = new TGeoTubeSeg(
        TString("backLowerEpoxideFrameArchS") += TString("_") + frames->GetName(), backLowerEpoxideFrameArch_Rmin,
        backLowerEpoxideFrameArch_Rmax, backLowerEpoxideFrameArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* backLowerEpoxideFrameHalf_pos1 = new TGeoTranslation();
    backLowerEpoxideFrameHalf_pos1->SetName(TString("backLowerEpoxideFrameHalf1_pos1") + TString("_")
                                            + frames->GetName());
    backLowerEpoxideFrameHalf_pos1->SetDx(
        +((backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5 + backLowerEpoxideFrameArch_Rmin));
    backLowerEpoxideFrameHalf_pos1->SetDy(-(backLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    backLowerEpoxideFrameHalf_pos1->SetDz(0.0);
    backLowerEpoxideFrameHalf_pos1->RegisterYourself();
 
    TGeoTranslation* backLowerEpoxideFrameHalf_pos2 = new TGeoTranslation();
    backLowerEpoxideFrameHalf_pos2->SetName(TString("backLowerEpoxideFrameHalf1_pos2") + TString("_")
                                            + frames->GetName());
    backLowerEpoxideFrameHalf_pos2->SetDx(
        -((backLowerEpoxideFrame_XSize * 0.5 - backLowerEpoxideFrameArch_Rmin) * 0.5 + backLowerEpoxideFrameArch_Rmin));
    backLowerEpoxideFrameHalf_pos2->SetDy(-(backLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    backLowerEpoxideFrameHalf_pos2->SetDz(0.0);
    backLowerEpoxideFrameHalf_pos2->RegisterYourself();
 
    TGeoTranslation* backLowerEpoxideFrameArch_pos = new TGeoTranslation();
    backLowerEpoxideFrameArch_pos->SetName(TString("backLowerEpoxideFrameArch_pos") + TString("_") + frames->GetName());
    backLowerEpoxideFrameArch_pos->SetDx(0.0);
    backLowerEpoxideFrameArch_pos->SetDy(0.0);
    backLowerEpoxideFrameArch_pos->SetDz(0.0);
    backLowerEpoxideFrameArch_pos->RegisterYourself();
 
    TGeoCompositeShape* backLowerEpoxideFrameS = new TGeoCompositeShape();
    backLowerEpoxideFrameS->SetName(TString("backLowerEpoxideFrameS") += TString("_") + frames->GetName());
    {
        TString expression = "backLowerEpoxideFrameHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameHalf1_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+backLowerEpoxideFrameHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameHalf1_pos2";
        expression += TString("_") + frames->GetName();
        expression += "+backLowerEpoxideFrameArchS";
        expression += TString("_") + frames->GetName();
        expression += ":backLowerEpoxideFrameArch_pos";
        expression += TString("_") + frames->GetName();
 
        backLowerEpoxideFrameS->MakeNode(expression);
        backLowerEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* backLowerEpoxideFrameV =
        new TGeoVolume(TString("backLowerEpoxideFrameV") += TString("_") + frames->GetName(), backLowerEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backLowerEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backLowerEpoxideFrameV_medium) {
        backLowerEpoxideFrameV->SetMedium(backLowerEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backLowerEpoxideFrameV!");
 
    // volume visual property (transparency)
    backLowerEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backLowerEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backLowerEpoxideFrame_transf[1];
 
    backLowerEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backLowerEpoxideFrame_transf[0]->SetDx(0.0);
    backLowerEpoxideFrame_transf[0]->SetDy(-(YModuleSize_Station163x39 * 0.5));
    backLowerEpoxideFrame_transf[0]->SetDz(+(backLowerEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(backLowerEpoxideFrameV, 0, backLowerEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front lower epoxide frame -------------------------------------------------
    Double_t frontLowerEpoxideFrame_XSize = 161.7;   // cm
    Double_t frontLowerEpoxideFrame_YSize = 2.2;     // cm
    Double_t frontLowerEpoxideFrame_ZSize = 1.6;     // cm
 
    Double_t frontLowerEpoxideFrameArch_Rmin = 4.0;
    Double_t frontLowerEpoxideFrameArch_Rmax = 6.0;
    Double_t frontLowerEpoxideFrameArch_ZSize = frontLowerEpoxideFrame_ZSize;
 
    TGeoShape* frontLowerEpoxideFrameHalfS =
        new TGeoBBox(TString("frontLowerEpoxideFrameHalfS") += TString("_") + frames->GetName(),
                     (frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5,
                     frontLowerEpoxideFrame_YSize * 0.5, frontLowerEpoxideFrame_ZSize * 0.5);
    TGeoShape* frontLowerEpoxideFrameArchS = new TGeoTubeSeg(
        TString("frontLowerEpoxideFrameArchS") += TString("_") + frames->GetName(), frontLowerEpoxideFrameArch_Rmin,
        frontLowerEpoxideFrameArch_Rmax, frontLowerEpoxideFrameArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* frontLowerEpoxideFrameHalf_pos1 = new TGeoTranslation();
    frontLowerEpoxideFrameHalf_pos1->SetName(TString("frontLowerEpoxideFrameHalf1_pos1") + TString("_")
                                             + frames->GetName());
    frontLowerEpoxideFrameHalf_pos1->SetDx(
        +((frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5
          + frontLowerEpoxideFrameArch_Rmin));
    frontLowerEpoxideFrameHalf_pos1->SetDy(-(frontLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    frontLowerEpoxideFrameHalf_pos1->SetDz(0.0);
    frontLowerEpoxideFrameHalf_pos1->RegisterYourself();
 
    TGeoTranslation* frontLowerEpoxideFrameHalf_pos2 = new TGeoTranslation();
    frontLowerEpoxideFrameHalf_pos2->SetName(TString("frontLowerEpoxideFrameHalf1_pos2") + TString("_")
                                             + frames->GetName());
    frontLowerEpoxideFrameHalf_pos2->SetDx(
        -((frontLowerEpoxideFrame_XSize * 0.5 - frontLowerEpoxideFrameArch_Rmin) * 0.5
          + frontLowerEpoxideFrameArch_Rmin));
    frontLowerEpoxideFrameHalf_pos2->SetDy(-(frontLowerEpoxideFrame_YSize * 0.5) + 0.2 /*shift*/);
    frontLowerEpoxideFrameHalf_pos2->SetDz(0.0);
    frontLowerEpoxideFrameHalf_pos2->RegisterYourself();
 
    TGeoTranslation* frontLowerEpoxideFrameArch_pos = new TGeoTranslation();
    frontLowerEpoxideFrameArch_pos->SetName(TString("frontLowerEpoxideFrameArch_pos") + TString("_")
                                            + frames->GetName());
    frontLowerEpoxideFrameArch_pos->SetDx(0.0);
    frontLowerEpoxideFrameArch_pos->SetDy(0.0);
    frontLowerEpoxideFrameArch_pos->SetDz(0.0);
    frontLowerEpoxideFrameArch_pos->RegisterYourself();
 
    TGeoCompositeShape* frontLowerEpoxideFrameS = new TGeoCompositeShape();
    frontLowerEpoxideFrameS->SetName(TString("frontLowerEpoxideFrameS") += TString("_") + frames->GetName());
    {
        TString expression = "frontLowerEpoxideFrameHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameHalf1_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+frontLowerEpoxideFrameHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameHalf1_pos2";
        expression += TString("_") + frames->GetName();
        expression += "+frontLowerEpoxideFrameArchS";
        expression += TString("_") + frames->GetName();
        expression += ":frontLowerEpoxideFrameArch_pos";
        expression += TString("_") + frames->GetName();
 
        frontLowerEpoxideFrameS->MakeNode(expression);
        frontLowerEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* frontLowerEpoxideFrameV =
        new TGeoVolume(TString("frontLowerEpoxideFrameV") += TString("_") + frames->GetName(), frontLowerEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontLowerEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontLowerEpoxideFrameV_medium) {
        frontLowerEpoxideFrameV->SetMedium(frontLowerEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontLowerEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontLowerEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontLowerEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontLowerEpoxideFrame_transf[1];
 
    frontLowerEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontLowerEpoxideFrame_transf[0]->SetDx(0.0);
    frontLowerEpoxideFrame_transf[0]->SetDy(-(YModuleSize_Station163x39 * 0.5));
    frontLowerEpoxideFrame_transf[0]->SetDz(-(frontLowerEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(frontLowerEpoxideFrameV, 0, frontLowerEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // back side epoxide frame --------------------------------------------------
    Double_t backSideEpoxideFramePart_XSize = 9.2;          // cm
    Double_t backSideEpoxideFramePart_YSize = 52.6 - 6.0;   // cm
    Double_t backSideEpoxideFramePart_ZSize = 1.5;          // cm
 
    Double_t backSideEpoxideFrame_XDistBetweenParts = 161.42;   // cm
 
    TGeoShape* backSideEpoxideFramePartS = new TGeoBBox(
        TString("backSideEpoxideFramePartS") += TString("_") + frames->GetName(), backSideEpoxideFramePart_XSize * 0.5,
        backSideEpoxideFramePart_YSize * 0.5, backSideEpoxideFramePart_ZSize * 0.5);
 
    TGeoTranslation* backSideEpoxideFramePart_pos1 = new TGeoTranslation();
    backSideEpoxideFramePart_pos1->SetName(TString("backSideEpoxideFramePart_pos1") + TString("_") + frames->GetName());
    backSideEpoxideFramePart_pos1->SetDx(
        +(backSideEpoxideFrame_XDistBetweenParts * 0.5 + backSideEpoxideFramePart_XSize * 0.5));
    backSideEpoxideFramePart_pos1->SetDy(0.0);
    backSideEpoxideFramePart_pos1->SetDz(0.0);
    backSideEpoxideFramePart_pos1->RegisterYourself();
 
    TGeoTranslation* backSideEpoxideFramePart_pos2 = new TGeoTranslation();
    backSideEpoxideFramePart_pos2->SetName(TString("backSideEpoxideFramePart_pos2") + TString("_") + frames->GetName());
    backSideEpoxideFramePart_pos2->SetDx(
        -(backSideEpoxideFrame_XDistBetweenParts * 0.5 + backSideEpoxideFramePart_XSize * 0.5));
    backSideEpoxideFramePart_pos2->SetDy(0.0);
    backSideEpoxideFramePart_pos2->SetDz(0.0);
    backSideEpoxideFramePart_pos2->RegisterYourself();
 
    TGeoCompositeShape* backSideEpoxideFrameS = new TGeoCompositeShape();
    backSideEpoxideFrameS->SetName(TString("backSideEpoxideFrameS") += TString("_") + frames->GetName());
    {
        TString expression = "backSideEpoxideFramePartS";
        expression += TString("_") + frames->GetName();
        expression += ":backSideEpoxideFramePart_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+backSideEpoxideFramePartS";
        expression += TString("_") + frames->GetName();
        expression += ":backSideEpoxideFramePart_pos2";
        expression += TString("_") + frames->GetName();
 
        backSideEpoxideFrameS->MakeNode(expression);
        backSideEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* backSideEpoxideFrameV =
        new TGeoVolume(TString("backSideEpoxideFrameV") += TString("_") + frames->GetName(), backSideEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backSideEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backSideEpoxideFrameV_medium) {
        backSideEpoxideFrameV->SetMedium(backSideEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backSideEpoxideFrameV!");
 
    // volume visual property (transparency)
    backSideEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backSideEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backSideEpoxideFrame_transf[1];
 
    backSideEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backSideEpoxideFrame_transf[0]->SetDx(0.0);
    backSideEpoxideFrame_transf[0]->SetDy(+((backSideEpoxideFramePart_YSize - YModuleSize_Station163x39) * 0.5)
                                          - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    backSideEpoxideFrame_transf[0]->SetDz(+(backSideEpoxideFramePart_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(backSideEpoxideFrameV, 0, backSideEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // back upper epoxide frame -------------------------------------------------
    Double_t backUpperEpoxideFrame_XSize = 161.42;   // cm
    Double_t backUpperEpoxideFrame_YSize = 6.2;      // cm
    Double_t backUpperEpoxideFrame_ZSize = 1.6;      // cm
 
    TGeoShape* backUpperEpoxideFrameS = new TGeoBBox(
        TString("backUpperEpoxideFrameS") += TString("_") + frames->GetName(), backUpperEpoxideFrame_XSize * 0.5,
        backUpperEpoxideFrame_YSize * 0.5, backUpperEpoxideFrame_ZSize * 0.5);
 
    TGeoVolume* backUpperEpoxideFrameV =
        new TGeoVolume(TString("backUpperEpoxideFrameV") += TString("_") + frames->GetName(), backUpperEpoxideFrameS);
 
    // volume medium
    TGeoMedium* backUpperEpoxideFrameV_medium = pMedEpoxideCompound;
    if (backUpperEpoxideFrameV_medium) {
        backUpperEpoxideFrameV->SetMedium(backUpperEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for backUpperEpoxideFrameV!");
 
    // volume visual property (transparency)
    backUpperEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    backUpperEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* backUpperEpoxideFrame_transf[1];
 
    backUpperEpoxideFrame_transf[0] = new TGeoCombiTrans();
    backUpperEpoxideFrame_transf[0]->SetDx(0.0);
    backUpperEpoxideFrame_transf[0]->SetDy(+(backUpperEpoxideFrame_YSize * 0.5 + YModuleSize_Station163x39 * 0.5)
                                           - 0.6 /*shift*/);
    backUpperEpoxideFrame_transf[0]->SetDz(+(backUpperEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(backUpperEpoxideFrameV, 0, backUpperEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front side epoxide frame -------------------------------------------------
    Double_t frontSideEpoxideFramePart_XSize = 3.5;          // cm
    Double_t frontSideEpoxideFramePart_YSize = 49.9 - 6.0;   // cm
    Double_t frontSideEpoxideFramePart_ZSize = 1.6;          // cm
 
    Double_t frontSideEpoxideFrame_XDistBetweenParts = 161.7;   // cm
 
    TGeoShape* frontSideEpoxideFramePartS =
        new TGeoBBox(TString("frontSideEpoxideFramePartS") += TString("_") + frames->GetName(),
                     frontSideEpoxideFramePart_XSize * 0.5, frontSideEpoxideFramePart_YSize * 0.5,
                     frontSideEpoxideFramePart_ZSize * 0.5);
 
    TGeoTranslation* frontSideEpoxideFramePart_pos1 = new TGeoTranslation();
    frontSideEpoxideFramePart_pos1->SetName(TString("frontSideEpoxideFramePart_pos1") + TString("_")
                                            + frames->GetName());
    frontSideEpoxideFramePart_pos1->SetDx(
        +(frontSideEpoxideFrame_XDistBetweenParts * 0.5 + frontSideEpoxideFramePart_XSize * 0.5));
    frontSideEpoxideFramePart_pos1->SetDy(0.0);
    frontSideEpoxideFramePart_pos1->SetDz(0.0);
    frontSideEpoxideFramePart_pos1->RegisterYourself();
 
    TGeoTranslation* frontSideEpoxideFramePart_pos2 = new TGeoTranslation();
    frontSideEpoxideFramePart_pos2->SetName(TString("frontSideEpoxideFramePart_pos2") + TString("_")
                                            + frames->GetName());
    frontSideEpoxideFramePart_pos2->SetDx(
        -(frontSideEpoxideFrame_XDistBetweenParts * 0.5 + frontSideEpoxideFramePart_XSize * 0.5));
    frontSideEpoxideFramePart_pos2->SetDy(0.0);
    frontSideEpoxideFramePart_pos2->SetDz(0.0);
    frontSideEpoxideFramePart_pos2->RegisterYourself();
 
    TGeoCompositeShape* frontSideEpoxideFrameS = new TGeoCompositeShape();
    frontSideEpoxideFrameS->SetName(TString("frontSideEpoxideFrameS") += TString("_") + frames->GetName());
    {
        TString expression = "frontSideEpoxideFramePartS";
        expression += TString("_") + frames->GetName();
        expression += ":frontSideEpoxideFramePart_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+frontSideEpoxideFramePartS";
        expression += TString("_") + frames->GetName();
        expression += ":frontSideEpoxideFramePart_pos2";
        expression += TString("_") + frames->GetName();
 
        frontSideEpoxideFrameS->MakeNode(expression);
        frontSideEpoxideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* frontSideEpoxideFrameV =
        new TGeoVolume(TString("frontSideEpoxideFrameV") += TString("_") + frames->GetName(), frontSideEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontSideEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontSideEpoxideFrameV_medium) {
        frontSideEpoxideFrameV->SetMedium(frontSideEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontSideEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontSideEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontSideEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontSideEpoxideFrame_transf[1];
 
    frontSideEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontSideEpoxideFrame_transf[0]->SetDx(0.0);
    frontSideEpoxideFrame_transf[0]->SetDy(+((frontSideEpoxideFramePart_YSize - YModuleSize_Station163x39) * 0.5)
                                           - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    frontSideEpoxideFrame_transf[0]->SetDz(-(frontSideEpoxideFramePart_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(frontSideEpoxideFrameV, 0, frontSideEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // front upper epoxide frame -------------------------------------------------
    Double_t frontUpperEpoxideFrame_XSize = 161.7;   // cm
    Double_t frontUpperEpoxideFrame_YSize = 3.5;     // cm
    Double_t frontUpperEpoxideFrame_ZSize = 1.6;     // cm
 
    TGeoShape* frontUpperEpoxideFrameS = new TGeoBBox(
        TString("frontUpperEpoxideFrameS") += TString("_") + frames->GetName(), frontUpperEpoxideFrame_XSize * 0.5,
        frontUpperEpoxideFrame_YSize * 0.5, frontUpperEpoxideFrame_ZSize * 0.5);
 
    TGeoVolume* frontUpperEpoxideFrameV =
        new TGeoVolume(TString("frontUpperEpoxideFrameV") += TString("_") + frames->GetName(), frontUpperEpoxideFrameS);
 
    // volume medium
    TGeoMedium* frontUpperEpoxideFrameV_medium = pMedEpoxideCompound;
    if (frontUpperEpoxideFrameV_medium) {
        frontUpperEpoxideFrameV->SetMedium(frontUpperEpoxideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for frontUpperEpoxideFrameV!");
 
    // volume visual property (transparency)
    frontUpperEpoxideFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    frontUpperEpoxideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* frontUpperEpoxideFrame_transf[1];
 
    frontUpperEpoxideFrame_transf[0] = new TGeoCombiTrans();
    frontUpperEpoxideFrame_transf[0]->SetDx(0.0);
    frontUpperEpoxideFrame_transf[0]->SetDy(+(frontUpperEpoxideFrame_YSize * 0.5 + YModuleSize_Station163x39 * 0.5)
                                            - 0.6 /*shift*/);
    frontUpperEpoxideFrame_transf[0]->SetDz(-(frontUpperEpoxideFrame_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5));
 
    frames->AddNode(frontUpperEpoxideFrameV, 0, frontUpperEpoxideFrame_transf[0]);
    //--------------------------------------------------------------------------
 
    // alum. cable support ------------------------------------------------------
    Double_t alumCableSupportPart_XSize = 3.0;          // cm
    Double_t alumCableSupportPart_YSize = 41.3 - 6.0;   // cm
    Double_t alumCableSupportPart_ZSize = 0.2;          // cm
 
    Double_t alumCableSupport_XDistBetweenParts = 164.82;   // cm
 
    TGeoShape* alumCableSupportPartS = new TGeoBBox(
        TString("alumCableSupportPartS") += TString("_") + frames->GetName(), alumCableSupportPart_XSize * 0.5,
        alumCableSupportPart_YSize * 0.5, alumCableSupportPart_ZSize * 0.5);
 
    TGeoTranslation* alumCableSupportPart_pos1 = new TGeoTranslation();
    alumCableSupportPart_pos1->SetName(TString("alumCableSupportPart_pos1") + TString("_") + frames->GetName());
    alumCableSupportPart_pos1->SetDx(+(alumCableSupport_XDistBetweenParts * 0.5 + alumCableSupportPart_XSize * 0.5));
    alumCableSupportPart_pos1->SetDy(0.0);
    alumCableSupportPart_pos1->SetDz(0.0);
    alumCableSupportPart_pos1->RegisterYourself();
 
    TGeoTranslation* alumCableSupportPart_pos2 = new TGeoTranslation();
    alumCableSupportPart_pos2->SetName(TString("alumCableSupportPart_pos2") + TString("_") + frames->GetName());
    alumCableSupportPart_pos2->SetDx(-(alumCableSupport_XDistBetweenParts * 0.5 + alumCableSupportPart_XSize * 0.5));
    alumCableSupportPart_pos2->SetDy(0.0);
    alumCableSupportPart_pos2->SetDz(0.0);
    alumCableSupportPart_pos2->RegisterYourself();
 
    TGeoCompositeShape* alumCableSupportS = new TGeoCompositeShape();
    alumCableSupportS->SetName(TString("alumCableSupportS") += TString("_") + frames->GetName());
    {
        TString expression = "alumCableSupportPartS";
        expression += TString("_") + frames->GetName();
        expression += ":alumCableSupportPart_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+alumCableSupportPartS";
        expression += TString("_") + frames->GetName();
        expression += ":alumCableSupportPart_pos2";
        expression += TString("_") + frames->GetName();
 
        alumCableSupportS->MakeNode(expression);
        alumCableSupportS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* alumCableSupportV =
        new TGeoVolume(TString("alumCableSupportV") += TString("_") + frames->GetName(), alumCableSupportS);
 
    // volume medium
    TGeoMedium* alumCableSupportV_medium = pMedAluminium;
    if (alumCableSupportV_medium) {
        alumCableSupportV->SetMedium(alumCableSupportV_medium);
    } else
        Fatal("Main", "Invalid medium for alumCableSupportV!");
 
    // volume visual property (transparency)
    alumCableSupportV->SetLineColor(TColor::GetColor("#ffcccc"));
    alumCableSupportV->SetTransparency(0);
 
    TGeoCombiTrans* alumCableSupport_transf[1];
 
    alumCableSupport_transf[0] = new TGeoCombiTrans();
    alumCableSupport_transf[0]->SetDx(0.0);
    alumCableSupport_transf[0]->SetDy(+((alumCableSupportPart_YSize - YModuleSize_Station163x39) * 0.5)
                                      - frontLowerEpoxideFrame_YSize + 0.2 /*shift*/);
    alumCableSupport_transf[0]->SetDz(-(alumCableSupportPart_ZSize * 0.5 + ZModuleSize_Station163x39 * 0.5
                                        + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    frames->AddNode(alumCableSupportV, 0, alumCableSupport_transf[0]);
    //--------------------------------------------------------------------------
 
    // amplifier upper block ----------------------------------------------------
    Double_t amplifierUpperBlockPart1_XSize = 161.44;   // cm
    Double_t amplifierUpperBlockPart1_YSize = 0.6;      // cm
    Double_t amplifierUpperBlockPart1_ZSize = 8.41;     // cm
 
    Double_t amplifierUpperBlockPart2_XSize = 161.16;   // cm
    Double_t amplifierUpperBlockPart2_YSize = 0.6;      // cm
    Double_t amplifierUpperBlockPart2_ZSize = 8.41;     // cm
 
    TGeoShape* amplifierUpperBlockPart1S = new TGeoBBox(
        TString("amplifierUpperBlockPart1S") += TString("_") + frames->GetName(), amplifierUpperBlockPart1_XSize * 0.5,
        amplifierUpperBlockPart1_YSize * 0.5, amplifierUpperBlockPart1_ZSize * 0.5);
    TGeoShape* amplifierUpperBlockPart2S = new TGeoBBox(
        TString("amplifierUpperBlockPart2S") += TString("_") + frames->GetName(), amplifierUpperBlockPart2_XSize * 0.5,
        amplifierUpperBlockPart2_YSize * 0.5, amplifierUpperBlockPart2_ZSize * 0.5);
 
    TGeoTranslation* amplifierUpperBlockPart1_pos = new TGeoTranslation();
    amplifierUpperBlockPart1_pos->SetName(TString("amplifierUpperBlockPart1_pos") + TString("_") + frames->GetName());
    amplifierUpperBlockPart1_pos->SetDx(0.0);
    amplifierUpperBlockPart1_pos->SetDy(0.0);
    amplifierUpperBlockPart1_pos->SetDz(0.0);
    amplifierUpperBlockPart1_pos->RegisterYourself();
 
    TGeoTranslation* amplifierUpperBlockPart2_pos = new TGeoTranslation();
    amplifierUpperBlockPart2_pos->SetName(TString("amplifierUpperBlockPart2_pos") + TString("_") + frames->GetName());
    amplifierUpperBlockPart2_pos->SetDx(-0.76);
    amplifierUpperBlockPart2_pos->SetDy(
        -(amplifierUpperBlockPart1_YSize * 0.5 + amplifierUpperBlockPart2_YSize * 0.5 + 0.33));
    amplifierUpperBlockPart2_pos->SetDz(0.0);
    amplifierUpperBlockPart2_pos->RegisterYourself();
 
    TGeoCompositeShape* amplifierUpperBlockS = new TGeoCompositeShape();
    amplifierUpperBlockS->SetName(TString("amplifierUpperBlockS") += TString("_") + frames->GetName());
    {
        TString expression = "amplifierUpperBlockPart1S";
        expression += TString("_") + frames->GetName();
        expression += ":amplifierUpperBlockPart1_pos";
        expression += TString("_") + frames->GetName();
        expression += "+amplifierUpperBlockPart1S";
        expression += TString("_") + frames->GetName();
        expression += ":amplifierUpperBlockPart2_pos";
        expression += TString("_") + frames->GetName();
 
        amplifierUpperBlockS->MakeNode(expression);
        amplifierUpperBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* amplifierUpperBlockV =
        new TGeoVolume(TString("amplifierUpperBlockV") += TString("_") + frames->GetName(), amplifierUpperBlockS);
 
    // volume medium
    TGeoMedium* amplifierUpperBlockV_medium = pMedFiberGlass;
    if (amplifierUpperBlockV_medium) {
        amplifierUpperBlockV->SetMedium(amplifierUpperBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierUpperBlockV!");
 
    // volume visual property (transparency)
    amplifierUpperBlockV->SetLineColor(TColor::GetColor("#ccffcc"));
    amplifierUpperBlockV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierUpperBlock_transf[1];
 
    amplifierUpperBlock_transf[0] = new TGeoCombiTrans();
    amplifierUpperBlock_transf[0]->SetDx(0.0);
    amplifierUpperBlock_transf[0]->SetDy(+(YModuleSize_Station163x39 * 0.5 + backUpperEpoxideFrame_YSize)
                                         - 1.0 /*shift*/);
    amplifierUpperBlock_transf[0]->SetDz(-(amplifierUpperBlockPart1_ZSize * 0.5) + ZModuleSize_Station163x39 * 0.5);
 
    frames->AddNode(amplifierUpperBlockV, 0, amplifierUpperBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // amplifier side block -----------------------------------------------------
    Double_t amplifierSideBlockPartBig_XSize = 0.6;    // cm
    Double_t amplifierSideBlockPartBig_YSize = 33.9;   // cm
    Double_t amplifierSideBlockPartBig_ZSize = 8.41;   // cm
 
    Double_t amplifierSideBlockPartSmall_XSize = 0.6;     // cm
    Double_t amplifierSideBlockPartSmall_YSize = 27.05;   // cm
    Double_t amplifierSideBlockPartSmall_ZSize = 8.41;    // cm
 
    TGeoShape* amplifierSideBlockPartBigS =
        new TGeoBBox(TString("amplifierSideBlockPartBigS") += TString("_") + frames->GetName(),
                     amplifierSideBlockPartBig_XSize * 0.5, amplifierSideBlockPartBig_YSize * 0.5,
                     amplifierSideBlockPartBig_ZSize * 0.5);
    TGeoShape* amplifierSideBlockPartSmallS =
        new TGeoBBox(TString("amplifierSideBlockPartSmallS") += TString("_") + frames->GetName(),
                     amplifierSideBlockPartSmall_XSize * 0.5, amplifierSideBlockPartSmall_YSize * 0.5,
                     amplifierSideBlockPartSmall_ZSize * 0.5);
 
    TGeoTranslation* amplifierSideBlockPartBig_pos = new TGeoTranslation();
    amplifierSideBlockPartBig_pos->SetName(TString("amplifierSideBlockPartBig_pos") + TString("_") + frames->GetName());
    amplifierSideBlockPartBig_pos->SetDx(0.0);
    amplifierSideBlockPartBig_pos->SetDy(0.0);
    amplifierSideBlockPartBig_pos->SetDz(0.0);
    amplifierSideBlockPartBig_pos->RegisterYourself();
 
    TGeoTranslation* amplifierSideBlockPartSmall_pos = new TGeoTranslation();
    amplifierSideBlockPartSmall_pos->SetName(TString("amplifierSideBlockPartSmall_pos") + TString("_")
                                             + frames->GetName());
    amplifierSideBlockPartSmall_pos->SetDx(
        +(amplifierSideBlockPartBig_XSize * 0.5 + amplifierSideBlockPartSmall_XSize * 0.5 + 1.72));
    amplifierSideBlockPartSmall_pos->SetDy(+0.05);
    amplifierSideBlockPartSmall_pos->SetDz(0.0);
    amplifierSideBlockPartSmall_pos->RegisterYourself();
 
    TGeoCompositeShape* amplifierSideBlockS = new TGeoCompositeShape();
    amplifierSideBlockS->SetName(TString("amplifierSideBlockS") += TString("_") + frames->GetName());
    {
        TString expression = "amplifierSideBlockPartBigS";
        expression += TString("_") + frames->GetName();
        expression += ":amplifierSideBlockPartBig_pos";
        expression += TString("_") + frames->GetName();
        expression += "+amplifierSideBlockPartSmallS";
        expression += TString("_") + frames->GetName();
        expression += ":amplifierSideBlockPartSmall_pos";
        expression += TString("_") + frames->GetName();
 
        amplifierSideBlockS->MakeNode(expression);
        amplifierSideBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* amplifierSideBlockV =
        new TGeoVolume(TString("amplifierSideBlockV") += TString("_") + frames->GetName(), amplifierSideBlockS);
 
    // volume medium
    TGeoMedium* amplifierSideBlockV_medium = pMedFiberGlass;
    if (amplifierSideBlockV_medium) {
        amplifierSideBlockV->SetMedium(amplifierSideBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierSideBlockV!");
 
    // volume visual property (transparency)
    amplifierSideBlockV->SetLineColor(TColor::GetColor("#ccffcc"));
    amplifierSideBlockV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierSideBlock_transf[2];
 
    amplifierSideBlock_transf[0] = new TGeoCombiTrans();
    amplifierSideBlock_transf[0]->SetDx(+86.47 /*shift*/);
    amplifierSideBlock_transf[0]->SetDy(-5.5 + 6.0 * 0.5);
    amplifierSideBlock_transf[0]->SetDz(-(amplifierSideBlockPartBig_ZSize * 0.5) + ZModuleSize_Station163x39 * 0.5
                                        - 0.4 /*shift*/);
 
    amplifierSideBlock_transf[1] = new TGeoCombiTrans();
    amplifierSideBlock_transf[1]->RotateY(180.0);
    amplifierSideBlock_transf[1]->SetDx(-86.47 /*shift*/);
    amplifierSideBlock_transf[1]->SetDy(-5.5 + 6.0 * 0.5);
    amplifierSideBlock_transf[1]->SetDz(-(amplifierSideBlockPartBig_ZSize * 0.5) + ZModuleSize_Station163x39 * 0.5
                                        - 0.4 /*shift*/);
 
    frames->AddNode(amplifierSideBlockV, 0, amplifierSideBlock_transf[0]);
    frames->AddNode(amplifierSideBlockV, 1, amplifierSideBlock_transf[1]);
    //--------------------------------------------------------------------------
 
    // upper PCB (Printed Circuit Board) ----------------------------------------
    Double_t upperPcb_XSize = 177.22;   // cm
    Double_t upperPcb_YSize = 0.3;      // cm
    Double_t upperPcb_ZSize = 4.0;      // cm
 
    TGeoShape* upperPcbS = new TGeoBBox(TString("upperPcbS") += TString("_") + frames->GetName(), upperPcb_XSize * 0.5,
                                        upperPcb_YSize * 0.5, upperPcb_ZSize * 0.5);
 
    TGeoVolume* upperPcbV = new TGeoVolume(TString("upperPcbV") += TString("_") + frames->GetName(), upperPcbS);
 
    // volume medium
    TGeoMedium* upperPcbV_medium = pMedFiberGlass;
    if (upperPcbV_medium) {
        upperPcbV->SetMedium(upperPcbV_medium);
    } else
        Fatal("Main", "Invalid medium for upperPcbV!");
 
    // volume visual property (transparency)
    upperPcbV->SetLineColor(TColor::GetColor("#88ff88"));
    upperPcbV->SetTransparency(0);
 
    TGeoCombiTrans* upperPcb_transf[1];
 
    upperPcb_transf[0] = new TGeoCombiTrans();
    upperPcb_transf[0]->SetDx(+0.1 /*shift*/);
    upperPcb_transf[0]->SetDy(+(upperPcb_YSize * 0.5 + 23.5 /*shift*/) - 6.0 * 0.5);
    upperPcb_transf[0]->SetDz(-(upperPcb_ZSize * 0.5) + ZModuleSize_Station163x39 * 0.5 - ZModuleSize_Station163x39
                              - frontSideEpoxideFramePart_ZSize);
 
    frames->AddNode(upperPcbV, 0, upperPcb_transf[0]);
    //--------------------------------------------------------------------------
 
    // side PCB -----------------------------------------------------------------
    Double_t sidePcbPart_XSize = 0.3;     // cm
    Double_t sidePcbPart_YSize = 35.05;   // cm
    Double_t sidePcbPart_ZSize = 4.0;     // cm
 
    TGeoShape* sidePcbPartS = new TGeoBBox(TString("sidePcbPartS") += TString("_") + frames->GetName(),
                                           sidePcbPart_XSize * 0.5, sidePcbPart_YSize * 0.5, sidePcbPart_ZSize * 0.5);
 
    TGeoTranslation* sidePcbPart_pos1 = new TGeoTranslation();
    sidePcbPart_pos1->SetName(TString("sidePcbPart_pos1") + TString("_") + frames->GetName());
    sidePcbPart_pos1->SetDx(0.0);
    sidePcbPart_pos1->SetDy(0.0);
    sidePcbPart_pos1->SetDz(0.0);
    sidePcbPart_pos1->RegisterYourself();
 
    TGeoTranslation* sidePcbPart_pos2 = new TGeoTranslation();
    sidePcbPart_pos2->SetName(TString("sidePcbPart_pos2") + TString("_") + frames->GetName());
    sidePcbPart_pos2->SetDx(+(sidePcbPart_XSize + 6.1 /*shift*/));
    sidePcbPart_pos2->SetDy(0.0);
    sidePcbPart_pos2->SetDz(0.0);
    sidePcbPart_pos2->RegisterYourself();
 
    TGeoCompositeShape* sidePcbS = new TGeoCompositeShape();
    sidePcbS->SetName(TString("sidePcbS") += TString("_") + frames->GetName());
    {
        TString expression = "sidePcbPartS";
        expression += TString("_") + frames->GetName();
        expression += ":sidePcbPart_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+sidePcbPartS";
        expression += TString("_") + frames->GetName();
        expression += ":sidePcbPart_pos2";
        expression += TString("_") + frames->GetName();
 
        sidePcbS->MakeNode(expression);
        sidePcbS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* sidePcbV = new TGeoVolume(TString("sidePcbV") += TString("_") + frames->GetName(), sidePcbS);
 
    // volume medium
    TGeoMedium* sidePcbV_medium = pMedFiberGlass;
    if (sidePcbV_medium) {
        sidePcbV->SetMedium(sidePcbV_medium);
    } else
        Fatal("Main", "Invalid medium for sidePcbV!");
 
    // volume visual property (transparency)
    sidePcbV->SetLineColor(TColor::GetColor("#88ff88"));
    sidePcbV->SetTransparency(0);
 
    TGeoCombiTrans* sidePcb_transf[2];
 
    sidePcb_transf[0] = new TGeoCombiTrans();
    sidePcb_transf[0]->SetDx(+(sidePcbPart_XSize * 0.5 + 84.1 /*shift*/));
    sidePcb_transf[0]->SetDy(-6.8 /*shift*/ + 6.0 * 0.5);
    sidePcb_transf[0]->SetDz(-(sidePcbPart_ZSize * 0.5 + alumCableSupportPart_ZSize + ZModuleSize_Station163x39 * 0.5
                               + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    sidePcb_transf[1] = new TGeoCombiTrans();
    sidePcb_transf[1]->RotateY(180.0);
    sidePcb_transf[1]->SetDx(-(sidePcbPart_XSize * 0.5 + 84.1 /*shift*/));
    sidePcb_transf[1]->SetDy(-6.8 /*shift*/ + 6.0 * 0.5);
    sidePcb_transf[1]->SetDz(-(sidePcbPart_ZSize * 0.5 + alumCableSupportPart_ZSize + ZModuleSize_Station163x39 * 0.5
                               + frontSideEpoxideFramePart_ZSize + 1.0 /*shift*/));
 
    frames->AddNode(sidePcbV, 0, sidePcb_transf[0]);
    frames->AddNode(sidePcbV, 1, sidePcb_transf[1]);
    //--------------------------------------------------------------------------
 
    // alum. side support -------------------------------------------------------
    Double_t alumSideSupport_XSize = 4.8;          // cm
    Double_t alumSideSupport_YSize = 52.6 - 6.0;   // cm
    Double_t alumSideSupport_ZSize = 0.4;          // cm
 
    TGeoShape* alumSideSupportS =
        new TGeoBBox(TString("alumSideSupportS") += TString("_") + frames->GetName(), alumSideSupport_XSize * 0.5,
                     alumSideSupport_YSize * 0.5, alumSideSupport_ZSize * 0.5);
 
    TGeoVolume* alumSideSupportV =
        new TGeoVolume(TString("alumSideSupportV") += TString("_") + frames->GetName(), alumSideSupportS);
 
    // volume medium
    TGeoMedium* alumSideSupportV_medium = pMedAluminium;
    if (alumSideSupportV_medium) {
        alumSideSupportV->SetMedium(alumSideSupportV_medium);
    } else
        Fatal("Main", "Invalid medium for alumSideSupportV!");
 
    // volume visual property (transparency)
    alumSideSupportV->SetLineColor(TColor::GetColor("#ffcccc"));
    alumSideSupportV->SetTransparency(0);
 
    TGeoCombiTrans* alumSideSupport_transf[2];
 
    alumSideSupport_transf[0] = new TGeoCombiTrans();
    alumSideSupport_transf[0]->SetDx(+(alumSideSupport_XSize * 0.5 + 88.31 /*shift*/));
    alumSideSupport_transf[0]->SetDy(+1.8);
    alumSideSupport_transf[0]->SetDz(+(ZModuleSize_Station163x39 * 0.5 - alumSideSupport_ZSize * 0.5));
 
    alumSideSupport_transf[1] = new TGeoCombiTrans();
    alumSideSupport_transf[1]->SetDx(-(alumSideSupport_XSize * 0.5 + 88.31 /*shift*/));
    alumSideSupport_transf[1]->SetDy(+1.8 /*shift*/);
    alumSideSupport_transf[1]->SetDz(+(ZModuleSize_Station163x39 * 0.5 - alumSideSupport_ZSize * 0.5));
 
    frames->AddNode(alumSideSupportV, 0, alumSideSupport_transf[0]);
    frames->AddNode(alumSideSupportV, 1, alumSideSupport_transf[1]);
    //--------------------------------------------------------------------------
 
    // bosch shape --------------------------------------------------------------
    Double_t boschShape_XSize = 2.25;         // cm
    Double_t boschShape_YSize = 52.6 - 6.0;   // cm
    Double_t boschShape_ZSize = 2.25;         // cm
 
    TGeoShape* boschShapeS = new TGeoBBox(TString("boschShapeS") += TString("_") + frames->GetName(),
                                          boschShape_XSize * 0.5, boschShape_YSize * 0.5, boschShape_ZSize * 0.5);
 
    TGeoVolume* boschShapeV = new TGeoVolume(TString("boschShapeV") += TString("_") + frames->GetName(), boschShapeS);
 
    // volume medium
    TGeoMedium* boschShapeV_medium = pMedAluminium;
    if (boschShapeV_medium) {
        boschShapeV->SetMedium(boschShapeV_medium);
    } else
        Fatal("Main", "Invalid medium for boschShapeV!");
 
    // volume visual property (transparency)
    boschShapeV->SetLineColor(TColor::GetColor("#ffcccc"));
    boschShapeV->SetTransparency(0);
 
    TGeoCombiTrans* boschShape_transf[2];
 
    boschShape_transf[0] = new TGeoCombiTrans();
    boschShape_transf[0]->SetDx(+(boschShape_XSize * 0.5 + 90.86 /*shift*/));
    boschShape_transf[0]->SetDy(+1.8 /*shift*/);
    boschShape_transf[0]->SetDz(+(ZModuleSize_Station163x39 * 0.5 + boschShape_ZSize * 0.5));
 
    boschShape_transf[1] = new TGeoCombiTrans();
    boschShape_transf[1]->SetDx(-(boschShape_XSize * 0.5 + 90.86 /*shift*/));
    boschShape_transf[1]->SetDy(+1.8 /*shift*/);
    boschShape_transf[1]->SetDz(+(ZModuleSize_Station163x39 * 0.5 + boschShape_ZSize * 0.5));
 
    // frames->AddNode(boschShapeV, 0, boschShape_transf[0]);
    // frames->AddNode(boschShapeV, 1, boschShape_transf[1]);
    //--------------------------------------------------------------------------
 
    // polyacetal shape ---------------------------------------------------------
    Double_t insidePolyacetalShapeUpper_XSize = 11.46;                // cm
    Double_t insidePolyacetalShapeUpper_YSize = 52.6;                 // cm
    Double_t insidePolyacetalShapeUpper_ZSize = 3.0;                  // cm
    Double_t insidePolyacetalShapeUpper_XDistBetweenParts = 186.22;   // cm
 
    Double_t outsidePolyacetalShapeUpper_XSize = 23.5;                 // cm
    Double_t outsidePolyacetalShapeUpper_YSize = 5.405;                // cm
    Double_t outsidePolyacetalShapeUpper_ZSize = 3.0;                  // cm
    Double_t outsidePolyacetalShapeUpper_XDistBetweenParts = 209.14;   // cm
 
    Double_t insidePolyacetalShapeLower_XSize = 8.4;                  // cm
    Double_t insidePolyacetalShapeLower_YSize = 52.6 - 6.0;           // cm
    Double_t insidePolyacetalShapeLower_ZSize = 3.0;                  // cm
    Double_t insidePolyacetalShapeLower_XDistBetweenParts = 186.22;   // cm
 
    Double_t outsidePolyacetalShapeLower_XSize = 26.7;                 // cm
    Double_t outsidePolyacetalShapeLower_YSize = 24.4;                 // cm
    Double_t outsidePolyacetalShapeLower_ZSize = 3.0;                  // cm
    Double_t outsidePolyacetalShapeLower_XDistBetweenParts = 203.02;   // cm
 
    TGeoShape* insidePolyacetalShapeUpperS =
        new TGeoBBox(TString("insidePolyacetalShapeUpperS") += TString("_") + frames->GetName(),
                     insidePolyacetalShapeUpper_XSize * 0.5, insidePolyacetalShapeUpper_YSize * 0.5,
                     insidePolyacetalShapeUpper_ZSize * 0.5);
    TGeoShape* outsidePolyacetalShapeUpperS =
        new TGeoBBox(TString("outsidePolyacetalShapeUpperS") += TString("_") + frames->GetName(),
                     outsidePolyacetalShapeUpper_XSize * 0.5, outsidePolyacetalShapeUpper_YSize * 0.5,
                     outsidePolyacetalShapeUpper_ZSize * 0.5);
    TGeoShape* insidePolyacetalShapeLowerS =
        new TGeoBBox(TString("insidePolyacetalShapeLowerS") += TString("_") + frames->GetName(),
                     insidePolyacetalShapeLower_XSize * 0.5, insidePolyacetalShapeLower_YSize * 0.5,
                     insidePolyacetalShapeLower_ZSize * 0.5);
    TGeoShape* outsidePolyacetalShapeLowerS =
        new TGeoBBox(TString("outsidePolyacetalShapeLowerS") += TString("_") + frames->GetName(),
                     outsidePolyacetalShapeLower_XSize * 0.5, outsidePolyacetalShapeLower_YSize * 0.5,
                     outsidePolyacetalShapeLower_ZSize * 0.5);
 
    TGeoVolume* insidePolyacetalShapeUpperV = new TGeoVolume(
        TString("insidePolyacetalShapeUpperV") += TString("_") + frames->GetName(), insidePolyacetalShapeUpperS);
    TGeoVolume* outsidePolyacetalShapeUpperV = new TGeoVolume(
        TString("outsidePolyacetalShapeUpperV") += TString("_") + frames->GetName(), outsidePolyacetalShapeUpperS);
    TGeoVolume* insidePolyacetalShapeLowerV = new TGeoVolume(
        TString("insidePolyacetalShapeLowerV") += TString("_") + frames->GetName(), insidePolyacetalShapeLowerS);
    TGeoVolume* outsidePolyacetalShapeLowerV = new TGeoVolume(
        TString("outsidePolyacetalShapeLowerV") += TString("_") + frames->GetName(), outsidePolyacetalShapeLowerS);
 
    // volume medium
    TGeoMedium* polyacetalShapeV_medium = pMedPolyacetal;
    if (polyacetalShapeV_medium) {
        insidePolyacetalShapeUpperV->SetMedium(polyacetalShapeV_medium);
        outsidePolyacetalShapeUpperV->SetMedium(polyacetalShapeV_medium);
        insidePolyacetalShapeLowerV->SetMedium(polyacetalShapeV_medium);
        outsidePolyacetalShapeLowerV->SetMedium(polyacetalShapeV_medium);
    } else
        Fatal("Main", "Invalid medium for insidePolyacetalShapeUpperV!");
 
    // volume visual property (transparency)
    insidePolyacetalShapeUpperV->SetLineColor(TColor::GetColor("#ffcccc"));
    insidePolyacetalShapeUpperV->SetTransparency(0);
    outsidePolyacetalShapeUpperV->SetLineColor(TColor::GetColor("#ffcccc"));
    outsidePolyacetalShapeUpperV->SetTransparency(0);
    insidePolyacetalShapeLowerV->SetLineColor(TColor::GetColor("#ffcccc"));
    insidePolyacetalShapeLowerV->SetTransparency(0);
    outsidePolyacetalShapeLowerV->SetLineColor(TColor::GetColor("#ffcccc"));
    outsidePolyacetalShapeLowerV->SetTransparency(0);
 
    TGeoCombiTrans* insidePolyacetalShapeUpper_transf[2];
 
    insidePolyacetalShapeUpper_transf[0] = new TGeoCombiTrans();
    insidePolyacetalShapeUpper_transf[0]->SetDx(
        +(insidePolyacetalShapeUpper_XSize * 0.5 + insidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    insidePolyacetalShapeUpper_transf[0]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeUpper_transf[0]->SetDz(0.0);
 
    insidePolyacetalShapeUpper_transf[1] = new TGeoCombiTrans();
    insidePolyacetalShapeUpper_transf[1]->SetDx(
        -(insidePolyacetalShapeUpper_XSize * 0.5 + insidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    insidePolyacetalShapeUpper_transf[1]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeUpper_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* outsidePolyacetalShapeUpper_transf[2];
 
    outsidePolyacetalShapeUpper_transf[0] = new TGeoCombiTrans();
    outsidePolyacetalShapeUpper_transf[0]->SetDx(
        +(outsidePolyacetalShapeUpper_XSize * 0.5 + outsidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeUpper_transf[0]->SetDy(-insidePolyacetalShapeUpper_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeUpper_YSize * 0.5);
    outsidePolyacetalShapeUpper_transf[0]->SetDz(0.0);
 
    outsidePolyacetalShapeUpper_transf[1] = new TGeoCombiTrans();
    outsidePolyacetalShapeUpper_transf[1]->SetDx(
        -(outsidePolyacetalShapeUpper_XSize * 0.5 + outsidePolyacetalShapeUpper_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeUpper_transf[1]->SetDy(-insidePolyacetalShapeUpper_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeUpper_YSize * 0.5);
    outsidePolyacetalShapeUpper_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* insidePolyacetalShapeLower_transf[2];
 
    insidePolyacetalShapeLower_transf[0] = new TGeoCombiTrans();
    insidePolyacetalShapeLower_transf[0]->SetDx(
        +(insidePolyacetalShapeLower_XSize * 0.5 + insidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    insidePolyacetalShapeLower_transf[0]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeLower_transf[0]->SetDz(0.0);
 
    insidePolyacetalShapeLower_transf[1] = new TGeoCombiTrans();
    insidePolyacetalShapeLower_transf[1]->SetDx(
        -(insidePolyacetalShapeLower_XSize * 0.5 + insidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    insidePolyacetalShapeLower_transf[1]->SetDy(+1.8 /*shift*/);
    insidePolyacetalShapeLower_transf[1]->SetDz(0.0);
 
    TGeoCombiTrans* outsidePolyacetalShapeLower_transf[2];
 
    outsidePolyacetalShapeLower_transf[0] = new TGeoCombiTrans();
    outsidePolyacetalShapeLower_transf[0]->SetDx(
        +(outsidePolyacetalShapeLower_XSize * 0.5 + outsidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeLower_transf[0]->SetDy(-insidePolyacetalShapeLower_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeLower_YSize * 0.5);
    outsidePolyacetalShapeLower_transf[0]->SetDz(0.0);
 
    outsidePolyacetalShapeLower_transf[1] = new TGeoCombiTrans();
    outsidePolyacetalShapeLower_transf[1]->SetDx(
        -(outsidePolyacetalShapeLower_XSize * 0.5 + outsidePolyacetalShapeLower_XDistBetweenParts * 0.5));
    outsidePolyacetalShapeLower_transf[1]->SetDy(-insidePolyacetalShapeLower_YSize * 0.5
                                                 + 1.8 /*shift*/ + outsidePolyacetalShapeLower_YSize * 0.5);
    outsidePolyacetalShapeLower_transf[1]->SetDz(0.0);
 
    if (TString(frames->GetName()).Contains("upper")) {
        frames->AddNode(insidePolyacetalShapeUpperV, 0, insidePolyacetalShapeUpper_transf[0]);
        frames->AddNode(insidePolyacetalShapeUpperV, 1, insidePolyacetalShapeUpper_transf[1]);
        frames->AddNode(outsidePolyacetalShapeUpperV, 0, outsidePolyacetalShapeUpper_transf[0]);
        frames->AddNode(outsidePolyacetalShapeUpperV, 1, outsidePolyacetalShapeUpper_transf[1]);
    }
 
    if (TString(frames->GetName()).Contains("lower")) {
        frames->AddNode(insidePolyacetalShapeLowerV, 0, insidePolyacetalShapeLower_transf[0]);
        frames->AddNode(insidePolyacetalShapeLowerV, 1, insidePolyacetalShapeLower_transf[1]);
        frames->AddNode(outsidePolyacetalShapeLowerV, 0, outsidePolyacetalShapeLower_transf[0]);
        frames->AddNode(outsidePolyacetalShapeLowerV, 1, outsidePolyacetalShapeLower_transf[1]);
    }
 
    //--------------------------------------------------------------------------
 
    // lower fiberglass block ---------------------------------------------------
    Double_t lowerFiberGlassBlock_XSize = 165.1;   // cm
    Double_t lowerFiberGlassBlock_YSize = 1.75;    // cm
    Double_t lowerFiberGlassBlock_ZSize = 0.9;     // cm
 
    Double_t lowerFiberGlassBlockArch_Rmin = 4.0;
    Double_t lowerFiberGlassBlockArch_Rmax = 5.75;
    Double_t lowerFiberGlassBlockArch_ZSize = lowerFiberGlassBlock_ZSize;
 
    TGeoShape* lowerFiberGlassBlockHalfS =
        new TGeoBBox(TString("lowerFiberGlassBlockHalfS") += TString("_") + frames->GetName(),
                     (lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5,
                     lowerFiberGlassBlock_YSize * 0.5, lowerFiberGlassBlock_ZSize * 0.5);
    TGeoShape* lowerFiberGlassBlockArchS = new TGeoTubeSeg(
        TString("lowerFiberGlassBlockArchS") += TString("_") + frames->GetName(), lowerFiberGlassBlockArch_Rmin,
        lowerFiberGlassBlockArch_Rmax, lowerFiberGlassBlockArch_ZSize * 0.5, 0.0, 180.0);
 
    TGeoTranslation* lowerFiberGlassBlockHalf_pos1 = new TGeoTranslation();
    lowerFiberGlassBlockHalf_pos1->SetName(TString("lowerFiberGlassBlockHalf_pos1") +=
                                           TString("_") + frames->GetName());
    lowerFiberGlassBlockHalf_pos1->SetDx(
        +((lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5 + lowerFiberGlassBlockArch_Rmin));
    lowerFiberGlassBlockHalf_pos1->SetDy(-(lowerFiberGlassBlock_YSize * 0.5));
    lowerFiberGlassBlockHalf_pos1->SetDz(0.0);
    lowerFiberGlassBlockHalf_pos1->RegisterYourself();
 
    TGeoTranslation* lowerFiberGlassBlockHalf_pos2 = new TGeoTranslation();
    lowerFiberGlassBlockHalf_pos2->SetName(TString("lowerFiberGlassBlockHalf_pos2") +=
                                           TString("_") + frames->GetName());
    lowerFiberGlassBlockHalf_pos2->SetDx(
        -((lowerFiberGlassBlock_XSize * 0.5 - lowerFiberGlassBlockArch_Rmin) * 0.5 + lowerFiberGlassBlockArch_Rmin));
    lowerFiberGlassBlockHalf_pos2->SetDy(-(lowerFiberGlassBlock_YSize * 0.5));
    lowerFiberGlassBlockHalf_pos2->SetDz(0.0);
    lowerFiberGlassBlockHalf_pos2->RegisterYourself();
 
    TGeoTranslation* lowerFiberGlassBlockArch_pos = new TGeoTranslation();
    lowerFiberGlassBlockArch_pos->SetName(TString("lowerFiberGlassBlockArch_pos") += TString("_") + frames->GetName());
    lowerFiberGlassBlockArch_pos->SetDx(0.0);
    lowerFiberGlassBlockArch_pos->SetDy(0.0);
    lowerFiberGlassBlockArch_pos->SetDz(0.0);
    lowerFiberGlassBlockArch_pos->RegisterYourself();
 
    TGeoCompositeShape* lowerFiberGlassBlockS = new TGeoCompositeShape();
    lowerFiberGlassBlockS->SetName(TString("lowerFiberGlassBlockS") += TString("_") + frames->GetName());
    {
        TString expression = "lowerFiberGlassBlockHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockHalf_pos1";
        expression += TString("_") + frames->GetName();
        expression += "+lowerFiberGlassBlockHalfS";
        expression += TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockHalf_pos2";
        expression += TString("_") + frames->GetName();
        expression += "+lowerFiberGlassBlockArchS";
        expression += TString("_") + frames->GetName();
        expression += ":lowerFiberGlassBlockArch_pos";
        expression += TString("_") + frames->GetName();
 
        lowerFiberGlassBlockS->MakeNode(expression);
        lowerFiberGlassBlockS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* lowerFiberGlassBlockV =
        new TGeoVolume(TString("lowerFiberGlassBlockV") += TString("_") + frames->GetName(), lowerFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* lowerFiberGlassBlockV_medium = pMedFiberGlass;
    if (lowerFiberGlassBlockV_medium) {
        lowerFiberGlassBlockV->SetMedium(lowerFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for lowerFiberGlassBlockV!");
 
    // volume visual property (transparency)
    lowerFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    lowerFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* lowerFiberGlassBlock_transf[1];
 
    lowerFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    lowerFiberGlassBlock_transf[0]->SetDx(0.0);
    lowerFiberGlassBlock_transf[0]->SetDy(-(YModuleSize_Station163x39 * 0.5));
    lowerFiberGlassBlock_transf[0]->SetDz(0.0);
 
    frames->AddNode(lowerFiberGlassBlockV, 0, lowerFiberGlassBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // side fiberglass block ----------------------------------------------------
    Double_t sideFiberGlassBlockPart_XSize = 1.45;         // cm
    Double_t sideFiberGlassBlockPart_YSize = 49.4 - 6.0;   // cm
    Double_t sideFiberGlassBlockPart_ZSize = 0.89;         // cm
 
    TGeoShape* sideFiberGlassBlockS = new TGeoBBox(
        TString("sideFiberGlassBlockS") += TString("_") + frames->GetName(), sideFiberGlassBlockPart_XSize * 0.5,
        sideFiberGlassBlockPart_YSize * 0.5, sideFiberGlassBlockPart_ZSize * 0.5);
 
    TGeoVolume* sideFiberGlassBlockV =
        new TGeoVolume(TString("sideFiberGlassBlockV") += TString("_") + frames->GetName(), sideFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* sideFiberGlassBlockV_medium = pMedFiberGlass;
    if (sideFiberGlassBlockV_medium) {
        sideFiberGlassBlockV->SetMedium(sideFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for sideFiberGlassBlockV!");
 
    // volume visual property (transparency)
    sideFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    sideFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* sideFiberGlassBlock_transf[2];
 
    sideFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    sideFiberGlassBlock_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideFiberGlassBlockPart_XSize * 0.5));
    sideFiberGlassBlock_transf[0]->SetDy(+0.45 /*shift*/);
    sideFiberGlassBlock_transf[0]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    sideFiberGlassBlock_transf[1] = new TGeoCombiTrans();
    sideFiberGlassBlock_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideFiberGlassBlockPart_XSize * 0.5));
    sideFiberGlassBlock_transf[1]->SetDy(+0.45 /*shift*/);
    sideFiberGlassBlock_transf[1]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    frames->AddNode(sideFiberGlassBlockV, 0, sideFiberGlassBlock_transf[0]);
    frames->AddNode(sideFiberGlassBlockV, 1, sideFiberGlassBlock_transf[1]);
    //--------------------------------------------------------------------------
 
    // upper fiberglass block ---------------------------------------------------
    Double_t upperFiberGlassBlock_XSize = 165.1;   // cm
    Double_t upperFiberGlassBlock_YSize = 1.45;    // cm
    Double_t upperFiberGlassBlock_ZSize = 0.89;    // cm
 
    TGeoShape* upperFiberGlassBlockS = new TGeoBBox(
        TString("upperFiberGlassBlockS") += TString("_") + frames->GetName(), upperFiberGlassBlock_XSize * 0.5,
        upperFiberGlassBlock_YSize * 0.5, upperFiberGlassBlock_ZSize * 0.5);
 
    TGeoVolume* upperFiberGlassBlockV =
        new TGeoVolume(TString("upperFiberGlassBlockV") += TString("_") + frames->GetName(), upperFiberGlassBlockS);
 
    // volume medium
    TGeoMedium* upperFiberGlassBlockV_medium = pMedFiberGlass;
    if (upperFiberGlassBlockV_medium) {
        upperFiberGlassBlockV->SetMedium(upperFiberGlassBlockV_medium);
    } else
        Fatal("Main", "Invalid medium for upperFiberGlassBlockV!");
 
    // volume visual property (transparency)
    upperFiberGlassBlockV->SetLineColor(TColor::GetColor("#88ff88"));
    upperFiberGlassBlockV->SetTransparency(0);
 
    TGeoCombiTrans* upperFiberGlassBlock_transf[1];
 
    upperFiberGlassBlock_transf[0] = new TGeoCombiTrans();
    upperFiberGlassBlock_transf[0]->SetDx(0.0);
    upperFiberGlassBlock_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperFiberGlassBlock_YSize * 0.5 + 0.45 /*shift*/));
    upperFiberGlassBlock_transf[0]->SetDz(+0.005 /*shift for fitting-elements as a plane*/);
 
    frames->AddNode(upperFiberGlassBlockV, 0, upperFiberGlassBlock_transf[0]);
    //--------------------------------------------------------------------------
 
    // brass layer --------------------------------------------------------------
    Double_t upperBrasslayer_XSize = 165.1;   // cm
    Double_t upperBrasslayer_YSize = 1.45;    // cm
    Double_t upperBrasslayer_ZSize = 0.005;   // cm
 
    Double_t sideBrasslayer_XSize = 1.45;         // cm
    Double_t sideBrasslayer_YSize = 49.4 - 6.0;   // cm
    Double_t sideBrasslayer_ZSize = 0.005;        // cm
 
    TGeoShape* upperBrasslayerS =
        new TGeoBBox(TString("upperBrasslayerS") += TString("_") + frames->GetName(), upperBrasslayer_XSize * 0.5,
                     upperBrasslayer_YSize * 0.5, upperBrasslayer_ZSize * 0.5);
    TGeoShape* sideBrasslayerS =
        new TGeoBBox(TString("sideBrasslayerS") += TString("_") + frames->GetName(), sideBrasslayer_XSize * 0.5,
                     sideBrasslayer_YSize * 0.5, sideBrasslayer_ZSize * 0.5);
 
    TGeoVolume* upperBrasslayerV =
        new TGeoVolume(TString("upperBrasslayerV") += TString("_") + frames->GetName(), upperBrasslayerS);
    TGeoVolume* sideBrasslayerV =
        new TGeoVolume(TString("sideBrasslayerV") += TString("_") + frames->GetName(), sideBrasslayerS);
 
    // volume medium
    TGeoMedium* upperBrasslayerV_medium = pMedBrass;
    if (upperBrasslayerV_medium) {
        upperBrasslayerV->SetMedium(upperBrasslayerV_medium);
        sideBrasslayerV->SetMedium(upperBrasslayerV_medium);
    } else
        Fatal("Main", "Invalid medium for upperBrasslayerV_medium!");
 
    // volume visual property (transparency)
    upperBrasslayerV->SetLineColor(TColor::GetColor("#f07422"));
    upperBrasslayerV->SetTransparency(0);
    sideBrasslayerV->SetLineColor(TColor::GetColor("#f07422"));
    sideBrasslayerV->SetTransparency(0);
 
    TGeoCombiTrans* upperBrasslayer_transf[1];
 
    upperBrasslayer_transf[0] = new TGeoCombiTrans();
    upperBrasslayer_transf[0]->SetDx(0.0);
    upperBrasslayer_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperBrasslayer_YSize * 0.5 + 0.45 /*shift*/));
    upperBrasslayer_transf[0]->SetDz(-ZModuleSize_Station163x39 * 0.5 + upperBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    TGeoCombiTrans* sideBrasslayer_transf[2];
 
    sideBrasslayer_transf[0] = new TGeoCombiTrans();
    sideBrasslayer_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideBrasslayer_XSize * 0.5));
    sideBrasslayer_transf[0]->SetDy(+0.45 /*shift*/);
    sideBrasslayer_transf[0]->SetDz(-ZModuleSize_Station163x39 * 0.5 + sideBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    sideBrasslayer_transf[1] = new TGeoCombiTrans();
    sideBrasslayer_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideBrasslayer_XSize * 0.5));
    sideBrasslayer_transf[1]->SetDy(+0.45 /*shift*/);
    sideBrasslayer_transf[1]->SetDz(-ZModuleSize_Station163x39 * 0.5 + sideBrasslayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    frames->AddNode(upperBrasslayerV, 0, upperBrasslayer_transf[0]);
 
    frames->AddNode(sideBrasslayerV, 0, sideBrasslayer_transf[0]);
    frames->AddNode(sideBrasslayerV, 1, sideBrasslayer_transf[1]);
    //--------------------------------------------------------------------------
 
    // steel layer --------------------------------------------------------------
    Double_t upperSteellayer_XSize = 165.1;   // cm
    Double_t upperSteellayer_YSize = 1.45;    // cm
    Double_t upperSteellayer_ZSize = 0.005;   // cm
 
    Double_t sideSteellayer_XSize = 1.45;         // cm
    Double_t sideSteellayer_YSize = 49.4 - 6.0;   // cm
    Double_t sideSteellayer_ZSize = 0.005;        // cm
 
    TGeoShape* upperSteellayerS =
        new TGeoBBox(TString("upperSteellayerS") += TString("_") + frames->GetName(), upperSteellayer_XSize * 0.5,
                     upperSteellayer_YSize * 0.5, upperSteellayer_ZSize * 0.5);
    TGeoShape* sideSteellayerS =
        new TGeoBBox(TString("sideSteellayerS") += TString("_") + frames->GetName(), sideSteellayer_XSize * 0.5,
                     sideSteellayer_YSize * 0.5, sideSteellayer_ZSize * 0.5);
 
    TGeoVolume* upperSteellayerV =
        new TGeoVolume(TString("upperSteellayerV") += TString("_") + frames->GetName(), upperSteellayerS);
    TGeoVolume* sideSteellayerV =
        new TGeoVolume(TString("sideSteellayerV") += TString("_") + frames->GetName(), sideSteellayerS);
 
    // volume medium
    TGeoMedium* upperSteellayerV_medium = pMedSteel;
    if (upperSteellayerV_medium) {
        upperSteellayerV->SetMedium(upperSteellayerV_medium);
        sideSteellayerV->SetMedium(upperSteellayerV_medium);
    } else
        Fatal("Main", "Invalid medium for upperSteellayerV_medium!");
 
    // volume visual property (transparency)
    upperSteellayerV->SetLineColor(TColor::GetColor("#42aaff"));
    upperSteellayerV->SetTransparency(0);
    sideSteellayerV->SetLineColor(TColor::GetColor("#42aaff"));
    sideSteellayerV->SetTransparency(0);
 
    TGeoCombiTrans* upperSteellayer_transf[1];
 
    upperSteellayer_transf[0] = new TGeoCombiTrans();
    upperSteellayer_transf[0]->SetDx(0.0);
    upperSteellayer_transf[0]->SetDy(
        +(sideFiberGlassBlockPart_YSize * 0.5 - upperSteellayer_YSize * 0.5 + 0.45 /*shift*/));
    upperSteellayer_transf[0]->SetDz(-ZModuleSize_Station163x39 * 0.5 + upperSteellayer_ZSize * 0.5 + 0.005 /*shift*/);
 
    TGeoCombiTrans* sideSteellayer_transf[2];
 
    sideSteellayer_transf[0] = new TGeoCombiTrans();
    sideSteellayer_transf[0]->SetDx(+(lowerFiberGlassBlock_XSize * 0.5 + sideSteellayer_XSize * 0.5));
    sideSteellayer_transf[0]->SetDy(+0.45 /*shift*/);
    sideSteellayer_transf[0]->SetDz(-ZModuleSize_Station163x39 * 0.5 + sideSteellayer_ZSize * 0.5);
 
    sideSteellayer_transf[1] = new TGeoCombiTrans();
    sideSteellayer_transf[1]->SetDx(-(lowerFiberGlassBlock_XSize * 0.5 + sideSteellayer_XSize * 0.5));
    sideSteellayer_transf[1]->SetDy(+0.45 /*shift*/);
    sideSteellayer_transf[1]->SetDz(-ZModuleSize_Station163x39 * 0.5 + sideSteellayer_ZSize * 0.5);
 
    frames->AddNode(upperSteellayerV, 0, upperSteellayer_transf[0]);
 
    frames->AddNode(sideSteellayerV, 0, sideSteellayer_transf[0]);
    frames->AddNode(sideSteellayerV, 1, sideSteellayer_transf[1]);
    //--------------------------------------------------------------------------
 
    return frames;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateModule_Station10x10(TString module_name, Double_t xsize, Double_t ysize, Double_t zsize)
{
 
    // Common parameters for all inside layers
    Double_t insideLayer_XSize = XModuleSize_Station10x10;   // cm
    Double_t insideLayer_YSize = YModuleSize_Station10x10;   // cm
 
    Double_t copperInsideLayer1_ZSize = 0.0005;   // cm;
    Double_t kaptonInsideLayer1_ZSize = 0.005;    // cm;
 
    Double_t copperInsideLayer2_ZSize = 0.0007;   // cm;
    Double_t kaptonInsideLayer2_ZSize = 0.003;    // cm;
 
    Double_t copperInsideLayer3_ZSize = 0.0007;   // cm;
    Double_t kaptonInsideLayer3_ZSize = 0.003;    // cm;
 
    Double_t copperInsideLayer4_ZSize = 0.0007;   // cm;
    Double_t kaptonInsideLayer4_ZSize = 0.003;    // cm;
 
    TGeoShape* copperInsideLayer1S =
        new TGeoBBox(TString("copperInsideLayer1S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperInsideLayer1_ZSize * 0.5);
    TGeoShape* kaptonInsideLayer1S =
        new TGeoBBox(TString("kaptonInsideLayer1S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonInsideLayer1_ZSize * 0.5);
 
    TGeoShape* copperInsideLayer2S =
        new TGeoBBox(TString("copperInsideLayer2S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperInsideLayer2_ZSize * 0.5);
    TGeoShape* kaptonInsideLayer2S =
        new TGeoBBox(TString("kaptonInsideLayer2S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonInsideLayer2_ZSize * 0.5);
 
    TGeoShape* copperInsideLayer3S =
        new TGeoBBox(TString("copperInsideLayer3S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperInsideLayer3_ZSize * 0.5);
    TGeoShape* kaptonInsideLayer3S =
        new TGeoBBox(TString("kaptonInsideLayer3S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonInsideLayer3_ZSize * 0.5);
 
    TGeoShape* copperInsideLayer4S =
        new TGeoBBox(TString("copperInsideLayer4S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperInsideLayer4_ZSize * 0.5);
    TGeoShape* kaptonInsideLayer4S =
        new TGeoBBox(TString("kaptonInsideLayer4S") + TString("_") + module_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonInsideLayer4_ZSize * 0.5);
 
    TGeoVolume* copperInsideLayer1V =
        new TGeoVolume(TString("copperInsideLayer1V") += TString("_") + module_name, copperInsideLayer1S);
    TGeoVolume* kaptonInsideLayer1V =
        new TGeoVolume(TString("kaptonInsideLayer1V") += TString("_") + module_name, kaptonInsideLayer1S);
 
    TGeoVolume* copperInsideLayer2V =
        new TGeoVolume(TString("copperInsideLayer2V") += TString("_") + module_name, copperInsideLayer2S);
    TGeoVolume* kaptonInsideLayer2V =
        new TGeoVolume(TString("kaptonInsideLayer2V") += TString("_") + module_name, kaptonInsideLayer2S);
 
    TGeoVolume* copperInsideLayer3V =
        new TGeoVolume(TString("copperInsideLayer3V") += TString("_") + module_name, copperInsideLayer3S);
    TGeoVolume* kaptonInsideLayer3V =
        new TGeoVolume(TString("kaptonInsideLayer3V") += TString("_") + module_name, kaptonInsideLayer3S);
 
    TGeoVolume* copperInsideLayer4V =
        new TGeoVolume(TString("copperInsideLayer4V") += TString("_") + module_name, copperInsideLayer4S);
    TGeoVolume* kaptonInsideLayer4V =
        new TGeoVolume(TString("kaptonInsideLayer4V") += TString("_") + module_name, kaptonInsideLayer4S);
 
    // volume media
    TGeoMedium* copperLayerV_medium = pMedCopper;
    if (copperLayerV_medium) {
        copperInsideLayer1V->SetMedium(copperLayerV_medium);
        copperInsideLayer2V->SetMedium(copperLayerV_medium);
        copperInsideLayer3V->SetMedium(copperLayerV_medium);
        copperInsideLayer4V->SetMedium(copperLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for copperLayerV!");
 
    TGeoMedium* kaptonLayerV_medium = pMedKapton;
    if (kaptonLayerV_medium) {
        kaptonInsideLayer1V->SetMedium(kaptonLayerV_medium);
        kaptonInsideLayer2V->SetMedium(kaptonLayerV_medium);
        kaptonInsideLayer3V->SetMedium(kaptonLayerV_medium);
        kaptonInsideLayer4V->SetMedium(kaptonLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for kaptonLayerV!");
 
    // volume visual property (transparency)
    copperInsideLayer1V->SetLineColor(TColor::GetColor("#ff7538"));
    copperInsideLayer1V->SetTransparency(0);
    kaptonInsideLayer1V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonInsideLayer1V->SetTransparency(0);
 
    copperInsideLayer2V->SetLineColor(TColor::GetColor("#ff7538"));
    copperInsideLayer2V->SetTransparency(0);
    kaptonInsideLayer2V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonInsideLayer2V->SetTransparency(0);
 
    copperInsideLayer3V->SetLineColor(TColor::GetColor("#ff7538"));
    copperInsideLayer3V->SetTransparency(0);
    kaptonInsideLayer3V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonInsideLayer3V->SetTransparency(0);
 
    copperInsideLayer4V->SetLineColor(TColor::GetColor("#ff7538"));
    copperInsideLayer4V->SetTransparency(0);
    kaptonInsideLayer4V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonInsideLayer4V->SetTransparency(0);
 
    TGeoCombiTrans* copperInsideLayer1V_transf[1];
    copperInsideLayer1V_transf[0] = new TGeoCombiTrans();
    copperInsideLayer1V_transf[0]->SetDx(0.0);
    copperInsideLayer1V_transf[0]->SetDy(0.0);
    copperInsideLayer1V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06);
 
    TGeoCombiTrans* kaptonInsideLayer1V_transf[1];
    kaptonInsideLayer1V_transf[0] = new TGeoCombiTrans();
    kaptonInsideLayer1V_transf[0]->SetDx(0.0);
    kaptonInsideLayer1V_transf[0]->SetDy(0.0);
    kaptonInsideLayer1V_transf[0]->SetDz(-(copperInsideLayer1_ZSize * 0.5 + kaptonInsideLayer1_ZSize * 0.5)
                                         - ZModuleSize_Station10x10 * 0.5 + 0.06);
 
    TGeoCombiTrans* copperInsideLayer2V_transf[1];
    copperInsideLayer2V_transf[0] = new TGeoCombiTrans();
    copperInsideLayer2V_transf[0]->SetDx(0.0);
    copperInsideLayer2V_transf[0]->SetDy(0.0);
    copperInsideLayer2V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.306);
 
    TGeoCombiTrans* kaptonInsideLayer2V_transf[1];
    kaptonInsideLayer2V_transf[0] = new TGeoCombiTrans();
    kaptonInsideLayer2V_transf[0]->SetDx(0.0);
    kaptonInsideLayer2V_transf[0]->SetDy(0.0);
    kaptonInsideLayer2V_transf[0]->SetDz(-(copperInsideLayer2_ZSize * 0.5 + kaptonInsideLayer2_ZSize * 0.5)
                                         - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.306);
 
    TGeoCombiTrans* copperInsideLayer3V_transf[1];
    copperInsideLayer3V_transf[0] = new TGeoCombiTrans();
    copperInsideLayer3V_transf[0]->SetDx(0.0);
    copperInsideLayer3V_transf[0]->SetDy(0.0);
    copperInsideLayer3V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.559);
 
    TGeoCombiTrans* kaptonInsideLayer3V_transf[1];
    kaptonInsideLayer3V_transf[0] = new TGeoCombiTrans();
    kaptonInsideLayer3V_transf[0]->SetDx(0.0);
    kaptonInsideLayer3V_transf[0]->SetDy(0.0);
    kaptonInsideLayer3V_transf[0]->SetDz(-(copperInsideLayer3_ZSize * 0.5 + kaptonInsideLayer3_ZSize * 0.5)
                                         - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.559);
 
    TGeoCombiTrans* copperInsideLayer4V_transf[1];
    copperInsideLayer4V_transf[0] = new TGeoCombiTrans();
    copperInsideLayer4V_transf[0]->SetDx(0.0);
    copperInsideLayer4V_transf[0]->SetDy(0.0);
    copperInsideLayer4V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.763);
 
    TGeoCombiTrans* kaptonInsideLayer4V_transf[1];
    kaptonInsideLayer4V_transf[0] = new TGeoCombiTrans();
    kaptonInsideLayer4V_transf[0]->SetDx(0.0);
    kaptonInsideLayer4V_transf[0]->SetDy(0.0);
    kaptonInsideLayer4V_transf[0]->SetDz(-(copperInsideLayer4_ZSize * 0.5 + kaptonInsideLayer4_ZSize * 0.5)
                                         - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.763);
 
    // module shape
    TGeoShape* moduleS =
        new TGeoBBox(TString("moduleS") + TString("_") + module_name, xsize * 0.5, ysize * 0.5, zsize * 0.5);
 
    // module volume
    TGeoVolume* moduleV = new TGeoVolume(module_name, moduleS);
 
    // medium
    if (pMedArC4H10_80_20)
        moduleV->SetMedium(pMedArC4H10_80_20);
    else
        Fatal("Main", "Invalid medium for sensitive modules!");
 
    // visual parameters
    moduleV->SetLineColor(TColor::GetColor("#ff47ca"));
    moduleV->SetTransparency(20);
 
    moduleV->AddNode(copperInsideLayer1V, 0, copperInsideLayer1V_transf[0]);
    moduleV->AddNode(kaptonInsideLayer1V, 0, kaptonInsideLayer1V_transf[0]);
    moduleV->AddNode(copperInsideLayer2V, 0, copperInsideLayer2V_transf[0]);
    moduleV->AddNode(kaptonInsideLayer2V, 0, kaptonInsideLayer2V_transf[0]);
    moduleV->AddNode(copperInsideLayer3V, 0, copperInsideLayer3V_transf[0]);
    moduleV->AddNode(kaptonInsideLayer3V, 0, kaptonInsideLayer3V_transf[0]);
    moduleV->AddNode(copperInsideLayer4V, 0, copperInsideLayer4V_transf[0]);
    moduleV->AddNode(kaptonInsideLayer4V, 0, kaptonInsideLayer4V_transf[0]);
 
    return moduleV;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateLayersForModule_Station10x10(TString layer_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    TGeoVolume* layers = new TGeoVolumeAssembly(layer_name);
    layers->SetMedium(pMedAir);
 
    // Common parameters for all inside layers
    Double_t outsideLayer_XSize = 10.5;   // cm
    Double_t outsideLayer_YSize = 10.5;   // cm
 
    Double_t insideLayer_XSize = XModuleSize_Station10x10;   // cm
    Double_t insideLayer_YSize = YModuleSize_Station10x10;   // cm
 
    Double_t copperOutsideLayer1_ZSize = 0.0005;   // cm;
    Double_t kaptonOutsideLayer1_ZSize = 0.005;    // cm;
 
    Double_t copperOutsideLayer2_ZSize = 0.0007;   // cm;
    Double_t kaptonOutsideLayer2_ZSize = 0.003;    // cm;
 
    Double_t copperOutsideLayer3_ZSize = 0.0007;   // cm;
    Double_t kaptonOutsideLayer3_ZSize = 0.003;    // cm;
 
    Double_t copperOutsideLayer4_ZSize = 0.0007;   // cm;
    Double_t kaptonOutsideLayer4_ZSize = 0.003;    // cm;
 
    TGeoShape* copperOutsideLayerBlank1S =
        new TGeoBBox(TString("copperOutsideLayerBlank1S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, copperOutsideLayer1_ZSize * 0.5);
    TGeoShape* kaptonOutsideLayerBlank1S =
        new TGeoBBox(TString("kaptonOutsideLayerBlank1S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, kaptonOutsideLayer1_ZSize * 0.5);
 
    TGeoShape* copperOutsideLayerBlank2S =
        new TGeoBBox(TString("copperOutsideLayerBlank2S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, copperOutsideLayer2_ZSize * 0.5);
    TGeoShape* kaptonOutsideLayerBlank2S =
        new TGeoBBox(TString("kaptonOutsideLayerBlank2S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, kaptonOutsideLayer2_ZSize * 0.5);
 
    TGeoShape* copperOutsideLayerBlank3S =
        new TGeoBBox(TString("copperOutsideLayerBlank3S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, copperOutsideLayer3_ZSize * 0.5);
    TGeoShape* kaptonOutsideLayerBlank3S =
        new TGeoBBox(TString("kaptonOutsideLayerBlank3S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, kaptonOutsideLayer3_ZSize * 0.5);
 
    TGeoShape* copperOutsideLayerBlank4S =
        new TGeoBBox(TString("copperOutsideLayerBlank4S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, copperOutsideLayer4_ZSize * 0.5);
    TGeoShape* kaptonOutsideLayerBlank4S =
        new TGeoBBox(TString("kaptonOutsideLayerBlank4S") + TString("_") + layer_name, outsideLayer_XSize * 0.5,
                     outsideLayer_YSize * 0.5, kaptonOutsideLayer4_ZSize * 0.5);
 
    TGeoShape* copperInsideLayerBlank1S =
        new TGeoBBox(TString("copperInsideLayerBlank1S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperOutsideLayer1_ZSize * 0.5 + 0.01);
    TGeoShape* kaptonInsideLayerBlank1S =
        new TGeoBBox(TString("kaptonInsideLayerBlank1S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonOutsideLayer1_ZSize * 0.5 + 0.01);
 
    TGeoShape* copperInsideLayerBlank2S =
        new TGeoBBox(TString("copperInsideLayerBlank2S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperOutsideLayer2_ZSize * 0.5 + 0.01);
    TGeoShape* kaptonInsideLayerBlank2S =
        new TGeoBBox(TString("kaptonInsideLayerBlank2S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonOutsideLayer2_ZSize * 0.5 + 0.01);
 
    TGeoShape* copperInsideLayerBlank3S =
        new TGeoBBox(TString("copperInsideLayerBlank3S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperOutsideLayer3_ZSize * 0.5 + 0.01);
    TGeoShape* kaptonInsideLayerBlank3S =
        new TGeoBBox(TString("kaptonInsideLayerBlank3S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonOutsideLayer3_ZSize * 0.5 + 0.01);
 
    TGeoShape* copperInsideLayerBlank4S =
        new TGeoBBox(TString("copperInsideLayerBlank4S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, copperOutsideLayer4_ZSize * 0.5 + 0.01);
    TGeoShape* kaptonInsideLayerBlank4S =
        new TGeoBBox(TString("kaptonInsideLayerBlank4S") + TString("_") + layer_name, insideLayer_XSize * 0.5,
                     insideLayer_YSize * 0.5, kaptonOutsideLayer4_ZSize * 0.5 + 0.01);
 
    TGeoCompositeShape* copperOutsideLayer1S = new TGeoCompositeShape();
    copperOutsideLayer1S->SetName(TString("copperOutsideLayer1S") += TString("_") + layer_name);
    {
        TString expression = "copperOutsideLayerBlank1S";
        expression += TString("_") + layer_name;
        expression += "-copperInsideLayerBlank1S";
        expression += TString("_") + layer_name;
 
        copperOutsideLayer1S->MakeNode(expression);
        copperOutsideLayer1S->ComputeBBox();   // need to compute a bounding box
    }
    TGeoCompositeShape* kaptonOutsideLayer1S = new TGeoCompositeShape();
    kaptonOutsideLayer1S->SetName(TString("kaptonOutsideLayer1S") += TString("_") + layer_name);
    {
        TString expression = "kaptonOutsideLayerBlank1S";
        expression += TString("_") + layer_name;
        expression += "-kaptonInsideLayerBlank1S";
        expression += TString("_") + layer_name;
 
        kaptonOutsideLayer1S->MakeNode(expression);
        kaptonOutsideLayer1S->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperOutsideLayer2S = new TGeoCompositeShape();
    copperOutsideLayer2S->SetName(TString("copperOutsideLayer2S") += TString("_") + layer_name);
    {
        TString expression = "copperOutsideLayerBlank2S";
        expression += TString("_") + layer_name;
        expression += "-copperInsideLayerBlank2S";
        expression += TString("_") + layer_name;
 
        copperOutsideLayer2S->MakeNode(expression);
        copperOutsideLayer2S->ComputeBBox();   // need to compute a bounding box
    }
    TGeoCompositeShape* kaptonOutsideLayer2S = new TGeoCompositeShape();
    kaptonOutsideLayer2S->SetName(TString("kaptonOutsideLayer2S") += TString("_") + layer_name);
    {
        TString expression = "kaptonOutsideLayerBlank2S";
        expression += TString("_") + layer_name;
        expression += "-kaptonInsideLayerBlank2S";
        expression += TString("_") + layer_name;
 
        kaptonOutsideLayer2S->MakeNode(expression);
        kaptonOutsideLayer2S->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperOutsideLayer3S = new TGeoCompositeShape();
    copperOutsideLayer3S->SetName(TString("copperOutsideLayer3S") += TString("_") + layer_name);
    {
        TString expression = "copperOutsideLayerBlank3S";
        expression += TString("_") + layer_name;
        expression += "-copperInsideLayerBlank3S";
        expression += TString("_") + layer_name;
 
        copperOutsideLayer3S->MakeNode(expression);
        copperOutsideLayer3S->ComputeBBox();   // need to compute a bounding box
    }
    TGeoCompositeShape* kaptonOutsideLayer3S = new TGeoCompositeShape();
    kaptonOutsideLayer3S->SetName(TString("kaptonOutsideLayer3S") += TString("_") + layer_name);
    {
        TString expression = "kaptonOutsideLayerBlank3S";
        expression += TString("_") + layer_name;
        expression += "-kaptonInsideLayerBlank3S";
        expression += TString("_") + layer_name;
 
        kaptonOutsideLayer3S->MakeNode(expression);
        kaptonOutsideLayer3S->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperOutsideLayer4S = new TGeoCompositeShape();
    copperOutsideLayer4S->SetName(TString("copperOutsideLayer4S") += TString("_") + layer_name);
    {
        TString expression = "copperOutsideLayerBlank4S";
        expression += TString("_") + layer_name;
        expression += "-copperInsideLayerBlank4S";
        expression += TString("_") + layer_name;
 
        copperOutsideLayer4S->MakeNode(expression);
        copperOutsideLayer4S->ComputeBBox();   // need to compute a bounding box
    }
    TGeoCompositeShape* kaptonOutsideLayer4S = new TGeoCompositeShape();
    kaptonOutsideLayer4S->SetName(TString("kaptonOutsideLayer4S") += TString("_") + layer_name);
    {
        TString expression = "kaptonOutsideLayerBlank4S";
        expression += TString("_") + layer_name;
        expression += "-kaptonInsideLayerBlank4S";
        expression += TString("_") + layer_name;
 
        kaptonOutsideLayer4S->MakeNode(expression);
        kaptonOutsideLayer4S->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* copperOutsideLayer1V =
        new TGeoVolume(TString("copperOutsideLayer1V") += TString("_") + layer_name, copperOutsideLayer1S);
    TGeoVolume* kaptonOutsideLayer1V =
        new TGeoVolume(TString("kaptonOutsideLayer1V") += TString("_") + layer_name, kaptonOutsideLayer1S);
 
    TGeoVolume* copperOutsideLayer2V =
        new TGeoVolume(TString("copperOutsideLayer2V") += TString("_") + layer_name, copperOutsideLayer2S);
    TGeoVolume* kaptonOutsideLayer2V =
        new TGeoVolume(TString("kaptonOutsideLayer2V") += TString("_") + layer_name, kaptonOutsideLayer2S);
 
    TGeoVolume* copperOutsideLayer3V =
        new TGeoVolume(TString("copperOutsideLayer3V") += TString("_") + layer_name, copperOutsideLayer3S);
    TGeoVolume* kaptonOutsideLayer3V =
        new TGeoVolume(TString("kaptonOutsideLayer3V") += TString("_") + layer_name, kaptonOutsideLayer3S);
 
    TGeoVolume* copperOutsideLayer4V =
        new TGeoVolume(TString("copperOutsideLayer4V") += TString("_") + layer_name, copperOutsideLayer4S);
    TGeoVolume* kaptonOutsideLayer4V =
        new TGeoVolume(TString("kaptonOutsideLayer4V") += TString("_") + layer_name, kaptonOutsideLayer4S);
 
    // volume media
    TGeoMedium* copperOutsideLayerV_medium = pMedCopper;
    if (copperOutsideLayerV_medium) {
        copperOutsideLayer1V->SetMedium(copperOutsideLayerV_medium);
        copperOutsideLayer2V->SetMedium(copperOutsideLayerV_medium);
        copperOutsideLayer3V->SetMedium(copperOutsideLayerV_medium);
        copperOutsideLayer4V->SetMedium(copperOutsideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for copperOutsideLayerV!");
 
    TGeoMedium* kaptonOutsideLayerV_medium = pMedKapton;
    if (kaptonOutsideLayerV_medium) {
        kaptonOutsideLayer1V->SetMedium(kaptonOutsideLayerV_medium);
        kaptonOutsideLayer2V->SetMedium(kaptonOutsideLayerV_medium);
        kaptonOutsideLayer3V->SetMedium(kaptonOutsideLayerV_medium);
        kaptonOutsideLayer4V->SetMedium(kaptonOutsideLayerV_medium);
    } else
        Fatal("Main", "Invalid medium for kaptonOutsideLayerV!");
 
    // volume visual property (transparency)
    copperOutsideLayer1V->SetLineColor(TColor::GetColor("#ff7538"));
    copperOutsideLayer1V->SetTransparency(0);
    kaptonOutsideLayer1V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonOutsideLayer1V->SetTransparency(0);
    copperOutsideLayer2V->SetLineColor(TColor::GetColor("#ff7538"));
    copperOutsideLayer2V->SetTransparency(0);
    kaptonOutsideLayer2V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonOutsideLayer2V->SetTransparency(0);
    copperOutsideLayer3V->SetLineColor(TColor::GetColor("#ff7538"));
    copperOutsideLayer3V->SetTransparency(0);
    kaptonOutsideLayer3V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonOutsideLayer3V->SetTransparency(0);
    copperOutsideLayer4V->SetLineColor(TColor::GetColor("#ff7538"));
    copperOutsideLayer4V->SetTransparency(0);
    kaptonOutsideLayer4V->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonOutsideLayer4V->SetTransparency(0);
 
    TGeoCombiTrans* copperOutsideLayer1V_transf[1];
    copperOutsideLayer1V_transf[0] = new TGeoCombiTrans();
    copperOutsideLayer1V_transf[0]->SetDx(0.0);
    copperOutsideLayer1V_transf[0]->SetDy(0.0);
    copperOutsideLayer1V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06);
 
    TGeoCombiTrans* kaptonOutsideLayer1V_transf[1];
    kaptonOutsideLayer1V_transf[0] = new TGeoCombiTrans();
    kaptonOutsideLayer1V_transf[0]->SetDx(0.0);
    kaptonOutsideLayer1V_transf[0]->SetDy(0.0);
    kaptonOutsideLayer1V_transf[0]->SetDz(-(copperOutsideLayer1_ZSize * 0.5 + kaptonOutsideLayer1_ZSize * 0.5)
                                          - ZModuleSize_Station10x10 * 0.5 + 0.06);
 
    TGeoCombiTrans* copperOutsideLayer2V_transf[1];
    copperOutsideLayer2V_transf[0] = new TGeoCombiTrans();
    copperOutsideLayer2V_transf[0]->SetDx(0.0);
    copperOutsideLayer2V_transf[0]->SetDy(0.0);
    copperOutsideLayer2V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.306);
 
    TGeoCombiTrans* kaptonOutsideLayer2V_transf[1];
    kaptonOutsideLayer2V_transf[0] = new TGeoCombiTrans();
    kaptonOutsideLayer2V_transf[0]->SetDx(0.0);
    kaptonOutsideLayer2V_transf[0]->SetDy(0.0);
    kaptonOutsideLayer2V_transf[0]->SetDz(-(copperOutsideLayer2_ZSize * 0.5 + kaptonOutsideLayer2_ZSize * 0.5)
                                          - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.306);
 
    TGeoCombiTrans* copperOutsideLayer3V_transf[1];
    copperOutsideLayer3V_transf[0] = new TGeoCombiTrans();
    copperOutsideLayer3V_transf[0]->SetDx(0.0);
    copperOutsideLayer3V_transf[0]->SetDy(0.0);
    copperOutsideLayer3V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.559);
 
    TGeoCombiTrans* kaptonOutsideLayer3V_transf[1];
    kaptonOutsideLayer3V_transf[0] = new TGeoCombiTrans();
    kaptonOutsideLayer3V_transf[0]->SetDx(0.0);
    kaptonOutsideLayer3V_transf[0]->SetDy(0.0);
    kaptonOutsideLayer3V_transf[0]->SetDz(-(copperOutsideLayer3_ZSize * 0.5 + kaptonOutsideLayer3_ZSize * 0.5)
                                          - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.559);
 
    TGeoCombiTrans* copperOutsideLayer4V_transf[1];
    copperOutsideLayer4V_transf[0] = new TGeoCombiTrans();
    copperOutsideLayer4V_transf[0]->SetDx(0.0);
    copperOutsideLayer4V_transf[0]->SetDy(0.0);
    copperOutsideLayer4V_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.763);
 
    TGeoCombiTrans* kaptonOutsideLayer4V_transf[1];
    kaptonOutsideLayer4V_transf[0] = new TGeoCombiTrans();
    kaptonOutsideLayer4V_transf[0]->SetDx(0.0);
    kaptonOutsideLayer4V_transf[0]->SetDy(0.0);
    kaptonOutsideLayer4V_transf[0]->SetDz(-(copperOutsideLayer4_ZSize * 0.5 + kaptonOutsideLayer4_ZSize * 0.5)
                                          - ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.763);
 
    layers->AddNode(copperOutsideLayer1V, 0, copperOutsideLayer1V_transf[0]);
    layers->AddNode(kaptonOutsideLayer1V, 0, kaptonOutsideLayer1V_transf[0]);
    layers->AddNode(copperOutsideLayer2V, 0, copperOutsideLayer2V_transf[0]);
    layers->AddNode(kaptonOutsideLayer2V, 0, kaptonOutsideLayer2V_transf[0]);
    layers->AddNode(copperOutsideLayer3V, 0, copperOutsideLayer3V_transf[0]);
    layers->AddNode(kaptonOutsideLayer3V, 0, kaptonOutsideLayer3V_transf[0]);
    layers->AddNode(copperOutsideLayer4V, 0, copperOutsideLayer4V_transf[0]);
    layers->AddNode(kaptonOutsideLayer4V, 0, kaptonOutsideLayer4V_transf[0]);
 
    return layers;
}
//------------------------------------------------------------------------------
 
TGeoVolume* CreateFrameForModule_Station10x10(TString frame_name)
{
 
    Int_t uniqueId = gRandom->Integer(100000);
 
    // frame volumes
    TGeoVolume* frames = new TGeoVolumeAssembly(frame_name);
    frames->SetMedium(pMedAir);
 
    // film frames --------------------------------------------------------------
    Double_t outsideFilmFrame_XSize = 12.5;   // cm
    Double_t outsideFilmFrame_YSize = 12.5;   // cm
 
    Double_t insideFilmFrame_XSize = 10.5;   // cm
    Double_t insideFilmFrame_YSize = 10.5;   // cm
 
    Double_t fiberglassFilmFrame_ZSize = 0.05;   // cm
    Double_t epoxideFilmFrame_ZSize = 0.005;     // cm;
    Double_t kaptonFilmFrame_ZSize = 0.005;      // cm;
 
    TGeoShape* fiberglassOutsideFilmFrameBlankS =
        new TGeoBBox(TString("fiberglassOutsideFilmFrameBlankS") + TString("_") + frame_name,
                     outsideFilmFrame_XSize * 0.5, outsideFilmFrame_YSize * 0.5, fiberglassFilmFrame_ZSize * 0.5);
    TGeoShape* fiberglassInsideFilmFrameBlankS =
        new TGeoBBox(TString("fiberglassInsideFilmFrameBlankS") + TString("_") + frame_name,
                     insideFilmFrame_XSize * 0.5, insideFilmFrame_YSize * 0.5, fiberglassFilmFrame_ZSize * 0.5 + 0.01);
 
    TGeoShape* epoxideOutsideFilmFrameBlankS =
        new TGeoBBox(TString("epoxideOutsideFilmFrameBlankS") + TString("_") + frame_name, outsideFilmFrame_XSize * 0.5,
                     outsideFilmFrame_YSize * 0.5, epoxideFilmFrame_ZSize * 0.5);
    TGeoShape* epoxideInsideFilmFrameBlankS =
        new TGeoBBox(TString("epoxideInsideFilmFrameBlankS") + TString("_") + frame_name, insideFilmFrame_XSize * 0.5,
                     insideFilmFrame_YSize * 0.5, epoxideFilmFrame_ZSize * 0.5 + 0.01);
 
    TGeoShape* kaptonOutsideFilmFrameBlankS =
        new TGeoBBox(TString("kaptonOutsideFilmFrameBlankS") + TString("_") + frame_name, outsideFilmFrame_XSize * 0.5,
                     outsideFilmFrame_YSize * 0.5, kaptonFilmFrame_ZSize * 0.5);
    TGeoShape* kaptonInsideFilmFrameBlankS =
        new TGeoBBox(TString("kaptonInsideFilmFrameBlankS") + TString("_") + frame_name, insideFilmFrame_XSize * 0.5,
                     insideFilmFrame_YSize * 0.5, kaptonFilmFrame_ZSize * 0.5 + 0.01);
 
    TGeoCompositeShape* fiberglassFilmFrameS = new TGeoCompositeShape();
    fiberglassFilmFrameS->SetName(TString("fiberglassFilmFrameS") += TString("_") + frame_name);
    {
        TString expression = "fiberglassOutsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
        expression += "-fiberglassInsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
 
        fiberglassFilmFrameS->MakeNode(expression);
        fiberglassFilmFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* epoxideFilmFrameS = new TGeoCompositeShape();
    epoxideFilmFrameS->SetName(TString("epoxideFilmFrameS") += TString("_") + frame_name);
    {
        TString expression = "epoxideOutsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
        expression += "-epoxideInsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
 
        epoxideFilmFrameS->MakeNode(expression);
        epoxideFilmFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* kaptonFilmFrameS = new TGeoCompositeShape();
    kaptonFilmFrameS->SetName(TString("kaptonFilmFrameS") += TString("_") + frame_name);
    {
        TString expression = "kaptonOutsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
        expression += "-kaptonInsideFilmFrameBlankS";
        expression += TString("_") + frame_name;
 
        kaptonFilmFrameS->MakeNode(expression);
        kaptonFilmFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* fiberglassFilmFrameV =
        new TGeoVolume(TString("fiberglassFilmFrameV") += TString("_") + frame_name, fiberglassFilmFrameS);
    TGeoVolume* epoxideFilmFrameV =
        new TGeoVolume(TString("epoxideFilmFrameV") += TString("_") + frame_name, epoxideFilmFrameS);
    TGeoVolume* kaptonFilmFrameV =
        new TGeoVolume(TString("kaptonFilmFrameV") += TString("_") + frame_name, kaptonFilmFrameS);
 
    TGeoMedium* fiberglassFilmFrameV_medium = pMedFiberGlass;
    if (fiberglassFilmFrameV_medium) {
        fiberglassFilmFrameV->SetMedium(fiberglassFilmFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for fiberglassFilmFrameV!");
 
    TGeoMedium* epoxideFilmFrameV_medium = pMedEpoxideCompound;
    if (epoxideFilmFrameV_medium) {
        epoxideFilmFrameV->SetMedium(epoxideFilmFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for epoxideFilmFrameV!");
 
    TGeoMedium* kaptonFilmFrameV_medium = pMedKapton;
    if (kaptonFilmFrameV_medium) {
        kaptonFilmFrameV->SetMedium(kaptonFilmFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for kaptonFilmFrameV!");
 
    // volume visual property (transparency)
    fiberglassFilmFrameV->SetLineColor(TColor::GetColor("#88ff88"));
    fiberglassFilmFrameV->SetTransparency(0);
    epoxideFilmFrameV->SetLineColor(TColor::GetColor("#ccccff"));
    epoxideFilmFrameV->SetTransparency(0);
    kaptonFilmFrameV->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonFilmFrameV->SetTransparency(0);
 
    TGeoCombiTrans* kaptonFilmFrameV_transf1[4];
    kaptonFilmFrameV_transf1[0] = new TGeoCombiTrans();
    kaptonFilmFrameV_transf1[0]->SetDx(0.0);
    kaptonFilmFrameV_transf1[0]->SetDy(0.0);
    kaptonFilmFrameV_transf1[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06);
 
    TGeoCombiTrans* epoxideFilmFrameV_transf1f[4];
    epoxideFilmFrameV_transf1f[0] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1f[0]->SetDx(0.0);
    epoxideFilmFrameV_transf1f[0]->SetDy(0.0);
    epoxideFilmFrameV_transf1f[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                         - epoxideFilmFrame_ZSize * 0.5 + 0.06);
 
    TGeoCombiTrans* epoxideFilmFrameV_transf1b[4];
    epoxideFilmFrameV_transf1b[0] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1b[0]->SetDx(0.0);
    epoxideFilmFrameV_transf1b[0]->SetDy(0.0);
    epoxideFilmFrameV_transf1b[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                         + epoxideFilmFrame_ZSize * 0.5 + 0.06);
 
    TGeoCombiTrans* fiberglassFilmFrameV_transf1f[4];
    fiberglassFilmFrameV_transf1f[0] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1f[0]->SetDx(0.0);
    fiberglassFilmFrameV_transf1f[0]->SetDy(0.0);
    fiberglassFilmFrameV_transf1f[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                            - epoxideFilmFrame_ZSize - fiberglassFilmFrame_ZSize * 0.5 + 0.06);
 
    TGeoCombiTrans* fiberglassFilmFrameV_transf1b[4];
    fiberglassFilmFrameV_transf1b[0] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1b[0]->SetDx(0.0);
    fiberglassFilmFrameV_transf1b[0]->SetDy(0.0);
    fiberglassFilmFrameV_transf1b[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                            + epoxideFilmFrame_ZSize + fiberglassFilmFrame_ZSize * 0.5 + 0.06);
 
    //-
    kaptonFilmFrameV_transf1[1] = new TGeoCombiTrans();
    kaptonFilmFrameV_transf1[1]->SetDx(0.0);
    kaptonFilmFrameV_transf1[1]->SetDy(0.0);
    kaptonFilmFrameV_transf1[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.306);
 
    epoxideFilmFrameV_transf1f[1] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1f[1]->SetDx(0.0);
    epoxideFilmFrameV_transf1f[1]->SetDy(0.0);
    epoxideFilmFrameV_transf1f[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                         - epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.306);
 
    epoxideFilmFrameV_transf1b[1] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1b[1]->SetDx(0.0);
    epoxideFilmFrameV_transf1b[1]->SetDy(0.0);
    epoxideFilmFrameV_transf1b[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                         + epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.306);
 
    fiberglassFilmFrameV_transf1f[1] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1f[1]->SetDx(0.0);
    fiberglassFilmFrameV_transf1f[1]->SetDy(0.0);
    fiberglassFilmFrameV_transf1f[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                            - epoxideFilmFrame_ZSize - fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.306);
 
    fiberglassFilmFrameV_transf1b[1] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1b[1]->SetDx(0.0);
    fiberglassFilmFrameV_transf1b[1]->SetDy(0.0);
    fiberglassFilmFrameV_transf1b[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                            + epoxideFilmFrame_ZSize + fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.306);
 
    //-
    kaptonFilmFrameV_transf1[2] = new TGeoCombiTrans();
    kaptonFilmFrameV_transf1[2]->SetDx(0.0);
    kaptonFilmFrameV_transf1[2]->SetDy(0.0);
    kaptonFilmFrameV_transf1[2]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.559);
 
    epoxideFilmFrameV_transf1f[2] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1f[2]->SetDx(0.0);
    epoxideFilmFrameV_transf1f[2]->SetDy(0.0);
    epoxideFilmFrameV_transf1f[2]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                         - epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.559);
 
    epoxideFilmFrameV_transf1b[2] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1b[2]->SetDx(0.0);
    epoxideFilmFrameV_transf1b[2]->SetDy(0.0);
    epoxideFilmFrameV_transf1b[2]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                         + epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.559);
 
    fiberglassFilmFrameV_transf1f[2] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1f[2]->SetDx(0.0);
    fiberglassFilmFrameV_transf1f[2]->SetDy(0.0);
    fiberglassFilmFrameV_transf1f[2]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                            - epoxideFilmFrame_ZSize - fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.559);
 
    fiberglassFilmFrameV_transf1b[2] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1b[2]->SetDx(0.0);
    fiberglassFilmFrameV_transf1b[2]->SetDy(0.0);
    fiberglassFilmFrameV_transf1b[2]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                            + epoxideFilmFrame_ZSize + fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.559);
 
    //-
    kaptonFilmFrameV_transf1[3] = new TGeoCombiTrans();
    kaptonFilmFrameV_transf1[3]->SetDx(0.0);
    kaptonFilmFrameV_transf1[3]->SetDy(0.0);
    kaptonFilmFrameV_transf1[3]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 + 0.763);
 
    epoxideFilmFrameV_transf1f[3] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1f[3]->SetDx(0.0);
    epoxideFilmFrameV_transf1f[3]->SetDy(0.0);
    epoxideFilmFrameV_transf1f[3]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                         - epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.763);
 
    epoxideFilmFrameV_transf1b[3] = new TGeoCombiTrans();
    epoxideFilmFrameV_transf1b[3]->SetDx(0.0);
    epoxideFilmFrameV_transf1b[3]->SetDy(0.0);
    epoxideFilmFrameV_transf1b[3]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                         + epoxideFilmFrame_ZSize * 0.5 + 0.06 + 0.763);
 
    fiberglassFilmFrameV_transf1f[3] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1f[3]->SetDx(0.0);
    fiberglassFilmFrameV_transf1f[3]->SetDy(0.0);
    fiberglassFilmFrameV_transf1f[3]->SetDz(-ZModuleSize_Station10x10 * 0.5 - kaptonFilmFrame_ZSize * 0.5
                                            - epoxideFilmFrame_ZSize - fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.763);
 
    fiberglassFilmFrameV_transf1b[3] = new TGeoCombiTrans();
    fiberglassFilmFrameV_transf1b[3]->SetDx(0.0);
    fiberglassFilmFrameV_transf1b[3]->SetDy(0.0);
    fiberglassFilmFrameV_transf1b[3]->SetDz(-ZModuleSize_Station10x10 * 0.5 + kaptonFilmFrame_ZSize * 0.5
                                            + epoxideFilmFrame_ZSize + fiberglassFilmFrame_ZSize * 0.5 + 0.06 + 0.763);
 
    frames->AddNode(kaptonFilmFrameV, 0, kaptonFilmFrameV_transf1[0]);
    frames->AddNode(epoxideFilmFrameV, 0, epoxideFilmFrameV_transf1f[0]);
    frames->AddNode(epoxideFilmFrameV, 1, epoxideFilmFrameV_transf1b[0]);
    frames->AddNode(fiberglassFilmFrameV, 0, fiberglassFilmFrameV_transf1f[0]);
    frames->AddNode(fiberglassFilmFrameV, 1, fiberglassFilmFrameV_transf1b[0]);
 
    frames->AddNode(kaptonFilmFrameV, 1, kaptonFilmFrameV_transf1[1]);
    frames->AddNode(epoxideFilmFrameV, 2, epoxideFilmFrameV_transf1f[1]);
    frames->AddNode(epoxideFilmFrameV, 3, epoxideFilmFrameV_transf1b[1]);
    frames->AddNode(fiberglassFilmFrameV, 2, fiberglassFilmFrameV_transf1f[1]);
    frames->AddNode(fiberglassFilmFrameV, 3, fiberglassFilmFrameV_transf1b[1]);
 
    frames->AddNode(kaptonFilmFrameV, 2, kaptonFilmFrameV_transf1[2]);
    frames->AddNode(epoxideFilmFrameV, 4, epoxideFilmFrameV_transf1f[2]);
    frames->AddNode(epoxideFilmFrameV, 5, epoxideFilmFrameV_transf1b[2]);
    frames->AddNode(fiberglassFilmFrameV, 4, fiberglassFilmFrameV_transf1f[2]);
    frames->AddNode(fiberglassFilmFrameV, 5, fiberglassFilmFrameV_transf1b[2]);
 
    frames->AddNode(kaptonFilmFrameV, 3, kaptonFilmFrameV_transf1[3]);
    frames->AddNode(epoxideFilmFrameV, 6, epoxideFilmFrameV_transf1f[3]);
    frames->AddNode(epoxideFilmFrameV, 7, epoxideFilmFrameV_transf1b[3]);
    frames->AddNode(fiberglassFilmFrameV, 6, fiberglassFilmFrameV_transf1f[3]);
    frames->AddNode(fiberglassFilmFrameV, 7, fiberglassFilmFrameV_transf1b[3]);
    //--------------------------------------------------------------------------
 
    // upper cover --------------------------------------------------------------
    Double_t kaptonCover_XSize = 18.3;    // cm
    Double_t kaptonCover_YSize = 18.3;    // cm
    Double_t kaptonCover_ZSize = 0.005;   // cm
 
    Double_t insideFiberglassCover_XSize = 10.4;     // cm
    Double_t insideFiberglassCover_YSize = 10.4;     // cm
    Double_t outsideFiberglassCover_XSize = 18.3;    // cm
    Double_t outsideFiberglassCover_YSize = 18.3;    // cm
    Double_t outsideFiberglassCover_ZSize = 0.175;   // cm
 
    Double_t insideCopperCover_XSize = 10.4;     // cm
    Double_t insideCopperCover_YSize = 10.4;     // cm
    Double_t outsideCopperCover_XSize = 18.3;    // cm
    Double_t outsideCopperCover_YSize = 18.3;    // cm
    Double_t outsideCopperCover_ZSize = 0.007;   // cm
 
    TGeoShape* kaptonCoverS = new TGeoBBox(TString("kaptonCoverS") + TString("_") + frame_name, kaptonCover_XSize * 0.5,
                                           kaptonCover_YSize * 0.5, kaptonCover_ZSize * 0.5);
 
    TGeoShape* fiberglassOutsideCoverBlankS = new TGeoBBox(
        TString("fiberglassOutsideCoverBlankS") + TString("_") + frame_name, outsideFiberglassCover_XSize * 0.5,
        outsideFiberglassCover_YSize * 0.5, outsideFiberglassCover_ZSize * 0.5);
    TGeoShape* fiberglassInsideCoverBlankS = new TGeoBBox(
        TString("fiberglassInsideCoverBlankS") + TString("_") + frame_name, insideFiberglassCover_XSize * 0.5,
        insideFiberglassCover_YSize * 0.5, outsideFiberglassCover_ZSize * 0.5 + 0.01);
 
    TGeoShape* copperOutsideCoverBlankS =
        new TGeoBBox(TString("copperOutsideCoverBlankS") + TString("_") + frame_name, outsideCopperCover_XSize * 0.5,
                     outsideCopperCover_YSize * 0.5, outsideCopperCover_ZSize * 0.5);
    TGeoShape* copperInsideCoverBlankS =
        new TGeoBBox(TString("copperInsideCoverBlankS") + TString("_") + frame_name, insideCopperCover_XSize * 0.5,
                     insideCopperCover_YSize * 0.5, outsideCopperCover_ZSize * 0.5 + 0.01);
 
    TGeoCompositeShape* fiberglassCoverS = new TGeoCompositeShape();
    fiberglassCoverS->SetName(TString("fiberglassCoverS") += TString("_") + frame_name);
    {
        TString expression = "fiberglassOutsideCoverBlankS";
        expression += TString("_") + frame_name;
        expression += "-fiberglassInsideCoverBlankS";
        expression += TString("_") + frame_name;
 
        fiberglassCoverS->MakeNode(expression);
        fiberglassCoverS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* copperCoverS = new TGeoCompositeShape();
    copperCoverS->SetName(TString("copperCoverS") += TString("_") + frame_name);
    {
        TString expression = "copperOutsideCoverBlankS";
        expression += TString("_") + frame_name;
        expression += "-copperInsideCoverBlankS";
        expression += TString("_") + frame_name;
 
        copperCoverS->MakeNode(expression);
        copperCoverS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* kaptonCoverV = new TGeoVolume(TString("kaptonCoverV") += TString("_") + frame_name, kaptonCoverS);
    TGeoVolume* fiberglassCoverV =
        new TGeoVolume(TString("fiberglassCoverV") += TString("_") + frame_name, fiberglassCoverS);
    TGeoVolume* copperCoverV = new TGeoVolume(TString("copperCoverV") += TString("_") + frame_name, copperCoverS);
 
    TGeoMedium* kaptonCoverV_medium = pMedKapton;
    if (kaptonCoverV_medium) {
        kaptonCoverV->SetMedium(kaptonCoverV_medium);
    } else
        Fatal("Main", "Invalid medium for kaptonCoverV!");
 
    TGeoMedium* fiberglassCoverV_medium = pMedFiberGlass;
    if (fiberglassCoverV_medium) {
        fiberglassCoverV->SetMedium(fiberglassCoverV_medium);
    } else
        Fatal("Main", "Invalid medium for fiberglassCoverV!");
 
    TGeoMedium* copperCoverV_medium = pMedKapton;
    if (copperCoverV_medium) {
        copperCoverV->SetMedium(copperCoverV_medium);
    } else
        Fatal("Main", "Invalid medium for copperCoverV!");
 
    kaptonCoverV->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonCoverV->SetTransparency(0);
    fiberglassCoverV->SetLineColor(TColor::GetColor("#88ff88"));
    fiberglassCoverV->SetTransparency(0);
    copperCoverV->SetLineColor(TColor::GetColor("#ff7538"));
    copperCoverV->SetTransparency(0);
 
    TGeoCombiTrans* kaptonCoverV_transf[1];
    kaptonCoverV_transf[0] = new TGeoCombiTrans();
    kaptonCoverV_transf[0]->SetDx(0.0);
    kaptonCoverV_transf[0]->SetDy(0.0);
    kaptonCoverV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228);
 
    TGeoCombiTrans* fiberglassCoverV_transf[1];
    fiberglassCoverV_transf[0] = new TGeoCombiTrans();
    fiberglassCoverV_transf[0]->SetDx(0.0);
    fiberglassCoverV_transf[0]->SetDy(0.0);
    fiberglassCoverV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 - kaptonCover_ZSize * 0.5
                                      - outsideFiberglassCover_ZSize * 0.5);
 
    TGeoCombiTrans* copperCoverV_transf[1];
    copperCoverV_transf[0] = new TGeoCombiTrans();
    copperCoverV_transf[0]->SetDx(0.0);
    copperCoverV_transf[0]->SetDy(0.0);
    copperCoverV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 - kaptonCover_ZSize * 0.5
                                  - outsideFiberglassCover_ZSize - outsideCopperCover_ZSize * 0.5);
 
    frames->AddNode(kaptonCoverV, 0, kaptonCoverV_transf[0]);
    frames->AddNode(fiberglassCoverV, 0, fiberglassCoverV_transf[0]);
    frames->AddNode(copperCoverV, 0, copperCoverV_transf[0]);
    //--------------------------------------------------------------------------
 
    // side frame ---------------------------------------------------------------
    Double_t insideSteelSideFrame_XSize = 14.9;    // cm
    Double_t insideSteelSideFrame_YSize = 14.9;    // cm
    Double_t outsideSteelSideFrame_XSize = 18.0;   // cm
    Double_t outsideSteelSideFrame_YSize = 18.0;   // cm
    Double_t outsideSteelSideFrame_ZSize = 0.03;   // cm
 
    Double_t insideFiberglassSideFrame_XSize = 14.9;    // cm
    Double_t insideFiberglassSideFrame_YSize = 14.9;    // cm
    Double_t outsideFiberglassSideFrame_XSize = 18.0;   // cm
    Double_t outsideFiberglassSideFrame_YSize = 18.0;   // cm
    Double_t outsideFiberglassSideFrame_ZSize = 1.2;    // cm
 
    TGeoShape* steelOutsideSideFrameBlankS = new TGeoBBox(
        TString("steelOutsideSideFrameBlankS") + TString("_") + frame_name, outsideSteelSideFrame_XSize * 0.5,
        outsideSteelSideFrame_YSize * 0.5, outsideSteelSideFrame_ZSize * 0.5);
    TGeoShape* steelInsideSideFrameBlankS = new TGeoBBox(
        TString("steelInsideSideFrameBlankS") + TString("_") + frame_name, insideSteelSideFrame_XSize * 0.5,
        insideSteelSideFrame_YSize * 0.5, outsideSteelSideFrame_ZSize * 0.5 + 0.01);
 
    TGeoShape* fiberglassOutsideSideFrameBlankS = new TGeoBBox(
        TString("fiberglassOutsideSideFrameBlankS") + TString("_") + frame_name, outsideFiberglassSideFrame_XSize * 0.5,
        outsideFiberglassSideFrame_YSize * 0.5, outsideFiberglassSideFrame_ZSize * 0.5);
    TGeoShape* fiberglassInsideSideFrameBlankS = new TGeoBBox(
        TString("fiberglassInsideSideFrameBlankS") + TString("_") + frame_name, insideFiberglassSideFrame_XSize * 0.5,
        insideFiberglassSideFrame_YSize * 0.5, outsideFiberglassSideFrame_ZSize * 0.5 + 0.01);
 
    TGeoCompositeShape* steelSideFrameS = new TGeoCompositeShape();
    steelSideFrameS->SetName(TString("steelSideFrameS") += TString("_") + frame_name);
    {
        TString expression = "steelOutsideSideFrameBlankS";
        expression += TString("_") + frame_name;
        expression += "-steelInsideSideFrameBlankS";
        expression += TString("_") + frame_name;
 
        steelSideFrameS->MakeNode(expression);
        steelSideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoCompositeShape* fiberglassSideFrameS = new TGeoCompositeShape();
    fiberglassSideFrameS->SetName(TString("fiberglassSideFrameS") += TString("_") + frame_name);
    {
        TString expression = "fiberglassOutsideSideFrameBlankS";
        expression += TString("_") + frame_name;
        expression += "-fiberglassInsideSideFrameBlankS";
        expression += TString("_") + frame_name;
 
        fiberglassSideFrameS->MakeNode(expression);
        fiberglassSideFrameS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* steelSideFrameV =
        new TGeoVolume(TString("steelSideFrameV") += TString("_") + frame_name, steelSideFrameS);
    TGeoVolume* fiberglassSideFrameV =
        new TGeoVolume(TString("fiberglassSideFrameV") += TString("_") + frame_name, fiberglassSideFrameS);
 
    TGeoMedium* steelSideFrameV_medium = pMedSteel;
    if (steelSideFrameV_medium) {
        steelSideFrameV->SetMedium(steelSideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for steelSideFrameV!");
 
    TGeoMedium* fiberglassSideFrameV_medium = pMedFiberGlass;
    if (fiberglassSideFrameV_medium) {
        fiberglassSideFrameV->SetMedium(fiberglassSideFrameV_medium);
    } else
        Fatal("Main", "Invalid medium for fiberglassSideFrameV!");
 
    steelSideFrameV->SetLineColor(TColor::GetColor("#42aaff"));
    steelSideFrameV->SetTransparency(0);
 
    fiberglassSideFrameV->SetLineColor(TColor::GetColor("#88ff88"));
    fiberglassSideFrameV->SetTransparency(0);
 
    TGeoCombiTrans* steelSideFrameV_transf[1];
    steelSideFrameV_transf[0] = new TGeoCombiTrans();
    steelSideFrameV_transf[0]->SetDx(0.0);
    steelSideFrameV_transf[0]->SetDy(0.0);
    steelSideFrameV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                     + outsideSteelSideFrame_ZSize * 0.5);
 
    TGeoCombiTrans* fiberglassSideFrameV_transf[1];
    fiberglassSideFrameV_transf[0] = new TGeoCombiTrans();
    fiberglassSideFrameV_transf[0]->SetDx(0.0);
    fiberglassSideFrameV_transf[0]->SetDy(0.0);
    fiberglassSideFrameV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228
                                          + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
                                          + outsideFiberglassSideFrame_ZSize * 0.5);
 
    frames->AddNode(steelSideFrameV, 0, steelSideFrameV_transf[0]);
    frames->AddNode(fiberglassSideFrameV, 0, fiberglassSideFrameV_transf[0]);
    //--------------------------------------------------------------------------
 
    // support plane ------------------------------------------------------------
    Double_t copperSupportPlane_XSize = 24.0;    // cm
    Double_t copperSupportPlane_YSize = 24.0;    // cm
    Double_t copperSupportPlane_ZSize = 0.001;   // cm
 
    Double_t kaptonSupportPlane_XSize = 24.0;    // cm
    Double_t kaptonSupportPlane_YSize = 24.0;    // cm
    Double_t kaptonSupportPlane_ZSize = 0.005;   // cm
 
    Double_t fiberglassSupportPlane_XSize = 24.0;   // cm
    Double_t fiberglassSupportPlane_YSize = 24.0;   // cm
    Double_t fiberglassSupportPlane_ZSize = 0.17;   // cm
 
    TGeoShape* copperSupportPlaneS =
        new TGeoBBox(TString("copperSupportPlaneS") + TString("_") + frame_name, copperSupportPlane_XSize * 0.5,
                     copperSupportPlane_YSize * 0.5, copperSupportPlane_ZSize * 0.5);
    TGeoShape* kaptonSupportPlaneS =
        new TGeoBBox(TString("kaptonSupportPlaneS") + TString("_") + frame_name, kaptonSupportPlane_XSize * 0.5,
                     kaptonSupportPlane_YSize * 0.5, kaptonSupportPlane_ZSize * 0.5);
    TGeoShape* fiberglassSupportPlaneS =
        new TGeoBBox(TString("fiberglassSupportPlaneS") + TString("_") + frame_name, fiberglassSupportPlane_XSize * 0.5,
                     fiberglassSupportPlane_YSize * 0.5, fiberglassSupportPlane_ZSize * 0.5);
 
    TGeoVolume* copperSupportPlaneV =
        new TGeoVolume(TString("copperSupportPlaneV") += TString("_") + frame_name, copperSupportPlaneS);
    TGeoVolume* kaptonSupportPlaneV =
        new TGeoVolume(TString("kaptonSupportPlaneV") += TString("_") + frame_name, kaptonSupportPlaneS);
    TGeoVolume* fiberglassSupportPlaneV =
        new TGeoVolume(TString("fiberglassSupportPlaneV") += TString("_") + frame_name, fiberglassSupportPlaneS);
 
    TGeoMedium* copperSupportPlaneV_medium = pMedCopper;
    if (copperSupportPlaneV_medium) {
        copperSupportPlaneV->SetMedium(copperSupportPlaneV_medium);
    } else
        Fatal("Main", "Invalid medium for copperSupportPlaneV!");
 
    TGeoMedium* kaptonSupportPlaneV_medium = pMedKapton;
    if (kaptonSupportPlaneV_medium) {
        kaptonSupportPlaneV->SetMedium(kaptonSupportPlaneV_medium);
    } else
        Fatal("Main", "Invalid medium for kaptonSupportPlaneV!");
 
    TGeoMedium* fiberglassSupportPlaneV_medium = pMedFiberGlass;
    if (fiberglassSupportPlaneV_medium) {
        fiberglassSupportPlaneV->SetMedium(fiberglassSupportPlaneV_medium);
    } else
        Fatal("Main", "Invalid medium for fiberglassSupportPlaneV!");
 
    copperSupportPlaneV->SetLineColor(TColor::GetColor("#ff7538"));
    copperSupportPlaneV->SetTransparency(0);
    kaptonSupportPlaneV->SetLineColor(TColor::GetColor("#aeae22"));
    kaptonSupportPlaneV->SetTransparency(0);
    fiberglassSupportPlaneV->SetLineColor(TColor::GetColor("#88ff88"));
    fiberglassSupportPlaneV->SetTransparency(0);
 
    TGeoCombiTrans* copperSupportPlaneV_transf[1];
    copperSupportPlaneV_transf[0] = new TGeoCombiTrans();
    copperSupportPlaneV_transf[0]->SetDx(0.0);
    copperSupportPlaneV_transf[0]->SetDy(0.0);
    copperSupportPlaneV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228
                                         + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
                                         + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize * 0.5);
 
    TGeoCombiTrans* kaptonSupportPlaneV_transf[1];
    kaptonSupportPlaneV_transf[0] = new TGeoCombiTrans();
    kaptonSupportPlaneV_transf[0]->SetDx(0.0);
    kaptonSupportPlaneV_transf[0]->SetDy(0.0);
    kaptonSupportPlaneV_transf[0]->SetDz(
        -ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
        + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize * 0.5);
 
    TGeoCombiTrans* fiberglassSupportPlaneV_transf[1];
    fiberglassSupportPlaneV_transf[0] = new TGeoCombiTrans();
    fiberglassSupportPlaneV_transf[0]->SetDx(0.0);
    fiberglassSupportPlaneV_transf[0]->SetDy(0.0);
    fiberglassSupportPlaneV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228
                                             + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
                                             + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize
                                             + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize * 0.5);
 
    frames->AddNode(copperSupportPlaneV, 0, copperSupportPlaneV_transf[0]);
    frames->AddNode(kaptonSupportPlaneV, 0, kaptonSupportPlaneV_transf[0]);
    frames->AddNode(fiberglassSupportPlaneV, 0, fiberglassSupportPlaneV_transf[0]);
    //--------------------------------------------------------------------------
 
    // fiberglass base ----------------------------------------------------------
    Double_t fiberglassBase_XSize = 70.0;    // cm
    Double_t fiberglassBase_YSize = 40.5;    // cm
    Double_t fiberglassBase_ZSize = 0.225;   // cm
 
    Double_t fiberglassBaseWindow_XSize = 11.0;    // cm
    Double_t fiberglassBaseWindow_YSize = 11.5;    // cm
    Double_t fiberglassBaseWindow_ZSize = 0.225;   // cm
 
    Double_t fiberglassBaseWindow_YShift = 4.25;   // cm
 
    TGeoShape* fiberglassBaseBlankS =
        new TGeoBBox(TString("fiberglassBaseBlankS") + TString("_") + frame_name, fiberglassBase_XSize * 0.5,
                     fiberglassBase_YSize * 0.5, fiberglassBase_ZSize * 0.5);
    TGeoShape* fiberglassBaseWindowS =
        new TGeoBBox(TString("fiberglassBaseWindowS") + TString("_") + frame_name, fiberglassBaseWindow_XSize * 0.5,
                     fiberglassBaseWindow_YSize * 0.5, fiberglassBaseWindow_ZSize * 0.5 + 0.01);
 
    TGeoTranslation* fiberglassBaseWindow_pos = new TGeoTranslation();
    fiberglassBaseWindow_pos->SetName(TString("fiberglassBaseWindow_pos") + TString("_") + frame_name);
    fiberglassBaseWindow_pos->SetDx(0.0);
    fiberglassBaseWindow_pos->SetDy(fiberglassBaseWindow_YShift);
    fiberglassBaseWindow_pos->SetDz(0.0);
    fiberglassBaseWindow_pos->RegisterYourself();
 
    TGeoCompositeShape* fiberglassBaseS = new TGeoCompositeShape();
    fiberglassBaseS->SetName(TString("fiberglassBaseS") += TString("_") + frame_name);
    {
        TString expression = "fiberglassBaseBlankS";
        expression += TString("_") + frame_name;
        expression += ":fiberglassBaseWindow_pos";
        expression += TString("_") + frame_name;
        expression += "-fiberglassBaseWindowS";
        expression += TString("_") + frame_name;
 
        fiberglassBaseS->MakeNode(expression);
        fiberglassBaseS->ComputeBBox();   // need to compute a bounding box
    }
 
    TGeoVolume* fiberglassBaseV =
        new TGeoVolume(TString("fiberglassBaseV") += TString("_") + frame_name, fiberglassBaseS);
 
    TGeoMedium* fiberglassBaseV_medium = pMedFiberGlass;
    if (fiberglassBaseV_medium) {
        fiberglassBaseV->SetMedium(fiberglassBaseV_medium);
    } else
        Fatal("Main", "Invalid medium for fiberglassBaseV!");
 
    fiberglassBaseV->SetLineColor(TColor::GetColor("#88ffaa"));
    fiberglassBaseV->SetTransparency(0);
 
    TGeoCombiTrans* fiberglassBaseV_transf[1];
    fiberglassBaseV_transf[0] = new TGeoCombiTrans();
    fiberglassBaseV_transf[0]->SetDx(0.0);
    fiberglassBaseV_transf[0]->SetDy(0.0);
    fiberglassBaseV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                     + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                                     + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize
                                     + fiberglassSupportPlane_ZSize + fiberglassBase_ZSize * 0.5 + 0.3);
 
    frames->AddNode(fiberglassBaseV, 0, fiberglassBaseV_transf[0]);
    //--------------------------------------------------------------------------
 
    // bottom PCB ---------------------------------------------------------------
    Double_t bottomPCB_XSize = 7.0;    // cm
    Double_t bottomPCB_YSize = 13.5;   // cm
    Double_t bottomPCB_ZSize = 0.15;   // cm
 
    TGeoShape* bottomPCBS = new TGeoBBox(TString("bottomPCBS") + TString("_") + frame_name, bottomPCB_XSize * 0.5,
                                         bottomPCB_YSize * 0.5, bottomPCB_ZSize * 0.5);
 
    TGeoVolume* bottomPCBV = new TGeoVolume(TString("bottomPCBV") += TString("_") + frame_name, bottomPCBS);
 
    TGeoMedium* bottomPCBV_medium = pMedFiberGlass;
    if (bottomPCBV_medium) {
        bottomPCBV->SetMedium(bottomPCBV_medium);
    } else
        Fatal("Main", "Invalid medium for bottomPCBV!");
 
    bottomPCBV->SetLineColor(TColor::GetColor("#88ff88"));
    bottomPCBV->SetTransparency(0);
 
    TGeoCombiTrans* bottomPCBV_transf[2];
    bottomPCBV_transf[0] = new TGeoCombiTrans();
    bottomPCBV_transf[0]->SetDx(+18.0 - bottomPCB_XSize * 0.5);
    bottomPCBV_transf[0]->SetDy(0.0);
    bottomPCBV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                                + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize
                                + 0.3 - bottomPCB_ZSize * 0.5 - 0.776);
 
    bottomPCBV_transf[1] = new TGeoCombiTrans();
    bottomPCBV_transf[1]->SetDx(+18.0 - bottomPCB_XSize * 0.5);
    bottomPCBV_transf[1]->SetDy(0.0);
    bottomPCBV_transf[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                                + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize
                                + 0.3 - bottomPCB_ZSize * 0.5 - 0.776);
    bottomPCBV_transf[1]->RotateZ(90.0);
 
    frames->AddNode(bottomPCBV, 0, bottomPCBV_transf[0]);
    frames->AddNode(bottomPCBV, 1, bottomPCBV_transf[1]);
    //--------------------------------------------------------------------------
 
    // amplifier PCB ------------------------------------------------------------
    Double_t amplifierPCB_XSize = 0.15;   // cm
    Double_t amplifierPCB_YSize = 13.5;   // cm
    Double_t amplifierPCB_ZSize = 8.5;    // cm
 
    TGeoShape* amplifierPCBS =
        new TGeoBBox(TString("amplifierPCBS") + TString("_") + frame_name, amplifierPCB_XSize * 0.5,
                     amplifierPCB_YSize * 0.5, amplifierPCB_ZSize * 0.5);
 
    TGeoVolume* amplifierPCBV = new TGeoVolume(TString("amplifierPCBV") += TString("_") + frame_name, amplifierPCBS);
 
    TGeoMedium* amplifierPCBV_medium = pMedFiberGlass;
    if (amplifierPCBV_medium) {
        amplifierPCBV->SetMedium(amplifierPCBV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierPCBV!");
 
    amplifierPCBV->SetLineColor(TColor::GetColor("#88ff88"));
    amplifierPCBV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierPCBV_transf[2];
    amplifierPCBV_transf[0] = new TGeoCombiTrans();
    amplifierPCBV_transf[0]->SetDx(+18.0 - amplifierPCB_XSize * 0.5 - 0.9);
    amplifierPCBV_transf[0]->SetDy(0.0);
    amplifierPCBV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                   + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                                   + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize
                                   + 0.3 - bottomPCB_ZSize - 0.776 - amplifierPCB_ZSize * 0.5);
 
    amplifierPCBV_transf[1] = new TGeoCombiTrans();
    amplifierPCBV_transf[1]->SetDx(+18.0 - amplifierPCB_XSize * 0.5 - 0.9);
    amplifierPCBV_transf[1]->SetDy(0.0);
    amplifierPCBV_transf[1]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                                   + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                                   + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize
                                   + 0.3 - bottomPCB_ZSize - 0.776 - amplifierPCB_ZSize * 0.5);
    amplifierPCBV_transf[1]->RotateZ(90.0);
 
    frames->AddNode(amplifierPCBV, 0, amplifierPCBV_transf[0]);
    frames->AddNode(amplifierPCBV, 1, amplifierPCBV_transf[1]);
    //--------------------------------------------------------------------------
 
    // amplifier support --------------------------------------------------------
    Double_t amplifierSupport_XSize = 5.0;    // cm
    Double_t amplifierSupport_YSize = 0.2;    // cm
    Double_t amplifierSupport_ZSize = 14.5;   // cm
 
    TGeoShape* amplifierSupportS =
        new TGeoBBox(TString("amplifierSupportS") + TString("_") + frame_name, amplifierSupport_XSize * 0.5,
                     amplifierSupport_YSize * 0.5, amplifierSupport_ZSize * 0.5);
 
    TGeoVolume* amplifierSupportV =
        new TGeoVolume(TString("amplifierSupportV") += TString("_") + frame_name, amplifierSupportS);
 
    TGeoMedium* amplifierSupportV_medium = pMedAluminium;
    if (amplifierSupportV_medium) {
        amplifierSupportV->SetMedium(amplifierSupportV_medium);
    } else
        Fatal("Main", "Invalid medium for amplifierSupportV!");
 
    amplifierSupportV->SetLineColor(TColor::GetColor("#ffcccc"));
    amplifierSupportV->SetTransparency(0);
 
    TGeoCombiTrans* amplifierSupportV_transf[4];
    amplifierSupportV_transf[0] = new TGeoCombiTrans();
    amplifierSupportV_transf[0]->SetDx(+23.7 - amplifierSupport_XSize * 0.5);
    amplifierSupportV_transf[0]->SetDy(-5.0 + amplifierSupport_YSize * 0.5);
    amplifierSupportV_transf[0]->SetDz(
        -ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
        + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize
        + fiberglassSupportPlane_ZSize + 0.3 - bottomPCB_ZSize - amplifierSupport_ZSize * 0.5);
 
    amplifierSupportV_transf[1] = new TGeoCombiTrans();
    amplifierSupportV_transf[1]->SetDx(+23.7 - amplifierSupport_XSize * 0.5);
    amplifierSupportV_transf[1]->SetDy(-5.0 + amplifierSupport_YSize * 0.5 + 7.0);
    amplifierSupportV_transf[1]->SetDz(
        -ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
        + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize
        + fiberglassSupportPlane_ZSize + 0.3 - bottomPCB_ZSize - amplifierSupport_ZSize * 0.5);
 
    amplifierSupportV_transf[2] = new TGeoCombiTrans();
    amplifierSupportV_transf[2]->SetDx(+23.7 - amplifierSupport_XSize * 0.5);
    amplifierSupportV_transf[2]->SetDy(-5.0 + amplifierSupport_YSize * 0.5);
    amplifierSupportV_transf[2]->SetDz(
        -ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
        + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize
        + fiberglassSupportPlane_ZSize + 0.3 - bottomPCB_ZSize - amplifierSupport_ZSize * 0.5);
    amplifierSupportV_transf[2]->RotateZ(90.0);
 
    amplifierSupportV_transf[3] = new TGeoCombiTrans();
    amplifierSupportV_transf[3]->SetDx(+23.7 - amplifierSupport_XSize * 0.5);
    amplifierSupportV_transf[3]->SetDy(-5.0 + amplifierSupport_YSize * 0.5 + 7.0);
    amplifierSupportV_transf[3]->SetDz(
        -ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5 + outsideSteelSideFrame_ZSize
        + outsideFiberglassSideFrame_ZSize + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize
        + fiberglassSupportPlane_ZSize + 0.3 - bottomPCB_ZSize - amplifierSupport_ZSize * 0.5);
    amplifierSupportV_transf[3]->RotateZ(90.0);
 
    frames->AddNode(amplifierSupportV, 0, amplifierSupportV_transf[0]);
    frames->AddNode(amplifierSupportV, 1, amplifierSupportV_transf[1]);
    frames->AddNode(amplifierSupportV, 2, amplifierSupportV_transf[2]);
    frames->AddNode(amplifierSupportV, 3, amplifierSupportV_transf[3]);
    //--------------------------------------------------------------------------
 
    // long PCB -----------------------------------------------------------------
    Double_t longPCB_XSize = 0.2;    // cm
    Double_t longPCB_YSize = 35.0;   // cm
    Double_t longPCB_ZSize = 4.0;    // cm
 
    TGeoShape* longPCBS = new TGeoBBox(TString("longPCBS") + TString("_") + frame_name, longPCB_XSize * 0.5,
                                       longPCB_YSize * 0.5, longPCB_ZSize * 0.5);
 
    TGeoVolume* longPCBV = new TGeoVolume(TString("longPCBV") += TString("_") + frame_name, longPCBS);
 
    TGeoMedium* longPCBV_medium = pMedFiberGlass;
    if (longPCBV_medium) {
        longPCBV->SetMedium(longPCBV_medium);
    } else
        Fatal("Main", "Invalid medium for longPCBV!");
 
    longPCBV->SetLineColor(TColor::GetColor("#88ff88"));
    longPCBV->SetTransparency(0);
 
    TGeoCombiTrans* longPCBV_transf[4];
    longPCBV_transf[0] = new TGeoCombiTrans();
    longPCBV_transf[0]->SetDx(+23.7 + longPCB_XSize * 0.5);
    longPCBV_transf[0]->SetDy(-13.0 + longPCB_YSize * 0.5);
    longPCBV_transf[0]->SetDz(-ZModuleSize_Station10x10 * 0.5 + 0.06 - 0.228 + fiberglassFilmFrame_ZSize * 0.5
                              + outsideSteelSideFrame_ZSize + outsideFiberglassSideFrame_ZSize
                              + copperSupportPlane_ZSize + kaptonSupportPlane_ZSize + fiberglassSupportPlane_ZSize + 0.3
                              - bottomPCB_ZSize - 14.5 + longPCB_ZSize * 0.5);
 
    frames->AddNode(longPCBV, 0, longPCBV_transf[0]);
    //--------------------------------------------------------------------------
 
    return frames;
}
//------------------------------------------------------------------------------