puts "============"
puts "OCC4894"
puts "============"
puts ""
#######################################################################
# Problems with sharding in vdisplay
#######################################################################

restore [locate_data_file bug4894_face_cyl] result

vinit
vdisplay result
tclean result
trinfo result
vsetdispmode 1
vfit
set info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $info full tr
regexp { +([-0-9.+eE]+) +nodes} $info full nd

if { $tr <= 0 || $nd <= 0 } {
    puts "Error : Problems with shading"
}

set only_screen 1