// Gmsh - Copyright (C) 1997-2020 C. Geuzaine, J.-F. Remacle
//
// See the LICENSE.txt file for license information. Please report all
// issues on https://gitlab.onelab.info/gmsh/gmsh/issues.
//
// Author: Maxence Reberol

#include "qmtDiskQuadrangulationRemeshing.h"

/* System includes */
// #include <vector>
// #include <array>
// #include <unordered_map>
// #include <cstdint>
// #include <cmath>
// #include <queue>
// #include <algorithm>

/* Gmsh includes */
#include "GmshMessage.h"
#include "OS.h"
#include "GVertex.h"
#include "GEdge.h"
#include "GFace.h"
#include "GModel.h"
#include "MVertex.h"
#include "MLine.h"
#include "MElement.h"
#include "MTriangle.h"
#include "MQuadrangle.h"
#include "BackgroundMesh.h"
#include "StringUtils.h"

/* QuadMeshingTools includes */
#include "cppUtils.h"
#include "qmtMeshUtils.h"
#include "qmtMeshGeometryOptimization.h"
#include "dataDiskQuadrangulationsSplit.hpp" // list of disk quadrangulations as many strings

using namespace CppUtils;

constexpr bool PARANO_QUALITY = false;

namespace QMT {
  using id = uint32_t;
  using id4 = std::array<id, 4>;

  struct vidHash {
    size_t operator()(const std::vector<id> &p) const noexcept
    {
      uint32_t hash = 0;
      for(size_t i = 0; i < p.size(); ++i) {
        hash += p[i];
        hash += hash << 10;
        hash ^= hash >> 6;
      }
      hash += hash << 3;
      hash ^= hash >> 11;
      hash += hash << 15;
      return hash;
    }
  };

  using std::unordered_map; /* robin_hood unordered_map much faster */
  using std::vector;
  using Quadrangulation = std::vector<std::array<id, 4> >;

  vector<vector<Quadrangulation> > B_disk_quadrangulations;
  vector<unordered_map<vector<id>, vector<id>, vidHash> > B_BVL_ids;

  bool load_disk_quadrangulations_from_raw_data()
  {
    if(B_disk_quadrangulations.size() != 0) return false;

    Msg::Info("loading disk quadrangulations ...");
    B_disk_quadrangulations.reserve(20);
    B_BVL_ids.reserve(20);
    // std::string data(disk_quadrangulations);
    std::string data;
    diskQuadrangulationConcat(data);
    vector<std::string> lines = SplitString(data, '\n');
    Quadrangulation qdrl;
    vector<std::string> numbers;
    vector<id> bdrValLoop;
    size_t lastB = 0;
    for(size_t i = 0; i < lines.size(); ++i) {
      numbers = SplitString(lines[i], ' ');
      if(numbers.size() < 7) continue;
      size_t B = std::stoi(numbers[0]);
      size_t I = std::stoi(numbers[1]);
      size_t Q = std::stoi(numbers[2]);
      if(numbers.size() != 3 + 4 * Q) {
        Msg::Warning("load_disk_quadrangulations | wrong sizes: B=%li, I=%li, "
                     "Q=%li and numbers.size = %li",
                     B, I, Q, numbers.size());
        continue;
      }
      lastB = B;
      qdrl.resize(Q);
      for(size_t j = 0; j < Q; ++j) {
        for(size_t lv = 0; lv < 4; ++lv) {
          qdrl[j][lv] = std::stoi(numbers[3 + 4 * j + lv]);
        }
      }

      if(B >= B_disk_quadrangulations.size()) {
        B_disk_quadrangulations.resize(B + 1);
        B_disk_quadrangulations[B].reserve(1000);
        B_BVL_ids.resize(B + 1);
      }

      id qId = B_disk_quadrangulations[B].size();
      B_disk_quadrangulations[B].push_back(qdrl);

      /* Assumes:
       * - first B vertices are on the boundary
       * - canonical valence ordering according to boundary valence loop
       *   (should be compatible with the generator) */
      bdrValLoop.clear();
      bdrValLoop.resize(B, 0);
      for(size_t j = 0; j < Q; ++j)
        for(size_t lv = 0; lv < 4; ++lv) {
          id v = qdrl[j][lv];
          if(v < B) bdrValLoop[v] += 1;
        }
      B_BVL_ids[B][bdrValLoop].push_back(qId);
    }
    Msg::Info("%li disk quadrangulations loaded", lines.size());

    /* Add basic quadrangulations of the disk with no interior vertices
     * for very high valences cases (due to "bugs" in quad meshers, but
     * this happens frequently) */
    for(size_t B = lastB + 1; B < 200; ++B) {
      if(B % 2 != 0) continue;
      size_t I = 0;
      size_t Q = B / 2 - 1;

      qdrl.resize(Q);
      for(size_t j = 0; j < Q; ++j) {
        id v0 = j;
        id v1 = j + 1;
        id v2 = B - 1 - j - 1;
        id v3 = B - 1 - j;
        qdrl[j] = {v0, v1, v2, v3};
      }

      if(B >= B_disk_quadrangulations.size()) {
        B_disk_quadrangulations.resize(B + 1);
        B_BVL_ids.resize(B + 1);
      }

      id qId = B_disk_quadrangulations[B].size();
      B_disk_quadrangulations[B].push_back(qdrl);

      bdrValLoop.clear();
      bdrValLoop.resize(B, 0);
      for(size_t j = 0; j < Q; ++j)
        for(size_t lv = 0; lv < 4; ++lv) {
          id v = qdrl[j][lv];
          if(v < B) bdrValLoop[v] += 1;
        }
      B_BVL_ids[B][bdrValLoop].push_back(qId);
    }

    return true;
  }

