// Created on: 1999-03-09
// Created by: data exchange team
// Copyright (c) 1999-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.

#include <BRep_Builder.hxx>
#include <BRep_Tool.hxx>
#include <BRepBuilderAPI.hxx>
#include <BRepTopAdaptor_FClass2d.hxx>
#include <DBRep.hxx>
#include <Draw.hxx>
#include <Draw_ProgressIndicator.hxx>
#include <gp_Pnt2d.hxx>
#include <gp_XYZ.hxx>
#include <Precision.hxx>
#include <ShapeAnalysis_Edge.hxx>
#include <ShapeAnalysis_FreeBounds.hxx>
#include <ShapeAnalysis_WireOrder.hxx>
#include <ShapeBuild_ReShape.hxx>
#include <ShapeExtend_MsgRegistrator.hxx>
#include <ShapeFix.hxx>
#include <ShapeFix_FixSmallFace.hxx>
#include <ShapeFix_Shape.hxx>
#include <ShapeFix_ShapeTolerance.hxx>
#include <ShapeFix_Wire.hxx>
#include <ShapeFix_Wireframe.hxx>
#include <ShapeFix_WireVertex.hxx>
#include <SWDRAW.hxx>
#include <SWDRAW_ShapeFix.hxx>
#include <TCollection_AsciiString.hxx>
#include <Standard_Integer.hxx>
#include <NCollection_DataMap.hxx>
#include <TopAbs_State.hxx>
#include <TopExp.hxx>
#include <TopExp_Explorer.hxx>
#include <TopoDS.hxx>
#include <TopoDS_Edge.hxx>
#include <TopoDS_Face.hxx>
#include <TopoDS_Iterator.hxx>
#include <TopoDS_Shape.hxx>
#include <TopoDS_Wire.hxx>
#include <NCollection_List.hxx>
#include <TopTools_ShapeMapHasher.hxx>
#include <NCollection_Sequence.hxx>
#include <NCollection_HSequence.hxx>
#include <NCollection_IndexedMap.hxx>
#include <NCollection_Map.hxx>

#ifdef AIX
  #include <strings.h>
#endif
#include <cstdio>

//=================================================================================================

static int edgesameparam(Draw_Interpretor& di, int argc, const char** argv)
{
  //  const char* arg1 = argv[1];
  const char* arg2(argc > 2 ? argv[2] : nullptr);
  //        ****    Edge:SameParameter         ****
  if (argc < 2)
  {
    di << "shapename ,  option f to force, else only Edges not-SameParameter are computed\n";
    return 1 /* Error */;
  }
  TopoDS_Shape Shape = DBRep::Get(argv[1]);

  if (!ShapeFix::SameParameter(Shape, (argc > 2 && arg2[0] == 'f'), BRepBuilderAPI::Precision()))
    di << "Some edges were not processed\n";
  di << "\n";
  return 0; // Done
}

//=================================================================================================

static int settolerance(Draw_Interpretor& di, int argc, const char** argv)
{
  if (argc < 3)
  {
    di << "myshape val   : forces tolerances at <val>\n"
       << "myshape < max : sets maximum tolerance to <max>\n"
       << "myshape > min : sets minimum tolerance to <min>\n"
       << "myshape min max : bounds tolerances between <min> and <max>\n"
       << "myshape mode=v-e-f other args : idem but only on vertex-edge-face\n";
    return (argc < 2 ? 0 : 1 /* Error */);
  }
  const char*  arg1  = argv[1];
  const char*  arg2  = argv[2];
  TopoDS_Shape Shape = DBRep::Get(arg1);
  if (Shape.IsNull())
  {
    di << "Shape unknown : " << arg1 << "\n";
    return 1 /* Error */;
  }
  char             mod2    = arg2[0];
  int              premarg = 2;
  TopAbs_ShapeEnum styp    = TopAbs_SHAPE;
  if (mod2 == 'v')
  {
    styp    = TopAbs_VERTEX;
    premarg = 3;
  }
  if (mod2 == 'e')
  {
    styp    = TopAbs_EDGE;
    premarg = 3;
  }
  if (mod2 == 'w')
  {
    styp    = TopAbs_WIRE;
    premarg = 3;
  }
  if (mod2 == 'f')
  {
    styp    = TopAbs_FACE;
    premarg = 3;
  }
  if (mod2 == 'a')
  {
    styp    = TopAbs_SHAPE;
    premarg = 3;
  }

  double tmin, tmax;
  mod2 = argv[premarg][0];
  if (mod2 == '=')
    tmin = tmax = Draw::Atof(argv[argc - 1]);
  else if (mod2 == '<')
  {
    tmin = 0;
    tmax = Draw::Atof(argv[argc - 1]);
  }
  else if (mod2 == '>')
  {
    tmin = Draw::Atof(argv[argc - 1]);
    tmax = 0;
  }
  else
  {
    tmin = Draw::Atof(argv[premarg]);
    tmax = Draw::Atof(argv[argc - 1]);
  }

  if (argc == premarg + 1 || tmin == tmax)
    di << "Setting Tolerance to " << tmin << "\n";
  else if (tmax < tmin)
    di << "Minimum Tolerance to " << tmin << "\n";
  else if (tmin <= 0)
    di << "Maximum Tolerance to " << tmax << "\n";
  else
    di << "Tolerance Limited between " << tmin << " and " << tmax << "\n";
  ShapeFix_ShapeTolerance sat;
  sat.LimitTolerance(Shape, tmin, tmax, styp);
  return 0; // Done
}

