tests/bugs/heal/bug28523

   1 puts "TODO OCC28523 ALL: Error: Bad area of face"
   2
   3 puts "========"
   4 puts "OCC28523"
   5 puts "========"
   6 puts ""
   7 ################################################
   8 ## Fixshape reverses the orientation of the face
   9 ################################################
  10
  11 restore [locate_data_file bug28377_problemface.brep] f2
  12
  13 fixshape newface f2
  14
  15 checkshape newface ff1
  16
  17 set prop [ sprops newface ]
  18 regexp {Mass\s*:\s*([0-9.e+-]+)} $prop prop_s Area
  19
  20 if { ${Area} <= 0. } {
  21    puts "Error: Bad area of face"
  22 }