tests/bugs/modalg/bug302_3

   1 #INTERFACE IGES
   2 puts "========================"
   3 puts " OCC302 "
   4 puts "(case 3)"
   5 puts "========================"
   6 puts ""
   7 #################################################################
   8 ## After performing command "checkshape" 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 OCC302c.brep] result
  13
  14 set che [checkshape result r]
  15 if { [regexp {OK} $che] !=1 } {
  16     puts "Faulty OCC302 (case 3): command  checkshape works wrongly"
  17 } else {
  18     puts "OCC302 OK (case 3) :  command  checkshape works properly"
  19 }
  20
  21 set square 23240.8
  22 set 2dviewer 0