BDSLinkDetectorConstruction.cc

/* 
Beam Delivery Simulation (BDSIM) Copyright (C) BDSIM Collaboration, 2001 - 2026.
 
This file is part of BDSIM.
 
BDSIM is free software: you can redistribute it and/or modify 
it under the terms of the GNU General Public License as published 
by the Free Software Foundation version 3 of the License.
 
BDSIM is distributed in the hope that it will be useful, but 
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with BDSIM.  If not, see <http://www.gnu.org/licenses/>.
*/
#include "BDSAcceleratorModel.hh"
#include "BDSBeamline.hh"
#include "BDSBeamlineElement.hh"
#include "BDSBeamlineIntegral.hh"
#include "BDSComponentFactory.hh"
#include "BDSCrystalInfo.hh"
#include "BDSDebug.hh"
#include "BDSException.hh"
#include "BDSExtent.hh"
#include "BDSExtentGlobal.hh"
#include "BDSGlobalConstants.hh"
#include "BDSLinkComponent.hh"
#include "BDSLinkDetectorConstruction.hh"
#include "BDSLinkOpaqueBox.hh"
#include "BDSLinkPrimaryGeneratorAction.hh"
#include "BDSLinkRegistry.hh"
#include "BDSMaterials.hh"
#include "BDSParallelWorldSampler.hh"
#include "BDSParser.hh"
#include "BDSSampler.hh"
#include "BDSSamplerInfo.hh"
#include "BDSSamplerPlane.hh"
#include "BDSSamplerRegistry.hh"
#include "BDSSamplerType.hh"
#include "BDSSDManager.hh"
#include "BDSTiltOffset.hh"
 
#include "parser/element.h"
#include "parser/elementtype.h"
 
#include "G4Box.hh"
#include "G4PVPlacement.hh"
#include "G4String.hh"
#include "G4ThreeVector.hh"
#include "G4Types.hh"
#include "G4Version.hh"
#include "G4VisAttributes.hh"
#if G4VERSION_NUMBER > 1039
#include "G4ChannelingOptrMultiParticleChangeCrossSection.hh"
#endif
 
#include <set>
#include <vector>
 
class BDSParticleDefinition;
 
BDSLinkDetectorConstruction::BDSLinkDetectorConstruction():
  worldSolid(nullptr),
  worldPV(nullptr),
  linkBeamline(nullptr),
  linkRegistry(nullptr),
  primaryGeneratorAction(nullptr),
  designParticle(nullptr),
#if G4VERSION_NUMBER > 1039
  crystalBiasing(nullptr),
#endif
  samplerWorldID(-1),
  integral(nullptr)
{
  linkRegistry = new BDSLinkRegistry();
  BDSSDManager::Instance()->SetLinkRegistry(linkRegistry);
}
 
BDSLinkDetectorConstruction::~BDSLinkDetectorConstruction()
{
  delete linkBeamline;
  delete linkRegistry;
#if G4VERSION_NUMBER > 1039
  delete crystalBiasing;
#endif
  delete integral;
}
 
