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 -scale 5.1346924 -proj 0.23495967 -0.302 0.923899 -up -0.7304302 0.5722587 0.372815 -at 74.2909604913005 62.3380479127367 -22.4489114507273
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"