// File:	BOP_SFSCorrector.cxx
// Created:	Thu Aug 2 10:47:47 2001
// Author:	Peter KURNEV
//		<pkv@irinox>
//

#include <BOP_SFSCorrector.ixx>

#include <TopTools_IndexedMapOfOrientedShape.hxx>
#include <TopTools_ListIteratorOfListOfShape.hxx>

#include <TopoDS.hxx>
#include <TopoDS_Shape.hxx>
#include <TopoDS_Shell.hxx>
#include <TopoDS_Face.hxx>
#include <TopoDS_Edge.hxx>

#include <BRep_Builder.hxx>

#include <BOP_ConnexityBlock.hxx>
#include <BOP_ListIteratorOfListOfConnexityBlock.hxx>
#include <BOP_ShellSplitter.hxx>
#include <BOPTColStd_ListOfListOfShape.hxx>
#include <BOPTColStd_ListIteratorOfListOfListOfShape.hxx>


static
  void MakeShell (const TopTools_ListOfShape& aLE, 
		  TopoDS_Shell& newShell);

//=======================================================================
// function: BOP_SFSCorrector::BOP_SFSCorrector
// purpose: 
//=======================================================================
  BOP_SFSCorrector::BOP_SFSCorrector()
:
  myIsDone(Standard_False),
  myErrorStatus(1)
{}
//=======================================================================
// function: SetSFS
// purpose: 
//=======================================================================
  void BOP_SFSCorrector::SetSFS (const BOP_ShellFaceSet& aSFS)
{
  BOP_ShellFaceSet* pSFS=(BOP_ShellFaceSet*) &aSFS;
  mySFS=pSFS;
}
//=======================================================================
// function: SFS
// purpose: 
//=======================================================================
  BOP_ShellFaceSet& BOP_SFSCorrector::SFS () 
{
  return *mySFS;
}
//=======================================================================
// function: NewSFS
// purpose: 
//=======================================================================
  BOP_ShellFaceSet& BOP_SFSCorrector::NewSFS () 
{
  return myNewSFS;
}
//=======================================================================
// function: IsDone
// purpose: 
//=======================================================================
  Standard_Boolean BOP_SFSCorrector::IsDone () const 
{
  return myIsDone;
}
//=======================================================================
// function: ErrorStatus
// purpose: 
//=======================================================================
  Standard_Integer BOP_SFSCorrector::ErrorStatus () const 
{
  return myErrorStatus;
}
//=======================================================================
// function: Do
// purpose: 
//=======================================================================
  void BOP_SFSCorrector::Do()
{
  DoConnexityBlocks();
  DoCorrections();
  myIsDone=Standard_True;
}
//=======================================================================
// function: DoConnexityBlocks
// purpose: 
//=======================================================================
  void BOP_SFSCorrector::DoConnexityBlocks()
{
  Standard_Boolean EnewinM, aGoOn;
  Standard_Integer Mextent, IsRegular, aNbNeighbours, Eindex;
  TopTools_IndexedMapOfOrientedShape myOrientedShapeMap, aMap;
  //
  mySFS->InitStartElements();
  for (; mySFS->MoreStartElements(); mySFS->NextStartElement()) {
    const TopoDS_Shape& anE = mySFS->StartElement(); 
    Mextent = myOrientedShapeMap.Extent();

    Eindex  = myOrientedShapeMap.Add(anE); 

    EnewinM = (Eindex > Mextent);
    if (EnewinM) {
      //
      // make a new block starting at element Eindex
      IsRegular=Standard_True; 
      aNbNeighbours=0;
      Mextent = myOrientedShapeMap.Extent();
      //
      aMap.Clear();
      aMap.Add(anE);
      //
      aGoOn = (Eindex <= Mextent);
      while (aGoOn) {
	const TopoDS_Shape& anEE = myOrientedShapeMap(Eindex);
	aNbNeighbours = mySFS->MaxNumberSubShape(anEE);
	
	IsRegular = IsRegular && (aNbNeighbours == 2);
	//
	mySFS->InitNeighbours(anEE);
	for (; mySFS->MoreNeighbours(); mySFS->NextNeighbour()) {
	  const TopoDS_Shape& aNeignbE = mySFS->Neighbour();
	  myOrientedShapeMap.Add(aNeignbE);
	  //
	  aMap.Add(aNeignbE);
	}
	
	Eindex++;
	Mextent = myOrientedShapeMap.Extent();
	aGoOn = (Eindex <= Mextent);
      } // end of while aGoOn
      
      BOP_ConnexityBlock aConnexityBlock;
      aConnexityBlock.SetShapes(aMap);
      aConnexityBlock.SetRegularity(IsRegular);
      myConnexityBlocks.Append(aConnexityBlock);
    } // end of if (EnewinM)
  } // end of for (; mySFS->MoreStartElements();...
}

//=======================================================================
// function: DoCorrections
// purpose: 
//=======================================================================
  void BOP_SFSCorrector::DoCorrections()
{
  Standard_Boolean anIsRegular, anIsNothingToDo, anIsDone;
  TopoDS_Shell aShell;
  BOP_ListIteratorOfListOfConnexityBlock aCBIt;
  
  //myNewSFS.Initialize(mySFS->Face());
  anIsDone=Standard_False;
  anIsNothingToDo=Standard_True;

  aCBIt.Initialize(myConnexityBlocks);
  for (; aCBIt.More(); aCBIt.Next()) {
    const BOP_ConnexityBlock& aCB=aCBIt.Value();
    const TopTools_ListOfShape& aListOfEdges=aCB.Shapes();

    anIsRegular=aCB.IsRegular();

    if (anIsRegular) {
      MakeShell(aListOfEdges, aShell);
      myNewSFS.AddShape (aShell);
      continue;
    }
    //
    // Treatment of non regular Connexity Block
    BOP_ShellSplitter aShellSplitter;
    aShellSplitter.DoWithListOfEdges(aListOfEdges);
    
    anIsDone=aShellSplitter.IsDone();
    anIsNothingToDo=aShellSplitter.IsNothingToDo();
    
    if (!anIsDone || anIsNothingToDo) {
      MakeShell(aListOfEdges, aShell);
      myNewSFS.AddShape (aShell);
      continue;
    }

    //
    const BOPTColStd_ListOfListOfShape& aSSS=aShellSplitter.Shapes();
    
    BOPTColStd_ListIteratorOfListOfListOfShape aShellIt(aSSS);
    for (; aShellIt.More(); aShellIt.Next()) {
      const TopTools_ListOfShape& aListF=aShellIt.Value();
      //
      MakeShell(aListF, aShell);
      myNewSFS.AddShape (aShell);
    }
  }
}

//=======================================================================
// function: MakeShell
// purpose: 
//=======================================================================
  void MakeShell(const TopTools_ListOfShape& aLE, 
		 TopoDS_Shell& newShell)
{
  BRep_Builder aBB;
  aBB.MakeShell(newShell);

  TopTools_ListIteratorOfListOfShape anIt(aLE);
  for (; anIt.More(); anIt.Next()){
    const TopoDS_Face& aF=TopoDS::Face(anIt.Value());
    aBB.Add(newShell, aF);
  }
}
/////////////////////////////////////////////////////////////////
//
// myErrorStatus:
//
// 1 - Nothing is done because only constructor has been called
//
/////////////////////////////////////////////////////////////////