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

0024643: No section curve between plane and cone

Browse Source 
Test case for issue CR24643

Correction of test case for issue CR24643
This commit is contained in:
ifv 2014-12-11 16:27:38 +03:00 committed by bugmaster
parent d0607a766f
commit db005e48df
2 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/IntStart/IntStart_SearchOnBoundaries.gxx
View File

@ -247,7 +247,7 @@ void BoundedArc (const TheArc& A,
if (!Sol.IsDone()) {Standard_Failure::Raise();}
Nbp=Sol.NbPoints();
//
//jgv: build solution on the whole boundary
if (RecheckOnRegularity && Nbp > 0 && IsRegularity(A, Domain))
{
@ -658,7 +658,8 @@ void PointProcess (const gp_Pnt& Pt,
{
Standard_Real TOL=Tol;
TOL*=1000.0;
if(TOL>0.001) TOL=0.001;
//if(TOL>0.001) TOL=0.001;
if(TOL>0.005) TOL=0.005; //#24643
ptsol.SetValue(Pt,TOL,A,Para);
pnt.Append(ptsol);

32
tests/bugs/modalg_5/bug24643 Executable file
View File

@ -0,0 +1,32 @@
puts "================"
puts "OCC24643"
puts "================"
puts ""
#######################################################################
# No section curve between plane and cone
#######################################################################
restore [locate_data_file bug24643_b1.brep] b1
restore [locate_data_file bug24643_b2.brep] b2
bopcurves b1 b2
regexp {The length c_1 is ([-0-9.+eE]+)} [length c_1] full Curve_Length
set expected_length 107.39085794960783
set tol_abs_length 1.e-3
set tol_rel_length 0.01
checkreal "Curve length" ${Curve_Length} ${expected_length} ${tol_abs_length} ${tol_rel_length}
set log [dump c_1]
if {[regexp {Trimmed +curve} ${log}]} {
puts "OK: section curve is good"
} else {
puts "Error: section curve is bad"
}
smallview
donly c_1 b1 b2
fit
set only_screen_axo 1