tests/boolean/bsection/N7

   1 cpulimit 900
   2
   3 restore [locate_data_file lh3d_ro1.brep] a
   4 isos a 0
   5 compound result
   6 set i 1
   7 repeat 199 {
   8 plane p_$i 0 $i*100 0  0 1 0
   9 mkface f_$i p_$i
  10 bsection s_$i a f_$i -2d -a
  11 compound result s_$i result
  12 display s_$i
  13 clear f_$i
  14 clear p_$i
  15 set dist [expr $i * 100]
  16 puts "OK Section:$dist"
  17 incr i
  18 }
  19
  20 set length 4.36836e+07