Stitching

Hello

Here is my code so far but I am not getting the desired effect:

Handle(StlMesh_Mesh) stlMesh = RWStl::ReadFile(aFile);

Standard_Integer nrDomains = stlMesh->NbDomains();

StlMesh_MeshExplorer meshExp (stlMesh);
BRepOffsetAPI_Sewing stitcher(1.0e-06, Standard_True, Standard_True, Standard_True, Standard_True);

for (int x = 1; x <= nrDomains; ++x)
{
for (meshExp.InitTriangle (x); meshExp.MoreTriangle (); meshExp.NextTriangle ())
{
gp_XYZ p1, p2, p3;
Standard_Real x1, y1, z1;
Standard_Real x2, y2, z2;
Standard_Real x3, y3, z3;

meshExp.TriangleVertices (x1,y1,z1,x2,y2,z2,x3,y3,z3);
p1.SetCoord(x1,y1,z1);
p2.SetCoord(x2,y2,z2);
p3.SetCoord(x3,y3,z3);

if (!p1.IsEqual(p2,0.0) && !p1.IsEqual(p3,0.0))
{
TopoDS_Vertex vertex1, vertex2, vertex3;

vertex1 = BRepBuilderAPI_MakeVertex(p1);
vertex2 = BRepBuilderAPI_MakeVertex(p2);
vertex3 = BRepBuilderAPI_MakeVertex(p3);

TopoDS_Wire wire = BRepBuilderAPI_MakePolygon(vertex1, vertex2, vertex3, Standard_True);

if(!wire.IsNull())
{
TopoDS_Face face = BRepBuilderAPI_MakeFace(wire);
stitcher.Add(face);
}
}
}
}

stitcher.Perform();
TopoDS_Shape sShape = stitcher.SewedShape();

Attached is also a picture of the result. When I select a face, only a single primitive triangle is chosen and not the entire face...