mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
78aade7569
Extend "proximity" command to be able to compute the proximity value; Implement classes for calculate proximity value between two shapes; Add possibility to set up the number of sample points for the input shapes; Add tests lowalgos/proximity.
28 lines
688 B
Plaintext
28 lines
688 B
Plaintext
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 |