a8676008 |
1 | puts "TODO OCC11111 ALL: OCC21578: Faulty" |
2 | puts "TODO OCC11111 ALL: Error : The square of result shape is" |
3 | |
4 | puts "============" |
5 | puts "OCC21578" |
6 | puts "============" |
7 | puts "" |
8 | ###################################################### |
9 | # Attached shape is not vizualized in the shaded mode |
10 | ###################################################### |
11 | |
12 | set BugNumber OCC21578 |
13 | |
14 | restore [locate_data_file OCC21578.brep] result |
15 | |
16 | vinit |
17 | tclean result |
18 | vsetdispmode 1 |
19 | vdisplay result |
20 | vfit |
21 | |
22 | set tri_info [trinfo result] |
23 | regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri |
24 | regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod |
25 | regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl |
26 | |
27 | set good_tri 231 |
28 | set good_nod 236 |
29 | set good_defl 0.004029564463949387 |
30 | |
31 | puts [format " Triangles= %s Nodes= %s Deflection= %s " $tri $nod $defl] |
32 | |
33 | set status 0 |
34 | if {${tri} != ${good_tri}} { |
35 | set status 1 |
36 | } |
37 | if {${nod} != ${good_nod}} { |
38 | set status 1 |
39 | } |
40 | #if {${defl} != ${good_defl}} { |
41 | # set status 1 |
42 | #} |
43 | |
44 | if { ${status} != 0 } { |
45 | puts "${BugNumber}: Faulty" |
46 | } else { |
47 | puts "${BugNumber}: OK" |
48 | } |
49 | |
50 | set only_screen 1 |
51 | set square 0 |
52 | |