// Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
// 
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either 
// version 2.1 of the License.
// 
// This library is distributed in the hope that it will be useful 
// but WITHOUT ANY WARRANTY; without even the implied warranty of 
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
// Lesser General Public License for more details.
//
// You should have received a copy of the GNU Lesser General Public  
// License along with this library; if not, write to the Free Software 
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
//
// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
//

#include <Standard_Stream.hxx>

#include <GEOMImpl_PipeDriver.hxx>
#include <GEOMImpl_IPipe.hxx>
#include <GEOMImpl_Types.hxx>
#include <GEOM_Function.hxx>

#include <BRep_Tool.hxx>
#include <BRepCheck_Analyzer.hxx>
#include <BRepOffsetAPI_MakePipe.hxx>
#include <BRepBuilderAPI_MakeWire.hxx>

#include <TopAbs.hxx>
#include <TopoDS.hxx>
#include <TopoDS_Wire.hxx>
#include <TopoDS_Edge.hxx>
#include <TopoDS_Shape.hxx>
#include <TopoDS_Solid.hxx>
#include <TopoDS_Shell.hxx>
#include <TopoDS_Face.hxx>
#include <BRepOffsetAPI_MakePipeShell.hxx>
#include <TColStd_HSequenceOfTransient.hxx>
#include <GEOMImpl_IPipeDiffSect.hxx>
#include <GEOMImpl_IPipeShellSect.hxx>

#include <Standard_NullObject.hxx>
#include <Standard_TypeMismatch.hxx>
#include <Standard_ConstructionError.hxx>
#include "utilities.h"
#include <TopExp_Explorer.hxx>
#include <TopTools_SequenceOfShape.hxx>
#include <BRep_Builder.hxx>
#include <TopoDS_Compound.hxx>
#include <ShapeAnalysis_FreeBounds.hxx>
#include <TColgp_SequenceOfPnt.hxx>
#include <ShapeAnalysis_Edge.hxx>
#include <TopTools_IndexedDataMapOfShapeShape.hxx>
#include <TopTools_IndexedDataMapOfShapeListOfShape.hxx>
#include <TopExp.hxx>
#include <TopTools_ListIteratorOfListOfShape.hxx>
#include <GeomAPI_ProjectPointOnCurve.hxx>
#include <Precision.hxx>
#include <Geom_TrimmedCurve.hxx>
#include <BRepBuilderAPI_Sewing.hxx>

//#include <BRepTools.hxx>


//=======================================================================
//function : GetID
//purpose  :
//=======================================================================
const Standard_GUID& GEOMImpl_PipeDriver::GetID()
{
  static Standard_GUID aPipeDriver("FF1BBB19-5D14-4df2-980B-3A668264EA16");
  return aPipeDriver;
}


//=======================================================================
//function : GEOMImpl_PipeDriver
//purpose  :
//=======================================================================
GEOMImpl_PipeDriver::GEOMImpl_PipeDriver()
{
}


//=======================================================================
//function : FillForOtherEdges
//purpose  : auxilary for CreatePipeForShellSections()
//=======================================================================
static bool FillForOtherEdges(const TopoDS_Shape& F1,
			      const TopoDS_Shape& E1,
			      const TopoDS_Shape& V1,
			      TopTools_IndexedDataMapOfShapeShape& FF)
{
  //cout<<"FillForOtherEdges"<<endl;
  // find other pairs for vertexes and edges
  // creating map of vertex edges for both faces
  TopTools_IndexedDataMapOfShapeListOfShape aMapVertEdge1;
  TopExp::MapShapesAndAncestors(F1, TopAbs_VERTEX, TopAbs_EDGE, aMapVertEdge1);
  const TopoDS_Shape& F2 = FF.FindFromKey(F1);
  const TopoDS_Shape& E2 = FF.FindFromKey(E1);
  const TopoDS_Shape& V2 = FF.FindFromKey(V1);
  TopTools_IndexedDataMapOfShapeListOfShape aMapVertEdge2;
  TopExp::MapShapesAndAncestors(F2, TopAbs_VERTEX, TopAbs_EDGE, aMapVertEdge2);

  TopoDS_Edge ES1 = TopoDS::Edge(E1);
  TopoDS_Edge ES2 = TopoDS::Edge(E2);
  TopoDS_Shape VS1 = V1;
  TopoDS_Shape VS2 = V2;

  ShapeAnalysis_Edge sae;
  while(1) {
    const TopTools_ListOfShape& aList1 = aMapVertEdge1.FindFromKey(VS1);
    //TopoDS_Shape E1next;
    TopTools_ListIteratorOfListOfShape anIter1(aList1);
    if(anIter1.Value().IsSame(ES1)) {
      anIter1.Next();
    }
    //E1next = anIter1.Value();
    const TopTools_ListOfShape& aList2 = aMapVertEdge2.FindFromKey(VS2);
    //TopoDS_Shape E2next;
    TopTools_ListIteratorOfListOfShape anIter2(aList2);
    if(anIter2.Value().IsSame(ES2)) {
      anIter2.Next();
    }
    //E2next = anIter2.Value();
    //ES1 = TopoDS::Edge(E1next);
    //ES2 = TopoDS::Edge(E2next);
    ES1 = TopoDS::Edge(anIter1.Value());
    ES2 = TopoDS::Edge(anIter2.Value());
    if(!FF.Contains(ES1)) {
      FF.Add(ES1,ES2);
    }
    if(VS1.IsSame(sae.FirstVertex(ES1)))
      VS1 = sae.LastVertex(ES1);
    else
      VS1 = sae.FirstVertex(ES1);
    if(VS2.IsSame(sae.FirstVertex(ES2)))
      VS2 = sae.LastVertex(ES2);
    else
      VS2 = sae.FirstVertex(ES2);
    if(VS1.IsSame(V1))
      break;
    if(!FF.Contains(VS1)) {
      FF.Add(VS1,VS2);
    }
  }

  return true;
}