//=================================================================================================

static int stwire(Draw_Interpretor& di, int argc, const char** argv)
{
  if (argc < 2)
  { // help
    di << "Donner nom shape depart + nom shape resultat + option\n";
    di << "Options de chargement :  x add connected  (sinon add simple)\n"
       << "Options de traitement :  l fix little/BRepBuilderAPI\n"
       << "Options de sortie : aucune make simple\n"
       << "  m MakeAPI r avec reorder  v vertex\n"
       << "Autres (se cumulent) :  q quid(stats)\n";
    return 0;
  }
  if (argc < 4)
  {
    di << "stwire tout court pour help\n";
    return 1 /* Error */;
  }
  const char* arg1 = argv[1];
  const char* arg2 = argv[2];

  //  Options
  int i;
  int ox, ol, om, orint, oq, ov;
  ox = ol = om = orint = oq = ov = 0;
  for (i = 3; i < argc; i++)
  {
    int  valopt = 1;
    char opt    = argv[i][0];
    if (opt == '+')
      opt = argv[i][1];
    if (opt == '-')
    {
      opt    = argv[i][1];
      valopt = 0;
    }
    switch (opt)
    {
      case 'l':
        ol = valopt;
        break;
      case 'm':
        om = valopt;
        break;
      case 'q':
        oq = valopt;
        break;
      case 'r':
        orint = valopt;
        break;
      case 'v':
        ov = valopt;
        break;
      case 'x':
        ox = valopt;
        break;
      default:
        break;
    }
  }
  TopoDS_Shape Shape = DBRep::Get(arg1);
  if (Shape.IsNull())
  {
    di << arg1 << " inconnu\n";
    return 1 /* Error */;
  }

  //  On y va
  occ::handle<ShapeExtend_WireData> sbwd = new ShapeExtend_WireData;
  occ::handle<ShapeAnalysis_Wire>   saw  = new ShapeAnalysis_Wire;
  saw->Load(sbwd);

  TopoDS_Shape awire; // en principe un Wire
  if (Shape.ShapeType() == TopAbs_WIRE)
  {
    awire = Shape;
  }
  else if (Shape.ShapeType() == TopAbs_FACE)
  {
    saw->SetFace(TopoDS::Face(Shape));
    TopExp_Explorer expw(Shape, TopAbs_WIRE);
    if (expw.More())
      awire = expw.Current();
    saw->SetPrecision(BRepBuilderAPI::Precision());
  }
  if (awire.IsNull())
  {
    di << "Neither FACE nor WIRE : " << arg1 << "\n";
    di << "Considering as list of edges ...\n";
    awire = Shape;
    //    return 1 /* Error */;
  }

  // Chargement : normal ou par connected(oriented)
  //  if (ox) {
  for (TopExp_Explorer exp(Shape, TopAbs_EDGE); exp.More(); exp.Next())
  {
    TopoDS_Edge E      = TopoDS::Edge(exp.Current());
    int         orient = saw->CheckShapeConnect(E);
    di << "Orientation : " << orient << " LowerDist : " << saw->MinDistance3d() << "\n";
    if (ox)
      sbwd->AddOriented(E, orient);
    else
      sbwd->Add(E);
  }
  //  }
  //  else sbwd->Init (awire);

  occ::handle<ShapeFix_Wire> sfw = new ShapeFix_Wire;
  sfw->Init(saw);

  //   Traitement en cours
  if (ol)
  {
    int nb = sfw->NbEdges();
    for (i = 1; i <= nb; i++)
    {
      bool stat = sfw->FixSmall(i, true, 0.0);
      // std::cout<<"FixSmall for"<<i<<(stat ? " done" : " not done"); //:sw <<"
      // StatusFix="<<STW.StatusFix()<<"\n";
      di << "FixSmall for" << i;
      if (!stat)
      {
        di << " not done";
      }
      else
      {
        di << " done";
      }
      if (sfw->LastFixStatus(ShapeExtend_FAIL))
        di << " (failed)";
      di << "\n";
    }
  }

  //  Traitement
  if (orint)
  { // reorder ?
    ShapeAnalysis_WireOrder WO((Shape.ShapeType() != TopAbs_FACE), BRepBuilderAPI::Precision());

    int stwo = saw->CheckOrder(WO);
    int nb   = WO.NbEdges();
    di << "Reorder status : " << stwo << "  NbEdges=" << nb << "\n";
    for (i = 1; i <= nb; i++)
    {
      int iord = WO.Ordered(i);
      di << "Edge n0 " << i;
      if (sbwd->Edge(iord).Orientation() == TopAbs_REVERSED)
        di << " REV";
      else
        di << " FWD";
      di << " ordered to " << iord << " Gap=" << WO.Gap(i) << "\n";
    }
    di << "Reorder not yet done\n";
    sfw->FixReorder(WO);
    //   Mais on n execute pas
  }

  //  Statistiques
  if (oq)
  {
    ShapeAnalysis_Edge sae;
    int                nb = sbwd->NbEdges();
    di << "NbEdges : " << nb << "\n";
    for (i = 1; i <= nb; i++)
    {
      TopoDS_Edge E = sbwd->Edge(i);
      di << "Edge " << i;
      if (E.Orientation() == TopAbs_REVERSED)
        di << " REV";
      else
        di << " FWD";
      if (BRep_Tool::Degenerated(E))
        di << " DGNR";
      if (sbwd->IsSeam(i))
        di << " SEAM_WIRE";
      if (Shape.ShapeType() == TopAbs_FACE && sae.IsSeam(E, TopoDS::Face(Shape)))
        di << " SEAM_FACE";
      if (Shape.ShapeType() == TopAbs_FACE)
      {
        if (sae.HasPCurve(E, TopoDS::Face(Shape)))
          di << " PCU";
        else
          di << " NO_PCU";
      }
      if (sae.HasCurve3d(E))
        di << " C3D";
      else
        di << " NO_C3D";
      if (sae.IsClosed3d(E))
        di << " CLOSED";
      di << "\n";
    }
  }

  //  Resultat
  TopoDS_Wire result;
  if (ov)
  {
    ShapeAnalysis_WireVertex sawv;
    sawv.Init(sbwd, saw->Precision());
    sawv.Analyze();
    int nb = sbwd->NbEdges();
    di << "Nb(End)Vertex : " << nb << "\n";
    for (i = 1; i <= nb; i++)
    {
      gp_XYZ pos;
      double upre, ufol;
      int    stat = sawv.Data(i, pos, upre, ufol);
      di << i << " : ";
      switch (stat)
      {
        case 0:
          di << "Same Vertex\n";
          break;
        case 1:
          di << "Same Coords with recorded precisions (but not Same Vertex)\n";
          break;
        case 2:
          di << "Close (with preci=" << saw->Precision() << ")\n";
          break;
        case 3:
          di << "End of " << i << " OK, Start of " << (i == nb ? 1 : i + 1) << " at U=" << ufol;
          break;
        case 4:
          di << "End of " << i << " at U=" << upre << ", Start of " << (i == nb ? 1 : i + 1)
             << " OK";
          break;
        case 5:
          di << "Intersection, End of " << i << " at U=" << upre << ", Start of "
             << (i == nb ? 1 : i + 1) << " at U=" << ufol;
          break;
        default:
          di << "Disjoined\n";
      }
      if (stat >= 3 && stat <= 5)
        di << "\n   - Position : " << pos.X() << "  " << pos.Y() << "  " << pos.Z() << "\n";
    }
    ShapeFix_WireVertex sfwv;
    sfwv.Init(sawv);
    di << "Nb Fixed Vertex : " << sfwv.Fix() << "\n";
  }
  /*
  if (oc) {
    if ( Shape.ShapeType() == TopAbs_FACE ) {
      Correct_Wire CW ( TopoDS::Face(Shape) );
      int i, nb = sbwd->NbEdges();
      int num = 1;
      for (i = 1; i <= nb; i ++)  CW.Add (sbwd->Edge(i));
      CW.Perform ( saw->Precision() );
      nb = CW.NbWires();
      if (nb != 1) {
    //  On prend celui qui a le plus d edges
    int nbe, maxe = 0;
    for (i = 1; i <= nb; i ++) {
      TopoDS_Wire wir = CW.Wire(i);
      nbe = 0;
      for (TopoDS_Iterator ite(wir); ite.More(); ite.Next()) nbe ++;
      if (nbe > maxe) { num = i; maxe = nbe; }
    }
    di<<"Correct_Wire produced "<<nb<<" Wires, taken n0 "<<num<<"\n";
      }
      result = CW.Wire (num);
    }
    else di << "Cannot apply Correct_Wire: face not defined\n";
  }
  */
  else if (om)
    result = sbwd->WireAPIMake();
  else
    result = sbwd->Wire();
  if (result.IsNull())
  {
    di << "Pas de resultat, desole\n";
    return 1; // Fail
  }
  DBRep::Set(arg2, result);
  return 0; // Done
}

