5 #############################################
6 # Wrong result done by projection algorithm
7 #############################################
9 restore [locate_data_file OCC26356-f.brep] b1
10 restore [locate_data_file OCC26356-w.brep] b2
14 point p1 31350.009765625 7100 -2.17374844144233e-013
15 set bug_info_1 [projponf b1 p1 -min -g]
16 set bug_info_1 [string trim [string range $bug_info_1 [expr {[string first "=" $bug_info_1] + 1}] [expr {[string length $bug_info_1] - 1}]]]
17 set bug_info_1 [string trim [string range $bug_info_1 0 [expr {[string first " " $bug_info_1] - 1}]]]
18 set bug_info_2 [projponf b1 p1 -minmax -g]
19 set bug_info_2 [string trim [string range $bug_info_2 [expr {[string first "=" $bug_info_2] + 1}] [expr {[string length $bug_info_2] - 1}]]]
20 set bug_info_2 [string trim [string range $bug_info_2 0 [expr {[string first " " $bug_info_2] - 1}]]]
22 point p2 29200.099609375 7100 -2.17374753743702e-013
23 set bug_info_3 [projponf b1 p2 -min -g]
24 set bug_info_3 [string trim [string range $bug_info_3 [expr {[string first "=" $bug_info_3] + 1}] [expr {[string length $bug_info_3] - 1}]]]
25 set bug_info_3 [string trim [string range $bug_info_3 0 [expr {[string first " " $bug_info_3] - 1}]]]
26 set bug_info_4 [projponf b1 p2 -minmax -g]
27 set bug_info_4 [string trim [string range $bug_info_4 [expr {[string first "=" $bug_info_4] + 1}] [expr {[string length $bug_info_4] - 1}]]]
28 set bug_info_4 [string trim [string range $bug_info_4 0 [expr {[string first " " $bug_info_4] - 1}]]]
30 if {$bug_info_1 != $bug_info_2} {
31 puts "ERROR: OCC26356 is reproduced."
32 puts "For point #1: distance min is: ${bug_info_1}, distance minmax is: ${bug_info_2}."
34 if {$bug_info_3 != $bug_info_4} {
35 puts "ERROR: OCC26356 is reproduced."
36 puts "For point #2: distance min is: ${bug_info_3}, distance minmax is: ${bug_info_4}."