G4VPhysicalVolume* BDSLinkDetectorConstruction::Construct()
{
  BDSGlobalConstants* globalConstants = BDSGlobalConstants::Instance();
 
  auto componentFactory = std::unique_ptr<BDSComponentFactory>(new BDSComponentFactory(nullptr, false));
  auto beamline = BDSParser::Instance()->GetBeamline();
 
  std::vector<BDSLinkOpaqueBox*> opaqueBoxes = {};
  linkBeamline = new BDSBeamline();
  
  auto acceleratorModel = BDSAcceleratorModel::Instance();
  if (!integral)
    {
      if (!designParticle)
        {throw BDSException(__METHOD_NAME__, "designParticle must be set first");}
      integral = new BDSBeamlineIntegral(*designParticle);
    }
  for (const auto& element : beamline)
    {
      GMAD::ElementType eType = element.type;
 
      if (eType == GMAD::ElementType::_LINE || eType == GMAD::ElementType::_REV_LINE)
        {continue;}
      
      std::set<GMAD::ElementType> acceptedTypes = {GMAD::ElementType::_ECOL,
                                                   GMAD::ElementType::_RCOL,
                           GMAD::ElementType::_BMCOL,
                                                   GMAD::ElementType::_JCOL,
                                                   GMAD::ElementType::_CRYSTALCOL,
                                                   GMAD::ElementType::_ELEMENT};
      auto search = acceptedTypes.find(eType);
      if (search == acceptedTypes.end())
        {throw BDSException(G4String("Unsupported element type for link = " + GMAD::typestr(eType)));}
 
      // Only need first argument, the rest pertain to beamlines.
      BDSAcceleratorComponent* component = componentFactory->CreateComponent(&element,
                                                                             nullptr,
                                                                             nullptr,
                                                                             *integral);
 
      BDSTiltOffset* to = new BDSTiltOffset(element.offsetX * CLHEP::m,
                                            element.offsetY * CLHEP::m,
                                            element.tilt * CLHEP::rad);
      auto extentTiltOffset = component->GetExtent().TiltOffset(to);
      G4double encompassingRadius = extentTiltOffset.TransverseBoundingRadius();
      BDSLinkOpaqueBox* opaqueBox = new BDSLinkOpaqueBox(component, to, encompassingRadius);
      
      delete to; // opaqueBox doesn't own it
      opaqueBoxes.push_back(opaqueBox);
 
      BDSLinkComponent* comp = new BDSLinkComponent(opaqueBox->GetName(),
                                                        opaqueBox,
                                                        opaqueBox->GetExtent().DZ());
      acceleratorModel->RegisterLinkComponent(comp); // memory management
      nameToElementIndex[element.name] = (G4int)linkBeamline->size();
      linkBeamline->AddComponent(comp);
    }
 
  // update world extents and world solid
  UpdateWorldSolid();
  
  G4LogicalVolume* worldLV = new G4LogicalVolume(worldSolid,
                                                 BDSMaterials::Instance()->GetMaterial("G4_Galactic"),
                                                 "world_lv");
 
  G4VisAttributes* debugWorldVis = new G4VisAttributes(*(BDSGlobalConstants::Instance()->ContainerVisAttr()));
  debugWorldVis->SetForceWireframe(true);//just wireframe so we can see inside it
  worldLV->SetVisAttributes(debugWorldVis);
  worldLV->SetUserLimits(globalConstants->DefaultUserLimits());
 
  worldPV = new G4PVPlacement(nullptr,
                                   G4ThreeVector(),
                                   worldLV,
                                   "world_pv",
                                   nullptr,
                                   false,
                                   0,
                                   true);
 
  // place any defined link elements in input
  for (auto element : *linkBeamline)
    {
      BDSLinkComponent* lc = dynamic_cast<BDSLinkComponent*>(element->GetAcceleratorComponent());
      BDSSamplerInfo* samplerInfo = element->GetSamplerInfo();
      G4String samplerName = samplerInfo ? samplerInfo->name : "unknown";
      G4String name = lc ? lc->LinkName() : samplerName;
      G4int linkID = PlaceOneComponent(element, name);
      nameToElementIndex[name] = linkID;
    }
 
  return worldPV;
}
 
