tests/bugs/modalg_2/bug419

   1 # Original bug :
   2
   3 puts "========================"
   4 puts " OCC419 "
   5 puts "FRA50047"
   6 puts "========================"
   7 puts ""
   8
   9 restore [locate_data_file CTO904_fra50047a.rle] a
  10 checkshape a
  11
  12 restore [locate_data_file fra50047b.rle] b
  13 checkshape b
  14
  15 bsection sec a b
  16 checkshape -top sec
  17
  18 bfuse result a b
  19 checkshape -top result
  20
  21 checkprops result -s 508496.
  22 checkshape result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png