#puts "TODO #23749 ALL: Faulty shapes in variables faulty_1 to faulty_"

cpulimit 4500

restore [locate_data_file lh3d_px2.brep] a
compound result
set i 1
repeat 199 {
  plane p_$i 0 $i*100 0  0 1 0
  mkface f_$i p_$i
  set bsres [bsection s_$i a f_$i]
  if { [regexp {Error} $bsres] } {
    puts "Error: bsection not done"
  }
  compound result s_$i result
  set dist [expr $i * 100]
  puts "OK Section:$dist"
  incr i
}

set length 2.7724e+07