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

0023177: Intersection of plane and torus misses a result and never produces analytical result

Browse Source 
Creation of the test case.
This commit is contained in:
nbv 2017-05-29 17:35:06 +03:00 committed by bugmaster
parent ee2be2a881
commit 75b9688a9f
2 changed files with 116 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
tests/bugs/modalg_6/bug23177_1 Normal file
View File

@ -0,0 +1,58 @@
puts "========"
puts "OCC23177"
puts "========"
puts ""
####################################################################
# Intersection of plane and torus misses a result and never produces analytical result
####################################################################
set GoodNbCurv 2
torus s1 100 10
plane s2 0 0 0 0 1 0
intersect res s1 s2
set che [whatis res]
set ind [string first "3d curve" $che]
if {${ind} >= 0} {
#Only variable "res" exists
renamevar res res_1
}
set ic 1
set AllowRepeate 1
while { $AllowRepeate != 0 } {
set che [whatis res_$ic]
set ind [string first "3d curve" $che]
if {${ind} < 0} {
set AllowRepeate 0
break;
} else {
if { ![regexp "Circle" [dump res_$ic]] } {
puts "Error: Intersection result must be circle"
}
bounds res_$ic U1 U2
checkreal CurveBoundaries [dval U2-U1] [dval 2*pi] 1.0e-10 0.0
xdistcs res_$ic s1 U1 U2 10 1.0e-7
xdistcs res_$ic s2 U1 U2 10 1.0e-7
incr ic
}
}
if {[expr {$ic - 1}] == $GoodNbCurv} {
puts "OK: Number of curves is good!"
} else {
puts "Error: $GoodNbCurv is expected but [expr {$ic - 1}] is found!"
}
smallview
don res_*
fit
don s1 s2
disp res_*
checkview -screenshot -2d -path ${imagedir}/${test_image}.png

58
tests/bugs/modalg_6/bug23177_2 Normal file
View File

@ -0,0 +1,58 @@
puts "========"
puts "OCC23177"
puts "========"
puts ""
####################################################################
# Intersection of plane and torus misses a result and never produces analytical result
####################################################################
set GoodNbCurv 2
torus s1 100 10
plane s2 0 0 0 1 0 0
intersect res s1 s2
set che [whatis res]
set ind [string first "3d curve" $che]
if {${ind} >= 0} {
#Only variable "res" exists
renamevar res res_1
}
set ic 1
set AllowRepeate 1
while { $AllowRepeate != 0 } {
set che [whatis res_$ic]
set ind [string first "3d curve" $che]
if {${ind} < 0} {
set AllowRepeate 0
break;
} else {
if { ![regexp "Circle" [dump res_$ic]] } {
puts "Error: Intersection result must be circle"
}
bounds res_$ic U1 U2
checkreal CurveBoundaries [dval U2-U1] [dval 2*pi] 1.0e-10 0.0
xdistcs res_$ic s1 U1 U2 10 1.0e-7
xdistcs res_$ic s2 U1 U2 10 1.0e-7
incr ic
}
}
if {[expr {$ic - 1}] == $GoodNbCurv} {
puts "OK: Number of curves is good!"
} else {
puts "Error: $GoodNbCurv is expected but [expr {$ic - 1}] is found!"
}
smallview
don res_*
fit
don s1 s2
disp res_*
checkview -screenshot -2d -path ${imagedir}/${test_image}.png