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

[occt.git] / tests / lowalgos / proximity / A3

diff --git a/tests/lowalgos/proximity/A3 b/tests/lowalgos/proximity/A3
new file mode 100644 (file)
index 0000000..f878329
--- /dev/null
+++ b/tests/lowalgos/proximity/A3
@@ -0,0 +1,28 @@
+puts "============"
+puts "0033017: Implement an algorithm to find a proximity between a pair of shapes"
+puts "==========="
+puts ""
+
+circle c1 0 -1 0 1 0 0 1
+trim c1 c1 -pi 0
+mkedge e1 c1
+incmesh e1 1.e-3
+
+circle c2 0 1 0 1 0 0 1
+trim c2 c2 0 pi
+mkedge e2 c2
+incmesh e2 1.e-3
+
+set log [proximity e1 e2 -value -profile]
+regexp {Proximity value: ([0-9+-.eE]*)} $log full val;
+
+set tol 1.e-3
+set expected [expr {sqrt(5.0) - 1.}]
+
+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 Border
\ No newline at end of file