mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
37 lines
772 B
Plaintext
Executable File
37 lines
772 B
Plaintext
Executable File
|
|
puts "========="
|
|
puts " OCC943 "
|
|
puts "(case 2)"
|
|
puts "========="
|
|
puts ""
|
|
#########################################################
|
|
## distinace between projection and initial point in dev version is larger then in C40.
|
|
#########################################################
|
|
|
|
restore [locate_data_file OCC943_2.draw] su
|
|
|
|
set X 5.759527537723098
|
|
set Y 31.81368637070151
|
|
set Z -0.2989616405627145
|
|
|
|
vertex v $X $Y $Z
|
|
proj su $X $Y $Z
|
|
|
|
regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV
|
|
|
|
cvalue ext_1 $resV cx cy cz
|
|
vertex V cx cy cz
|
|
distmini d V v
|
|
|
|
regexp {([-0-9.+eE]+)$} [dump d_val] full res
|
|
|
|
set res_good 1.108e-05
|
|
|
|
if { $res > $res_good } {
|
|
puts ""
|
|
puts "Faulty OCC493 (case 2)"
|
|
} else {
|
|
puts ""
|
|
puts " OCC493 (case 2) OK"
|
|
}
|