// SPDX-FileCopyrightText: Copyright (c) Ken Martin, Will Schroeder, Bill Lorensen
// SPDX-License-Identifier: BSD-3-Clause
#include "vtkImplicitFunction.h"

#include "vtkAbstractTransform.h"
#include "vtkArrayDispatch.h"
#include "vtkDataArrayRange.h"
#include "vtkMath.h"
#include "vtkSMPTools.h"
#include "vtkTransform.h"

#include <algorithm>

VTK_ABI_NAMESPACE_BEGIN
vtkCxxSetObjectMacro(vtkImplicitFunction, Transform, vtkAbstractTransform);

vtkImplicitFunction::vtkImplicitFunction()
{
  this->Transform = nullptr;
}

vtkImplicitFunction::~vtkImplicitFunction()
{
  // static_cast needed since otherwise the
  // call to SetTransform becomes ambiguous
  this->SetTransform(static_cast<vtkAbstractTransform*>(nullptr));
}

namespace
{

template <class Func>
struct FunctionWorker
{
  Func F;
  FunctionWorker(Func f)
    : F(f)
  {
  }
  template <typename SourceArray, typename DestinationArray>
  void operator()(SourceArray* input, DestinationArray* output)
  {
    vtkIdType numTuples = input->GetNumberOfTuples();
    output->SetNumberOfTuples(numTuples);

    const auto srcTuples = vtk::DataArrayTupleRange<3>(input);
    auto dstValues = vtk::DataArrayValueRange<1>(output);

    using DstValueT = typename decltype(dstValues)::ValueType;
    vtkSMPTools::For(0, numTuples,
      [&](vtkIdType begin, vtkIdType end)
      {
        double tuple[3];
        for (vtkIdType pointId = begin; pointId < end; ++pointId)
        {
          // GetTuple creates a copy of the tuple using GetTypedTuple if it's not a vktDataArray
          // we do that since the input points can be implicit points, and GetTypedTuple is faster
          // than accessing the component of the TupleReference using GetTypedComponent internally.
          srcTuples.GetTuple(pointId, tuple);
          dstValues[pointId] = static_cast<DstValueT>(this->F(tuple));
        }
      });
  }
};

class SimpleFunction
{
public:
  SimpleFunction(vtkImplicitFunction* function)
    : Function(function)
  {
  }
  double operator()(double in[3]) { return this->Function->EvaluateFunction(in); }

private:
  vtkImplicitFunction* Function;
};

class TransformFunction
{
public:
  TransformFunction(vtkImplicitFunction* function, vtkAbstractTransform* transform)
    : Function(function)
    , Transform(transform)
  {
  }
  double operator()(double in[3])
  {
    this->Transform->TransformPoint(in, in);
    return this->Function->EvaluateFunction(in);
  }

private:
  vtkImplicitFunction* Function;
  vtkAbstractTransform* Transform;
};

} // end anon namespace

void vtkImplicitFunction::FunctionValue(vtkDataArray* input, vtkDataArray* output)
{
  if (!this->Transform)
  {
    this->EvaluateFunction(input, output);
  }
  else // pass point through transform
  {
    FunctionWorker<TransformFunction> worker(TransformFunction(this, this->Transform));
    typedef vtkTypeList::Create<float, double> InputTypes;
    typedef vtkTypeList::Create<float, double> OutputTypes;
    typedef vtkArrayDispatch::Dispatch2ByValueTypeUsingArrays<vtkArrayDispatch::AllArrays,
      InputTypes, OutputTypes>
      MyDispatch;
    if (!MyDispatch::Execute(input, output, worker))
    {
      worker(input, output); // Use vtkDataArray API if dispatch fails.
    }
  }
}

