Fix for the bug IPAL22851: Sub-shapes spelling

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

diff --git a/src/GEOMAlgo/GEOMAlgo_Tools3D.cdl b/src/GEOMAlgo/GEOMAlgo_Tools3D.cdl
index e781a94398ab1e9aed831c680944f4be92673277..a3f0033f759008d9ccf7b93a2111631f8cc3717c 100755 (executable)
--- a/src/GEOMAlgo/GEOMAlgo_Tools3D.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_Tools3D.cdl
@@ -1,26 +1,29 @@
--- Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+-- Copyright (C) 2007-2011  CEA/DEN, EDF R&D, OPEN CASCADE
+--
+-- Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
 -- CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
--- 
+--
 -- This library is free software; you can redistribute it and/or
 -- modify it under the terms of the GNU Lesser General Public
--- License as published by the Free Software Foundation; either 
+-- License as published by the Free Software Foundation; either
 -- version 2.1 of the License.
--- 
--- This library is distributed in the hope that it will be useful 
--- but WITHOUT ANY WARRANTY; without even the implied warranty of 
--- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
+--
+-- This library is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 -- Lesser General Public License for more details.
 --
--- You should have received a copy of the GNU Lesser General Public  
--- License along with this library; if not, write to the Free Software 
+-- You should have received a copy of the GNU Lesser General Public
+-- License along with this library; if not, write to the Free Software
 -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 --
 -- See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
--- 
+--
+
 -- File:       GEOMAlgo_Tools3D.cdl
 -- Created:    
 -- Author:     Peter KURNEV  
-
+--
 class Tools3D from GEOMAlgo 
 
        ---Purpose:  Auxiliary tools for Algorithms   
@@ -29,6 +32,7 @@ uses
     State     from TopAbs,
     ShapeEnum from TopAbs, 
     Pnt from gp, 
+    Pnt2d from gp, 
     Shape  from TopoDS, 
     Vertex from TopoDS,
     Edge   from TopoDS, 
@@ -170,7 +174,8 @@ is
                theFace  :Face from TopoDS; 
                theEdge  :Edge from TopoDS; 
                theFace1 :Face from TopoDS; 
-               theFace2 :Face from TopoDS) 
+               theFace2 :Face from TopoDS; 
+               theContext:out Context from IntTools) 
        ---Purpose: Returns True if the face theFace is inside of the  
        --          couple of faces theFace1, theFace2. 
        --          The faces theFace, theFace1, theFace2  must 
@@ -180,7 +185,8 @@ is
     IsInternalFace(myclass; 
                theFace :Face  from TopoDS; 
                theEdge :Edge  from TopoDS; 
-               theLF   :ListOfShape from TopTools)  
+               theLF   :ListOfShape from TopTools; 
+               theContext:out Context from IntTools)  
        ---Purpose: Returns True if the face theFace is inside of the  
        --          appropriate couple of faces (from the set theLF)    . 
        --          The faces of the set theLF and theFace  must 
@@ -230,6 +236,18 @@ is
         --          If the method  returns True theEdgeOff is the 
         --          edge founded        
        returns Boolean from Standard; 
+       
+--modified by NIZNHY-PKV Tue Nov 22 12:18:30 2011f
+    PntInFace(myclass;  
+               theF  :  Face from TopoDS; 
+               theP  :out  Pnt from gp; 
+               theP2D:out  Pnt2d from gp) 
+       ---Purpose: Computes a point <theP> inside the face <theF>. 
+        --          <theP2D> -  2D  representation of <theP>   
+        --          on the surface of <theF>    
+       --          Returns 0 in case of success.  
+       returns Integer from Standard;  
+--modified by NIZNHY-PKV Tue Nov 22 12:18:36 2011t 
 
 --fields
 end Tools3D;