Salome HOME
01d1dcd2b5d695357fb678d819522be41692b0f8
[modules/geom.git] / src / GEOMImpl / GEOMImpl_FilletDriver.cxx
1 // Copyright (C) 2007-2012  CEA/DEN, EDF R&D, OPEN CASCADE
2 //
3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
5 //
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
10 //
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 // Lesser General Public License for more details.
15 //
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19 //
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
21 //
22
23 #include <Standard_Stream.hxx>
24
25 #include <GEOMImpl_FilletDriver.hxx>
26 #include <GEOMImpl_IFillet.hxx>
27 #include <GEOMImpl_Types.hxx>
28 #include <GEOMImpl_ILocalOperations.hxx>
29 #include <GEOM_Function.hxx>
30
31 #include <BRepFilletAPI_MakeFillet.hxx>
32 #include <BRepCheck_Analyzer.hxx>
33 #include <BRep_Tool.hxx>
34
35 #include <TopoDS.hxx>
36 #include <TopoDS_Shape.hxx>
37 #include <TopoDS_Edge.hxx>
38 #include <TopAbs.hxx>
39 #include <TopExp_Explorer.hxx>
40
41 #include <ShapeFix_ShapeTolerance.hxx>
42 #include <ShapeFix_Shape.hxx>
43
44 #include <Precision.hxx>
45 #include <gp_Pnt.hxx>
46 #include <StdFail_NotDone.hxx>
47
48 //=======================================================================
49 //function : GetID
50 //purpose  :
51 //=======================================================================
52 const Standard_GUID& GEOMImpl_FilletDriver::GetID()
53 {
54   static Standard_GUID aFilletDriver("FF1BBB41-5D14-4df2-980B-3A668264EA16");
55   return aFilletDriver;
56 }
57
58
59 //=======================================================================
60 //function : GEOMImpl_FilletDriver
61 //purpose  :
62 //=======================================================================
63 GEOMImpl_FilletDriver::GEOMImpl_FilletDriver()
64 {
65 }
66
67 //=======================================================================
68 //function : Execute
69 //purpose  :
70 //=======================================================================
71 Standard_Integer GEOMImpl_FilletDriver::Execute(TFunction_Logbook& log) const
72 {
73   if (Label().IsNull()) return 0;
74   Handle(GEOM_Function) aFunction = GEOM_Function::GetFunction(Label());
75
76   GEOMImpl_IFillet aCI (aFunction);
77   Standard_Integer aType = aFunction->GetType();
78
79   TopoDS_Shape aShape;
80
81   Handle(GEOM_Function) aRefShape = aCI.GetShape();
82   TopoDS_Shape aShapeBase = aRefShape->GetValue();
83   BRepFilletAPI_MakeFillet fill (aShapeBase);
84
85   if (aType == FILLET_SHAPE_ALL) {
86     TopExp_Explorer Exp (aShapeBase, TopAbs_EDGE);
87     for (; Exp.More(); Exp.Next()) {
88       TopoDS_Edge E = TopoDS::Edge(Exp.Current());
89       fill.Add(E);
90     }
91   }
92   else if (aType == FILLET_SHAPE_EDGES || aType == FILLET_SHAPE_EDGES_2R) {
93     int aLen = aCI.GetLength();
94     int ind = 1;
95     for (; ind <= aLen; ind++) {
96       TopoDS_Shape aShapeEdge;
97       if (GEOMImpl_ILocalOperations::GetSubShape
98           (aShapeBase, aCI.GetEdge(ind), aShapeEdge)) {
99           fill.Add(TopoDS::Edge(aShapeEdge));
100       }
101     }
102   }
103   else if (aType == FILLET_SHAPE_FACES || aType == FILLET_SHAPE_FACES_2R) {
104     int aLen = aCI.GetLength();
105     int ind = 1;
106     for (; ind <= aLen; ind++) {
107       TopoDS_Shape aShapeFace;
108       if (GEOMImpl_ILocalOperations::GetSubShape
109           (aShapeBase, aCI.GetFace(ind), aShapeFace)) {
110         TopExp_Explorer Exp (aShapeFace, TopAbs_EDGE);
111         for (; Exp.More(); Exp.Next()) {
112           fill.Add(TopoDS::Edge(Exp.Current()));
113         }
114       }
115     }
116   }
117   else {
118   }
119
120   if (aType == FILLET_SHAPE_FACES || aType == FILLET_SHAPE_EDGES || aType == FILLET_SHAPE_ALL) {
121     for (int i = 1; i <= fill.NbContours(); i++)
122       fill.SetRadius(aCI.GetR(), i, 1);
123   }
124   else if (aType == FILLET_SHAPE_FACES_2R || aType == FILLET_SHAPE_EDGES_2R) {
125     for (int i = 1; i <= fill.NbContours(); i++) {
126       fill.SetRadius(aCI.GetR1(), aCI.GetR2(), i, 1);
127     }
128   }
129
130   fill.Build();
131   if (!fill.IsDone()) {
132     StdFail_NotDone::Raise("Fillet can't be computed on the given shape with the given radius");
133   }
134   aShape = fill.Shape();
135
136   if (aShape.IsNull()) return 0;
137
138   // Check shape validity
139   BRepCheck_Analyzer ana (aShape, false);
140   if (!ana.IsValid()) {
141     // 08.07.2008 added by skl during fixing bug 19761 from Mantis
142     ShapeFix_ShapeTolerance aSFT;
143     aSFT.LimitTolerance(aShape, Precision::Confusion(),
144                         Precision::Confusion(), TopAbs_SHAPE);
145     Handle(ShapeFix_Shape) aSfs = new ShapeFix_Shape(aShape);
146     aSfs->Perform();
147     aShape = aSfs->Shape();
148     ana.Init(aShape);
149     if (!ana.IsValid())
150       StdFail_NotDone::Raise("Fillet algorithm have produced an invalid shape result");
151   }
152
153   aFunction->SetValue(aShape);
154
155   log.SetTouched(Label());
156
157   return 1;
158 }
159
160
161 //=======================================================================
162 //function :  GEOMImpl_FilletDriver_Type_
163 //purpose  :
164 //=======================================================================
165 Standard_EXPORT Handle_Standard_Type& GEOMImpl_FilletDriver_Type_()
166 {
167
168   static Handle_Standard_Type aType1 = STANDARD_TYPE(TFunction_Driver);
169   if ( aType1.IsNull()) aType1 = STANDARD_TYPE(TFunction_Driver);
170   static Handle_Standard_Type aType2 = STANDARD_TYPE(MMgt_TShared);
171   if ( aType2.IsNull()) aType2 = STANDARD_TYPE(MMgt_TShared);
172   static Handle_Standard_Type aType3 = STANDARD_TYPE(Standard_Transient);
173   if ( aType3.IsNull()) aType3 = STANDARD_TYPE(Standard_Transient);
174
175
176   static Handle_Standard_Transient _Ancestors[]= {aType1,aType2,aType3,NULL};
177   static Handle_Standard_Type _aType = new Standard_Type("GEOMImpl_FilletDriver",
178                                                          sizeof(GEOMImpl_FilletDriver),
179                                                          1,
180                                                          (Standard_Address)_Ancestors,
181                                                          (Standard_Address)NULL);
182
183   return _aType;
184 }
185
186 //=======================================================================
187 //function : DownCast
188 //purpose  :
189 //=======================================================================
190 const Handle(GEOMImpl_FilletDriver) Handle(GEOMImpl_FilletDriver)::DownCast(const Handle(Standard_Transient)& AnObject)
191 {
192   Handle(GEOMImpl_FilletDriver) _anOtherObject;
193
194   if (!AnObject.IsNull()) {
195      if (AnObject->IsKind(STANDARD_TYPE(GEOMImpl_FilletDriver))) {
196        _anOtherObject = Handle(GEOMImpl_FilletDriver)((Handle(GEOMImpl_FilletDriver)&)AnObject);
197      }
198   }
199
200   return _anOtherObject ;
201 }