mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +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
90 lines
3.2 KiB
Plaintext
Executable File
90 lines
3.2 KiB
Plaintext
Executable File
puts "========"
|
|
puts "BUC60857"
|
|
puts "========"
|
|
|
|
vinit
|
|
BUC60857
|
|
vfit
|
|
|
|
set Property_BLUE [sprops BUC60857_BLUE]
|
|
set Square_BLUE [lindex ${Property_BLUE} 2]
|
|
|
|
set Property_RED [sprops BUC60857_RED]
|
|
set Square_RED [lindex ${Property_RED} 2]
|
|
|
|
set Property_GREEN [sprops BUC60857_GREEN]
|
|
set Square_GREEN [lindex ${Property_GREEN} 2]
|
|
|
|
boundingstr BUC60857_BLUE xmin_BLUE ymin_BLUE zmin_BLUE xmax_BLUE ymax_BLUE zmax_BLUE
|
|
boundingstr BUC60857_RED xmin_RED ymin_RED zmin_RED xmax_RED ymax_RED zmax_RED
|
|
boundingstr BUC60857_GREEN xmin_GREEN ymin_GREEN zmin_GREEN xmax_GREEN ymax_GREEN zmax_GREEN
|
|
|
|
set delta_Square_GB [expr abs(${Square_GREEN} - ${Square_BLUE}) / ${Square_BLUE} * 100]
|
|
set delta_Square_BR [expr ${Square_BLUE} / ${Square_RED}]
|
|
|
|
set delta_xmin_GB [expr abs([dval xmin_GREEN] - [dval xmin_BLUE]) / [dval xmin_BLUE] * 100]
|
|
set delta_ymin_GB [expr abs([dval ymin_GREEN] - [dval ymin_BLUE]) / [dval ymin_BLUE] * 100]
|
|
set delta_zmin_GB [expr abs([dval zmin_GREEN] - [dval zmin_BLUE]) / [dval zmin_BLUE] * 100]
|
|
set delta_xmax_GB [expr abs([dval xmax_GREEN] - [dval xmax_BLUE]) / [dval xmax_BLUE] * 100]
|
|
set delta_ymax_GB [expr abs([dval ymax_GREEN] - [dval ymax_BLUE]) / [dval ymax_BLUE] * 100]
|
|
set delta_zmax_GB [expr abs([dval zmax_GREEN] - [dval zmax_BLUE]) / [dval zmax_BLUE] * 100]
|
|
|
|
set delta_xmin_RB [expr abs([dval xmin_RED] - [dval xmin_BLUE]) / [dval xmin_BLUE] * 100]
|
|
set delta_ymin_RB [expr abs([dval ymin_RED] - [dval ymin_BLUE]) / [dval ymin_BLUE] * 100]
|
|
set delta_zmin_RB [expr abs([dval zmin_RED] - [dval zmin_BLUE]) / [dval zmin_BLUE] * 100]
|
|
set delta_xmax_RB [expr abs([dval xmax_RED] - [dval xmax_BLUE]) / [dval xmax_BLUE] * 100]
|
|
set delta_ymax_RB [expr abs([dval ymax_RED] - [dval ymax_BLUE]) / [dval ymax_BLUE] * 100]
|
|
set delta_zmax_RB [expr abs([dval zmax_RED] - [dval zmax_BLUE]) / [dval zmax_BLUE] * 100]
|
|
|
|
set H_BLUE [expr [dval zmax_BLUE] - [dval zmin_BLUE] ]
|
|
set H_RED [expr [dval zmax_RED] - [dval zmin_RED] ]
|
|
set delta_H_RB [expr abs(${H_RED} - ${H_BLUE}) / ${H_BLUE} * 100]
|
|
|
|
set maxdelta 0.01
|
|
|
|
if {${delta_Square_GB} > ${maxdelta}} {
|
|
puts "delta_Square_GB = ${delta_Square_GB}"
|
|
puts "maxdelta = ${maxdelta}"
|
|
puts "BUC60857: ERROR (case 1)"
|
|
} else {
|
|
puts "BUC60857: OK (case 1)"
|
|
}
|
|
|
|
if {${delta_Square_BR} > 3.0 || \
|
|
${delta_Square_BR} < 2.9 } {
|
|
puts "delta_Square_BR = ${delta_Square_BR}"
|
|
puts "delta_Square_BR = ${delta_Square_BR}"
|
|
puts "BUC60857: ERROR (case 2)"
|
|
} else {
|
|
puts "BUC60857: OK (case 2)"
|
|
}
|
|
|
|
if {${delta_xmin_GB} > ${maxdelta} || \
|
|
${delta_ymin_GB} > ${maxdelta} || \
|
|
${delta_zmin_GB} > ${maxdelta} || \
|
|
${delta_xmax_GB} > ${maxdelta} || \
|
|
${delta_ymax_GB} > ${maxdelta} || \
|
|
${delta_zmax_GB} > ${maxdelta} } {
|
|
puts "delta_xmin_GB = ${delta_xmin_GB}"
|
|
puts "delta_ymin_GB = ${delta_ymin_GB}"
|
|
puts "delta_zmin_GB = ${delta_zmin_GB}"
|
|
puts "delta_xmax_GB = ${delta_xmax_GB}"
|
|
puts "delta_ymax_GB = ${delta_ymax_GB}"
|
|
puts "delta_zmax_GB = ${delta_zmax_GB}"
|
|
puts "maxdelta = ${maxdelta}"
|
|
puts "BUC60857: ERROR (case 3)"
|
|
} else {
|
|
puts "BUC60857: OK (case 3)"
|
|
}
|
|
|
|
set maxdelta_H 10
|
|
if {${delta_H_RB} > ${maxdelta_H}} {
|
|
puts "delta_H_RB = ${delta_H_RB}"
|
|
puts "maxdelta_H = ${maxdelta_H}"
|
|
puts "BUC60857: ERROR (case 4)"
|
|
} else {
|
|
puts "BUC60857: OK (case 4)"
|
|
}
|
|
|
|
set only_screen 1
|