  bool computeQuadMeshValences(const vector<id4> &quads, vector<int> &valence)
  {
    valence.clear();
    valence.reserve(quads.size() * 4);
    for(size_t f = 0; f < quads.size(); ++f)
      for(size_t lv = 0; lv < 4; ++lv) {
        size_t v = quads[f][lv];
        if(v >= valence.size()) valence.resize(v + 1, 0);
        valence[v] += 1;
      }
    return true;
  }

  double computeInputIrregularity(
    const std::vector<MElement *> &elements,
    const std::vector<MVertex *> &intVertices,
    const std::vector<MVertex *> &bdrVertices,
    const std::vector<int> &bndIdealValence,
    const std::vector<std::pair<int, int> > &bndAllowedValenceRange)
  {
    /* Warning: the two way to compute irregularity must be the same than
     * computeIrregularity(), because the values are compared */
    double irregularity = 0.;
    std::unordered_map<MVertex *, int> valence;
    for(MElement *e : elements)
      for(size_t lv = 0; lv < 4; ++lv) { valence[e->getVertex(lv)] += 1; }
    /* Boundary vertices */
    for(size_t bv = 0; bv < bdrVertices.size(); ++bv) {
      MVertex *v = bdrVertices[bv];
      if(valence[v] < bndAllowedValenceRange[bv].first) return DBL_MAX;
      if(valence[v] > bndAllowedValenceRange[bv].second) return DBL_MAX;
      irregularity += std::pow(bndIdealValence[bv] - valence[v], 2);
      // if (bndIdealValence[bv] <= 1 && valence[v] >= 2) { /* probably making a
      // 6+ ... */
      //   irregularity += 1000;
      // } else {
      //   irregularity += 10*std::pow(bndIdealValence[bv]-valence[v],2);
      // }
    }
    /* Interior vertices */
    for(size_t iv = 0; iv < intVertices.size(); ++iv) {
      irregularity += std::pow(4 - valence[intVertices[iv]], 2);
    }
    return irregularity;
  }

  double computeIrregularity(
    const vector<id4> &quads, const vector<int> &valence,
    const std::vector<int> &bndIdealValence,
    const std::vector<std::pair<int, int> > &bndAllowedValenceRange)
  {
    /* Warning: the two way to compute irregularity must be the same than
     * computeInputIrregularity(), because the values are compared */

    double irregularity = 0.;
    /* Boundary vertices */
    for(size_t bv = 0; bv < bndIdealValence.size(); ++bv) {
      if(valence[bv] < bndAllowedValenceRange[bv].first) return DBL_MAX;
      if(valence[bv] > bndAllowedValenceRange[bv].second) return DBL_MAX;
      irregularity += std::pow(bndIdealValence[bv] - valence[bv], 2);
      // if (bndIdealValence[bv] <= 1 && valence[bv] >= 2) { /* probably making
      // a 6+ ... */
      //   irregularity += 1000;
      // } else {
      //   irregularity += 10*std::pow(bndIdealValence[bv]-valence[bv],2);
      // }
    }
    /* Interior vertices */
    for(size_t iv = bndIdealValence.size(); iv < valence.size(); ++iv) {
      irregularity += std::pow(4 - valence[iv], 2);
    }
    return irregularity;
  }

