mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
66 lines
1.5 KiB
Plaintext
Executable File
66 lines
1.5 KiB
Plaintext
Executable File
puts "TODO OCC11111 ALL: OCC2442 Faulty"
|
|
|
|
puts "============"
|
|
puts "OCC2442"
|
|
puts "============"
|
|
puts ""
|
|
######################################################
|
|
# Error in BRepClass3d_SolidClassifier
|
|
######################################################
|
|
|
|
set IsGood 1
|
|
|
|
restore [locate_data_file OCC2442-1.brep] a
|
|
restore [locate_data_file OCC2442-2.brep] b
|
|
|
|
distmini dm1 a b
|
|
set dm1_list [dump dm1_val]
|
|
set dm1_length [llength $dm1_list]
|
|
if {$dm1_length < 6} {
|
|
puts "Faulty OCC2442"
|
|
set IsGood 0
|
|
}
|
|
|
|
explode a
|
|
explode b
|
|
distmini dm2 a_1 b_1
|
|
set dm2_list [dump dm2_val]
|
|
set dm2_length [llength $dm2_list]
|
|
if {$dm2_length < 6} {
|
|
puts "Faulty OCC2442"
|
|
set IsGood 0
|
|
}
|
|
|
|
if {$IsGood == 1} {
|
|
regexp {([-0-9.+eE]+)} $dm1_list full dist1
|
|
regexp {([-0-9.+eE]+)} $dm2_list full dist2
|
|
|
|
set good_dist 18.4816355578064
|
|
set dist1_percent [expr abs(${dist1} - ${good_dist}) / double(${good_dist}) * 100.]
|
|
|
|
set dist2_percent [expr abs(${dist1} - ${dist2}) / double(${dist2}) * 100.]
|
|
|
|
set percent_max 0.1
|
|
|
|
if {${dist1_percent} > ${percent_max}} {
|
|
puts "OCC2442 Faulty"
|
|
set IsGood 0
|
|
}
|
|
if {${dist2_percent} > ${percent_max}} {
|
|
puts "OCC2442 Faulty"
|
|
set IsGood 0
|
|
}
|
|
if {${IsGood} == 1} {
|
|
puts "OCC2442 OK"
|
|
}
|
|
}
|
|
|
|
set boundbox [boundingstr a]
|
|
set x0 [lindex $boundbox 0]
|
|
set y0 [lindex $boundbox 1]
|
|
set z0 [lindex $boundbox 2]
|
|
ttranslate a [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
|
|
ttranslate b [expr -1 * $x0] [expr -1 * $y0] [expr -1 * $z0]
|
|
|
|
set 3dviewer 1
|