7faaccfd |
1 | puts "===========" |
2 | puts "OCC22304" |
3 | puts "===========" |
4 | puts "" |
5 | ####################################################################### |
6 | # Incorrect triangulation on face of the attached file |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC22304 |
10 | |
11 | restore [locate_data_file OCC22304-face_976_badvisu.brep] result |
12 | |
13 | tclean result |
14 | vinit |
15 | vdisplay result |
16 | vfit |
17 | |
18 | vsetdispmode 1 |
19 | |
20 | set tri_info [trinfo result] |
21 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
22 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
23 | |
24 | set status 0 |
25 | |
26 | if { ${tri} > 0 } { |
27 | puts "triangles: OK ${BugNumber}" |
28 | } else { |
29 | puts "triangles: Faulty ${BugNumber}" |
30 | set status 1 |
31 | } |
32 | |
33 | if { ${nod} > 0 } { |
34 | puts "nodes: OK ${BugNumber}" |
35 | } else { |
36 | puts "nodes: Faulty ${BugNumber}" |
37 | set status 1 |
38 | } |
39 | |
40 | # Resume |
41 | puts "" |
42 | if { ${status} != 0 } { |
43 | puts "Faulty ${BugNumber}" |
44 | } else { |
45 | puts "OK ${BugNumber}" |
46 | } |
47 | |
48 | set only_screen 1 |