mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
36 lines
885 B
Plaintext
Executable File
36 lines
885 B
Plaintext
Executable File
|
|
puts "========"
|
|
puts "BUC60870"
|
|
puts "========"
|
|
|
|
pload QAcommands
|
|
|
|
vertex vertex_1 0 0 0
|
|
vertex vertex_2 0 1 0
|
|
vertex vertex_3 0 0.3 1
|
|
|
|
edge edge_1 vertex_1 vertex_2
|
|
|
|
set result [BUC60870 test_result edge_1 vertex_3 2.0]
|
|
|
|
if {[llength ${result}] < 4} {
|
|
puts "BUC60870: Error; must be 3 solutions"
|
|
} else {
|
|
set MinimumDistance [dval test_result_val]
|
|
set TheorMinimumDistance 1.0
|
|
set percent_max 1.0
|
|
set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
|
|
if {${percent} > ${percent_max}} {
|
|
puts "MinimumDistance=${MinimumDistance}"
|
|
puts "TheorMinimumDistance=${TheorMinimumDistance}"
|
|
puts "percent=${percent}"
|
|
puts "percent_max=${percent_max}"
|
|
puts "BUC60870: Error; bad value of minimum distance"
|
|
} else {
|
|
puts "BUC60870: OK"
|
|
}
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|