ObjCompAssembly.cpp

Go to the documentation of this file.

// Mantid Repository : https://github.com/mantidproject/mantid
//
// Copyright © 2018 ISIS Rutherford Appleton Laboratory UKRI,
//   NScD Oak Ridge National Laboratory, European Spallation Source,
//   Institut Laue - Langevin & CSNS, Institute of High Energy Physics, CAS
// SPDX - License - Identifier: GPL - 3.0 +
#include "MantidGeometry/Instrument/ObjCompAssembly.h"
#include "MantidGeometry/Instrument/ComponentVisitor.h"
#include "MantidGeometry/Instrument/ObjComponent.h"
#include "MantidGeometry/Instrument/ParComponentFactory.h"
#include "MantidGeometry/Objects/CSGObject.h"
#include "MantidGeometry/Objects/ShapeFactory.h"
#include "MantidKernel/Exception.h"
#include "MantidKernel/Logger.h"
#include "MantidKernel/Matrix.h"
#include <algorithm>
#include <ostream>
#include <stdexcept>
#include <utility>
 
namespace {
Mantid::Kernel::Logger g_log("ObjCompAssembly");
}
 
namespace Mantid::Geometry {
using Kernel::DblMatrix;
using Kernel::Quat;
using Kernel::V3D;
 
class NoDeleting {
public:
  void operator()(void *p) { (void)p; }
};
 
ObjCompAssembly::ObjCompAssembly(const IComponent *base, const ParameterMap *map) : ObjComponent(base, map) {}
 
ObjCompAssembly::ObjCompAssembly(const std::string &n, IComponent *reference) : ObjComponent(n, reference) {
  if (reference) {
    auto *test = dynamic_cast<ICompAssembly *>(reference);
    if (test)
      test->add(this);
  }
}
 
ObjCompAssembly::ObjCompAssembly(const ObjCompAssembly &assem)
    : ICompAssembly(assem), IObjComponent(assem), ObjComponent(assem) {
  *this = assem;
}
 
ObjCompAssembly &ObjCompAssembly::operator=(const ObjCompAssembly &assem) {
  m_group = assem.m_group;
 
  // Need to do a deep copy
  comp_it it;
  for (it = m_group.begin(); it != m_group.end(); ++it) {
    auto *c = dynamic_cast<ObjComponent *>((*it)->clone());
    if (!c) {
      throw Kernel::Exception::InstrumentDefinitionError(
          "ObjCompAssembly cannot contain components of non-ObjComponent type");
    }
    *it = c;
    // Move copied component object's parent from old to new ObjCompAssembly
    (*it)->setParent(this);
  }
 
  return *this;
}
 
ObjCompAssembly::~ObjCompAssembly() {
  // Iterate over pointers in group, deleting them
  // std::vector<IComponent*>::iterator it;
  for (auto &component : m_group) {
    delete component;
  }
  m_group.clear();
}
 
IComponent *ObjCompAssembly::clone() const { return new ObjCompAssembly(*this); }
 
int ObjCompAssembly::add(IComponent *comp) {
  if (m_map)
    throw std::runtime_error("ObjCompAssembly::add() called on a Parametrized object.");
 
  if (comp) {
    auto *c = dynamic_cast<ObjComponent *>(comp);
    if (!c) {
      throw Kernel::Exception::InstrumentDefinitionError(
          "ObjCompAssembly cannot contain components of non-ObjComponent type");
    }
    comp->setParent(this);
    m_group.emplace_back(c);
  }
  return static_cast<int>(m_group.size());
}
 
int ObjCompAssembly::addCopy(IComponent *comp) {
  if (m_map)
    throw std::runtime_error("ObjCompAssembly::addCopy() called on a Parametrized object.");
 
  if (comp) {
    IComponent *newcomp = comp->clone();
    auto *c = dynamic_cast<ObjComponent *>(newcomp);
    if (!c) {
      throw Kernel::Exception::InstrumentDefinitionError(
          "ObjCompAssembly cannot contain components of non-ObjComponent type");
    }
    newcomp->setParent(this);
    m_group.emplace_back(c);
  }
  return static_cast<int>(m_group.size());
}
 
int ObjCompAssembly::addCopy(IComponent *comp, const std::string &n) {
  if (m_map)
    throw std::runtime_error("ObjCompAssembly::addCopy() called on a Parametrized object.");
 
  if (comp) {
    IComponent *newcomp = comp->clone();
    auto *c = dynamic_cast<ObjComponent *>(newcomp);
    if (!c) {
      throw Kernel::Exception::InstrumentDefinitionError(
          "ObjCompAssembly cannot contain components of non-ObjComponent type");
    }
    newcomp->setParent(this);
    newcomp->setName(n);
    m_group.emplace_back(c);
  }
  return static_cast<int>(m_group.size());
}
 
int ObjCompAssembly::nelements() const {
  if (m_map) {
    auto objCompAss = dynamic_cast<const ObjCompAssembly *>(m_base);
    if (!objCompAss) {
      throw std::logic_error("Failed to cast base component to ObjCompAssembly");
    }
    return objCompAss->nelements();
  } else
    return static_cast<int>(m_group.size());
}
 
std::shared_ptr<IComponent> ObjCompAssembly::operator[](int i) const {
  if (i < 0 || i > nelements() - 1) {
    throw std::runtime_error("ObjCompAssembly::operator[] range not valid");
  }
 
  if (m_map) {
    auto child_base = dynamic_cast<const ObjCompAssembly *>(m_base);
    if (!child_base) {
      throw std::logic_error("Failed to cast base component to ObjCompAssembly");
    }
    return ParComponentFactory::create(child_base->operator[](i), m_map);
  } else {
    // Unparamterized - return the normal one
    return std::shared_ptr<IComponent>(m_group[i], NoDeleting());
  }
}
 
//------------------------------------------------------------------------------------------------
void ObjCompAssembly::getChildren(std::vector<IComponent_const_sptr> &outVector, bool recursive) const {
  for (int i = 0; i < this->nelements(); i++) {
    std::shared_ptr<IComponent> comp = this->getChild(i);
    if (comp) {
      outVector.emplace_back(comp);
      // Look deeper, on option.
      if (recursive) {
        std::shared_ptr<ICompAssembly> assemb = std::dynamic_pointer_cast<ICompAssembly>(comp);
        if (assemb)
          assemb->getChildren(outVector, recursive);
      }
    }
  }
}
 
std::shared_ptr<const IComponent> ObjCompAssembly::getComponentByName(const std::string &cname, int nlevels) const {
  int nchildren = this->nelements();
  if (nlevels > 1)
    g_log.debug() << "only implemented for children\n";
  for (int i = 0; i < nchildren; ++i) {
    std::shared_ptr<Geometry::IComponent> comp = this->getChild(i);
    if (comp->getName() == cname)
      return comp;
  }
  return std::shared_ptr<const IComponent>();
}
 
void ObjCompAssembly::printChildren(std::ostream &os) const {
  // std::vector<IComponent*>::const_iterator it;
  int i = 0;
  for (i = 0; i < this->nelements(); i++) {
    os << "Component " << i << " : **********\n";
    this->operator[](i)->printSelf(os);
  }
}
 
void ObjCompAssembly::printTree(std::ostream &os) const {
  // std::vector<IComponent*>::const_iterator it;
  int i = 0;
  for (i = 0; i < this->nelements(); i++) {
    std::shared_ptr<const ObjCompAssembly> test = std::dynamic_pointer_cast<const ObjCompAssembly>(this->operator[](i));
    os << "Element " << i << " in the assembly : ";
    if (test) {
      os << test->getName() << '\n';
      os << "Children :******** \n";
      test->printTree(os);
    } else
      os << this->operator[](i)->getName() << '\n';
  }
}
 
V3D ObjCompAssembly::getPos() const {
  if (m_map && !hasComponentInfo()) {
    V3D pos;
    if (!m_map->getCachedLocation(m_base, pos)) {
      pos = Component::getPos();
      m_map->setCachedLocation(m_base, pos);
    }
    return pos;
  } else
    return Component::getPos();
}
 
Quat ObjCompAssembly::getRotation() const {
  if (m_map && !hasComponentInfo()) {
    Quat rot;
    if (!m_map->getCachedRotation(m_base, rot)) {
      rot = Component::getRotation();
      m_map->setCachedRotation(m_base, rot);
    }
    return rot;
  } else
    return Component::getRotation();
}
 
//------------------------------------------------------------------------------------------------
void ObjCompAssembly::testIntersectionWithChildren(Track &testRay,
                                                   std::deque<IComponent_const_sptr> &searchQueue) const {
  int nchildren = this->nelements();
  for (int i = 0; i < nchildren; ++i) {
    std::shared_ptr<Geometry::IComponent> comp = this->getChild(i);
    if (std::dynamic_pointer_cast<ICompAssembly>(comp)) {
      searchQueue.emplace_back(comp);
    }
    // Check the physical object intersection
    else if (auto *physicalObject = dynamic_cast<IObjComponent *>(comp.get())) {
      physicalObject->interceptSurface(testRay);
    } else {
    }
  }
}
 
size_t ObjCompAssembly::registerContents(Mantid::Geometry::ComponentVisitor &visitor) const {
  // Generic Assembly registration call.
  return visitor.registerObjComponentAssembly(*this);
}
 
std::shared_ptr<IObject> ObjCompAssembly::createOutline() {
  if (m_group.empty()) {
    throw Kernel::Exception::InstrumentDefinitionError("Empty ObjCompAssembly");
  }
 
  if (nelements() < 2) {
    g_log.warning("Creating outline with fewer than 2 elements. The outline "
                  "displayed may be inaccurate.");
  }
 
  // Get information about the shape and size of a detector
  std::string type;
  detail::ShapeInfo::GeometryShape otype;
  std::vector<Kernel::V3D> vectors;
  double radius, height, innerRadius;
  std::shared_ptr<const IObject> obj = m_group.front()->shape();
  if (!obj) {
    throw Kernel::Exception::InstrumentDefinitionError("Found ObjComponent without shape");
  }
  obj->GetObjectGeom(otype, vectors, innerRadius, radius, height);
  if (otype == detail::ShapeInfo::GeometryShape::CUBOID) {
    type = "box";
  } else if (otype == detail::ShapeInfo::GeometryShape::CYLINDER) {
    type = "cylinder";
  } else {
    throw std::runtime_error("IDF \"outline\" option is only allowed for assemblies containing "
                             "components of types \"box\" or \"cylinder\".");
  }
 
  // Calculate the dimensions of the outline object
 
  // find the 'moments of inertia' of the assembly
  double Ixx = 0, Iyy = 0, Izz = 0, Ixy = 0, Ixz = 0, Iyz = 0;
  V3D Cmass; // 'center of mass' of the assembly
  for (const_comp_it it = m_group.begin(); it != m_group.end(); ++it) {
    V3D p = (**it).getRelativePos();
    Cmass += p;
  }
  Cmass /= nelements();
  for (const_comp_it it = m_group.begin(); it != m_group.end(); ++it) {
    V3D p = (**it).getRelativePos();
    double x = p.X() - Cmass.X(), x2 = x * x;
    double y = p.Y() - Cmass.Y(), y2 = y * y;
    double z = p.Z() - Cmass.Z(), z2 = z * z;
    Ixx += y2 + z2;
    Iyy += x2 + z2;
    Izz += y2 + x2;
    Ixy -= x * y;
    Ixz -= x * z;
    Iyz -= y * z;
  }
  // principal axes of the outline shape
  // vz defines the line through all pixel centres
  V3D vx, vy, vz;
 
  if (Ixx == 0) // pixels along x axis
  {
    vx = V3D(0, 1, 0);
    vy = V3D(0, 0, 1);
    vz = V3D(1, 0, 0);
  } else if (Iyy == 0) // pixels along y axis
  {
    vx = V3D(0, 0, 1);
    vy = V3D(1, 0, 0);
    vz = V3D(0, 1, 0);
  } else if (Izz == 0) // pixels along z axis
  {
    vx = V3D(1, 0, 0);
    vy = V3D(0, 1, 0);
    vz = V3D(0, 0, 1);
  } else {
    // Either the detectors are not perfectrly aligned or
    // vz is parallel to neither of the 3 axis x,y,z
    // This code is unfinished
    DblMatrix II(3, 3), Vec(3, 3), D(3, 3);
    II[0][0] = Ixx;
    II[0][1] = Ixy;
    II[0][2] = Ixz;
    II[1][0] = Ixy;
    II[1][1] = Iyy;
    II[1][2] = Iyz;
    II[2][0] = Ixz;
    II[2][1] = Iyz;
    II[2][2] = Izz;
    g_log.debug() << "Inertia matrix: " << II << II.determinant() << '\n';
    II.Diagonalise(Vec, D);
    g_log.debug() << "Vectors: " << Vec << '\n';
    g_log.debug() << "Moments: " << D << '\n';
    vx = V3D(Vec[0][0], Vec[1][0], Vec[2][0]);
    vy = V3D(Vec[0][1], Vec[1][1], Vec[2][1]);
    vz = V3D(Vec[0][2], Vec[1][2], Vec[2][2]);
  }
 
  // find assembly sizes along the principal axes
  double hx, hy, hz; // sizes along x,y, and z axis
 
  // maximum displacements from the mass centre along axis vx,vy, and vz
  // in positive (p) and negative (n) directions.
  // positive displacements are positive numbers and negative ones are negative
  double hxn = 0, hyn = 0, hzn = 0;
  double hxp = 0, hyp = 0, hzp = 0;
  for (const_comp_it it = m_group.begin(); it != m_group.end(); ++it) {
    // displacement vector of a detector
    V3D p = (**it).getRelativePos() - Cmass;
    // its projection on the vx axis
    double h = p.scalar_prod(vx);
    if (h > hxp)
      hxp = h;
    if (h < hxn)
      hxn = h;
    // its projection on the vy axis
    h = p.scalar_prod(vy);
    if (h > hyp)
      hyp = h;
    if (h < hyn)
      hyn = h;
    // its projection on the vz axis
    h = p.scalar_prod(vz);
    if (h > hzp)
      hzp = h;
    if (h < hzn)
      hzn = h;
  }
 
  // calc the assembly sizes
  hx = hxp - hxn;
  hy = hyp - hyn;
  hz = hzp - hzn;
  // hx and hy must be practically zero
  if (hx > 1e-3 || hy > 1e-3) // arbitrary numbers
  {
    throw Kernel::Exception::InstrumentDefinitionError("Detectors of a ObjCompAssembly do not lie on a staraight line");
  }
 
  // determine the order of the detectors to make sure that the texture
  // coordinates are correct
  bool firstAtBottom; // first detector is at the bottom of the outline shape
  // the bottom end is the one with the negative displacement from the centre
  firstAtBottom = ((**m_group.begin()).getRelativePos() - Cmass).scalar_prod(vz) < 0;
 
  // form the input string for the ShapeFactory
  std::ostringstream obj_str;
  if (type == "box") {
    hx = hy = 0;
    height = 0;
    V3D p0 = vectors[0];
    for (size_t i = 1; i < vectors.size(); ++i) {
      V3D p = vectors[i] - p0;
      double h = fabs(p.scalar_prod(vx));
      if (h > hx)
        hx = h;
      h = fabs(p.scalar_prod(vy));
      if (h > hy)
        hy = h;
      height = fabs(p.scalar_prod(vz));
      if (h > height)
        height = h;
    }
 
    vx *= hx / 2;
    vy *= hy / 2;
    vz *= hzp + height / 2;
 
    if (!firstAtBottom) {
      vz = vz * (-1);
    }
 
    // define the outline shape as cuboid
    V3D p_lfb = Cmass - vx - vy - vz;
    V3D p_lft = Cmass - vx - vy + vz;
    V3D p_lbb = Cmass - vx + vy - vz;
    V3D p_rfb = Cmass + vx - vy - vz;
    obj_str << "<cuboid id=\"shape\">";
    obj_str << "<left-front-bottom-point ";
    obj_str << "x=\"" << p_lfb.X();
    obj_str << "\" y=\"" << p_lfb.Y();
    obj_str << "\" z=\"" << p_lfb.Z();
    obj_str << "\"  />";
    obj_str << "<left-front-top-point ";
    obj_str << "x=\"" << p_lft.X();
    obj_str << "\" y=\"" << p_lft.Y();
    obj_str << "\" z=\"" << p_lft.Z();
    obj_str << "\"  />";
    obj_str << "<left-back-bottom-point ";
    obj_str << "x=\"" << p_lbb.X();
    obj_str << "\" y=\"" << p_lbb.Y();
    obj_str << "\" z=\"" << p_lbb.Z();
    obj_str << "\"  />";
    obj_str << "<right-front-bottom-point ";
    obj_str << "x=\"" << p_rfb.X();
    obj_str << "\" y=\"" << p_rfb.Y();
    obj_str << "\" z=\"" << p_rfb.Z();
    obj_str << "\"  />";
    obj_str << "</cuboid>";
 
  } else if (type == "cylinder") {
    // the outline is one detector height short
    hz += height;
    // shift Cmass to the end of the cylinder where the first detector is
    if (firstAtBottom) {
      Cmass += vz * hzn;
    } else {
      hzp += height;
      Cmass += vz * hzp;
      // inverse the vz axis
      vz = vz * (-1);
    }
    obj_str << "<cylinder id=\"stick\">";
    obj_str << "<centre-of-bottom-base ";
    obj_str << "x=\"" << Cmass.X();
    obj_str << "\" y=\"" << Cmass.Y();
    obj_str << "\" z=\"" << Cmass.Z();
    obj_str << "\" />";
    obj_str << "<axis x=\"" << vz.X() << "\" y=\"" << vz.Y() << "\" z=\"" << vz.Z() << "\" /> ";
    obj_str << "<radius val=\"" << radius << "\" />";
    obj_str << "<height val=\"" << hz << "\" />";
    obj_str << "</cylinder>";
  }
 
  if (!obj_str.str().empty()) {
    std::shared_ptr<IObject> s = ShapeFactory().createShape(obj_str.str());
    setOutline(s);
    return s;
  }
  return std::shared_ptr<IObject>();
}
 
void ObjCompAssembly::setOutline(std::shared_ptr<const IObject> obj) { m_shape = std::move(obj); }
 
std::ostream &operator<<(std::ostream &os, const ObjCompAssembly &ass) {
  ass.printSelf(os);
  os << "************************\n";
  os << "Number of children :" << ass.nelements() << '\n';
  ass.printChildren(os);
  return os;
}
 
} // namespace Mantid::Geometry