tests/boolean/bsection/M9

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