G4int BDSLinkDetectorConstruction::AddLinkCollimatorJaw(const std::string& collimatorName,
                                                                                            const std::string& materialName,
                                                        G4double length,
                                                        G4double halfApertureLeft,
                                                        G4double halfApertureRight,
                                                        G4double rotation,
                                                        G4double xOffset,
                                                        G4double yOffset,
                                                        G4double jawTiltLeft,
                                                        G4double jawTiltright,
                                                        G4bool   buildLeftJaw,
                                                        G4bool   buildRightJaw,
                                                        G4bool   isACrystalIn,
                                                        G4double crystalAngle,
                                                        G4bool   /*sampleIn*/)
{
  auto componentFactory = std::unique_ptr<BDSComponentFactory>(new BDSComponentFactory(nullptr, false));
 
  if (!integral)
    {
      if (!designParticle)
        {throw BDSException(__METHOD_NAME__, "designParticle must be set first");}
      integral = new BDSBeamlineIntegral(*designParticle);
    }
  // TBC - here we could just update the synchronous time in the integral object if we need it
  
  std::map<std::string, std::string> collimatorToCrystal =
    {
     {"cry.mio.b1", "stf75"},   // b1 h
     {"cry.mio.b2", "tcp76"},   // b2 h
     {"tcpv.a6l7.b1", "qmp34"}, // b1 v
     {"tcpv.a6r7.b2", "qmp53"}, // b2 v
     {"tcpch.a4l7.b1", "stf75"},// b1 h new name
     {"tcpcv.a6l7.b1", "tcp76"} // b2 v new name
    };
  G4String collimatorLower = BDS::LowerCase(collimatorName);
  auto searchC = collimatorToCrystal.find(collimatorLower); // will use later if needed
  G4bool isACrystal = searchC != collimatorToCrystal.end();
  if (!isACrystal && isACrystalIn)
    {throw BDSException("BDSLinkDetectorConstruction", "no matching crystal name found but it is flagged as a crystal in input");}
  //G4cout << "XYZ isACrystal " << isACrystal << G4endl;
  if (isACrystal)
    {G4cout << "crystal name " << searchC->first << " " << searchC->second << G4endl;}
 
  std::map<std::string, std::string> sixtrackToBDSIM =
      {
          {"CU", "Cu"},
          {"W",  "W"},
          {"C",  "G4_GRAPHITE_POROUS"},
          {"Si", "Si"},
          {"SI", "Si"}
      };
  std::string g4material;
  auto search = sixtrackToBDSIM.find(materialName);
  if (search != sixtrackToBDSIM.end())
    {g4material = search->second;}
  else
    {g4material = materialName;}
 
  // build component
  GMAD::Element el = GMAD::Element();
  el.type     = GMAD::ElementType::_JCOL;
  el.name     = collimatorName;
  el.material = g4material;
  el.l        = length / CLHEP::m;
  el.xsizeLeft  = halfApertureLeft / CLHEP::m;
  el.xsizeRight = halfApertureRight / CLHEP::m;
  el.ysize    = 0.2; // half size
  el.tilt     = rotation / CLHEP::rad;
  el.offsetX  = xOffset / CLHEP::m;
  el.offsetY  = yOffset / CLHEP::m;
  el.horizontalWidth = 2.0; // m
  el.jawTiltLeft = jawTiltLeft; // rad
  el.jawTiltRight = jawTiltright; // rad
 
  // if we don't want to build a jaw, then we set it to outside the width.
  if (!buildLeftJaw)
    {el.xsizeLeft = el.horizontalWidth * 1.2;}
  if (!buildRightJaw)
    {el.xsizeRight = el.horizontalWidth * 1.2;}
 
  if (isACrystal)
    {
      // find the bending angle of this particular crystal
      // so we can add half of that on for the BDSIM convention of the 0 about the centre for crystals
      G4String crystalNameC = searchC->second;
      G4cout << "crystal name " << crystalNameC << G4endl;
      BDSCrystalInfo* ci = componentFactory->PrepareCrystalInfo(crystalNameC);
      crystalAngle *= CLHEP::rad;
 
      // crucial - crystal only responds to xsize - not xsizeLeft
      el.xsize = el.xsizeLeft;
      
      el.type = GMAD::ElementType::_CRYSTALCOL;
      el.apertureType = "circularvacuum";
      el.aper1 = 0.5; // m
      // need a small margin in length as crystal may have angled face and be rotated
      el.l += 10e-6; // TODO - confirm margin with sixtrack interface backtracking on input side
      if (collimatorName.find('2') != std::string::npos) // b2
        {
          el.crystalLeft = crystalNameC;
          el.crystalAngleYAxisLeft = crystalAngle + 0.5 * ci->bendingAngleYAxis;
        }
      else
        {
          el.crystalRight = crystalNameC;
          el.crystalAngleYAxisRight = crystalAngle + 0.5 * ci->bendingAngleYAxis;
        }
      
      G4cout << "Crystal angle " << crystalAngle << G4endl;
      G4cout << "xsizeLeft     " << el.xsizeLeft << G4endl;
      G4cout << "xsizeRight    " << el.xsizeRight << G4endl;
      G4cout << "l crystal angle " << el.crystalAngleYAxisLeft << G4endl;
      G4cout << "r crystal angle " << el.crystalAngleYAxisRight << G4endl;
      G4cout << "rotation (tilt) " << el.tilt << G4endl;
      delete ci; // no longer needed
    }
  else
    {el.region = "r1";} // stricter range cuts for default collimators
    
  BDSAcceleratorComponent* component = nullptr;
  try
    {component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);}
  catch (const BDSException& e)
    {
      G4cout << e.what() << G4endl;
      G4cout << "Replacing component " << el.name << " with drift" << G4endl;
      // well it didn't work (maybe ridiculous unphysical gap - so replace it with a drift
      el.type = GMAD::ElementType::_DRIFT;
      el.apertureType = "circularvacuum";
      component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);
    }
 
  // wrap in box
  BDSTiltOffset* to = new BDSTiltOffset(el.offsetX * CLHEP::m,
                                        el.offsetY * CLHEP::m,
                                        el.tilt * CLHEP::rad);
  auto extentTiltOffset = component->GetExtent().TiltOffset(to);
  G4double encompassingRadius = extentTiltOffset.TransverseBoundingRadius();
  BDSLinkOpaqueBox* opaqueBox = new BDSLinkOpaqueBox(component, to, encompassingRadius);
  
  // add to beam line
  BDSLinkComponent* comp = new BDSLinkComponent(opaqueBox->GetName(),
                                                opaqueBox,
                                                opaqueBox->GetExtent().DZ());
  BDSAcceleratorModel::Instance()->RegisterLinkComponent(comp);
  BDSSamplerInfo* samplerInfo = new BDSSamplerInfo(comp->GetName() + "_out", BDSSamplerType::plane);
  linkBeamline->AddComponent(comp, nullptr, samplerInfo);
 
  // update world extents and world solid
  UpdateWorldSolid();
 
  // place that one element
  G4int linkID = PlaceOneComponent(linkBeamline->back(), collimatorName);
  nameToElementIndex[collimatorName] = linkID;
  linkIDToBeamlineIndex[linkID] = (G4int)linkBeamline->size() - 1;
 
  // update crystal biasing
  BuildPhysicsBias();
 
  return linkID;
}
 
