5 #########################################################################################
6 # Computed surface properties differ substantially depending on NaturalRestriction flag
7 #########################################################################################
9 restore [locate_data_file bug24490_face_naturalrestriction_flag.brep] ff
10 restore [locate_data_file bug24490_face_naturalrestriction_noflag.brep] fn
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]
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]
27 if {$ff_area != $fn_area} {
28 puts "ERROR: OCC24490 is reproduced. Areas of identical shapes are different."
31 if {$ff_CG_X != $fn_CG_X} {
32 puts "ERROR: OCC24490 is reproduced. Center of gravity (X) of identical shapes are different."
35 if {$ff_CG_Y != $fn_CG_Y} {
36 puts "ERROR: OCC24490 is reproduced. Center of gravity (Y) of identical shapes are different."
38 if {$ff_CG_Z != $fn_CG_Z} {
39 puts "ERROR: OCC24490 is reproduced. Center of gravity (Z) of identical shapes are different."