void vtkImplicitFunction::EvaluateFunction(vtkDataArray* input, vtkDataArray* output)
{
  // defend against uninitialized output datasets.
  output->SetNumberOfComponents(1);
  output->SetNumberOfTuples(input->GetNumberOfTuples());

  FunctionWorker<SimpleFunction> worker(SimpleFunction(this));
  typedef vtkTypeList::Create<float, double> InputTypes;
  typedef vtkTypeList::Create<float, double> OutputTypes;
  typedef vtkArrayDispatch::Dispatch2ByValueTypeUsingArrays<vtkArrayDispatch::AllArrays, InputTypes,
    OutputTypes>
    MyDispatch;
  if (!MyDispatch::Execute(input, output, worker))
  {
    worker(input, output); // Use vtkDataArray API if dispatch fails.
  }
}

// Evaluate function at position x-y-z and return value. Point x[3] is
// transformed through transform (if provided).
double vtkImplicitFunction::FunctionValue(const double x[3])
{
  if (!this->Transform)
  {
    return this->EvaluateFunction(const_cast<double*>(x));
  }
  else // pass point through transform
  {
    double pt[3];
    this->Transform->TransformPoint(x, pt);
    return this->EvaluateFunction(pt);
  }

  /* Return negative if determinant of Jacobian matrix is negative,
     i.e. if the transformation has a flip.  This is more 'correct'
     than the above behaviour, because it turns the implicit surface
     inside-out in the same way that polygonal surfaces are turned
     inside-out by a flip.  It takes up too many valuable CPU cycles
     to check the determinant on every function evaluation, though.
  {
    double pt[3];
    double A[3][3];
    this->Transform->Update();
    this->Transform->InternalTransformDerivative(x,pt,A);
    double val = this->EvaluateFunction((double *)pt);

    if (vtkMath::Determinant3x3(A) < 0)
      {
      return -val;
      }
    else
      {
      return +val;
      }
    }
  */
}

// Evaluate function gradient at position x-y-z and pass back vector. Point
// x[3] is transformed through transform (if provided).
void vtkImplicitFunction::FunctionGradient(const double x[3], double g[3])
{
  if (!this->Transform)
  {
    this->EvaluateGradient(const_cast<double*>(x), g);
  }
  else // pass point through transform
  {
    double pt[3];
    double A[3][3];
    this->Transform->Update();
    this->Transform->InternalTransformDerivative(x, pt, A);
    this->EvaluateGradient(static_cast<double*>(pt), g);

    // The gradient must be transformed using the same math as is
    // use for a normal to a surface: it must be multiplied by the
    // inverse of the transposed inverse of the Jacobian matrix of
    // the transform, which is just the transpose of the Jacobian.
    vtkMath::Transpose3x3(A, A);
    vtkMath::Multiply3x3(A, g, g);

    /* If the determinant of the Jacobian matrix is negative,
       then the gradient points in the opposite direction.  This
       behaviour is actually incorrect, but is necessary to
       balance the incorrect behaviour of FunctionValue.  Otherwise,
       if you feed certain VTK filters a transform with a flip
       the gradient will point in the wrong direction and they
       will never converge to a result */

    if (vtkMath::Determinant3x3(A) < 0)
    {
      g[0] = -g[0];
      g[1] = -g[1];
      g[2] = -g[2];
    }
  }
}

// Overload standard modified time function. If Transform is modified,
// then this object is modified as well.
vtkMTimeType vtkImplicitFunction::GetMTime()
{
  vtkMTimeType mTime = this->vtkObject::GetMTime();
  vtkMTimeType TransformMTime;

  if (this->Transform != nullptr)
  {
    TransformMTime = this->Transform->GetMTime();
    mTime = (TransformMTime > mTime ? TransformMTime : mTime);
  }

  return mTime;
}

void vtkImplicitFunction::PrintSelf(ostream& os, vtkIndent indent)
{
  this->Superclass::PrintSelf(os, indent);

  if (this->Transform)
  {
    os << indent << "Transform:\n";
    this->Transform->PrintSelf(os, indent.GetNextIndent());
  }
  else
  {
    os << indent << "Transform: (None)\n";
  }
}

void vtkImplicitFunction::SetTransform(const double elements[16])
{
  vtkTransform* transform = vtkTransform::New();
  transform->SetMatrix(elements);
  this->SetTransform(transform);
  transform->Delete();
}
VTK_ABI_NAMESPACE_END
