mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
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"
|
|
}
|