G4int BDSLinkDetectorConstruction::AddLinkCollimatorTipJaw(const std::string& collimatorName,
                                                          const std::string& materialName,
                                                          const std::string& tipMaterialName,
                                                          G4double tipThickness,
                                                          G4double length,
                                                          G4double halfApertureLeft,
                                                          G4double halfApertureRight,
                                                          G4double rotation,
                                                          G4double xOffset,
                                                          G4double yOffset,
                                                          G4double jawTiltLeft,
                                                          G4double jawTiltRight,
                                                          G4bool   buildLeftJaw,
                                                          G4bool   buildRightJaw)
{
    auto componentFactory = std::unique_ptr<BDSComponentFactory>(new BDSComponentFactory(nullptr, false));
 
    if (!integral)
    {
        if (!designParticle)
        {
            throw BDSException(__METHOD_NAME__, "designParticle must be set first");
        }
        integral = new BDSBeamlineIntegral(*designParticle);
    }
    
    std::string g4material = materialName;
    std::string g4tipMaterial = tipMaterialName;
 
    // Create the element definition
    GMAD::Element el;
    el.type     = GMAD::ElementType::_JCOLTIP;
    el.name     = collimatorName;
    el.material = g4material;
    el.tipMaterial = g4tipMaterial;
    el.l        = length / CLHEP::m;
    el.xsizeLeft  = halfApertureLeft / CLHEP::m;
    el.xsizeRight = halfApertureRight / CLHEP::m;
    el.ysize    = 0.006; // half height
    el.tilt     = rotation / CLHEP::rad;
    el.offsetX  = xOffset / CLHEP::m;
    el.offsetY  = yOffset / CLHEP::m;
    el.horizontalWidth = 2.0; // m
    el.jawTiltLeft  = jawTiltLeft; // rad
    el.jawTiltRight = jawTiltRight; // rad
    el.tipThickness = tipThickness / CLHEP::m;
 
    if (!buildLeftJaw)
    {
        el.xsizeLeft = el.horizontalWidth * 1.2;
    }
    if (!buildRightJaw)
    {
        el.xsizeRight = el.horizontalWidth * 1.2;
    }
    
    el.region = "r1"; // stricter range cuts for default collimators
    
    // Create the component
    BDSAcceleratorComponent* component = nullptr;
    try
    {
        component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);
    }
    catch (const BDSException& e)
    {
        G4cout << e.what() << G4endl;
        G4cout << "Replacing component " << el.name << " with drift" << G4endl;
        el.type = GMAD::ElementType::_DRIFT;
        el.apertureType = "circularvacuum";
        component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);
    }
    
    // Wrap in box
    BDSTiltOffset* to = new BDSTiltOffset(el.offsetX * CLHEP::m, el.offsetY * CLHEP::m, el.tilt * CLHEP::rad);
    auto extentTiltOffset = component->GetExtent().TiltOffset(to);
    G4double encompassingRadius = extentTiltOffset.TransverseBoundingRadius();
    BDSLinkOpaqueBox* opaqueBox = new BDSLinkOpaqueBox(component, to, encompassingRadius);
    
    // Add to beamline
    BDSLinkComponent* comp = new BDSLinkComponent(opaqueBox->GetName(), opaqueBox, opaqueBox->GetExtent().DZ());
    BDSAcceleratorModel::Instance()->RegisterLinkComponent(comp);
    BDSSamplerInfo* samplerInfo = new BDSSamplerInfo(comp->GetName() + "_out", BDSSamplerType::plane);
    linkBeamline->AddComponent(comp, nullptr, samplerInfo);
    
    // Update world extents and solid
    UpdateWorldSolid();
    
    // Place the new component
    G4int linkID = PlaceOneComponent(linkBeamline->back(), collimatorName);
    nameToElementIndex[collimatorName] = linkID;
    linkIDToBeamlineIndex[linkID] = (G4int)linkBeamline->size() - 1;
 
    return linkID;
}
 
