5 ####################################################################
6 # 0024519: Intersection of a cylinder and a plane does not return
7 ####################################################################
9 restore [locate_data_file bug24519_cylinder.brep] cy
10 restore [locate_data_file bug24519_plane.brep] pl
17 if { $exp1 != "r1_1" } {
18 puts "Error: First intersection is not returned"
20 if { $exp2 != "r2_1" } {
21 puts "Error: Second intersection is not returned"
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"
33 puts "OK : The length of first intersection is $l1"
34 puts "OK : The length of second intersection is $l2"