+
+//================================================================================
+/*!
+ * \brief Check if a shape includes sub-shapes of a given dimension
+ */
+//================================================================================
+
+bool GenericHypothesisCreator_i::IsShapeOfDim( const TopoDS_Shape & S,
+ int dim )
+{
+ TopAbs_ShapeEnum shapeType;
+ switch ( dim )
+ {
+ case 0: shapeType = TopAbs_VERTEX; break;
+ case 1: shapeType = TopAbs_EDGE; break;
+ case 2: shapeType = TopAbs_FACE; break;
+ case 3: shapeType = TopAbs_SOLID; break;
+ default: return true;
+ }
+ return TopExp_Explorer( S, shapeType ).More();
+}