puts "CTS21801"
puts "section"
puts ""
pcylinder c1 20 100
pcylinder c2 20 100
ttranslate c2 0 0 50

bsection result c1 c2

checkprops result -l 301.327
checksection result
checkview -display result -2d -otherwise { c1 c2 } -l -path ${imagedir}/${test_image}.png