0024519: Intersection of a cylinder and a plane does not return
[occt.git] / tests / bugs / modalg_5 / bug24519
1 puts "=========="
2 puts "OCC24519"
3 puts "=========="
4 puts ""
5 ####################################################################
6 # 0024519: Intersection of a cylinder and a plane does not return
7 ####################################################################
8
9 restore [locate_data_file bug24519_cylinder.brep] cy
10 restore [locate_data_file bug24519_plane.brep] pl
11
12 bsection r1 cy pl
13 section r2 cy pl
14 set exp1 [explode r1]
15 set exp2 [explode r2]
16
17 if { $exp1 != "r1_1" } {
18   puts "Error: First intersection is not returned"
19 }
20 if { $exp2 != "r2_1" } {
21   puts "Error: Second intersection is not returned"
22 }
23
24 set len_check 3.83537
25 checksection r1
26 checksection r2
27 regexp {Mass +: +([-0-9.+eE]+)} [lprops r1] full l1
28 regexp {Mass +: +([-0-9.+eE]+)} [lprops r2] full l2
29 if { [expr 1.*abs($len_check - $l1)/$len_check] > 0.01 || [expr 1.*abs($len_check - $l2)/$len_check] > 0.01 } {
30   puts "Error : The length of first intersection is $l1"
31   puts "Error : The length of second intersection is $l2"
32 } else {
33   puts "OK : The length of first intersection is $l1"
34   puts "OK : The length of second intersection is $l2"
35 }
36