tests/bugs/modalg_4/bug81

   1 puts "============"
   2 puts "BUC60907"
   3 puts "OCC81"
   4 puts "============"
   5 puts ""
   6 ###############################
   7 ## Section shell by plane gives overlapped edges
   8 ###############################
   9
  10 restore [locate_data_file BUC60907_px1.rle] sh
  11 checkshape sh
  12
  13 plane f 60 0 0 1 0 0
  14 mkface f f
  15 bsection result sh f
  16 puts "Info: it should be 12 edges"
  17
  18 checknbshapes result -edge 12
  19
  20 checkprops result -l 33.6353
  21 checkshape result
  22 checksection result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png