mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
34 lines
632 B
Plaintext
34 lines
632 B
Plaintext
puts "========"
|
|
puts "OCC6412"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## Regression in visualization
|
|
####################################################
|
|
|
|
set BugNumber OCC6412
|
|
|
|
restore [locate_data_file OCC6412.brep] result
|
|
|
|
tclean result
|
|
vinit
|
|
vdisplay result
|
|
vsetdispmode result 1
|
|
|
|
isos result 0
|
|
triangles result
|
|
|
|
set tri 0
|
|
set nod 0
|
|
set tri_info [trinfo result]
|
|
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
|
|
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
|
|
if { ${tri} == 0 && ${nod} == 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set 3dviewer 0
|
|
|