//=================================================================================================

static int reface(Draw_Interpretor& di, int argc, const char** argv)
{
  if (argc < 3)
  {
    di << "Donner un nom de SHAPE (SHELL ou FACE) + un nom de RESULTAT\n";
    return 1 /* Error */;
  }
  const char*  arg1  = argv[1];
  const char*  arg2  = argv[2];
  TopoDS_Shape Shape = DBRep::Get(arg1);
  if (Shape.IsNull())
  {
    di << "Shape unknown : " << arg1 << "\n";
    return 1 /* Error */;
  }

  bool rebuild = false;

  occ::handle<ShapeFix_Face> STF = new ShapeFix_Face;
  //  Options ?
  int i; // svv Jan11 2000 : porting on DEC
  for (i = 3; i < argc; i++)
  {
    bool valopt = true;
    char opt    = argv[i][0];
    if (opt == '+')
      opt = argv[i][1];
    if (opt == '-')
    {
      opt    = argv[i][1];
      valopt = false;
    }
    // std::cout<<(valopt ? ".." : ".. NO");
    if (!valopt)
    {
      di << ".. NO";
    }
    else
    {
      di << "..";
    }

    if (opt == 'R')
    {
      di << " REBUILD-ANYWAY ..";
      rebuild = valopt;
    }
    if (opt == 'd')
    {
      di << " fix-dgnr ..";
      STF->FixWireTool()->FixDegeneratedMode() = valopt;
    }
    if (opt == 'r')
    {
      di << " fix-reorder-wire ..";
      STF->FixWireTool()->FixReorderMode() = valopt;
    }
    if (opt == 'k')
    {
    }
  }

  TopoDS_Face        face;
  ShapeBuild_ReShape resh;

  int nbfc = 0;
  for (TopExp_Explorer EF(Shape, TopAbs_FACE); EF.More(); EF.Next())
  {
    TopoDS_Face F = TopoDS::Face(EF.Current());
    face          = F;
    bool newface  = false;
    //    on va voir si ShapeTool_Face trouve qqchose a redire
    //: sw    ShapeTool_Wire STW;
    //: sw    STW.SetFace (F);

    STF->Init(F); // qui fait tout
    STF->Perform();
    face    = STF->Face();
    newface = STF->Status(ShapeExtend_DONE) || rebuild;
    if (newface)
    {
      nbfc++;
      resh.Replace(F, face);
    }
  }
  if (nbfc > 0)
  {
    di << "Faces reprises par ShapeFix_Face : " << nbfc << "\n";
    DBRep::Set(arg2, resh.Apply(Shape, TopAbs_FACE, 2));
    return 0; // Done
  }
  else
    di << "ShapeFix_Face n a rien trouve a redire\n";
  return 0;
}

