5 ######################################################
6 # Shading mode doesn't work on a face of the model
7 ######################################################
9 restore [locate_data_file OCC1416.brep] result
18 #View the result of mesh
21 ##############################################
22 if { [catch { set tri_info [trinfo result] } catch_result] } {
23 ##############################################
26 set ll [ llength ${tri_info} ]
30 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
31 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
32 if { $tri == 0 || $nod == 0 } {
35 puts "Warning: OCC1416 looks like OK, but visual checking is required !!!!"