puts "CTS22135"
puts "Generation of micro-edges during cut. "
puts ""
#axo
restore [locate_data_file cts21135a.brep] o
restore [locate_data_file cts21135b.brep] t

bop o t

#pkv f
bopsection result

checkprops result -l 144.712
checksection result
checkview -display result -2d -otherwise { o t } -l -path ${imagedir}/${test_image}.png