cncFormulaEigen.h

 
#pragma once
 
#include "../../Common/Assert.h"
#include <Eigen/Dense>
 
namespace Ponca::internal
{
 
    template <typename DataPoint>
    struct CNCEigen
    {
        using MatrixType = typename DataPoint::MatrixType;
        using Scalar     = typename DataPoint::Scalar;
        using VectorType = typename DataPoint::VectorType;
        static constexpr Scalar epsilon = Eigen::NumTraits<Scalar>::epsilon();
 
        struct SphericalTriangle
        {
            static bool isDegenerate(const VectorType& a, const VectorType& b, const VectorType& c)
            {
                Scalar d[3] = {(a - b).norm(), (a - c).norm(), (b - c).norm()};
                // Checks that the spherical triangle is small or thin.
                if ((d[0] < epsilon) || (d[1] < epsilon) || (d[2] < epsilon))
                    return true;
                // Checks that the spherical triangle is flat.
                size_t m = 0;
                if (d[1] > d[m])
                    m = 1;
                if (d[2] > d[m])
                    m = 2;
                return (fabs(d[m] - d[(m + 1) % 3] - d[(m + 2) % 3]) < epsilon);
            }
 
            static void polarTriangle(const VectorType& a, const VectorType& b, const VectorType& c, VectorType& Ap,
                                      VectorType& Bp, VectorType& Cp)
            {
                Ap = b.cross(c);
                Bp = c.cross(a);
                Cp = a.cross(b);
                // Reorient points.
                if (Ap.dot(a) < 0.0)
                    Ap = -Ap;
                if (Bp.dot(b) < 0.0)
                    Bp = -Bp;
                if (Cp.dot(c) < 0.0)
                    Cp = -Cp;
            }
 
            static void interiorAngles(const VectorType& a, const VectorType& b, const VectorType& c, Scalar& alpha,
                                       Scalar& beta, Scalar& gamma)
            {
                VectorType Ta, Tb, Tc;
                polarTriangle(a, b, c, Ta, Tb, Tc);
                Ta /= Ta.norm();
                Tb /= Tb.norm();
                Tc /= Tc.norm();
                if (Ta == VectorType::Zero() || Tb == VectorType::Zero() || Tc == VectorType::Zero())
                    alpha = beta = gamma = Scalar(0.0);
                else
                {
                    Scalar ca = std::max(Scalar(-1.0), std::min(Scalar(1.0), Tb.dot(Tc)));
                    Scalar cb = std::max(Scalar(-1.0), std::min(Scalar(1.0), Tc.dot(Ta)));
                    Scalar cc = std::max(Scalar(-1.0), std::min(Scalar(1.0), Ta.dot(Tb)));
                    alpha     = acos(ca);
                    beta      = acos(cb);
                    gamma     = acos(cc);
                }
            }
 
            static Scalar area(const VectorType& a, const VectorType& b, const VectorType& c)
            {
                Scalar alpha, beta, gamma;
                if (isDegenerate(a, b, c))
                    return Scalar(0.0);
                interiorAngles(a, b, c, alpha, beta, gamma);
                return ((fabs(alpha) < epsilon) || (fabs(beta) < epsilon) || (fabs(gamma) < epsilon))
                           ? Scalar(0.0)
                           : Scalar(2.0 * M_PI) - alpha - beta - gamma;
            }
 
            static Scalar algebraicArea(const VectorType& a, const VectorType& b, const VectorType& c)
            {
                Scalar S     = area(a, b, c);
                VectorType M = a + b + c;
                VectorType X = (b - a).cross(c - a);
                if (M.template lpNorm<1>() <= epsilon || X.template lpNorm<1>() <= epsilon)
                    return 0.0;
                return M.dot(X) < 0.0 ? -S : S;
            }
        };
 
        // ---------------------- Main functions ----------------
    public:
 
        static Scalar mu0InterpolatedU(const VectorType& a, const VectorType& b, const VectorType& c,
                                       const VectorType& ua, const VectorType& ub, const VectorType& uc,
                                       bool unit_u = false)
        {
            // MU0=1/2*det( uM, B-A, C-A )
            //    =  1/2 < ( (u_A + u_B + u_C)/3.0 ) | (AB x AC ) >
            VectorType uM = (ua + ub + uc) / 3.0;
            if (unit_u)
            {
                auto uM_norm = uM.norm();
                uM           = uM_norm == Scalar(0.0) ? uM : uM / uM_norm;
            }
            return Scalar(0.5) * ((b - a).cross(c - a)).dot(uM);
        }
 
        static Scalar mu1InterpolatedU(const VectorType& a, const VectorType& b, const VectorType& c,
                                       const VectorType& ua, const VectorType& ub, const VectorType& uc,
                                       bool unit_u = false)
        {
            // MU1=1/2( | uM u_C-u_B A | + | uM u_A-u_C B | + | uM u_B-u_A C |
            VectorType uM = (ua + ub + uc) / Scalar(3.0);
            if (unit_u)
                uM /= uM.norm();
            return Scalar(0.25) * (uM.cross(uc - ub).dot(a) + uM.cross(ua - uc).dot(b) + uM.cross(ub - ua).dot(c));
        }
 
