dfdfa61f |
1 | puts "========" |
2 | puts "OCC24490" |
3 | puts "========" |
4 | puts "" |
5 | ######################################################################################### |
6 | # Computed surface properties differ substantially depending on NaturalRestriction flag |
7 | ######################################################################################### |
8 | |
9 | restore [locate_data_file bug24490_face_naturalrestriction_flag.brep] ff |
10 | restore [locate_data_file bug24490_face_naturalrestriction_noflag.brep] fn |
11 | |
12 | # Get information from model ff |
13 | set bug_info [sprops ff] |
14 | set ff_area [lindex $bug_info 2] |
15 | set ff_CG_X [lindex $bug_info 9] |
16 | set ff_CG_Y [lindex $bug_info 12] |
17 | set ff_CG_Z [lindex $bug_info 15] |
18 | |
19 | # Get information from model ff |
20 | set bug_info [sprops fn] |
21 | set fn_area [lindex $bug_info 2] |
22 | set fn_CG_X [lindex $bug_info 9] |
23 | set fn_CG_Y [lindex $bug_info 12] |
24 | set fn_CG_Z [lindex $bug_info 15] |
25 | |
26 | # Verification |
27 | if {$ff_area != $fn_area} { |
28 | puts "ERROR: OCC24490 is reproduced. Areas of identical shapes are different." |
29 | } |
30 | |
31 | if {$ff_CG_X != $fn_CG_X} { |
32 | puts "ERROR: OCC24490 is reproduced. Center of gravity (X) of identical shapes are different." |
33 | } |
34 | |
35 | if {$ff_CG_Y != $fn_CG_Y} { |
36 | puts "ERROR: OCC24490 is reproduced. Center of gravity (Y) of identical shapes are different." |
37 | } |
38 | if {$ff_CG_Z != $fn_CG_Z} { |
39 | puts "ERROR: OCC24490 is reproduced. Center of gravity (Z) of identical shapes are different." |
40 | } |