  bool computeBestMatchingConfiguration(
    const vector<id4> &quads, const vector<int> &valence,
    const vector<int> &bndIdealValence,
    const vector<std::pair<int, int> > &bndAllowedValenceRange, int &rotation,
    double &irregularity)
  {
    double best = DBL_MAX;
    int rot = 0;
    vector<int> biv = bndIdealValence;
    vector<std::pair<int, int> > bav = bndAllowedValenceRange;

    /* Initial config */
    {
      double irreg = computeIrregularity(quads, valence, biv, bav);
      if(irreg < best) {
        best = irreg;
        rotation = rot;
      }
    }

    /* Forward rotation */
    for(size_t r = 1; r < biv.size(); ++r) {
      rot += 1;
      std::rotate(biv.begin(), biv.begin() + 1, biv.end());
      std::rotate(bav.begin(), bav.begin() + 1, bav.end());
      double irreg = computeIrregularity(quads, valence, biv, bav);
      if(irreg < best) {
        best = irreg;
        rotation = rot;
      }
    }

    /* Try in reverse order */
    rot = 0;
    biv = bndIdealValence;
    bav = bndAllowedValenceRange;
    std::reverse(biv.begin(), biv.end());
    std::reverse(bav.begin(), bav.end());
    for(size_t r = 1; r < biv.size(); ++r) {
      rot -= 1;
      std::rotate(biv.begin(), biv.begin() + 1, biv.end());
      std::rotate(bav.begin(), bav.begin() + 1, bav.end());
      double irreg = computeIrregularity(quads, valence, biv, bav);
      if(irreg < best) {
        best = irreg;
        rotation = rot;
      }
    }

    irregularity = best;
    return (best != DBL_MAX);
  }

  /* WARNING: GFace is not modified, just the "floating" MVertex
   * and MQuadrangle are created, they must be inserted in the GFace
   * later is the pattern is kept.
   * The vertex positions are random ! Need geometric smoothing after */
  bool getDiskQuadrangulationRemeshing(
    GFace *gf, const std::vector<MVertex *> &bnd,
    int rotation, /* rotation to apply to input */
    const std::vector<id4> &quads, /* pattern */
    std::vector<MVertex *> &newVertices, /* new vertices inside the cavity */
    std::vector<MElement *> &newElements /* new quads inside the cavity */
  )
  {
    if(bnd.size() < 4) return false;

    const double EPS_RANDOM = 1.e-16;

    std::vector<MVertex *> bndr = bnd;
    if(rotation > 0) {
      std::rotate(bndr.begin(), bndr.begin() + (size_t)rotation, bndr.end());
    }
    else if(rotation < 0) {
      std::reverse(bndr.begin(), bndr.end());
      std::rotate(bndr.begin(), bndr.begin() + (size_t)std::abs(rotation),
                  bndr.end());
    }

    /* Default position/uv for new vertices */
    SPoint3 defaultPoint;
    SPoint2 defaultParam;
    size_t num = (size_t)-1;
    for(MVertex *v : bnd) {
      if(v->onWhat() == gf && v->getNum() < num) {
        defaultPoint = v->point();
        v->getParameter(0, defaultParam[0]);
        v->getParameter(1, defaultParam[1]);
        num = v->getNum();
      }
    }
    if(num == (size_t)-1) { /* No bdr vertex inside face */
      defaultPoint = bndr[0]->point();
      reparamMeshVertexOnFace(bndr[0], gf, defaultParam);
    }

    size_t count = 1;
    unordered_map<id, MVertex *> pv2mv;
    for(size_t f = 0; f < quads.size(); ++f) {
      std::array<MVertex *, 4> vert;
      for(size_t lv = 0; lv < 4; ++lv) {
        size_t pv = quads[f][lv];
        if(pv < bndr.size()) { vert[lv] = bndr[pv]; }
        else {
          auto it = pv2mv.find(pv);
          if(it == pv2mv.end()) {
            SVector3 p = defaultPoint;
            p.data()[0] += count * EPS_RANDOM;
            p.data()[1] += count * EPS_RANDOM;
            p.data()[2] += count * EPS_RANDOM;
            double uv[2] = {defaultParam.x(), defaultParam.y()};
            uv[0] = uv[0] + count * EPS_RANDOM;
            uv[1] = uv[1] + count * EPS_RANDOM;
            MVertex *mv =
              new MFaceVertex(p.x(), p.y(), p.z(), gf, uv[0], uv[1]);
            pv2mv[pv] = mv;
            vert[lv] = mv;
            newVertices.push_back(mv);
            count += 1;
          }
          else {
            vert[lv] = it->second;
          }
        }
      }
      if(rotation < 0) { /* revert quad to keep coherent orientation */
        std::reverse(vert.begin(), vert.end());
      }
      MQuadrangle *q = new MQuadrangle(vert[0], vert[1], vert[2], vert[3]);
      newElements.push_back(q);
    }

    /* Ensure coherent orientation between the new mesh and the boundary */
    bool oko =
      orientElementsAccordingToBoundarySegment(bnd[0], bnd[1], newElements);
    if(!oko) {
      for(MVertex *v : newVertices) delete v;
      for(MElement *e : newElements) delete e;
      newVertices.clear();
      newElements.clear();
      Msg::Error(
        "getDiskQuadrangulationRemeshing: bdr quad edge not found, weird");
      return false;
    }

    return true;
  }

