5 ####################################
6 ## Extrema between Point and Curve returns three solutions
7 ## (there should be only two), two of these are actually the same
8 ####################################
11 restore [locate_data_file bug29857_1.brep] c
12 set info [proj c -139.04514104219 128.256108703487 -64.9999999999983]
17 regexp {ext_1} $info pp1
18 regexp {ext_2} $info pp2
19 regexp {ext_3} $info pp3
21 puts "Error : Projection is not correct"
23 if { $pp1 != "" && $pp2 != "" } {
24 puts "OK: Projection is correct"
26 puts "Error : Projection is not correct"