// Created on: 1993-10-29
// Created by: Jean Marc LACHAUME
// Copyright (c) 1993-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 <HatchGen_PointOnElement.hxx>
#include <IntRes2d_IntersectionPoint.hxx>
#include <Standard_Macro.hxx>
#include <iostream>
#include <iomanip>
#include <fstream>

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

HatchGen_PointOnElement::HatchGen_PointOnElement()
    : myType(HatchGen_UNDETERMINED)
{
}

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

HatchGen_PointOnElement::HatchGen_PointOnElement(const IntRes2d_IntersectionPoint& Point)
    : myType(HatchGen_UNDETERMINED)
{
  const IntRes2d_Transition& TrsH = Point.TransitionOfFirst();
  const IntRes2d_Transition& TrsE = Point.TransitionOfSecond();

  myIndex = 0;

  myParam = Point.ParamOnSecond();

  switch (TrsE.PositionOnCurve())
  {
    case IntRes2d_Head:
      myPosit = TopAbs_FORWARD;
      break;
    case IntRes2d_Middle:
      myPosit = TopAbs_INTERNAL;
      break;
    case IntRes2d_End:
      myPosit = TopAbs_REVERSED;
      break;
  }

  switch (TrsH.TransitionType())
  {
    case IntRes2d_In: {
      myBefore = TopAbs_OUT;
      myAfter  = TopAbs_IN;
      myType   = (myPosit == TopAbs_INTERNAL) ? HatchGen_TRUE : HatchGen_TOUCH;
      break;
    }
    case IntRes2d_Out: {
      myBefore = TopAbs_IN;
      myAfter  = TopAbs_OUT;
      myType   = (myPosit == TopAbs_INTERNAL) ? HatchGen_TRUE : HatchGen_TOUCH;
      break;
    }
      //  Modified by Sergey KHROMOV - Fri Jan  5 12:07:34 2001 Begin
    case IntRes2d_Touch: {
      switch (TrsH.Situation())
      {
        case IntRes2d_Inside: {
          myType = HatchGen_TANGENT;
          switch (myPosit)
          {
            case TopAbs_FORWARD: {
              if (TrsE.IsOpposite())
              {
                myBefore = TopAbs_IN;
                myAfter  = TopAbs_OUT;
              }
              else
              {
                myBefore = TopAbs_OUT;
                myAfter  = TopAbs_IN;
              }
              break;
            }
            case TopAbs_INTERNAL: {
              myBefore = TopAbs_IN;
              myAfter  = TopAbs_IN;
              break;
            }
            case TopAbs_REVERSED: {
              if (TrsE.IsOpposite())
              {
                myBefore = TopAbs_OUT;
                myAfter  = TopAbs_IN;
              }
              else
              {
                myBefore = TopAbs_IN;
                myAfter  = TopAbs_OUT;
              }
              break;
            }
            case TopAbs_EXTERNAL:
              break;
          }
          break;
        }
        case IntRes2d_Outside: {
          myType = HatchGen_TANGENT;
          switch (myPosit)
          {
            case TopAbs_FORWARD: {
              if (TrsE.IsOpposite())
              {
                myBefore = TopAbs_OUT;
                myAfter  = TopAbs_IN;
              }
              else
              {
                myBefore = TopAbs_IN;
                myAfter  = TopAbs_OUT;
              }
              break;
            }
            case TopAbs_INTERNAL: {
              myBefore = TopAbs_OUT;
              myAfter  = TopAbs_OUT;
              break;
            }
            case TopAbs_REVERSED: {
              if (TrsE.IsOpposite())
              {
                myBefore = TopAbs_IN;
                myAfter  = TopAbs_OUT;
              }
              else
              {
                myBefore = TopAbs_OUT;
                myAfter  = TopAbs_IN;
              }
              break;
            }
            case TopAbs_EXTERNAL:
              break;
          }
          break;
        }
        case IntRes2d_Unknown: {
          myBefore = TopAbs_UNKNOWN;
          myAfter  = TopAbs_UNKNOWN;
          myType   = HatchGen_TANGENT;
          break;
        }
      }
      break;
    }
      //  Modified by Sergey KHROMOV - Fri Jan  5 12:07:46 2001 End
    case IntRes2d_Undecided: {
      myBefore = TopAbs_UNKNOWN;
      myAfter  = TopAbs_UNKNOWN;
      myType   = HatchGen_UNDETERMINED;
      break;
    }
  }

  mySegBeg = false;
  mySegEnd = false;
}

