a520f6eb |
1 | puts "TODO ?OCC12345 ALL: Error : The square of result shape is" |
a87752f3 |
2 | puts "================" |
3 | puts "OCC62" |
4 | puts "BUC61001" |
5 | puts "================" |
6 | |
7 | cpulimit 1400 |
8 | restore [locate_data_file OCC62.brep] sh |
9 | |
52d45841 |
10 | #Delete invalid (in terms of bug#25109) triangulation |
11 | tclean sh |
12 | |
a87752f3 |
13 | explode sh |
352ffd73 |
14 | checkshape sh |
a87752f3 |
15 | |
16 | bfuse res1 sh_1 sh_3 |
352ffd73 |
17 | checkshape res1 |
a87752f3 |
18 | |
19 | bfuse res2 res1 sh_2 |
352ffd73 |
20 | checkshape res2 |
a87752f3 |
21 | |
22 | bfuse res3 res2 sh_6 |
352ffd73 |
23 | checkshape res3 |
a87752f3 |
24 | |
25 | bfuse res4 res3 sh_4 |
352ffd73 |
26 | checkshape res4 |
a87752f3 |
27 | |
28 | bfuse res5 res4 sh_5 |
352ffd73 |
29 | checkshape res5 |
a87752f3 |
30 | |
31 | renamevar res5 result |
32 | |
91bb31f3 |
33 | set OCC62_square 1.23063e+7 |
34 | puts "The expected square is ${OCC62_square}" |
35 | |
36 | set sq_persent 0.03 |
37 | regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m |
38 | if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } { |
39 | puts "Error : The square of result shape is $m" |
40 | } |
41 | |
a87752f3 |
42 | set 2dviewer 0 |