tests/boolean/bsection/M9

   1 restore [locate_data_file lh3d_px1.brep] a
   2
   3 #removing intersection of faces a_3 and a_220
   4
   5 set faces [explode a f]
   6 bop a_3 a_220
   7 bopcut a_3
   8 compound b
   9 foreach f $faces {
  10   compound b $f b
  11 }
  12
  13 set i 0
  14 compound result
  15
  16 repeat 21 {
  17   plane p_$i 0 $i*100 0  0 1 0
  18   mkface f_$i p_$i
  19   bsection s_$i b f_$i
  20   compound result s_$i result
  21   set dist [expr $i * 100]
  22   puts "OK Section:$dist"
  23   incr i 10
  24 }
  25
  26 set length 2.49755e+06