  bool smallCavitySmoothing(GFaceMeshPatch &patch, SurfaceProjector *sp,
                            bool invertNormalsForQuality, GeomOptimStats &stats)
  {
    if(patch.intVertices.size() == 0) {
      computeSICN(patch.elements, stats.sicnMinBefore, stats.sicnAvgBefore);
      computeSICN(patch.elements, stats.sicnMinAfter, stats.sicnAvgAfter);
      return true;
    }

    computeSICN(patch.elements, stats.sicnMinBefore, stats.sicnAvgBefore);

    GeometryOptimizer optu;
    optu.initialize(patch, sp);

    /* initialize geometry with laplacian smoothing (without surface projection)
     */
    optu.smoothWithKernel(SmoothingKernel::Laplacian,
                          SmoothingKernel::Laplacian, 0.1, 10, false, false,
                          1.e-5, 1.e-5, false, false);

    /*  advanced untangling/smoothing on mean plane */
    size_t iter = 5;
    bool projectOnCad = true;
    bool withBackup = false;
    GeometryOptimizer::PlanarMethod me =
      GeometryOptimizer::PlanarMethod::MeanPlane;
    bool oku =
      optu.smoothWithWinslowUntangler(me, iter, withBackup, projectOnCad);
    computeSICN(patch.elements, stats.sicnMinAfter, stats.sicnAvgAfter);

    return oku;

    // bool cadInitOk = false;
    // if (haveNiceParametrization(patch.gf)) {
    //   PatchGeometryBackup backup(patch);
    //   /* Try pure UV smoothing in parameter space */
    //   int s0 = patchOptimizeGeometryGlobal(patch, stats);
    //   if (stats.sicnMinAfter > 0.) {
    //     cadInitOk = true;
    //   } else {
    //     backup.restore();
    //   }
    // }

    // /* Kernel smoothing (in parameter space or in 3D space with proj.) */
    // GeomOptimOptions opt;
    // opt.invertCADNormals = invertNormalsForQuality;
    // opt.localLocking = true;
    // opt.dxLocalMax = 1.e-5;
    // opt.outerLoopIterMax = 100;
    // opt.timeMax = 0.25 * double(patch.intVertices.size());
    // if (cadInitOk) {
    //   opt.force3DwithProjection = false;
    //   opt.useDmoIfSICNbelow = 0.5;
    // } else {
    //   opt.sp = sp;
    //   opt.force3DwithProjection = true;
    // }

    // bool okk = patchOptimizeGeometryWithKernel(patch, opt, stats);
    // return okk;
  }

} // namespace QMT

using namespace QMT;

int initDiskQuadrangulations()
{
  bool ok = load_disk_quadrangulations_from_raw_data();
  if(!ok) return -1;
  return 0;
}

