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

0024142: Wrong section curve

Browse Source 
Modified intersection of two conical surfaces with almost the same axis of revolution
Test cases for issue CR24142
This commit is contained in:
azv 2013-09-26 20:34:09 +04:00 committed by bugmaster
parent cccf81ea2a
commit b045e6a40b
3 changed files with 38 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/IntAna/IntAna_QuadQuadGeo.cxx
View File

@ -1234,13 +1234,14 @@ gp_Ax2 DirToAx2(const gp_Pnt& P,const gp_Dir& D)
Standard_Real DistA1A2=A1A2.Distance();
gp_Dir DA1=Con1.Position().Direction();
gp_Vec O1O2(Con1.Apex(),Con2.Apex());
Standard_Real O1O2_DA1=gp_Vec(DA1).Dot(O1O2);
gp_Vec O1_Proj_A2(O1O2.X()-O1O2_DA1*DA1.X(),
O1O2.Y()-O1O2_DA1*DA1.Y(),
O1O2.Z()-O1O2_DA1*DA1.Z());
gp_Dir O1O2n(O1O2); // normalization of the vector before projection
Standard_Real O1O2_DA1=gp_Vec(DA1).Dot(gp_Vec(O1O2n));
gp_Vec O1_Proj_A2(O1O2n.X()-O1O2_DA1*DA1.X(),
O1O2n.Y()-O1O2_DA1*DA1.Y(),
O1O2n.Z()-O1O2_DA1*DA1.Z());
gp_Dir DB1=gp_Dir(O1_Proj_A2);
Standard_Real yO1O2=O1O2.Dot(gp_Vec(DA1));
Standard_Real ABSTG1 = Abs(tg1);
Standard_Real X2 = (DistA1A2/ABSTG1 - yO1O2)*0.5;

4
tests/bugs/modalg_5/bug24035
View File

@ -16,11 +16,11 @@ decho on
set status 0
if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info1] != 1 } {
puts "Error : There is no 2 mistakes by checkshape on face1
puts "Error : There is no 2 mistakes by checkshape on face1"
set status 1
}
if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" $info2] != 1 } {
puts "Error : There is no 2 mistakes by checkshape on face2
puts "Error : There is no 2 mistakes by checkshape on face2"
set stauts 1
}

29
tests/bugs/moddata_3/bug24142 Executable file
View File

@ -0,0 +1,29 @@
puts "================"
puts "OCC24142"
puts "================"
puts ""
#################################################################
## Wrong section curve
#################################################################
restore [locate_data_file OCC152.brep] sh
explode sh f
mksurface s1 sh_3
mksurface s2 sh_5
trim st1 s1 0 6.28318530717959 0 74.9999999999999
trim st2 s2 0 6.28318530717959 -74.0551172696384 125.944882730362
intersect i st1 st2
dlog reset
dlog on
xdistcs i st2 0 1 10
set log_on [dlog get]
if { [regexp "i is null curve" ${log_on}] != 1 } {
puts "Error : Wrong section curve"
}
set 2dviewer 1