Commit | Line | Data |
---|---|---|
0e94a94e | 1 | |
2 | puts "================" | |
3 | puts "OCC16" | |
4 | puts "================" | |
5 | puts "" | |
6 | ||
7 | torus a 10 10 | |
8 | mkface result a | |
9 | vinit | |
10 | vdisplay result | |
11 | vsetdispmode result 1 | |
12 | ||
13 | set info [trinfo result] | |
14 | regexp { +([-0-9.+eE]+) +triangles} $info full tri | |
15 | regexp { +([-0-9.+eE]+) +nodes} $info full nod | |
16 | ||
17 | if { $tri != 2592 || $nod != 1369 } { | |
18 | puts "Faulty OCC16: here can be shading problem" | |
19 | } | |
20 | ||
21 | puts "If here is bug - face is displaied in wireframe mode" | |
22 | ||
23 | set 2dviewer 0 | |
24 |