PAL8395: Improve CheckCompoundOfBlocks and RemoveExtraEdges. Improvement done by...

[modules/geom.git] / src / GEOMAlgo / GEOMAlgo_Tools.cdl

diff --git a/src/GEOMAlgo/GEOMAlgo_Tools.cdl b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
index 54b4c032724185515e221ac1250de887515299cf..7b50b0c3969cb8ba3505a7f27ec814670fee556a 100644 (file)
--- a/src/GEOMAlgo/GEOMAlgo_Tools.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
@@ -11,9 +11,10 @@ class Tools from GEOMAlgo
 
 uses    
     Pnt from gp, 
-    Surface from Geom,  
-    Edge from TopoDS, 
-    Face from TopoDS, 
+    Surface from Geom, 
+    ShapeEnum from TopAbs,  
+    Edge  from TopoDS, 
+    Face  from TopoDS, 
     Shape from TopoDS,
     ListOfShape from TopTools,  
     IndexedDataMapOfShapeListOfShape from TopTools,
@@ -23,6 +24,10 @@ uses
 --raises
 
 is   
+    IsCompositeShape(myclass;  
+           aS  :Shape from TopoDS) 
+       returns Boolean from Standard;    
+
     RefineSDShapes(myclass; 
            aMSD:out IndexedDataMapOfPassKeyListOfShape from GEOMAlgo; 
            aTol:Real from Standard; 
@@ -83,6 +88,7 @@ is
     IsUPeriodic(myclass;  
            aS:Surface from Geom) 
        returns Boolean from Standard;   
+
 --fields
 
 end Tools;