//=================================================================================================

static int fixshape(Draw_Interpretor& di, int argc, const char** argv)
{
  occ::handle<ShapeExtend_MsgRegistrator> msg = new ShapeExtend_MsgRegistrator;
  occ::handle<ShapeFix_Shape>             sfs = new ShapeFix_Shape;
  sfs->SetMsgRegistrator(msg);

  const char* res = nullptr;
  int         par = 0, mess = 0;
  for (int i = 1; i < argc; i++)
  {
    if (strlen(argv[i]) == 2 && (argv[i][0] == '-' || argv[i][0] == '+' || argv[i][0] == '*'))
    {
      int val = (argv[i][0] == '-' ? 0 : argv[i][0] == '+' ? 1 : -1);
      switch (argv[i][1])
      {
        case 'l':
          sfs->FixWireTool()->FixLackingMode() = val;
          break;
        case 'o':
          sfs->FixFaceTool()->FixOrientationMode() = val;
          break;
        case 'h':
          sfs->FixWireTool()->FixShiftedMode() = val;
          break;
        case 'm':
          sfs->FixFaceTool()->FixMissingSeamMode() = val;
          break;
        case 'd':
          sfs->FixWireTool()->FixDegeneratedMode() = val;
          break;
        case 's':
          sfs->FixWireTool()->FixSmallMode() = val;
          break;
        case 'i':
          sfs->FixWireTool()->FixSelfIntersectionMode() = val;
          break;
        case 'n':
          sfs->FixWireTool()->FixNotchedEdgesMode() = val;
          break;
        case '?':
          mess = val;
          break;
      }
      continue;
    }
    else if (!strcmp(argv[i], "-maxtaila"))
    {
      if (++i >= argc)
      {
        break;
      }

      sfs->FixWireTool()->SetMaxTailAngle(Draw::Atof(argv[i]) * (M_PI / 180));
    }
    else if (!strcmp(argv[i], "-maxtailw"))
    {
      if (++i >= argc)
      {
        break;
      }

      sfs->FixWireTool()->SetMaxTailWidth(Draw::Atof(argv[i]));
      sfs->FixWireTool()->FixTailMode() = 1;
    }
    else
    {
      switch (par)
      {
        case 0:
          res = argv[i];
          break;
        case 1: {
          TopoDS_Shape initShape = DBRep::Get(argv[i]);
          if (initShape.IsNull())
            continue;
          sfs->Init(initShape);
        }
        break;
        case 2:
          sfs->SetPrecision(Draw::Atof(argv[i]));
          break;
        case 3:
          sfs->SetMaxTolerance(Draw::Atof(argv[i]));
          break;
      }
    }
    par++;
  }

  if (par < 2)
  {
    di << "Use: " << argv[0]
       << " result shape [tolerance [max_tolerance]] [switches]\n"
          "[-maxtaila <degrees>] [-maxtailw <width>]\n";
    di << "Switches allow to tune parameters of ShapeFix\n";
    di << "The following syntax is used: <symbol><parameter>\n";
    di << "- symbol may be - to set parameter off, + to set on or * to set default\n";
    di << "- parameters are identified by letters:\n";
    di << "  l - FixLackingMode\n";
    di << "  o - FixOrientationMode\n";
    di << "  h - FixShiftedMode\n";
    di << "  m - FixMissingSeamMode\n";
    di << "  d - FixDegeneratedMode\n";
    di << "  s - FixSmallMode\n";
    di << "  i - FixSelfIntersectionMode\n";
    di << "  n - FixNotchedEdgesMode\n";
    di << "For enhanced message output, use switch '+?'\n";
    return 1;
  }

  occ::handle<Draw_ProgressIndicator> aProgress = new Draw_ProgressIndicator(di, 1);
  sfs->Perform(aProgress->Start());
  DBRep::Set(res, sfs->Shape());

  if (mess)
  {
    NCollection_DataMap<TCollection_AsciiString, int> aMapOfNumberOfFixes;
    Standard_SStream                                  aSStream;
    TopoDS_Compound                                   aCompound;
    BRep_Builder                                      aBuilder;
    aBuilder.MakeCompound(aCompound);
    const NCollection_DataMap<TopoDS_Shape, NCollection_List<Message_Msg>, TopTools_ShapeMapHasher>&
      map = msg->MapShape();
    // Counting the number of each type of fixes. If the switch '*?' store all modified shapes in
    // compound.
    for (NCollection_DataMap<TopoDS_Shape, NCollection_List<Message_Msg>, TopTools_ShapeMapHasher>::
           Iterator it(map);
         it.More();
         it.Next())
    {
      for (NCollection_List<Message_Msg>::Iterator iter(it.Value()); iter.More(); iter.Next())
      {
        if (aMapOfNumberOfFixes.IsBound(iter.Value().Value()))
        {
          aMapOfNumberOfFixes(iter.Value().Value())++;
        }
        else
        {
          aMapOfNumberOfFixes.Bind(iter.Value().Value(), 1);
        }
      }
      if (mess < 0)
      {
        aBuilder.Add(aCompound, it.Key());
      }
    }

    aSStream << " Fix" << std::setw(58) << "Count\n";
    aSStream << " ------------------------------------------------------------\n";
    for (NCollection_DataMap<TCollection_AsciiString, int>::Iterator anIter(aMapOfNumberOfFixes);
         anIter.More();
         anIter.Next())
    {
      aSStream << " " << anIter.Key() << std::setw(60 - anIter.Key().Length()) << anIter.Value()
               << "\n";
    }
    aSStream << " ------------------------------------------------------------\n";
    di << aSStream;

    if (mess < 0)
    {
      char buff[256];
      Sprintf(buff, "%s_%s", res, "m");
      di << " Modified shapes saved in compound: " << buff;
      DBRep::Set(buff, aCompound);
    }
  }

  return 0; // Done
}

