}
}
}
-
-#ifdef DEB
-#include <TopoDS_Shape.hxx>
-#include <Poly_Triangulation.hxx>
-#include <TColgp_Array1OfPnt.hxx>
-#include <Poly_Array1OfTriangle.hxx>
-#include <BRep_TFace.hxx>
-#include <TopoDS_Face.hxx>
-
-//=======================================================================
-//function : TriangleShape
-//purpose : shape with triangulation containing triangles
-//=======================================================================
-static TopoDS_Shape TriangleShape(const IntPolyh_ArrayOfTriangles & TTriangles,
- const IntPolyh_ArrayOfPoints & TPoints)
-{
- TopoDS_Face aFace;
- if (TPoints.NbItems() < 1 || TTriangles.NbItems() < 1) return aFace;
-
- Handle(Poly_Triangulation) aPTriangulation =
- new Poly_Triangulation(TPoints.NbItems(),TTriangles.NbItems(),Standard_False);
- TColgp_Array1OfPnt & aPNodes = aPTriangulation->ChangeNodes();
- Poly_Array1OfTriangle & aPTrialgles = aPTriangulation->ChangeTriangles();
-
- Standard_Integer i;
- for (i=0; i<TPoints.NbItems(); i++) {
- const IntPolyh_Point& P = TPoints[i];
- aPNodes(i+1).SetCoord(P.X(), P.Y(), P.Z());
- }
- for (i=0; i<TTriangles.NbItems(); i++) {
- const IntPolyh_Triangle& T = TTriangles[i];
- aPTrialgles(i+1).Set(T.FirstPoint()+1, T.SecondPoint()+1, T.ThirdPoint()+1);
- }
-
- Handle(BRep_TFace) aTFace = new BRep_TFace;
- aTFace->Triangulation(aPTriangulation);
- aFace.TShape(aTFace);
- return aFace;
-}
-#endif
-
-//#define MyTolerance 10.0e-7
-//#define MyConfusionPrecision 10.0e-12
-//#define SquareMyConfusionPrecision 10.0e-24