0e94a94e |
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 | |
352ffd73 |
14 | checkshape result |
0e94a94e |
15 | |
16 | tclean result |
17 | vinit |
18 | vdisplay result |
19 | vsetdispmode result 1 |
20 | |
4754e164 |
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 |
0e94a94e |
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 | |