5 #############################################################################
6 # Wrong intersection points found
7 #############################################################################
9 restore [locate_data_file bug26316_shape1.brep] b1
10 restore [locate_data_file bug26316_shape2.brep] b2
15 set log1 [bopcurves b1_10 b2_3]
16 set log2 [bopcurves b1_10 b2_10]
17 set log3 [bopcurves b1_11 b2_1]
18 set log4 [bopcurves b1_11 b2_7]
20 set search_str "has no 3d points"
22 if { [regexp ${search_str} ${log1}] != 1 } {
23 puts "Error : Wrong intersection point found (1)"
25 puts "OK : Good result obtained by intersection algorithm (1)"
28 if { [regexp ${search_str} ${log2}] != 1 } {
29 puts "Error : Wrong intersection point found (2)"
31 puts "OK : Good result obtained by intersection algorithm (2)"
34 if { [regexp ${search_str} ${log3}] != 1 } {
35 puts "Error : Wrong intersection point found (3)"
37 puts "OK : Good result obtained by intersection algorithm (3)"
40 if { [regexp ${search_str} ${log4}] != 1 } {
41 puts "Error : Wrong intersection point found (4)"
43 puts "OK : Good result obtained by intersection algorithm (4)"