//=======================================================================
//function : FillCorrespondingEdges
//purpose  : auxilary for CreatePipeForShellSections()
//=======================================================================
static bool FillCorrespondingEdges(const TopoDS_Shape& FS1,
				   const TopoDS_Shape& FS2,
				   const TopoDS_Vertex& aLoc1,
				   const TopoDS_Vertex& aLoc2,
				   const TopoDS_Wire& aWirePath,
				   TopTools_IndexedDataMapOfShapeShape& FF)
{
  //cout<<"FillCorrespondingEdges"<<endl;
  // find corresponding edges
  TopExp_Explorer expw1(FS1,TopAbs_WIRE);
  TopoDS_Wire aWire1 = TopoDS::Wire(expw1.Current());
  //exp = TopExp_Explorer(FS2,TopAbs_WIRE);
  TopExp_Explorer expw2(FS2,TopAbs_WIRE);
  TopoDS_Wire aWire2 = TopoDS::Wire(expw2.Current());
  BRepOffsetAPI_MakePipeShell aBuilder(aWirePath);
  aBuilder.Add(aWire1, aLoc1);
  aBuilder.Add(aWire2, aLoc2);
  if(!aBuilder.IsReady()) {
    return false;
  }
  aBuilder.Build();
  TopoDS_Shape aShape = aBuilder.Shape();
  /*
  TopoDS_Compound C;
  BRep_Builder B;
  B.MakeCompound(C);
  B.Add(C,aShape);
  B.Add(C,FS1);
  B.Add(C,FS2);
  BRepTools::Write(C,"/dn02/users_Linux/skl/work/Bugs/14857/comp.brep");
  */
  ShapeAnalysis_Edge sae;
  double tol = Max( BRep_Tool::Tolerance(TopoDS::Face(FS1)),
		    BRep_Tool::Tolerance(TopoDS::Face(FS2)) );
  TopTools_MapOfShape Vs1,Vs2;
  TopExp_Explorer exp;
  exp.Init( FS1, TopAbs_EDGE );
  TopoDS_Edge E1 = TopoDS::Edge(exp.Current());
  TopoDS_Vertex V11 = sae.FirstVertex(E1);
  TopoDS_Vertex V21 = sae.LastVertex(E1);
  gp_Pnt P11 = BRep_Tool::Pnt(V11);
  gp_Pnt P21 = BRep_Tool::Pnt(V21);
  //cout<<"P11("<<P11.X()<<","<<P11.Y()<<","<<P11.Z()<<")"<<endl;
  //cout<<"P21("<<P21.X()<<","<<P21.Y()<<","<<P21.Z()<<")"<<endl;
  // find corresponding vertexes from created shape
  TopoDS_Vertex VN11,VN21;
  for( exp.Init( aShape, TopAbs_VERTEX ); exp.More(); exp.Next() ) {
    TopoDS_Vertex V = TopoDS::Vertex(exp.Current());
    gp_Pnt P = BRep_Tool::Pnt(V);
    if(P.Distance(P11)<tol) {
      VN11 = V;
    }
    if(P.Distance(P21)<tol) {
      VN21 = V;
    }
  }
  // find edge contains VN11 and VN21 and corresponding vertexes
  TopoDS_Vertex VN12,VN22;
  for( exp.Init( aShape, TopAbs_FACE ); exp.More(); exp.Next() ) {
    TopoDS_Shape F = exp.Current();
    TopExp_Explorer expe;
    bool IsFind = false;
    for( expe.Init( F, TopAbs_EDGE ); expe.More(); expe.Next() ) {
      TopoDS_Edge E = TopoDS::Edge(expe.Current());
      TopoDS_Vertex VF = sae.FirstVertex(E);
      TopoDS_Vertex VL = sae.LastVertex(E);
      if( (VF.IsSame(VN11) && VL.IsSame(VN21)) || (VF.IsSame(VN21) && VL.IsSame(VN11)) ) {
	IsFind = true;
	break;
      }
    }
    if(IsFind) {
      for( expe.Init( F, TopAbs_EDGE ); expe.More(); expe.Next() ) {
	TopoDS_Edge E = TopoDS::Edge(expe.Current());
	TopoDS_Vertex VF = sae.FirstVertex(E);
	TopoDS_Vertex VL = sae.LastVertex(E);
	if( VF.IsSame(VN11) && !VL.IsSame(VN21) )
	  VN12 = VL;
	if( VL.IsSame(VN11) && !VF.IsSame(VN21) )
	  VN12 = VF;
	if( VF.IsSame(VN21) && !VL.IsSame(VN11) )
	  VN22 = VL;
	if( VL.IsSame(VN21) && !VF.IsSame(VN11) )
	  VN22 = VF;
      }
      break;
    }
  }
  // find vertexes from FS2 corresponded to VN12 and VN22
  // and find edge from FS2 contains V12 and V22,
  // this edge will be corresponded to edge E1
  TopoDS_Vertex V12,V22;
  gp_Pnt PN12 = BRep_Tool::Pnt(VN12);
  gp_Pnt PN22 = BRep_Tool::Pnt(VN22);
  //cout<<"PN12("<<PN12.X()<<","<<PN12.Y()<<","<<PN12.Z()<<")"<<endl;
  //cout<<"PN22("<<PN22.X()<<","<<PN22.Y()<<","<<PN22.Z()<<")"<<endl;
  TopoDS_Edge E2;
  TopExp_Explorer expe;
  for( expe.Init( FS2, TopAbs_EDGE ); expe.More(); expe.Next() ) {
    TopoDS_Edge E = TopoDS::Edge(expe.Current());
    TopoDS_Vertex VF = sae.FirstVertex(E);
    TopoDS_Vertex VL = sae.LastVertex(E);
    gp_Pnt PF = BRep_Tool::Pnt(VF);
    gp_Pnt PL = BRep_Tool::Pnt(VL);
    if( PF.Distance(PN12)<tol && PL.Distance(PN22)<tol ) {
      V12 = VF;
      V22 = VL;
      E2 = E;
      break;
    }
    if( PF.Distance(PN22)<tol && PL.Distance(PN12)<tol ) {
      V12 = VL;
      V22 = VF;
      E2 = E;
      break;
    }
  }
  FF.Add(V11,V12);
  FF.Add(V21,V22);
  FF.Add(E1,E2);

  // find other pairs for vertexes and edges
  // creating map of vertex edges for both faces
  return FillForOtherEdges(FS1,E1,V21,FF);

  //return true;
}


