mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
37 lines
1.1 KiB
Plaintext
37 lines
1.1 KiB
Plaintext
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"
|
|
}
|
|
|