tests/bugs/modalg_4/fra62369

   1
   2 puts "==========="
   3 puts "FRA62369"
   4 puts "==========="
   5
   6 restore [locate_data_file fra62369a.brep] a
   7 checkshape a
   8
   9 compound result
  10
  11 set i 1
  12 repeat 100 {
  13     plane p_$i 0 0 200+$i
  14     mkface f_$i p_$i
  15     bsection s_$i a f_$i
  16     compound s_$i result result
  17     incr i
  18 }
  19 checkprops result -l 3854.34
  20 checkshape result
  21 checksection result
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png