OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0028601: ShapeFix_Shape increases tolerance of sub-shapes of a valid shape

Browse Source 
- Avoid increase of edge/vertex tolerance if the distance between 3D curve and p-curve is within old tolerance.
This commit is contained in:
imn 2017-04-14 15:15:18 +03:00 committed by bugmaster
parent ec96437207
commit 0af424c23c
3 changed files with 38 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/ShapeFix/ShapeFix.cxx
View File

@ -210,6 +210,7 @@ Standard_Boolean ShapeFix::SameParameter(const TopoDS_Shape& shape,
Standard_Real tol0 = BRep_Tool::Tolerance(edge);
tol = tol0;
Standard_Real tol2 = tol*tol;
Standard_Boolean isChanged = Standard_False;
const Standard_Integer NCONTROL = 23;
for ( Standard_Integer i = 0; i < NCONTROL; i++ )
{
@ -217,17 +218,23 @@ Standard_Boolean ShapeFix::SameParameter(const TopoDS_Shape& shape,
gp_Pnt pnt = crv->Value ( par );
gp_Pnt prj = ACS.Value( par );
Standard_Real dist = pnt.SquareDistance(prj);
if ( tol2 < dist )
tol2 = dist;
}
tol = 1.00005 * sqrt(tol2); // coeff: see trj3_pm1-ct-203.stp #19681, edge 10
if ( tol >= tol0 )
{
B.UpdateEdge ( edge, tol );
for ( TopoDS_Iterator itV(edge); itV.More(); itV.Next() )
if ( tol2 < dist )
{
TopoDS_Shape S = itV.Value();
B.UpdateVertex ( TopoDS::Vertex ( S ), tol );
tol2 = dist;
isChanged = Standard_True;
}
}
if ( isChanged )
{
tol = 1.00005 * sqrt(tol2); // coeff: see trj3_pm1-ct-203.stp #19681, edge 10
if ( tol >= tol0 )
{
B.UpdateEdge ( edge, tol );
for ( TopoDS_Iterator itV(edge); itV.More(); itV.Next() )
{
TopoDS_Shape S = itV.Value();
B.UpdateVertex ( TopoDS::Vertex ( S ), tol );
}
}
}
}

2
tests/bugs/heal/bug329
View File

@ -1,5 +1,3 @@
puts "TODO OCC12345 ALL: Error : Tolerance invalid. Function FixShape works WRONGLY"
puts "========================"
puts " OCC329 "
puts "========================"

21
tests/bugs/modalg_6/bug28601 Normal file
View File

@ -0,0 +1,21 @@
puts "========"
puts "OCC28601"
puts "========"
puts ""
###################################################################
# ShapeFix_Shape increases tolerance of sub-shapes of a valid shape
###################################################################
box b 10 10 10
set tol_before [checkmaxtol b]
fixshape b1 b
set tol_after [checkmaxtol b1]
puts "MAX tolerance shape before fixshape : $tol_before"
puts "MAX tolerance shape after fixshape : $tol_after"
if { ${tol_after} > ${tol_before} } {
puts "Error: Export /Import cause increasing tolerances of shape"
} else {
puts "Export /Import does not cause increasing tolerances of shape"
}