//=================================================================================================

int fixgaps(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 3)
    return 1;

  TopoDS_Shape S = DBRep::Get(a[2]);
  if (S.IsNull())
  {
    di << " Shape is null\n";
    return 1;
  }

  occ::handle<ShapeFix_Wireframe> SFWF = new ShapeFix_Wireframe(S);
  double                          prec = (n > 3 ? Draw::Atof(a[3]) : 0.);
  SFWF->SetPrecision(prec);
  if (SFWF->FixWireGaps())
  {
    DBRep::Set(a[1], SFWF->Shape());
    di << " Wireframe gaps fixed on shape\n";
  }

  return 0;
}

//=================================================================================================

int fixsmall(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 3)
    return 1;

  TopoDS_Shape S = DBRep::Get(a[2]);
  if (S.IsNull())
  {
    di << " Shape is null\n";
    return 1;
  }

  double             prec = (n == 4) ? Draw::Atof(a[3]) : 1.;
  ShapeFix_Wireframe SFWF(S);
  SFWF.SetPrecision(prec);

  if (SFWF.FixSmallEdges())
  {
    DBRep::Set(a[1], SFWF.Shape());
    di << " Small edges fixed on shape\n";
  }

  return 0;
}

//=================================================================================================

static int fixsmalledges(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 3)
  {
    di << "Invalid number of arguments\n";
    return 1;
  }
  TopoDS_Shape Sh = DBRep::Get(a[2]);

  int    k      = 3;
  double tol    = 100000;
  int    mode   = 2;
  double tolang = M_PI / 2;
  if (n > k)
    tol = Draw::Atof(a[k++]);

  if (n > k)
    mode = Draw::Atoi(a[k++]);

  if (n > k)
    tolang = Draw::Atof(a[k++]);

  occ::handle<ShapeFix_Wireframe> aSfwr    = new ShapeFix_Wireframe();
  occ::handle<ShapeBuild_ReShape> aReShape = new ShapeBuild_ReShape;
  aSfwr->SetContext(aReShape);
  aSfwr->Load(Sh);
  aSfwr->SetPrecision(tol);
  bool aModeDrop = true;
  if (mode == 2)
    aModeDrop = false;

  NCollection_Map<TopoDS_Shape, TopTools_ShapeMapHasher> theSmallEdges, theMultyEdges;
  NCollection_DataMap<TopoDS_Shape, NCollection_List<TopoDS_Shape>, TopTools_ShapeMapHasher>
    theEdgeToFaces, theFaceWithSmall;
  aSfwr->CheckSmallEdges(theSmallEdges, theEdgeToFaces, theFaceWithSmall, theMultyEdges);
  aSfwr->MergeSmallEdges(theSmallEdges,
                         theEdgeToFaces,
                         theFaceWithSmall,
                         theMultyEdges,
                         aModeDrop,
                         tolang);
  // aSfwr->FixSmallEdges();
  TopoDS_Shape resShape = aSfwr->Shape();
  DBRep::Set(a[1], resShape);
  return 0;
}

