tests/bugs/modalg/bug327_1

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