        static Scalar mu2InterpolatedU(const VectorType& a, const VectorType& b, const VectorType& c,
                                       const VectorType& ua, const VectorType& ub, const VectorType& uc,
                                       bool unit_u = false)
        {
            // Using non unitary interpolated normals give
            // MU2=1/2*det( uA, uB, uC )
            // When normals are unitary, it is the area of a spherical triangle.
            if (unit_u)
                return SphericalTriangle::algebraicArea(ua, ub, uc);
            else
                return Scalar(0.5) * (ua.cross(ub).dot(uc));
        }
 
        static MatrixType muXYInterpolatedU(const VectorType& a, const VectorType& b, const VectorType& c,
                                            const VectorType& ua, const VectorType& ub, const VectorType& uc,
                                            bool unit_u = false)
        {
            MatrixType T  = MatrixType::Zero();
            VectorType uM = (ua + ub + uc) / 3.0;
            if (unit_u)
                uM /= uM.norm();
            const VectorType uac = uc - ua;
            const VectorType uab = ub - ua;
            const VectorType ab  = b - a;
            const VectorType ac  = c - a;
            for (size_t i = 0; i < 3; ++i)
            {
                VectorType X = VectorType::Zero();
                X(i)         = Scalar(1.0);
                for (size_t j = 0; j < 3; ++j)
                {
                    // Since RealVector Y = RealVector::base( j, 1.0 );
                    // < Y | uac > = uac[ j ]
                    const Scalar tij = Scalar(0.5) * uM.dot(uac[j] * X.cross(ab) - uab[j] * X.cross(ac));
                    T(i, j)          = tij;
                }
            }
            return T;
        }
 
 
        // ---------------------- Helper functions ----------------
    public:
 
        static std::pair<VectorType, VectorType> curvDirFromTensor(const MatrixType& tensor, const Scalar area,
                                                                   const VectorType& N)
        {
            auto Mt = tensor.transpose();
            auto M  = tensor;
            M += Mt;
            M *= 0.5;
            const Scalar coef_N = Scalar(1000.0) * area;
            // Adding 1000 area n x n to anisotropic measure
            for (int j = 0; j < 3; j++)
                for (int k = 0; k < 3; k++)
                    M(j, k) += coef_N * N[j] * N[k];
 
            Eigen::SelfAdjointEigenSolver<MatrixType> eigensolver(M);
            if (eigensolver.info() != Eigen::Success)
                abort();
 
            // SelfAdjointEigenSolver returns sorted eigenvalues, no
            // need to reorder the eigenvectors.
            PONCA_ASSERT(eigensolver.eigenvalues()(0) <= eigensolver.eigenvalues()(1));
            PONCA_ASSERT(eigensolver.eigenvalues()(1) <= eigensolver.eigenvalues()(2));
            VectorType v1 = eigensolver.eigenvectors().col(1);
            VectorType v2 = eigensolver.eigenvectors().col(0);
            return std::pair<VectorType, VectorType>(v1, v2);
        }
 
        static std::tuple<Scalar, Scalar, VectorType, VectorType> curvaturesFromTensor(const MatrixType& tensor,
                                                                                       const Scalar area,
                                                                                       const VectorType& N)
        {
            auto Mt = tensor.transpose();
            auto M  = tensor;
            M += Mt;
            M *= 0.5;
            const Scalar coef_N = Scalar(1000.0) * area;
            // Adding 1000 area n x n to anisotropic measure
            for (int j = 0; j < 3; j++)
                for (int k = 0; k < 3; k++)
                    M(j, k) += coef_N * N[j] * N[k];
 
            Eigen::SelfAdjointEigenSolver<MatrixType> eigensolver(M);
            if (eigensolver.info() == Eigen::Success)
            {
                // SelfAdjointEigenSolver returns sorted eigenvalues, no
                // need to reorder the eigenvectors.
                PONCA_ASSERT(eigensolver.eigenvalues()(0) <= eigensolver.eigenvalues()(1));
                PONCA_ASSERT(eigensolver.eigenvalues()(1) <= eigensolver.eigenvalues()(2));
                VectorType v1 = eigensolver.eigenvectors().col(0);
                VectorType v2 = eigensolver.eigenvectors().col(1);
                return std::make_tuple(-eigensolver.eigenvalues()(0), -eigensolver.eigenvalues()(1), v1, v2);
            }
            else
            {
                VectorType v1, v2;
                return std::make_tuple(Scalar(0.0), Scalar(0.0), v1, v2);
            }
        }
 
    }; // struct CNCEigen
 
} // namespace Ponca::internal