//=================================================================================================

int fixsmallfaces(Draw_Interpretor& theDI, int theArgc, const char** theArgv)
{
  if (theArgc < 3)
  {
    theDI << "Use: " << theArgv[0] << " result shape [tolerance]";
    return 1;
  }

  TopoDS_Shape aShape = DBRep::Get(theArgv[2]);
  if (aShape.IsNull())
  {
    theDI << "Error: Shape " << theArgv[2] << " is null\n";
    return 1;
  }

  double aPrec = (theArgc < 4 ? 1. : Draw::Atof(theArgv[3]));

  ShapeFix_FixSmallFace aFixSmallFaces;
  aFixSmallFaces.Init(aShape);
  aFixSmallFaces.SetPrecision(aPrec);
  aFixSmallFaces.Perform();
  if (!aFixSmallFaces.Shape().IsSame(aShape))
  {
    theDI << "Small faces are removed";
    aShape = aFixSmallFaces.Shape();
  }

  DBRep::Set(theArgv[1], aShape);

  return 0;
}

//=================================================================================================

static int checkoverlapedges(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 3)
  {
    di << "Invalid number of arguments\n";
    return 1;
  }
  TopoDS_Shape Sh1 = DBRep::Get(a[1]);
  TopoDS_Shape Sh2 = DBRep::Get(a[2]);
  if (Sh1.IsNull() || Sh2.IsNull())
  {
    di << "Invalid arguments\n";
    return 1;
  }
  TopoDS_Edge e1 = TopoDS::Edge(Sh1);
  TopoDS_Edge e2 = TopoDS::Edge(Sh2);
  if (e1.IsNull() || e2.IsNull())
  {
    di << "Invalid type of arguments\n";
    return 1;
  }

  if (BRep_Tool::Degenerated(e1))
  {
    di << a[1] << " is degenerated\n";
    return 1;
  }

  if (BRep_Tool::Degenerated(e2))
  {
    di << a[2] << " is degenerated\n";
    return 1;
  }

  double aTol        = Precision::Confusion();
  double aDistDomain = 0.0;
  int    k           = 3;
  if (k < n)
    aTol = Draw::Atof(a[k++]);
  if (k < n)
    aDistDomain = Draw::Atof(a[k++]);

  ShapeAnalysis_Edge sae;
  if (sae.CheckOverlapping(e1, e2, aTol, aDistDomain))
  {
    if (aDistDomain == 0.0)
      di << "Edges are overlapping completely\n";
    else
    {
      di << "Edges are overlapped\n";
      di << "with tolerance = " << aTol << "\n";
      di << "on segment length = " << aDistDomain << "\n";
    }
  }
  else
    di << "Edges are not overlapped\n";
  return 0;
}

