tests/bugs/modalg/bug327_4

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