OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-21 10:13:43 +03:00
Code

0024809: Exception is raised during perform of "bfillds" command on attached shape

Browse Source 
On attached shape command "bfillds -s" hangs in Test Harness on the long time. In debug mode exception is raised.
Vectors are normalized before calculation of an angle.
Added test case bugs/modalg_5/bug24809
This commit is contained in:
emv 2014-04-10 18:20:57 +04:00 committed by apn
parent 622d7f53f5
commit 87696ff746
2 changed files with 1367 additions and 1336 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/IntPolyh/IntPolyh_MaillageAffinage.cxx
View File

@ -2172,10 +2172,23 @@ void CalculPtsInterTriEdgeCoplanaires2(const Standard_Integer TriSurfID,
IntPolyh_StartPoint &SP2, IntPolyh_StartPoint &SP2,
Standard_Integer &NbPoints) Standard_Integer &NbPoints)
{ {
IntPolyh_Point TestParalleles; Standard_Real aDE, aDC;
TestParalleles.Cross(Edge,Cote); //
gp_Vec aVE(Edge.X(), Edge.Y(), Edge.Z());
if(sqrt(TestParalleles.SquareModulus())>MyConfusionPrecision) { gp_Vec aVC(Cote.X(), Cote.Y(), Cote.Z());
//
aDE = aVE.SquareMagnitude();
aDC = aVC.SquareMagnitude();
//
if (aDE > SquareMyConfusionPrecision) {
aVE.Divide(aDE);
}
//
if (aDC > SquareMyConfusionPrecision) {
aVC.Divide(aDC);
}
//
if (!aVE.IsParallel(aVC, MyConfusionPrecision)) {
///Edge and side are not parallel ///Edge and side are not parallel
IntPolyh_Point Per; IntPolyh_Point Per;
Per.Cross(NormaleTri,Cote); Per.Cross(NormaleTri,Cote);

18
tests/bugs/modalg_5/bug24809 Normal file
View File

@ -0,0 +1,18 @@
puts "========="
puts "OCC24809"
puts "========="
puts ""
##############################################################################
# Exception is raised during perform of "bfillds" command on attached shape
##############################################################################
restore [locate_data_file bug24809_test3.brep] b
bclearobjects
bcleartools
set shapes [explode b f]
set nbs [llength $shapes]
for {set i 1} {$i <= $nbs} {incr i} {
baddobjects b_$i
}
bfillds -s