1 puts "TODO OCC12345 ALL: Faulty OCC20: here is shading problem"
3 puts "================"
5 puts "================"
7 ###############################
8 ## Face apearence in shading mode is wrong
9 ###############################
12 restore [locate_data_file OCC20.brep] result
21 vviewparams 5.1346924 95.358439 -4.910448 0.23495967 -0.302 0.923899 -0.7304302 0.5722587 0.372815 9.550874 -7.55706 -28.83166
26 set info [trinfo result]
27 regexp { +([-0-9.+eE]+) +triangles} $info full tri
28 regexp { +([-0-9.+eE]+) +nodes} $info full nod
30 if { $tri != 416 || $nod != 367 } {
31 puts "Faulty OCC20: here is shading problem"