mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
35 lines
694 B
Plaintext
Executable File
35 lines
694 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC20373"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Shading doesn't work on b-spline sphere
|
|
#######################################################################
|
|
|
|
set BugNumber OCC20373
|
|
|
|
restore [locate_data_file OCC20373.brep] result
|
|
|
|
vinit
|
|
vdisplay result
|
|
vsetdispmode 1
|
|
vfit
|
|
|
|
set tri_info [trinfo result]
|
|
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
|
|
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
|
|
|
|
puts [format " tri= %s noe= %s " $tri $nod]
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${tri} == 0 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
|
|
set square 9.92128e+06
|
|
set 3dviewer 1
|
|
|