1 puts "TODO OCC12345 ALL: Faulty BUC61057: here can be shading problem"
3 puts "================"
6 puts "================"
8 ##########################################################
9 ## Visualisation of the attached shape is wrong in the shading mode.
10 ##########################################################
12 restore [locate_data_file OCC109.brep] result
22 set tri_info [trinfo result]
23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
26 if { $tri != 294 && $nod != 300 } {
27 puts "Faulty BUC61057: here can be shading problem"
29 puts "Shading of BUC61057 is OK"