//=======================================================================
//function : FindNextPairOfFaces
//purpose  : auxilary for CreatePipeForShellSections()
//=======================================================================
static void FindNextPairOfFaces(const TopoDS_Shape& aCurFace,
				TopTools_IndexedDataMapOfShapeListOfShape& aMapEdgeFaces1,
				TopTools_IndexedDataMapOfShapeListOfShape& aMapEdgeFaces2,
				TopTools_IndexedDataMapOfShapeShape& FF,
				GEOMImpl_IPipe* aCI)
{
  //cout<<"FindNextPairOfFaces"<<endl;
  TopExp_Explorer anExp;
  for ( anExp.Init( aCurFace, TopAbs_EDGE ); anExp.More(); anExp.Next() ) {
    TopoDS_Shape E1 = anExp.Current();
    if(!FF.Contains(E1)) {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("FindNextPairOfFaces: Can not find edge in map");
    }
    const TopoDS_Shape& E2 = FF.FindFromKey(E1);
    TopExp_Explorer anExpV;
    anExpV.Init( E1, TopAbs_VERTEX );
    TopoDS_Shape V1 = anExpV.Current();
    if(!FF.Contains(V1)) {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("FindNextPairOfFaces: Can not find vertex in map");
    }

    const TopTools_ListOfShape& aList1 = aMapEdgeFaces1.FindFromKey(E1);
    if(aList1.Extent()<2)
      continue;
    TopTools_ListIteratorOfListOfShape anIter(aList1);
    if(anIter.Value().IsEqual(aCurFace)) {
      anIter.Next();
    }
    TopoDS_Shape F1other = anIter.Value();
    if(FF.Contains(F1other))
      continue;

    const TopoDS_Shape& F2 = FF.FindFromKey(aCurFace);
    const TopTools_ListOfShape& aList2 = aMapEdgeFaces2.FindFromKey(E2);
    if(aList2.Extent()<2) {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("FindNextPairOfFaces: Can not find corresponding face");
    }
    TopTools_ListIteratorOfListOfShape anIter2(aList2);
    if(anIter2.Value().IsEqual(F2)) {
      anIter2.Next();
    }
    TopoDS_Shape F2other = anIter2.Value();
    FF.Add(F1other,F2other);

    // add pairs of edges to FF
    bool stat =  FillForOtherEdges(F1other,E1,V1,FF);
    if( !stat ) {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("FindNextPairOfFaces: Can not mapping other egdes");
    }

    FindNextPairOfFaces(F1other, aMapEdgeFaces1, aMapEdgeFaces2, FF, aCI);
    
  }
}


