puts "============"
puts "0033017: Implement an algorithm to find a proximity between a pair of shapes"
puts "==========="
puts "" 

sphere s1 0 1 0 0 0 1 1
trimu s1_1 s1 0 0.5*pi
trimu s1_2 s1 0.5*pi pi

mkface fs1_1 s1_1
mkface fs1_2 s1_2
compound fs1_1 fs1_2 fs1
incmesh fs1 1e-3

plane p1 0 0 0 0 1 0
trim p1 p1 -2 2 -2 2 
mkface f2 p1
incmesh f2 0.001

set log [proximity fs1 f2 -value -profile]

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

set tol 1.e-2
set expected 2.0

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

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