G4int BDSLinkDetectorConstruction::AddLinkElement(GMAD::Element el) {
  auto componentFactory = std::unique_ptr<BDSComponentFactory>(new BDSComponentFactory(nullptr, false));
 
  if (!integral)
  {
    if (!designParticle)
    {
      throw BDSException(__METHOD_NAME__, "designParticle must be set first");
    }
    integral = new BDSBeamlineIntegral(*designParticle);
  }
 
  // Create the component
  BDSAcceleratorComponent* component = nullptr;
  try
  {
    component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);
  }
  catch (const BDSException& e)
  {
    G4cout << e.what() << G4endl;
    G4cout << "Replacing component " << el.name << " with drift" << G4endl;
    el.type = GMAD::ElementType::_DRIFT;
    el.apertureType = "circularvacuum";
    component = componentFactory->CreateComponent(&el, nullptr, nullptr, *integral);
  }
 
  // Wrap in box
  BDSTiltOffset* to = new BDSTiltOffset(el.offsetX * CLHEP::m, el.offsetY * CLHEP::m, el.tilt * CLHEP::rad);
  auto extentTiltOffset = component->GetExtent().TiltOffset(to);
  G4double encompassingRadius = extentTiltOffset.TransverseBoundingRadius();
  BDSLinkOpaqueBox* opaqueBox = new BDSLinkOpaqueBox(component, to, encompassingRadius);
 
  // Add to beamline
  BDSLinkComponent* comp = new BDSLinkComponent(opaqueBox->GetName(), opaqueBox, opaqueBox->GetExtent().DZ());
  BDSAcceleratorModel::Instance()->RegisterLinkComponent(comp);
  BDSSamplerInfo* samplerInfo = new BDSSamplerInfo(comp->GetName() + "_out", BDSSamplerType::plane);
  linkBeamline->AddComponent(comp, nullptr, samplerInfo);
 
  // Update world extents and solid
  UpdateWorldSolid();
 
  // Place the new component
  G4int linkID = PlaceOneComponent(linkBeamline->back(), el.name);
  nameToElementIndex[el.name] = linkID;
  linkIDToBeamlineIndex[linkID] = (G4int)linkBeamline->size() - 1;
 
  return linkID;
}
 
