0e94a94e |
1 | puts "================" |
2 | puts "OCC125" |
3 | puts "================" |
4 | puts "" |
5 | ################################## |
6 | ## Exception during usage ShapeFix_Shell class. |
7 | ################################## |
8 | |
9 | restore [locate_data_file OCC125-1.brep] shell1 |
10 | |
11 | fixshape result shell1 1e-7 |
352ffd73 |
12 | checkshape result |
0e94a94e |
13 | |
14 | set square 282.743 |
15 | |
16 | set prop "square" |
17 | set mass $square |
18 | regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full m |
19 | |
20 | if { [string compare "$mass" "empty"] != 0 } { |
21 | if { $m == 0 } { |
22 | puts "Error : The command is not valid. The $prop is 0." |
23 | } |
24 | if { $mass > 0 } { |
25 | puts "The expected $prop is $mass" |
26 | } |
27 | #check of change of square is < 1% |
28 | if { ($mass != 0 && [expr 1.*abs($mass - $m)/$mass] > 0.01) || ($mass == 0 && $m != 0) } { |
29 | puts "Error : The $prop of result shape is $m" |
30 | } |
31 | } else { |
32 | if { $m != 0 } { |
33 | puts "Error : The command is not valid. The $prop is $m" |
34 | } |
35 | } |
36 | |
37 | set 2dviewer 0 |
38 | |