cpulimit 1000

restore [locate_data_file lh3d_px2.brep] a
set i 1
compound result
repeat 155 {
plane p_$i 0 0 $i*100 0 0 1
mkface f_$i p_$i
bsection s_$i a f_$i
compound result s_$i result
display s_$i
clear f_$i
clear p_$i
set dist [expr $i * 100]
puts "OK Section$i:$dist"
incr i
}

checkprops result -l 2.11374e+07
checksection result
checkview -display result -2d -path ${imagedir}/${test_image}.png