// Created on: 2016-04-07
// Copyright (c) 2016 OPEN CASCADE SAS
// Created by: Oleg AGASHIN
//
// 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 <IMeshTools_ShapeExplorer.hxx>
#include <TopExp.hxx>
#include <TopExp_Explorer.hxx>
#include <TopoDS.hxx>
#include <TopoDS_Face.hxx>
#include <TopoDS_Edge.hxx>
#include <TopTools_ListOfShape.hxx>
#include <BRepLib.hxx>
#include <BRep_Tool.hxx>
#include <TopTools_MapOfShape.hxx>
#include <Geom_Surface.hxx>

//=======================================================================
// Function: Constructor
// Purpose : 
//=======================================================================
IMeshTools_ShapeExplorer::IMeshTools_ShapeExplorer (
  const TopoDS_Shape& theShape)
  : IMeshData_Shape (theShape)
{
}

//=======================================================================
// Function: Destructor
// Purpose : 
//=======================================================================
IMeshTools_ShapeExplorer::~IMeshTools_ShapeExplorer ()
{
}

//=======================================================================
// Function: Accept
// Purpose : 
//=======================================================================
void IMeshTools_ShapeExplorer::Accept (
  const Handle (IMeshTools_ShapeVisitor)& theVisitor)
{
  // Explore all edges in shape - either free or related to some face.
  TopTools_IndexedMapOfShape aEdges;
  TopExp::MapShapes (GetShape (), TopAbs_EDGE, aEdges);

  TopTools_IndexedMapOfShape::Iterator aEdgeIt (aEdges);
  for (; aEdgeIt.More (); aEdgeIt.Next ())
  {
    const TopoDS_Edge& aEdge = TopoDS::Edge (aEdgeIt.Value ());
    if (!BRep_Tool::IsGeometric(aEdge))
    {
      continue;
    }

    theVisitor->Visit (aEdge);
  }

  // Explore faces
  TopTools_ListOfShape aFaceList;
  BRepLib::ReverseSortFaces (GetShape (), aFaceList);
  TopTools_MapOfShape aFaceMap;

  // make array of faces suitable for processing (excluding faces without surface)
  TopLoc_Location aDummyLoc;
  const TopLoc_Location aEmptyLoc;
  TopTools_ListIteratorOfListOfShape aFaceIter (aFaceList);
  for (; aFaceIter.More (); aFaceIter.Next ())
  {
    TopoDS_Shape aFaceNoLoc = aFaceIter.Value ();
    aFaceNoLoc.Location (aEmptyLoc);
    if (!aFaceMap.Add(aFaceNoLoc))
    {
      continue; // already processed
    }

    TopoDS_Face aFace = TopoDS::Face (aFaceIter.Value ());
    const Handle (Geom_Surface)& aSurf = BRep_Tool::Surface (aFace, aDummyLoc);
    if (aSurf.IsNull())
    {
      continue;
    }

    // Store only forward faces in order to prevent inverse issue.
    theVisitor->Visit (TopoDS::Face (aFace.Oriented (TopAbs_FORWARD)));
  }
}