Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug20
1 puts "TODO OCC12345 ALL: Faulty OCC20: here is shading problem"
2
3 puts "================"
4 puts "OCC20"
5 puts "================"
6 puts ""
7 ###############################
8 ## Face apearence in shading mode is wrong
9 ###############################
10
11 pload QAcommands
12 restore [locate_data_file OCC20.brep] result
13
14 puts [checkshape result]
15
16 tclean result
17 vinit
18 vdisplay result
19 vsetdispmode result 1
20
21 QASetViewCharac 5.1346924 95.358439 -4.910448 0.23495967 -0.302 0.923899 -0.7304302 0.5722587 0.372815 9.550874 -7.55706 -28.83166
22
23 isos result 0
24 triangles result
25
26 set info [trinfo result]
27 regexp { +([-0-9.+eE]+) +triangles} $info full tri
28 regexp { +([-0-9.+eE]+) +nodes} $info full nod
29
30 if { $tri != 416 || $nod != 367 }  {
31    puts "Faulty OCC20: here is shading problem"
32 }
33
34 set 2dviewer 0
35