diff --git a/src/BinMNaming/BinMNaming_NamedShapeDriver.cdl b/src/BinMNaming/BinMNaming_NamedShapeDriver.cdl
index 87da7b09c6..601c8ec417 100644
--- a/src/BinMNaming/BinMNaming_NamedShapeDriver.cdl
+++ b/src/BinMNaming/BinMNaming_NamedShapeDriver.cdl
@@ -50,6 +50,10 @@ is
     Clear (me:mutable);
       ---Purpose: Clear myShapeSet 
        
+    SetWithTriangles(me: mutable; isWithTriangles : Boolean from Standard);  
+    ---C++: inline 
+    ---Purpose: set whether to store triangulation  
+       
     SetFormatNb(me: mutable; theFormat : Integer from Standard);  
     ---C++: inline 
     ---Purpose: set the format of topology  
diff --git a/src/BinMNaming/BinMNaming_NamedShapeDriver.lxx b/src/BinMNaming/BinMNaming_NamedShapeDriver.lxx
index 38fc25a13a..da9a59daeb 100644
--- a/src/BinMNaming/BinMNaming_NamedShapeDriver.lxx
+++ b/src/BinMNaming/BinMNaming_NamedShapeDriver.lxx
@@ -33,6 +33,16 @@ inline void BinMNaming_NamedShapeDriver::SetFormatNb(const Standard_Integer theF
   myFormatNb = theFormatNb;
 }
 
+//=======================================================================
+//function : SetWithTriangles
+//purpose  : 
+//=======================================================================
+
+inline void BinMNaming_NamedShapeDriver::SetWithTriangles(const Standard_Boolean isWithTriangles) 
+{
+  myShapeSet.SetWithTriangles(isWithTriangles);
+}
+
 //=======================================================================
 //function : GetShapesLocations
 //purpose  : 
diff --git a/src/BinTools/BinTools_ShapeSet.cdl b/src/BinTools/BinTools_ShapeSet.cdl
index 653ee96c6a..d6060f8778 100644
--- a/src/BinTools/BinTools_ShapeSet.cdl
+++ b/src/BinTools/BinTools_ShapeSet.cdl
@@ -41,6 +41,9 @@ is
     Delete(me:out) is virtual;
     ---C++: alias "Standard_EXPORT virtual ~BinTools_ShapeSet(){Delete() ; }"
 
+    SetWithTriangles(me : out; isWithTriangles : Boolean) is static;
+        ---Purpose: Define if shape will be stored with triangles 
+
     SetFormatNb(me : out; theFormatNb : Integer) is static; 
     
     FormatNb(me) returns Integer is static;
diff --git a/src/BinTools/BinTools_ShapeSet.cxx b/src/BinTools/BinTools_ShapeSet.cxx
index 7c62d45aef..1aa3a5b1db 100644
--- a/src/BinTools/BinTools_ShapeSet.cxx
+++ b/src/BinTools/BinTools_ShapeSet.cxx
@@ -80,6 +80,15 @@ BinTools_ShapeSet::BinTools_ShapeSet(const Standard_Boolean isWithTriangles)
 void BinTools_ShapeSet::Delete()
 {}
 
+//=======================================================================
+//function : SetWithTriangles
+//purpose  : 
+//=======================================================================
+void BinTools_ShapeSet::SetWithTriangles(const Standard_Boolean isWithTriangles)
+{
+  myWithTriangles = isWithTriangles;
+}
+
 //=======================================================================
 //function : SetFormatNb
 //purpose  :