mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
65 lines
1.8 KiB
Plaintext
Executable File
65 lines
1.8 KiB
Plaintext
Executable File
puts "TODO OCC11111 ALL: Faulty OCC1651"
|
|
|
|
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC1651"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# No intersection found using BRepClass3d_Intersector3d
|
|
######################################################
|
|
|
|
restore [locate_data_file OCC1651.brep] face
|
|
|
|
checkshape face
|
|
|
|
set PntX 164.6207
|
|
set PntY -105.2869
|
|
set PntZ 557.8805
|
|
set DirX 0.5774
|
|
set DirY -0.5774
|
|
set DirZ 0.5774
|
|
|
|
if { [catch { set PointList [OCC1651 face ${PntX} ${PntY} ${PntZ} ${DirX} ${DirY} ${DirZ}] } catch_result] } {
|
|
puts "Faulty OCC1651"
|
|
} else {
|
|
set ll [ llength ${PointList} ]
|
|
if {${ll} != 3} {
|
|
puts "Faulty OCC1651"
|
|
} else {
|
|
set IntersectionPointX [lindex ${PointList} 0]
|
|
set IntersectionPointY [lindex ${PointList} 1]
|
|
set IntersectionPointZ [lindex ${PointList} 2]
|
|
|
|
set good_IntersectionPointX 42.6199
|
|
set good_IntersectionPointY 16.7139
|
|
set good_IntersectionPointZ 435.88
|
|
|
|
set X_percent [expr abs(${IntersectionPointX} - ${good_IntersectionPointX}) / double(${good_IntersectionPointX}) * 100.]
|
|
set Y_percent [expr abs(${IntersectionPointY} - ${good_IntersectionPointY}) / double(${good_IntersectionPointY}) * 100.]
|
|
set Z_percent [expr abs(${IntersectionPointZ} - ${good_IntersectionPointZ}) / double(${good_IntersectionPointZ}) * 100.]
|
|
|
|
set percent_max 0.1
|
|
|
|
set IsGood 1
|
|
if {${X_percent} > ${percent_max}} {
|
|
puts "OCC1651 Faulty"
|
|
set IsGood 0
|
|
}
|
|
if {${Y_percent} > ${percent_max}} {
|
|
puts "OCC1651 Faulty"
|
|
set IsGood 0
|
|
}
|
|
if {${Z_percent} > ${percent_max}} {
|
|
puts "OCC1651 Faulty"
|
|
set IsGood 0
|
|
}
|
|
if {${IsGood} == 1} {
|
|
puts "OCC1651 OK"
|
|
}
|
|
}
|
|
}
|
|
|
|
|