//=======================================================================
// Function : IsIdentical
// Purpose  : Tests if the point is identical to an other.
//=======================================================================

bool HatchGen_PointOnElement::IsIdentical(const HatchGen_PointOnElement& Point,
                                          const double                   Confusion) const
{
  double Delta = std::abs(myParam - Point.myParam);
  return ((Delta <= Confusion) && (myIndex == Point.myIndex) && (myPosit == Point.myPosit)
          && (myType == Point.myType) && (myBefore == Point.myBefore) && (myAfter == Point.myAfter)
          && (mySegBeg == Point.mySegBeg) && (mySegEnd == Point.mySegEnd));
}

//=======================================================================
// Function : IsDifferent
// Purpose  : Tests if the point is different from an other.
//=======================================================================

bool HatchGen_PointOnElement::IsDifferent(const HatchGen_PointOnElement& Point,
                                          const double                   Confusion) const
{
  double Delta = std::abs(myParam - Point.myParam);
  return ((Delta > Confusion) || (myIndex != Point.myIndex) || (myPosit != Point.myPosit)
          || (myType != Point.myType) || (myBefore != Point.myBefore) || (myAfter != Point.myAfter)
          || (mySegBeg != Point.mySegBeg) || (mySegEnd != Point.mySegEnd));
}

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

void HatchGen_PointOnElement::Dump(const int Index) const
{
  std::cout << "    --- Point on element ";
  if (Index > 0)
  {
    std::cout << "# " << std::setw(3) << Index << " ";
  }
  else
  {
    std::cout << "------";
  }
  std::cout << "---------------" << '\n';

  std::cout << "        Index of the element = " << myIndex << '\n';
  std::cout << "        Parameter on element = " << myParam << '\n';
  std::cout << "        Position  on element = ";
  switch (myPosit)
  {
    case TopAbs_FORWARD:
      std::cout << "FORWARD  (i.e. BEGIN  )";
      break;
    case TopAbs_INTERNAL:
      std::cout << "INTERNAL (i.e. MIDDLE )";
      break;
    case TopAbs_REVERSED:
      std::cout << "REVERSED (i.e. END    )";
      break;
    case TopAbs_EXTERNAL:
      std::cout << "EXTERNAL (i.e. UNKNOWN)";
      break;
  }
  std::cout << '\n';
  std::cout << "        Intersection Type    = ";
  switch (myType)
  {
    case HatchGen_TRUE:
      std::cout << "TRUE";
      break;
    case HatchGen_TOUCH:
      std::cout << "TOUCH";
      break;
    case HatchGen_TANGENT:
      std::cout << "TANGENT";
      break;
    case HatchGen_UNDETERMINED:
      std::cout << "UNDETERMINED";
      break;
  }
  std::cout << '\n';
  std::cout << "        State Before         = ";
  switch (myBefore)
  {
    case TopAbs_IN:
      std::cout << "IN";
      break;
    case TopAbs_OUT:
      std::cout << "OUT";
      break;
    case TopAbs_ON:
      std::cout << "ON";
      break;
    case TopAbs_UNKNOWN:
      std::cout << "UNKNOWN";
      break;
  }
  std::cout << '\n';
  std::cout << "        State After          = ";
  switch (myAfter)
  {
    case TopAbs_IN:
      std::cout << "IN";
      break;
    case TopAbs_OUT:
      std::cout << "OUT";
      break;
    case TopAbs_ON:
      std::cout << "ON";
      break;
    case TopAbs_UNKNOWN:
      std::cout << "UNKNOWN";
      break;
  }
  std::cout << '\n';
  std::cout << "        Beginning of segment = " << (mySegBeg ? "TRUE" : "FALSE") << '\n';
  std::cout << "        End       of segment = " << (mySegEnd ? "TRUE" : "FALSE") << '\n';

  std::cout << "    ------------------------------------------" << '\n';
}
