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

cylinder cy1 0 0 1 1 0 0 0.1
trim cy1 cy1 -pi/2. pi/2. 0 1
mkface fcy1 cy1
incmesh fcy1 1.e-5

cylinder cy2 0 0 0 1 0 0 0.1
trim cy2 cy2 pi/2. -pi/2. 0 1
mkface fcy2 cy2
incmesh fcy2 1.e-5 

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

set tol 1.e-3
set expected 1.2

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 Border