Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "================" |
2 | puts "OCC19" | |
3 | puts "================" | |
4 | puts "" | |
5 | ||
6 | restore [locate_data_file OCC19.brep] result | |
352ffd73 | 7 | checkshape result |
a87752f3 | 8 | |
9 | tclean result | |
10 | incmesh result .9 | |
11 | triangles result | |
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 != 88 && $nod != 90 } { | |
18 | puts "Faulty OCC19: here is shading problem" | |
19 | } | |
20 | ||
21 | set 3dviewer 0 | |
22 |