int remeshLocalWithDiskQuadrangulation(
  GFace *gf, const std::vector<MElement *> &elements,
  const std::vector<MVertex *> &intVertices,
  const std::vector<MVertex *> &bdrVertices,
  const std::vector<int> &bndIdealValence,
  const std::vector<std::pair<int, int> > &bndAllowedValenceRange,
  const std::vector<MElement *> &neighborsForGeometry, double minSICNrequired,
  bool invertNormalsForQuality, SurfaceProjector *sp, GFaceMeshDiff &diff)
{
  if(QMT::B_disk_quadrangulations.size() == 0) {
    Msg::Error("Missing disk quadrangulation database, call "
               "initDiskQuadrangulations() before");
    return -1;
  }
  if(bdrVertices.size() == 0) {
    Msg::Error("disk quadrangulation remeshing: no boundary vertices",
               bdrVertices.size());
    return -1;
  }

  /* Get disk quadrangulations with the same boundary size */
  const vector<vector<id4> > *small_patterns = NULL;
  if(bdrVertices.size() < B_disk_quadrangulations.size() &&
     B_disk_quadrangulations[bdrVertices.size()].size() > 0) {
    small_patterns = &(B_disk_quadrangulations[bdrVertices.size()]);
  }
  else {
    // TODO: a simple remeshing by using parallel quads ?
    Msg::Warning("disk quadrangulation remeshing: no pattern for input "
                 "boundary loop size (%li bdr vertices)",
                 bdrVertices.size());
    return -1;
  }
  const vector<vector<id4> > &qmeshes = *small_patterns;

  double irregInput =
    computeInputIrregularity(elements, intVertices, bdrVertices,
                             bndIdealValence, bndAllowedValenceRange);

  /* For each disk quadrangulation, compute vertex valence and
   * check matching with input patch, considering all rotations.
   * Store the compatible matchings with their irregularity score. */
  vector<int> valence;
  std::vector<std::pair<double, std::pair<size_t, int> > >
    irregularity_pattern_rotation;
  for(size_t i = 0; i < qmeshes.size(); ++i) {
    const vector<id4> &quads = qmeshes[i];
    computeQuadMeshValences(quads, valence);
    double irregularity = DBL_MAX;
    int rotation = 0;
    bool found = computeBestMatchingConfiguration(
      quads, valence, bndIdealValence, bndAllowedValenceRange, rotation,
      irregularity);
    if(found && irregularity < irregInput) {
      irregularity_pattern_rotation.push_back({irregularity, {i, rotation}});
    }
  }
  if(irregularity_pattern_rotation.size() == 0) {
    Msg::Debug("disk quadrangulation remeshing: no pattern matching input "
               "allowed valence range (%li bdr vertices)",
               bdrVertices.size());
    return -1; /* no pattern matching allowed valence range */
  }
  std::sort(irregularity_pattern_rotation.begin(),
            irregularity_pattern_rotation.end());

  /* Keep the best pattern for which it is possible to find a
   * untangled and sufficient quality geometry */
  size_t N = 5; /* maximum number of pattern tested */
  if(irregularity_pattern_rotation.size() < N)
    N = irregularity_pattern_rotation.size();

  bool geometryOk = false;
  for(size_t i = 0; i < N; ++i) {
    size_t no = irregularity_pattern_rotation[i].second.first;
    int rotation = irregularity_pattern_rotation[i].second.second;
    const vector<id4> &quads = qmeshes[no];

    /* New GFace mesh patch */
    GFaceMeshPatch patch;
    patch.gf = gf;
    patch.bdrVertices = {bdrVertices};

    bool ok = getDiskQuadrangulationRemeshing(
      gf, bdrVertices, rotation, quads, patch.intVertices, patch.elements);
    if(!ok) {
      Msg::Debug(
        "disk quandrangulation remeshing: failed to remesh small cavity");
      continue;
    }
    Msg::Debug("disk quadrangulation remeshing: try %li/%li, dq=[%li,%i], %li "
               "bdr, %i->%i int vertices, %i->%i quads",
               i, N, no, rotation, patch.bdrVertices.front().size(),
               intVertices.size(), patch.intVertices.size(), elements.size(),
               patch.elements.size());

    /* Try to only move the interior vertices (in general, it is not enough) */
    {
      GeomOptimStats stats;
      bool oks =
        smallCavitySmoothing(patch, sp, invertNormalsForQuality, stats);
      if(oks && stats.sicnMinAfter > minSICNrequired) {
        geometryOk = true;
        diff.after = patch; /* set the diff output ! */
        break;
      }
    }

    /* Try to move the interior and bdr vertices (which are not on CAD
     * curve/corner) */
    {
      std::vector<MElement *> largerElements = patch.elements;
      append(largerElements, neighborsForGeometry);
      GFaceMeshPatch largerPatch;
      bool okp = patchFromElements(gf, largerElements, largerPatch);
      if(!okp || largerPatch.intVertices.size() == 0) continue;

      PatchGeometryBackup bdrBackup(largerPatch);

      Msg::Debug("try smoothing the extended cavity (%li -> %li free vertices)",
                 patch.intVertices.size(), largerPatch.intVertices.size());

      GeomOptimStats stats;
      bool oks =
        smallCavitySmoothing(largerPatch, sp, invertNormalsForQuality, stats);
      if(oks && stats.sicnMinAfter > minSICNrequired) {
        geometryOk = true;
        diff.after =
          patch; /* set the diff output (the patch, not the largerPatch) ! */
        break;
      }
      else {
        /* restore boundary positions */
        bdrBackup.restore();
      }
    }
  }

  if(!geometryOk) {
    Msg::Debug("disk quadrangulation remeshing: failed to find valid geometry "
               "(%li bdr vertices)",
               bdrVertices.size());
    return -1;
  }

  /* set the diff input */
  diff.gf = gf;
  diff.before.gf = gf;
  diff.before.elements = elements;
  diff.before.intVertices = intVertices;
  diff.before.bdrVertices = {bdrVertices};

  return 0;
}