0024023: Revamp the OCCT Handle -- general
[occt.git] / src / ShapeUpgrade / ShapeUpgrade_ShellSewing.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 //szv#4 S4163
15 #include <ShapeUpgrade_ShellSewing.ixx>
16
17 #include <TopoDS.hxx>
18 #include <TopoDS_Shell.hxx>
19 #include <TopoDS_Solid.hxx>
20 #include <TopExp_Explorer.hxx>
21
22 #include <BRepBuilderAPI_Sewing.hxx>
23 #include <BRepClass3d_SolidClassifier.hxx>
24
25 #include <ShapeAnalysis_ShapeTolerance.hxx>
26 #include <ShapeUpgrade_WireDivide.hxx>
27
28 //=======================================================================
29 //function : ShapeUpgrade_ShellSewing
30 //purpose  : 
31 //=======================================================================
32
33 ShapeUpgrade_ShellSewing::ShapeUpgrade_ShellSewing()
34 {
35   myReShape = new ShapeBuild_ReShape;
36 }
37
38 //=======================================================================
39 //function : ApplySewing
40 //purpose  : 
41 //=======================================================================
42
43 void ShapeUpgrade_ShellSewing::Init (const TopoDS_Shape& shape) 
44 {
45   if (shape.IsNull()) return;
46   if (shape.ShapeType() == TopAbs_SHELL) myShells.Add (shape);
47   else {
48     for (TopExp_Explorer exs (shape,TopAbs_SHELL); exs.More(); exs.Next()) {
49       myShells.Add (exs.Current());
50     }
51   }
52 }
53
54 //=======================================================================
55 //function : Prepare
56 //purpose  : 
57 //=======================================================================
58
59 Standard_Integer ShapeUpgrade_ShellSewing::Prepare (const Standard_Real tol) 
60 {
61   Standard_Integer nb = myShells.Extent(), ns = 0;
62   for ( Standard_Integer i = 1; i <= nb; i ++) {
63     TopoDS_Shell sl = TopoDS::Shell ( myShells.FindKey (i) );
64     BRepBuilderAPI_Sewing ss ( tol );
65     TopExp_Explorer exp(sl,TopAbs_FACE);
66     for (; exp.More(); exp.Next()) ss.Add(exp.Current());
67     ss.Perform();
68     TopoDS_Shape newsh = ss.SewedShape();
69     if (!newsh.IsNull()) { myReShape->Replace (sl,newsh); ns ++; }
70   }
71   return ns;
72 }
73
74 //=======================================================================
75 //function : Apply
76 //purpose  : 
77 //=======================================================================
78
79 TopoDS_Shape ShapeUpgrade_ShellSewing::Apply (const TopoDS_Shape& shape, 
80                                               const Standard_Real tol) 
81 {
82   if ( shape.IsNull() || myShells.Extent() == 0 ) return shape;
83
84   TopoDS_Shape res = myReShape->Apply ( shape, TopAbs_FACE, 2 );
85
86   //  A present orienter les solides correctement
87   myReShape->Clear(); 
88   Standard_Integer ns = 0;
89   for (TopExp_Explorer exd (shape,TopAbs_SOLID); exd.More(); exd.Next()) {
90     TopoDS_Solid sd = TopoDS::Solid ( exd.Current() );
91     BRepClass3d_SolidClassifier bsc3d (sd);
92     bsc3d.PerformInfinitePoint ( tol );
93     if (bsc3d.State() == TopAbs_IN) { myReShape->Replace (sd,sd.Reversed()); ns++; }
94   }
95
96   //szv#4:S4163:12Mar99 optimized
97   if (ns != 0) res = myReShape->Apply( res, TopAbs_SHELL, 2 );
98
99   return res;
100 }
101
102 //=======================================================================
103 //function : ApplySewing
104 //purpose  : 
105 //=======================================================================
106
107 TopoDS_Shape ShapeUpgrade_ShellSewing::ApplySewing (const TopoDS_Shape& shape,
108                                                     const Standard_Real tol) 
109 {
110   if (shape.IsNull()) return shape;
111
112   Standard_Real t = tol;
113   if (t <= 0.) {
114     ShapeAnalysis_ShapeTolerance stu;
115     t = stu.Tolerance (shape,0);    // tolerance moyenne
116   }
117
118   Init ( shape );
119   if ( Prepare ( t ) ) return Apply ( shape, t );
120
121   return TopoDS_Shape();
122 }