//=================================================================================================

static int checkfclass2d(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 4)
  {
    di << "Invalid number of arguments\n";
    return 1;
  }
  TopoDS_Shape Sh1    = DBRep::Get(a[1]);
  double       ucoord = Draw::Atof(a[2]);
  double       vcoord = Draw::Atof(a[3]);
  if (Sh1.IsNull() || Sh1.ShapeType() != TopAbs_FACE)
  {
    di << "Invalid arguments\n";
    return 1;
  }
  double tol = Precision::Confusion();
  if (n > 4)
  {
    tol = Atof(a[4]);
  }

  TopoDS_Face             aFace = TopoDS::Face(Sh1);
  gp_Pnt2d                p2d(ucoord, vcoord);
  BRepTopAdaptor_FClass2d f2d(aFace, tol);
  TopAbs_State            stat = f2d.Perform(p2d);
  if (stat == TopAbs_OUT)
    di << "Point is OUT\n";
  else if (stat == TopAbs_IN)
    di << "Point is IN\n";
  else if (stat == TopAbs_ON)
    di << "Point is ON\n";
  else
    di << "Point is UNKNOWN\n";
  return 0;
}

static int connectedges(Draw_Interpretor& di, int n, const char** a)
{
  if (n < 3)
  {
    di << "Invalid number of arguments. Should be : result shape [toler shared]\n";
    return 1;
  }
  TopoDS_Shape aSh1 = DBRep::Get(a[2]);
  if (aSh1.IsNull())
  {
    di << "Shape is null\n";
    return 1;
  }
  double aTol = Precision::Confusion();
  if (n > 3)
    aTol = Draw::Atof(a[3]);

  bool shared = true;
  if (n > 4)
    shared = (Draw::Atoi(a[4]) == 1);
  TopExp_Explorer                                  aExpE(aSh1, TopAbs_EDGE);
  occ::handle<NCollection_HSequence<TopoDS_Shape>> aSeqEdges =
    new NCollection_HSequence<TopoDS_Shape>;
  occ::handle<NCollection_HSequence<TopoDS_Shape>> aSeqWires =
    new NCollection_HSequence<TopoDS_Shape>;
  NCollection_IndexedMap<TopoDS_Shape, TopTools_ShapeMapHasher> aMapEdges;
  for (; aExpE.More(); aExpE.Next())
  {
    aSeqEdges->Append(aExpE.Current());
    aMapEdges.Add(aExpE.Current());
  }

  ShapeAnalysis_FreeBounds::ConnectEdgesToWires(aSeqEdges, aTol, shared, aSeqWires);
  TopoDS_Compound aComp;
  BRep_Builder    aB;
  aB.MakeCompound(aComp);
  int i = 1;
  for (; i <= aSeqWires->Length(); i++)
  {
    TopoDS_Shape aW = aSeqWires->Value(i);
    di << "Wire - " << i << " : \n";

    TopExp_Explorer aExp1(aW, TopAbs_EDGE);
    for (; aExp1.More(); aExp1.Next())
    {
      if (shared)
      {
        int ind = aMapEdges.FindIndex(aExp1.Current());
        di << ind << " ";
      }
      else
      {
        TopoDS_Vertex aV1, aV2;
        TopExp::Vertices(TopoDS::Edge(aExp1.Current()), aV1, aV2);
        gp_Pnt aP = BRep_Tool::Pnt(aV1);
        di << aP.X() << " " << aP.Y() << " " << aP.Z() << "\n";
      }
    }

    di << "\n";
    aB.Add(aComp, aSeqWires->Value(i));
  }
  DBRep::Set(a[1], aComp);
  return 0;
}

