repeat 199 {
plane p_$i 0 $i*100 0 0 1 0
mkface f_$i p_$i
- bsection s_$i a f_$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"