d9e8bb08 |
1 | set os "ALL" |
2 | |
3 | if {[array get env os_type] != ""} { |
4 | set os $env(os_type) |
5 | } |
6 | |
7 | if {[string compare $os "MacOS"] == 0} { |
5dc2ede9 |
8 | #puts "TODO #23828 MacOS: Tcl Exception: sh is not a topological shape!!!" |
9 | #puts "TODO #23828 MacOS: TEST INCOMPLETE" |
d9e8bb08 |
10 | } else { |
b4109929 |
11 | #puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_" |
465d1fba |
12 | puts "TODO ?OCC12345 ALL: Error : The square of result shape is" |
d9e8bb08 |
13 | } |
a87752f3 |
14 | |
15 | puts "================" |
16 | puts "OCC62" |
17 | puts "BUC61001" |
18 | puts "================" |
19 | |
20 | cpulimit 1400 |
21 | restore [locate_data_file OCC62.brep] sh |
22 | |
23 | explode sh |
352ffd73 |
24 | checkshape sh |
a87752f3 |
25 | |
26 | bfuse res1 sh_1 sh_3 |
352ffd73 |
27 | checkshape res1 |
a87752f3 |
28 | |
29 | bfuse res2 res1 sh_2 |
352ffd73 |
30 | checkshape res2 |
a87752f3 |
31 | |
32 | bfuse res3 res2 sh_6 |
352ffd73 |
33 | checkshape res3 |
a87752f3 |
34 | |
35 | bfuse res4 res3 sh_4 |
352ffd73 |
36 | checkshape res4 |
a87752f3 |
37 | |
38 | bfuse res5 res4 sh_5 |
352ffd73 |
39 | checkshape res5 |
a87752f3 |
40 | |
41 | renamevar res5 result |
42 | |
91bb31f3 |
43 | set OCC62_square 1.23063e+7 |
44 | puts "The expected square is ${OCC62_square}" |
45 | |
46 | set sq_persent 0.03 |
47 | regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m |
48 | if { (${OCC62_square} != 0 && [expr abs(${OCC62_square} - $m)/${OCC62_square}] > ${sq_persent}) || (${OCC62_square} == 0 && $m != 0) } { |
49 | puts "Error : The square of result shape is $m" |
50 | } |
51 | |
a87752f3 |
52 | set 2dviewer 0 |