while {$i < 0} {
plane p_$i $i*1000 0 0 1 0 0
mkface f_$i p_$i
- bsection s_$i b f_$i -2d -a
+ bsection s_$i b f_$i
compound result s_$i result
set dist [expr $i * 1000]
puts "OK Section$i:$dist"
while {$i <= 30} {
plane p_$i $i*1000 0 0 1 0 0
mkface f_$i p_$i
- bsection s_$i b f_$i -2d -a
+ bsection s_$i b f_$i
compound result s_$i result
set dist [expr $i * 1000]
puts "OK Section$i:$dist"
while {$i <= 105} {
plane p_$i $i*1000 0 0 1 0 0
mkface f_$i p_$i
- bsection s_$i b f_$i -2d -a
+ bsection s_$i b f_$i
compound result s_$i result
set dist [expr $i * 1000]
puts "OK Section$i:$dist"