mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-15 11:44:07 +03:00
32 lines
493 B
Plaintext
Executable File
32 lines
493 B
Plaintext
Executable File
|
|
puts "================"
|
|
puts "BUC61035"
|
|
puts "OCC107"
|
|
puts "================"
|
|
puts ""
|
|
|
|
restore [locate_data_file OCC107-1.brep] ee
|
|
puts [checkshape ee]
|
|
restore [locate_data_file OCC107-2.brep] ff
|
|
puts [checkshape ff]
|
|
|
|
distmini dd1 ee ff
|
|
|
|
mkcurve cc ee
|
|
cvalue cc 0 x y z
|
|
vertex vv x y z
|
|
|
|
distmini dd2 vv ff
|
|
|
|
set d1 [dset t dd1_val]
|
|
set d2 [dset t dd2_val]
|
|
|
|
if { [expr abs([expr $d1 - $d2])] > 0.1} then {
|
|
puts "Faulty :WRONG computation of distances."
|
|
} else {
|
|
puts "All is OK"
|
|
}
|
|
|
|
|
|
|