puts "============"
puts "0033144: Modeling Algorithms - Wrong result of Shape Proximity"
puts "==========="
puts "" 

restore [locate_data_file bug33144_e1.brep] e1 
restore [locate_data_file bug33144_e2.brep] e2 

incmesh e1 1e-3
incmesh e2 1e-3

set log [proximity e1 e2 -value -profile]
regexp {Proximity value: ([0-9+-.eE]*)} $log full val;

set tol 1.e-3
set expected 0.6996

regexp {Status of ProxPnt1 on ([A-Za-z0-9._-]*) : ([A-Za-z]*)} $log full val1 val2
set status1 ${val2}
set expected_status1 Middle

regexp {Status of ProxPnt2 on ([A-Za-z0-9._-]*) : ([A-Za-z]*)} $log full val1 val2
set status2 ${val2}
set expected_status2 Middle