//=================================================================================================

void SWDRAW_ShapeFix::InitCommands(Draw_Interpretor& theCommands)
{
  static int initactor = 0;
  if (initactor)
  {
    return;
  }
  initactor = 1;

  const char* g = SWDRAW::GroupName();

  theCommands.Add("edgesameparam",
                  "nom shape draw ou * [+ option force]",
                  __FILE__,
                  edgesameparam,
                  g);
  theCommands.Add("settolerance",
                  "shape [mode=v-e-f-a] val(fix value) or tolmin tolmax",
                  __FILE__,
                  settolerance,
                  g);
  theCommands.Add("stwire", "stwire tout court pour help complet", __FILE__, stwire, g);
  theCommands.Add("reface", "shape result : controle sens wire", __FILE__, reface, g);
  theCommands.Add("fixshape",
                  "res shape [preci [maxpreci]] [{switches}]\n"
                  "  [-maxtaila <degrees>] [-maxtailw <width>]",
                  __FILE__,
                  fixshape,
                  g);
  //  theCommands.Add ("testfill","result edge1 edge2",
  //		   __FILE__,XSHAPE_testfill,g);
  theCommands.Add("fixwgaps", "result shape [toler=0]", __FILE__, fixgaps, g);
  theCommands.Add("fixsmall", "result shape [toler=1.]", __FILE__, fixsmall, g);
  theCommands.Add("fixsmalledges",
                  "result shape [toler mode amxangle]",
                  __FILE__,
                  fixsmalledges,
                  g);
  theCommands.Add("fixsmallfaces", "result shape [toler=1.]", __FILE__, fixsmallfaces, g);
  theCommands.Add("checkoverlapedges",
                  "edge1 edge2 [toler domaindist]",
                  __FILE__,
                  checkoverlapedges,
                  g);
  theCommands.Add("checkfclass2d", "face ucoord vcoord [tol]", __FILE__, checkfclass2d, g);
  theCommands.Add("connectedges", "res shape [toler shared]", __FILE__, connectedges, g);
}
