mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-16 10:54:53 +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
73 lines
2.0 KiB
Plaintext
Executable File
73 lines
2.0 KiB
Plaintext
Executable File
puts "========"
|
|
puts "BUC60897"
|
|
puts "========"
|
|
|
|
pload QAcommands
|
|
|
|
if [catch { set result [BUC60897] } ] {
|
|
puts "BUC60897: Error; (case 1)"
|
|
} else {
|
|
set len [llength ${result}]
|
|
if {${len} < 21} {
|
|
puts "length = ${len}"
|
|
puts "BUC60897: Error; (case 2)"
|
|
} else {
|
|
set circle_X [lindex ${result} 3]
|
|
set circle_Y [lindex ${result} 5]
|
|
set circle_R [lindex ${result} 7]
|
|
set tangency1_X [lindex ${result} 11]
|
|
set tangency1_Y [lindex ${result} 13]
|
|
set tangency2_X [lindex ${result} 17]
|
|
set tangency2_Y [lindex ${result} 19]
|
|
|
|
set x1 [expr abs(${tangency1_X} - ${circle_X})]
|
|
set y1 [expr abs(${tangency1_Y} - ${circle_Y})]
|
|
set R1 [expr sqrt(${x1} * ${x1} + ${y1} * ${y1})]
|
|
|
|
set x2 [expr abs(${tangency2_X} - ${circle_X})]
|
|
set y2 [expr abs(${tangency2_Y} - ${circle_Y})]
|
|
set R2 [expr sqrt(${x2} * ${x2} + ${y2} * ${y2})]
|
|
|
|
set maxdelta 1.0
|
|
set delta_R1 [expr abs(${R1} - ${circle_R}) / ${circle_R} * 100.]
|
|
set delta_R2 [expr abs(${R2} - ${circle_R}) / ${circle_R} * 100.]
|
|
|
|
if {${delta_R1} > ${maxdelta}} {
|
|
puts "circle_X = ${circle_X}"
|
|
puts "circle_Y = ${circle_Y}"
|
|
puts "circle_R = ${circle_R}"
|
|
puts "tangency1_X = ${tangency1_X}"
|
|
puts "tangency1_Y = ${tangency1_Y}"
|
|
puts "x1 = ${x1}"
|
|
puts "y1 = ${y1}"
|
|
puts "R1 = ${R1}"
|
|
puts "delta_R1 = ${delta_R1}"
|
|
puts "maxdelta = ${maxdelta}"
|
|
puts "BUC60897: Error; (case 3)"
|
|
} else {
|
|
puts "BUC60897: OK; (case 1)"
|
|
}
|
|
|
|
if {${delta_R2} > ${maxdelta}} {
|
|
puts "circle_X = ${circle_X}"
|
|
puts "circle_Y = ${circle_Y}"
|
|
puts "circle_R = ${circle_R}"
|
|
puts "tangency2_X = ${tangency2_X}"
|
|
puts "tangency2_Y = ${tangency2_Y}"
|
|
puts "x2 = ${x2}"
|
|
puts "y2 = ${y2}"
|
|
puts "R2 = ${R2}"
|
|
puts "delta_R2 = ${delta_R2}"
|
|
puts "maxdelta = ${maxdelta}"
|
|
puts "BUC60897: Error; (case 4)"
|
|
} else {
|
|
puts "BUC60897: OK; (case 2)"
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
set 3dviewer 0
|
|
|
|
|