tests/bugs/modalg_7/bug24490

   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 }