tests/bugs/moddata_2/bug536_22

   1
   2 puts "========"
   3 puts "OCC536"
   4 puts "SAM1504"
   5 puts "========"
   6
   7 vinit
   8
   9 restore [locate_data_file OCC536.brep] S
  10 checkshape S
  11
  12 explode S So
  13 checkshape S_3
  14 checkshape S_1
  15
  16 if [catch {bfuse result S_3 S_1}] {
  17     puts "Faulty OCC536"
  18 } else {
  19     puts "OCC536 : OK"
  20     checkshape result
  21 }
  22
  23 set square 2.56034e+06
  24 set 2dviewer 0