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

0024519: Intersection of a cylinder and a plane does not return

Browse Source 
Added test case bugs/modalg_5/bug24519
This commit is contained in:
apn 2014-10-31 13:34:03 +03:00 committed by bugmaster
parent dbf0485ef0
commit 3edc7eea42
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/bugs/modalg_5/bug24519 Normal file
View File

@ -0,0 +1,36 @@
puts "=========="
puts "OCC24519"
puts "=========="
puts ""
####################################################################
# 0024519: Intersection of a cylinder and a plane does not return
####################################################################
restore [locate_data_file bug24519_cylinder.brep] cy
restore [locate_data_file bug24519_plane.brep] pl
bsection r1 cy pl
section r2 cy pl
set exp1 [explode r1]
set exp2 [explode r2]
if { $exp1 != "r1_1" } {
puts "Error: First intersection is not returned"
}
if { $exp2 != "r2_1" } {
puts "Error: Second intersection is not returned"
}
set len_check 3.83537
checksection r1
checksection r2
regexp {Mass +: +([-0-9.+eE]+)} [lprops r1] full l1
regexp {Mass +: +([-0-9.+eE]+)} [lprops r2] full l2
if { [expr 1.*abs($len_check - $l1)/$len_check] > 0.01 || [expr 1.*abs($len_check - $l2)/$len_check] > 0.01 } {
puts "Error : The length of first intersection is $l1"
puts "Error : The length of second intersection is $l2"
} else {
puts "OK : The length of first intersection is $l1"
puts "OK : The length of second intersection is $l2"
}