//=======================================================================
//function : CreatePipeForShellSections
//purpose  : auxilary for Execute()
//=======================================================================
static TopoDS_Shape CreatePipeForShellSections(const TopoDS_Wire& aWirePath,
					       GEOMImpl_IPipe* aCI)
{
  //cout<<"CreatePipeForShellSections"<<endl;
  //TopoDS_Shape res;
  int i,j;
  BRep_Builder B;

  GEOMImpl_IPipeShellSect* aCIDS = (GEOMImpl_IPipeShellSect*)aCI;
  Handle(TColStd_HSequenceOfTransient) aBasesObjs = aCIDS->GetBases();
  Handle(TColStd_HSequenceOfTransient) aSubBasesObjs = aCIDS->GetSubBases();
  Handle(TColStd_HSequenceOfTransient) aLocObjs = aCIDS->GetLocations();
  Standard_Boolean aWithContact = (aCIDS->GetWithContactMode());
  Standard_Boolean aWithCorrect = (aCIDS->GetWithCorrectionMode());

  Standard_Integer nbBases = aBasesObjs->Length(), 
    nbSubBases = (aSubBasesObjs.IsNull() ? 0 :aSubBasesObjs->Length()),
    nbLocs = (aLocObjs.IsNull() ? 0 :aLocObjs->Length());
    
  if( nbLocs != nbBases) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise("Number of sections is not equal to number of locations ");
  }
  if( nbSubBases && nbSubBases != nbBases) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise("Number of sections is not equal to number of subsections ");
  }

  //BRepOffsetAPI_MakePipeShell aBuilder(aWirePath);

  TopTools_SequenceOfShape VLocs;
  for(i=1; i<=nbBases; i++) {
    Handle(Standard_Transient) anItemLoc = aLocObjs->Value(i);
    if(anItemLoc.IsNull())
      continue;
    Handle(GEOM_Function) aRefLoc = Handle(GEOM_Function)::DownCast(anItemLoc);
    TopoDS_Shape aShapeLoc = aRefLoc->GetValue();
    if(aShapeLoc.IsNull() || aShapeLoc.ShapeType() != TopAbs_VERTEX)
      continue;
    VLocs.Append(aShapeLoc);
  }
  nbLocs = VLocs.Length();
  if( nbLocs != nbBases) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise("One of location shapes is not a vertex");
  }
  // split wire path by location points
  TColgp_SequenceOfPnt PLocs;
  for(i=1; i<=nbLocs; i++) {
    TopoDS_Vertex V = TopoDS::Vertex(VLocs.Value(i));
    PLocs.Append(BRep_Tool::Pnt(V));
  }
  TopTools_SequenceOfShape Edges;
  TopTools_SequenceOfShape Wires;
  TopExp_Explorer anExp;
  for ( anExp.Init( aWirePath, TopAbs_EDGE ); anExp.More(); anExp.Next() ) {
    Edges.Append(anExp.Current());
  }
  ShapeAnalysis_Edge sae;
  TopoDS_Edge edge = TopoDS::Edge(Edges.First());
  double tol = BRep_Tool::Tolerance(edge);
  TopoDS_Vertex VF = sae.FirstVertex(edge);
  gp_Pnt PF = BRep_Tool::Pnt(VF);
  //cout<<"PF("<<PF.X()<<","<<PF.Y()<<","<<PF.Z()<<")"<<endl;
  if( PF.Distance(PLocs.First()) > tol ) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise
      ("First location shapes is not coincided with first vertex of aWirePath");
  }
  edge = TopoDS::Edge(Edges.Last());
  tol = BRep_Tool::Tolerance(edge);
  TopoDS_Vertex VL = sae.LastVertex(edge);
  gp_Pnt PL = BRep_Tool::Pnt(VL);
  if( PL.Distance(PLocs.Last()) > tol ) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise
      ("Last location shapes is not coincided with last vertex of aWirePath");
  }
  int jcurr = 2;
  TopTools_SequenceOfShape tmpEdges;
  for(i=1; i<=Edges.Length() && jcurr<nbLocs; i++) {
    TopoDS_Edge E = TopoDS::Edge(Edges.Value(i));
    tol = BRep_Tool::Tolerance(edge);
    TopoDS_Vertex V1 = sae.FirstVertex(E);
    TopoDS_Vertex V2 = sae.LastVertex(E);
    gp_Pnt P1 = BRep_Tool::Pnt(V1);
    gp_Pnt P2 = BRep_Tool::Pnt(V2);
    if( P2.Distance(PLocs.Value(jcurr)) < tol ) {
      // make wire from current edge and add created
      // wire to Wires
      TopoDS_Wire W;
      B.MakeWire(W);
      for(j=1; j<=tmpEdges.Length(); j++)
	B.Add(W,tmpEdges.Value(j));
      B.Add(W,E);
      Wires.Append(W);
      jcurr++;
      tmpEdges.Clear();
    }
    else {
      // find distance between E and aLocs(icurr)
      double fp,lp;
      Handle(Geom_Curve) C = BRep_Tool::Curve(E,fp,lp);
      GeomAPI_ProjectPointOnCurve PPC (PLocs.Value(jcurr),C);
      if( PPC.NbPoints()>0 &&
	  PLocs.Value(jcurr).Distance(PPC.Point(1)) < tol ) {
	double param = PPC.Parameter(1);
	gp_Pnt PC1;
	C->D0(param,PC1);
	// split current edge
	Handle(Geom_TrimmedCurve) tc1 = new Geom_TrimmedCurve(C,fp,param);
	Handle(Geom_TrimmedCurve) tc2 = new Geom_TrimmedCurve(C,param,lp);
	TopoDS_Edge E1,E2;
	if(PC1.Distance(P1)<tol) {
	  B.MakeEdge(E1,tc1,tol);
	  B.Add(E1,V1);
	  TopoDS_Shape tmpV = VLocs.Value(jcurr).Oriented(TopAbs_REVERSED);
	  B.Add(E1,TopoDS::Vertex(tmpV));
	  tmpEdges.Append(E1);
	  B.MakeEdge(E2,tc2,tol);
	  tmpV = VLocs.Value(jcurr).Oriented(TopAbs_FORWARD);
	  B.Add(E2,TopoDS::Vertex(tmpV));
	  B.Add(E2,V2);
	}
	else {
	  B.MakeEdge(E1,tc2,tol);
	  TopoDS_Shape tmpV = VLocs.Value(jcurr).Oriented(TopAbs_FORWARD);
	  B.Add(E1,TopoDS::Vertex(tmpV));
	  B.Add(E1,V1);
	  E1.Reverse();
	  tmpEdges.Append(E1);
	  B.MakeEdge(E2,tc1,tol);
	  B.Add(E2,V2);
	  tmpV = VLocs.Value(jcurr).Oriented(TopAbs_REVERSED);
	  B.Add(E2,TopoDS::Vertex(tmpV));
	  E2.Reverse();
	}
	// create wire from tmpEdges
	TopoDS_Wire W;
	B.MakeWire(W);
	for(j=1; j<=tmpEdges.Length(); j++)
	  B.Add(W,tmpEdges.Value(j));
	Wires.Append(W);
	jcurr++;
	tmpEdges.Clear();
	Edges.Remove(i);
	Edges.InsertAfter(i-1,E1);
	Edges.InsertAfter(i,E2);
      }
      else {
	tmpEdges.Append(edge);
      }
    }
  }
  // create wire from other edges
  TopoDS_Wire W;
  B.MakeWire(W);
  for(; i<=Edges.Length(); i++)
    B.Add(W,Edges.Value(i));
  Wires.Append(W);
  //cout<<"Wires.Length()="<<Wires.Length()<<endl;

  if( Wires.Length() != nbLocs-1 ) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise
      ("One of location shapes is not lied on the path");
  }

  //TopTools_SequenceOfShape aSeqBases;
  //TopTools_SequenceOfShape aSeqSubBases;
  //TopTools_SequenceOfShape aSeqFaces;
  TopoDS_Compound aComp;
  B.MakeCompound(aComp);
  for(i=1 ; i<nbBases; i++) {
    TopoDS_Wire WPath = TopoDS::Wire(Wires.Value(i));
    // 1 section
    Handle(Standard_Transient) anItem1 = aBasesObjs->Value(i);
    if(anItem1.IsNull())
      continue;
    Handle(GEOM_Function) aRefBase1 = Handle(GEOM_Function)::DownCast(anItem1);
    if(aRefBase1.IsNull())
      continue;
    TopoDS_Shape aShBase1 = aRefBase1->GetValue();
    if(aShBase1.IsNull())
      continue;
    TopAbs_ShapeEnum aType1 = aShBase1.ShapeType();
    // 2 section
    Handle(Standard_Transient) anItem2 = aBasesObjs->Value(i+1);
    if(anItem2.IsNull())
      continue;
    Handle(GEOM_Function) aRefBase2 = Handle(GEOM_Function)::DownCast(anItem2);
    if(aRefBase2.IsNull())
      continue;
    TopoDS_Shape aShBase2 = aRefBase2->GetValue();
    if(aShBase2.IsNull())
      continue;
    TopAbs_ShapeEnum aType2 = aShBase2.ShapeType();
    
    //BRepTools::Write(aShBase1,"/dn02/users_Linux/skl/work/Bugs/14857/base1.brep");

    bool OkSec = ( aType1==TopAbs_SHELL || aType1==TopAbs_FACE ) &&
                 ( aType2==TopAbs_SHELL || aType2==TopAbs_FACE );
    if( !OkSec ) {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("One of section shapes has invalid type");
    }

    bool CreateFewSolids = false;
    // compare sections
    TopExp_Explorer anExp;
    Standard_Integer nbf1 = 0;
    for ( anExp.Init( aShBase1, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
      nbf1++;
    }
    Standard_Integer nbf2 = 0;
    for ( anExp.Init( aShBase2, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
      nbf2++;
    }
    if(nbf1==nbf2) {
      CreateFewSolids = true;
    }

    if(!CreateFewSolids) {
      // we can create only one solid
      TopoDS_Shape aWire1, aWire2;
      // prepare aWire1
      if(aType1==TopAbs_SHELL) {
	// create wire as boundary contour if shell is no closed
	// get free boundary shapes
	ShapeAnalysis_FreeBounds anAnalizer( aShBase1 );
	TopoDS_Compound aClosed = anAnalizer.GetClosedWires();
	//TopExp_Explorer anExp;
	Standard_Integer NbWires = 0;
	for ( anExp.Init( aClosed, TopAbs_WIRE ); anExp.More(); anExp.Next() ) {
	  NbWires++;
	  aWire1 = anExp.Current();
	}
	if(NbWires!=1) {
	  // bad case
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Bad shell is used as section ");
	}
      }
      else { // aType1==TopAbs_FACE
	TopExp_Explorer aExpW(aShBase1,TopAbs_WIRE);
	aWire1 = aExpW.Current();
      }
      // prepare aWire2
      if(aType2==TopAbs_SHELL) {
	// create wire as boundary contour if shell is no closed
	// get free boundary shapes
	ShapeAnalysis_FreeBounds anAnalizer( aShBase2 );
	TopoDS_Compound aClosed = anAnalizer.GetClosedWires();
	//TopExp_Explorer anExp;
	Standard_Integer NbWires = 0;
	for ( anExp.Init( aClosed, TopAbs_WIRE ); anExp.More(); anExp.Next() ) {
	  NbWires++;
	  aWire2 = anExp.Current();
	}
	if(NbWires!=1) {
	  // bad case
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Bad shell is used as section ");
	}
      }
      else { // aType2==TopAbs_FACE
	TopExp_Explorer aExpW(aShBase2,TopAbs_WIRE);
	aWire2 = aExpW.Current();
      }
      // make pipe using aWire1 and aWire2
      if( !aWire1.IsNull() && !aWire2.IsNull() ) {
	//BRepOffsetAPI_MakePipeShell aBuilder(aWirePath);
	BRepOffsetAPI_MakePipeShell aBuilder(WPath);
	aBuilder.Add(aWire1, TopoDS::Vertex(VLocs(i)),
		     aWithContact, aWithCorrect);
	aBuilder.Add(aWire2, TopoDS::Vertex(VLocs(i+1)),
		     aWithContact, aWithCorrect);
	if(!aBuilder.IsReady()) {
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Invalid input data for building PIPE: bases are invalid");
	}
	aBuilder.Build();
	TopoDS_Shape aShape = aBuilder.Shape();
	TopoDS_Shell aShell;
	B.MakeShell(aShell);
	for ( anExp.Init( aShape, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	  B.Add(aShell,anExp.Current());
	}
	for ( anExp.Init( aShBase1, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	  B.Add(aShell,anExp.Current());
	}
	for ( anExp.Init( aShBase2, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	  B.Add(aShell,anExp.Current());
	}
	// make sewing for this shell
	Handle(BRepBuilderAPI_Sewing) aSewing = new BRepBuilderAPI_Sewing;
	aSewing->SetTolerance(Precision::Confusion());
	aSewing->SetFaceMode(Standard_True);
	aSewing->SetFloatingEdgesMode(Standard_False);
	aSewing->SetNonManifoldMode(Standard_False);
	for ( anExp.Init( aShell, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	  aSewing->Add(anExp.Current());
	}
	aSewing->Perform();
	const TopoDS_Shape aSewShape = aSewing->SewedShape();
	if( aSewShape.ShapeType() == TopAbs_SHELL ) {
	  aShell = TopoDS::Shell(aSewShape);
	  if(BRep_Tool::IsClosed(aShell)) {
	    TopoDS_Solid aSolid;
	    B.MakeSolid(aSolid);
	    B.Add(aSolid,aShell);
	    B.Add(aComp,aSolid);
	  }
	  else {
	    B.Add(aComp,aShell);
	  }
	}
	else {
	  B.Add(aComp,aShell);
	}
      }
    }
    else {
      // main block - creation few solids (for each pair of faces)
      TopTools_MapOfShape aFaces1,aFaces2;
      for ( anExp.Init( aShBase1, TopAbs_FACE ); anExp.More(); anExp.Next() )
	aFaces1.Add(anExp.Current());
      for ( anExp.Init( aShBase2, TopAbs_FACE ); anExp.More(); anExp.Next() )
	aFaces2.Add(anExp.Current());
      // creating map of edge faces
      TopTools_IndexedDataMapOfShapeListOfShape aMapEdgeFaces1;
      TopExp::MapShapesAndAncestors(aShBase1, TopAbs_EDGE, TopAbs_FACE, aMapEdgeFaces1);
      TopTools_IndexedDataMapOfShapeListOfShape aMapEdgeFaces2;
      TopExp::MapShapesAndAncestors(aShBase2, TopAbs_EDGE, TopAbs_FACE, aMapEdgeFaces2);
  
      // constuct map face->face
      TopTools_IndexedDataMapOfShapeShape FF;
      TopoDS_Shape FS1,FS2;
      if(nbSubBases==0) {
	// find edge the most distant from location point
	// (this edge is not shared by two faces)
	double maxdist = 0.;
	TopoDS_Shape E1;
	TopoDS_Vertex V11,V21;
	for(j=1; j<=aMapEdgeFaces1.Extent(); j++) {
	  TopoDS_Shape tmp = aMapEdgeFaces1.FindKey(j);
	  const TopTools_ListOfShape& aList = aMapEdgeFaces1.FindFromKey(tmp);
	  if(aList.Extent()>1)
	    continue;
	  TopExp_Explorer expv;
	  expv.Init( tmp, TopAbs_VERTEX );
	  TopoDS_Vertex V1 = TopoDS::Vertex(expv.Current());
	  expv.Next();
	  TopoDS_Vertex V2 = TopoDS::Vertex(expv.Current());
	  gp_Pnt P1 = BRep_Tool::Pnt(V1);
	  gp_Pnt P2 = BRep_Tool::Pnt(V2);
	  double dist = PLocs.Value(i).Distance(P1) + PLocs.Value(i).Distance(P2);
	  if(dist>maxdist) {
	    E1 = tmp;
	    V11 = V1;
	    V21 = V2;
	    TopTools_ListIteratorOfListOfShape anIter(aList);
	    FS1 = anIter.Value();
	    maxdist = dist;
	  }
	}
	// main direction for comparing
	gp_Vec VM(PLocs.Value(i),PLocs.Value(i+1));
	// find corresponding edge from next section
	double minang = PI;
	gp_Pnt P11 = BRep_Tool::Pnt(V11);
	gp_Pnt P21 = BRep_Tool::Pnt(V21);
	TopoDS_Shape E2;
	TopoDS_Vertex V12,V22;
	for(j=1; j<=aMapEdgeFaces2.Extent(); j++) {
	  TopoDS_Shape tmp = aMapEdgeFaces2.FindKey(j);
	  const TopTools_ListOfShape& aList = aMapEdgeFaces2.FindFromKey(tmp);
	  if(aList.Extent()>1)
	    continue;
	  TopExp_Explorer expv;
	  expv.Init( tmp, TopAbs_VERTEX );
	  TopoDS_Vertex V1tmp = TopoDS::Vertex(expv.Current());
	  expv.Next();
	  TopoDS_Vertex V2tmp = TopoDS::Vertex(expv.Current());
	  gp_Pnt P1tmp = BRep_Tool::Pnt(V1tmp);
	  gp_Pnt P2tmp = BRep_Tool::Pnt(V2tmp);
	  double d1 = P1tmp.Distance(P11) + P2tmp.Distance(P21);
	  double d2 = P1tmp.Distance(P21) + P2tmp.Distance(P11);
	  TopoDS_Vertex V1,V2;
	  gp_Pnt P1,P2;
	  if(d1>d2) {
	    V1 = V2tmp; P1 = P2tmp;
	    V2 = V1tmp; P2 = P1tmp;
	  }
	  else {
	    V1 = V1tmp; P1 = P1tmp;
	    V2 = V2tmp; P2 = P2tmp;
	  }
	  gp_Vec Vec1(P11,P1);
	  gp_Vec Vec2(P21,P2);
	  double ang = fabs(Vec1.Angle(VM)) + fabs(Vec2.Angle(VM));
	  if(ang<minang) {
	    E2 = tmp;
	    V12 = V1;
	    V22 = V2;
	    TopTools_ListIteratorOfListOfShape anIter(aList);
	    FS2 = anIter.Value();
	    minang = ang;
	  }
	}
	// put all pairs to map FF
	FF.Add(FS1,FS2);
	FF.Add(E1,E2);
	FF.Add(V11,V12);
	FF.Add(V21,V22);

	// add pairs of edges to FF
	bool stat =  FillForOtherEdges(FS1,E1,V11,FF);
	if( !stat ) {
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("FindForOtherEdges: Can not mapping other egdes");
	}

      }
      else {
	{ // 1 section
	  Handle(Standard_Transient) anItem = aSubBasesObjs->Value(i);
	  if(anItem.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  Handle(GEOM_Function) aRefBase = Handle(GEOM_Function)::DownCast(anItem);
	  if(aRefBase.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  TopoDS_Shape aSh = aRefBase->GetValue();
	  if(aSh.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  if(aSh.ShapeType()!=TopAbs_FACE) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  FS1 = aSh;
	}	
	{ // 2 section
	  Handle(Standard_Transient) anItem = aSubBasesObjs->Value(i+1);
	  if(anItem.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  Handle(GEOM_Function) aRefBase = Handle(GEOM_Function)::DownCast(anItem);
	  if(aRefBase.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  TopoDS_Shape aSh = aRefBase->GetValue();
	  if(aSh.IsNull()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  if(aSh.ShapeType()!=TopAbs_FACE) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid subbase shape");
	  }
	  FS2 = aSh;
	}

	if( !aFaces1.Contains(FS1) || !aFaces2.Contains(FS2) ) {
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Invalid subbase shape");
	}
      
	FF.Add(FS1,FS2);

	// add pairs of edges to FF
	bool stat =  FillCorrespondingEdges(FS1, FS2, TopoDS::Vertex(VLocs(i)),
					    TopoDS::Vertex(VLocs(i+1)), WPath, FF);
	if( !stat ) {
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Can not create correct pipe");
	}
      }

      FindNextPairOfFaces(FS1, aMapEdgeFaces1, aMapEdgeFaces2, FF, aCI);


      // make pipe for each pair of faces
      //BRepTools::Write(WPath,"/dn02/users_Linux/skl/work/Bugs/14857/wpath.brep");
      for(j=1; j<=FF.Extent(); j++) {
	TopoDS_Shape F1 = FF.FindKey(j);
	if( F1.ShapeType() != TopAbs_FACE )
	  continue;
	TopoDS_Shape F2 = FF.FindFromIndex(j);
	TopExp_Explorer aExpW1(F1,TopAbs_WIRE);
	TopoDS_Wire aWire1 = TopoDS::Wire(aExpW1.Current());
	TopExp_Explorer aExpW2(F2,TopAbs_WIRE);
	TopoDS_Wire aWire2 = TopoDS::Wire(aExpW2.Current());
	// make pipe using aWire1 and aWire2
	if( !aWire1.IsNull() && !aWire2.IsNull() ) {
	  BRepOffsetAPI_MakePipeShell aBuilder(WPath);
	  aBuilder.Add(aWire1, TopoDS::Vertex(VLocs(i)),
		       aWithContact, aWithCorrect);
	  aBuilder.Add(aWire2, TopoDS::Vertex(VLocs(i+1)),
		       aWithContact, aWithCorrect);
	  if(!aBuilder.IsReady()) {
	    if(aCI) delete aCI;
	    Standard_ConstructionError::Raise("Invalid input data for building PIPE: bases are invalid");
	  }
	  aBuilder.Build();
	  TopoDS_Shape aShape = aBuilder.Shape();
	  TopoDS_Shell aShell;
	  B.MakeShell(aShell);
	  //int nbf=0;
	  for ( anExp.Init( aShape, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	    //nbf++;
	    //cout<<"nbf="<<nbf<<endl;
	    B.Add(aShell,anExp.Current());
	  }
	  B.Add(aShell,F1);
	  B.Add(aShell,F2);
	  // make sewing for this shell
	  Handle(BRepBuilderAPI_Sewing) aSewing = new BRepBuilderAPI_Sewing;
	  aSewing->SetTolerance(Precision::Confusion());
	  aSewing->SetFaceMode(Standard_True);
	  aSewing->SetFloatingEdgesMode(Standard_False);
	  aSewing->SetNonManifoldMode(Standard_False);
	  for ( anExp.Init( aShell, TopAbs_FACE ); anExp.More(); anExp.Next() ) {
	    aSewing->Add(anExp.Current());
	  }
	  aSewing->Perform();
	  const TopoDS_Shape aSewShape = aSewing->SewedShape();
	  if( aSewShape.ShapeType() == TopAbs_SHELL ) {
	    aShell = TopoDS::Shell(aSewShape);
	    if(BRep_Tool::IsClosed(aShell)) {
	      TopoDS_Solid aSolid;
	      B.MakeSolid(aSolid);
	      B.Add(aSolid,aShell);
	      B.Add(aComp,aSolid);
	    }
	    else {
	      B.Add(aComp,aShell);
	    }
	  }
	  else {
	    B.Add(aComp,aShell);
	  }
	}
      }

    }
  }

  return aComp;
}


//=======================================================================
//function : Execute
//purpose  :
//=======================================================================
Standard_Integer GEOMImpl_PipeDriver::Execute(TFunction_Logbook& log) const
{
  if (Label().IsNull()) return 0;
  Handle(GEOM_Function) aFunction = GEOM_Function::GetFunction(Label());
  GEOMImpl_IPipe* aCI= 0;
  Standard_Integer aType = aFunction->GetType();
  if(aType == PIPE_BASE_PATH)
    aCI = new GEOMImpl_IPipe(aFunction);
  else if(aType == PIPE_DIFFERENT_SECTIONS)
    aCI = new GEOMImpl_IPipeDiffSect(aFunction);
  else if(aType == PIPE_SHELL_SECTIONS)
    aCI = new GEOMImpl_IPipeShellSect(aFunction);
  else
    return 0;

  Handle(GEOM_Function) aRefPath = aCI->GetPath();
  TopoDS_Shape aShapePath = aRefPath->GetValue();


  if (aShapePath.IsNull()) {
    cout<<"Driver : path is null"<<endl;
    if(aCI) delete aCI;
    Standard_NullObject::Raise("MakePipe aborted : null path argument");
  }
  
  // Get path contour
  TopoDS_Wire aWirePath;
  if (aShapePath.ShapeType() == TopAbs_WIRE) {
    aWirePath = TopoDS::Wire(aShapePath);
  } 
  else {
    if (aShapePath.ShapeType() == TopAbs_EDGE) {
      TopoDS_Edge anEdge = TopoDS::Edge(aShapePath);
      aWirePath = BRepBuilderAPI_MakeWire(anEdge);
    } 
    else {
      if(aCI) delete aCI;
      Standard_TypeMismatch::Raise("MakePipe aborted : path shape is neither a wire nor an edge");
    } 
  }
  
  TopoDS_Shape aShape;

  if (aType == PIPE_BASE_PATH) {
     
    Handle(GEOM_Function) aRefBase = aCI->GetBase();
   
    TopoDS_Shape aShapeBase = aRefBase->GetValue();
    
    if (aShapeBase.IsNull()) {
      if(aCI) delete aCI;
      Standard_NullObject::Raise("MakePipe aborted : null base argument");
    }

    // Make pipe
    aShape = BRepOffsetAPI_MakePipe(aWirePath, aShapeBase);
  }

  //building pipe with different sections
  else if (aType == PIPE_DIFFERENT_SECTIONS) 
  {
    GEOMImpl_IPipeDiffSect* aCIDS = (GEOMImpl_IPipeDiffSect*)aCI;
    //GEOMImpl_IPipeDiffSect* aCIDS = static_cast<GEOMImpl_IPipeDiffSect*>(aCI);
    BRepOffsetAPI_MakePipeShell aBuilder(aWirePath);
    Handle(TColStd_HSequenceOfTransient) aBasesObjs = aCIDS->GetBases ();
    Handle(TColStd_HSequenceOfTransient) aLocObjs = aCIDS->GetLocations ();
    Standard_Boolean aWithContact = (aCIDS->GetWithContactMode());
    Standard_Boolean aWithCorrect = (aCIDS->GetWithCorrectionMode());

    Standard_Integer i =1, nbBases = aBasesObjs->Length(), 
      nbLocs = (aLocObjs.IsNull() ? 0 :aLocObjs->Length());
    
    if(nbLocs && nbLocs != nbBases)
    {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("Number of sections is not equal to number of locations ");
    }
    TopTools_SequenceOfShape aSeqBases;
    TopTools_SequenceOfShape aSeqLocs;
    TopTools_SequenceOfShape aSeqFaces;
    for( ; i <= nbBases; i++) 
    {
      Handle(Standard_Transient) anItem = aBasesObjs->Value(i);
      if(anItem.IsNull())
	continue;
      Handle(GEOM_Function) aRefBase = Handle(GEOM_Function)::DownCast(anItem);
      if(aRefBase.IsNull())
	continue;
      TopoDS_Shape aShapeBase = aRefBase->GetValue();
      if(aShapeBase.IsNull())
	continue;
      TopAbs_ShapeEnum aTypeBase = aShapeBase.ShapeType();

      //if for section was specified face with a few wires then a few
      //    pipes were build and make solid 
      Standard_Boolean NeedCreateSolid = Standard_False;
      if(aTypeBase == TopAbs_SHELL) {
	// create wire as boundary contour if shell is no closed
	// get free boundary shapes
	ShapeAnalysis_FreeBounds anAnalizer( aShapeBase );
	TopoDS_Compound aClosed = anAnalizer.GetClosedWires();
	TopExp_Explorer anExp;
	TopoDS_Shape aWire;
	Standard_Integer NbWires = 0;
	for ( anExp.Init( aClosed, TopAbs_WIRE ); anExp.More(); anExp.Next() ) {
	  NbWires++;
	  aWire = anExp.Current();
	}
	if(NbWires!=1) {
	  // bad case
	  if(aCI) delete aCI;
	  Standard_ConstructionError::Raise("Bad shell is used as section ");
	}
	NeedCreateSolid = Standard_True;
        aSeqFaces.Append(aShapeBase);
	aSeqBases.Append(aWire);
      }
      else if(aTypeBase == TopAbs_FACE)
      {
	NeedCreateSolid = Standard_True;
	//for case one path should be used other type function
        aSeqFaces.Append(aShapeBase);
        TopExp_Explorer aExpW(aShapeBase,TopAbs_WIRE);
	for( ; aExpW.More(); aExpW.Next())
	{
	  TopoDS_Shape aWireProf = aExpW.Current();
	  aSeqBases.Append(aWireProf);
	}
      }
      else if(aTypeBase == TopAbs_WIRE || aTypeBase == TopAbs_VERTEX) {
        aSeqBases.Append(aShapeBase);
      }
      else if(aTypeBase == TopAbs_EDGE)
      {
        TopoDS_Edge anEdge = TopoDS::Edge(aShapeBase);
	TopoDS_Shape aWireProf = BRepBuilderAPI_MakeWire(anEdge);
	aSeqBases.Append(aWireProf);
      }
      if(nbLocs) 
      {
        Handle(Standard_Transient) anItemLoc = aLocObjs->Value(i);
	if(anItemLoc.IsNull())
	  continue;
	Handle(GEOM_Function) aRefLoc = Handle(GEOM_Function)::DownCast(anItemLoc);
        TopoDS_Shape aShapeLoc = aRefLoc->GetValue();
	if(aShapeLoc.IsNull() || aShapeLoc.ShapeType() != TopAbs_VERTEX)
	  continue;
	aSeqLocs.Append(aShapeLoc);
      }
    }
    
    nbLocs = aSeqLocs.Length();
    Standard_Integer nbShapes = aSeqBases.Length();
    Standard_Integer step = nbShapes/nbBases;
    
    if(nbShapes < nbBases || fmod((double)nbShapes, (double)nbBases))
    {
      if(aCI) delete aCI;
      Standard_ConstructionError::Raise("Invalid sections were specified for building pipe");
    }
     
    Standard_Integer ind =0;	 
    for( i=1; i  <= nbShapes && ind < nbShapes; i++) //i+nbBases <= nbShapes
    {
      TopTools_SequenceOfShape usedBases;
      Standard_Integer j = 1;
      for( ; j <= nbBases ; j++) 
      {
	ind = i + (j-1)*step;
	
	 TopoDS_Shape aWireProf = aSeqBases.Value(ind);
	 usedBases.Append(aWireProf);
	 if(nbLocs) 
	 {
	   TopoDS_Shape aShapeLoc = aSeqLocs.Value(j);
           TopoDS_Vertex aVert = TopoDS::Vertex(aShapeLoc);
           aBuilder.Add(aWireProf,aVert,aWithContact,aWithCorrect);
	 }
	 else
           aBuilder.Add(aWireProf,aWithContact,aWithCorrect);
      }
      if(!aBuilder.IsReady())
      {
	if(aCI) delete aCI;
        Standard_ConstructionError::Raise("Invalid input data for building PIPE: bases are invalid");
      }
      aBuilder.Build();
      aShape = aBuilder.Shape();
      aSeqFaces.Append(aShape);	
      for( j = 1; j <=usedBases.Length(); j++)
        aBuilder.Delete(usedBases.Value(j));
    }
    	
    //for case if section is face 
    if(aSeqFaces.Length() >1)
    {
      BRep_Builder aB;
      TopoDS_Compound aComp;
      aB.MakeCompound(aComp);
      for( i = 1; i <= aSeqFaces.Length(); i++)
        aB.Add(aComp,aSeqFaces.Value(i));
      aShape = aComp;
    }
  }

  //building pipe with shell sections
  else if (aType == PIPE_SHELL_SECTIONS) {
    aShape = CreatePipeForShellSections(aWirePath,aCI);
  }

  if (aShape.IsNull()) return 0;

  BRepCheck_Analyzer ana (aShape, Standard_False);
  if (!ana.IsValid()) {
    if(aCI) delete aCI;
    Standard_ConstructionError::Raise("Algorithm have produced an invalid shape result");
  }

  aFunction->SetValue(aShape);

  log.SetTouched(Label());
  if(aCI) delete aCI;
  return 1;
}


//=======================================================================
//function :  GEOMImpl_PipeDriver_Type_
//purpose  :
//=======================================================================
Standard_EXPORT Handle_Standard_Type& GEOMImpl_PipeDriver_Type_()
{

  static Handle_Standard_Type aType1 = STANDARD_TYPE(TFunction_Driver);
  if ( aType1.IsNull()) aType1 = STANDARD_TYPE(TFunction_Driver);
  static Handle_Standard_Type aType2 = STANDARD_TYPE(MMgt_TShared);
  if ( aType2.IsNull()) aType2 = STANDARD_TYPE(MMgt_TShared);
  static Handle_Standard_Type aType3 = STANDARD_TYPE(Standard_Transient);
  if ( aType3.IsNull()) aType3 = STANDARD_TYPE(Standard_Transient);


  static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,aType3,NULL};
  static Handle_Standard_Type _aType = new Standard_Type("GEOMImpl_PipeDriver",
			                                 sizeof(GEOMImpl_PipeDriver),
			                                 1,
			                                 (Standard_Address)_Ancestors,
			                                 (Standard_Address)NULL);

  return _aType;
}

//=======================================================================
//function : DownCast
//purpose  :
//=======================================================================
const Handle(GEOMImpl_PipeDriver) Handle(GEOMImpl_PipeDriver)::DownCast(const Handle(Standard_Transient)& AnObject)
{
  Handle(GEOMImpl_PipeDriver) _anOtherObject;

  if (!AnObject.IsNull()) {
     if (AnObject->IsKind(STANDARD_TYPE(GEOMImpl_PipeDriver))) {
       _anOtherObject = Handle(GEOMImpl_PipeDriver)((Handle(GEOMImpl_PipeDriver)&)AnObject);
     }
  }

  return _anOtherObject ;
}