tests/bugs/modalg/bug327_2

   1 puts "========================"
   2 puts " OCC327 "
   3 puts " case 2 "
   4 puts "========================"
   5
   6 restore [locate_data_file OCC327b.brep] result
   7
   8 set che [checkshape result r]
   9 if { [regexp {OK} $che] == 1 } {
  10     puts " OCC327  case 2: OK"
  11 } else {
  12     puts " OCC327  case 2: Faulty"
  13 }
  14
  15 set square 5674.84
  16 set 2dviewer 0