void BDSLinkDetectorConstruction::UpdateWorldSolid()
{
  BDSExtentGlobal we = linkBeamline->GetExtentGlobal();
  we = we.ExpandToEncompass(BDSExtentGlobal(BDSExtent(10*CLHEP::m, 10*CLHEP::m, 10*CLHEP::m))); // minimum size
  G4ThreeVector worldExtentAbs = we.GetMaximumExtentAbsolute();
  worldExtentAbs *= 1.2;
 
  if (!worldSolid)
    {
      worldSolid = new G4Box("world_solid",
                             worldExtentAbs.x(),
                             worldExtentAbs.y(),
                             worldExtentAbs.z());
    }
  else
    {
      worldSolid->SetXHalfLength(worldExtentAbs.x());
      worldSolid->SetYHalfLength(worldExtentAbs.y());
      worldSolid->SetZHalfLength(worldExtentAbs.z());
    }
  worldExtent = BDSExtent(worldExtentAbs);
  if (primaryGeneratorAction)
    {primaryGeneratorAction->SetWorldExtent(worldExtent);}
}
 
G4int BDSLinkDetectorConstruction::PlaceOneComponent(const BDSBeamlineElement* element,
                                                    const G4String&           originalName)
{
  G4String placementName = element->GetPlacementName() + "_pv";
  G4int copyNumber = element->GetCopyNo();
  std::set<G4VPhysicalVolume*> pvs = element->PlaceElement(placementName, worldPV, false, copyNumber, true);
 
  auto lc = dynamic_cast<BDSLinkComponent*>(element->GetAcceleratorComponent());
  if (!lc)
    {return -1;}
  BDSLinkOpaqueBox* el = lc->Component();
  G4Transform3D* placementTransform = element->GetPlacementTransform();
  G4Transform3D elCentreToStart = el->TransformToStart();
  G4Transform3D globalToStart = elCentreToStart * (*placementTransform);
  G4int linkID = linkRegistry->Register(el, globalToStart);
  
  G4ThreeVector zOffset = G4ThreeVector(0,0,BDSGlobalConstants::Instance()->LengthSafety()+BDSSamplerPlane::ChordLength());
  G4Transform3D samplerPosition = globalToStart * G4Transform3D(G4RotationMatrix(), globalToStart.getRotation()*zOffset);
  
  if (element->GetSamplerType() == BDSSamplerType::plane && samplerWorldID >= 0)
    {
      auto samplerWorldRaw = GetParallelWorld(samplerWorldID);
      auto samplerWorld = dynamic_cast<BDSParallelWorldSampler*>(samplerWorldRaw);
      if (!samplerWorld)
        {return -1;}
      
      BDSSamplerPlane* sampler = samplerWorld->GeneralPlane();
      G4String samplerName = originalName + "_in";
      G4double sStart = element->GetSPositionStart();
 
      G4int samplerID = BDSSamplerRegistry::Instance()->RegisterSampler(samplerName, sampler, samplerPosition, sStart, element);
 
      G4LogicalVolume* samplerWorldLV = samplerWorld->WorldLV();
      new G4PVPlacement(samplerPosition,
                        sampler->GetContainerLogicalVolume(),
                        samplerName + "_pv",
                        samplerWorldLV,
                        false,
                        samplerID,
                        false);
    }
  return linkID;
}
 
void BDSLinkDetectorConstruction::BuildPhysicsBias()
{
#if G4VERSION_NUMBER > 1039
  if (!crystalBiasing) // cache it because we may have to dynamically add later
    {crystalBiasing = new G4ChannelingOptrMultiParticleChangeCrossSection();}
 
  // crystal biasing necessary for implementation of variable density
  std::set<G4LogicalVolume*>* crystals = BDSAcceleratorModel::Instance()->VolumeSet("crystals");
  if (!crystals->empty())
    {
      G4cout << __METHOD_NAME__ << "Using crystal biasing: true" << G4endl; // to match print out style further down
      for (auto crystal : *crystals)
        {
          // if it hasn't been added already - g4 will whine for double registration
          if (!crystalBiasing->GetBiasingOperator(crystal))
            {crystalBiasing->AttachTo(crystal);}
        }
    }
#endif
}