5 #######################################################################
6 # Problems with sharding in vdisplay
7 #######################################################################
9 restore [locate_data_file bug4894_face_cyl] result
17 set info [trinfo result]
18 regexp { +([-0-9.+eE]+) +triangles} $info full tr
19 regexp { +([-0-9.+eE]+) +nodes} $info full nd
21 if { $tr <= 0 || $nd <= 0 } {
22 puts "Error : Problems with shading"