tests/bugs/modalg/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 -2d -a
  16     compound s_$i result result
  17     incr i
  18 }
  19 set length 3961.04
  20 set 2dviewer 0