1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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"
}
|
