tests/bugs/modalg/bug302_2

   1 #INTERFACE IGES
   2 puts "========================"
   3 puts " OCC302 "
   4 puts "(case 2)"
   5 puts "========================"
   6 puts ""
   7 #################################################################
   8 ## After performing command "checkbrep" to attached face I receive "Bad Orientation of Subshape"
   9 ##  but I believe that orientation of this face is correct.
  10 #################################################################
  11
  12 restore [locate_data_file OCC302b.brep] result
  13
  14 set che [checkshape result r]
  15 if { [regexp {OK} $che] != 1} {
  16     puts "Faulty OCC302 (case 2): command  checkbrep works wrongly"
  17 } else {
  18     puts "OCC302 OK (case 2) :  command  checkbrep works properly"
  19 }
  20
  21 set square 1.93998
  22 set 2dviewer 0