restore [locate_data_file cylindre.rle] cyl
restore [locate_data_file contour.rle] cont
mkplane cont cont
nexplode cyl F

ttranslate cont 0 200 0
featdprism cyl cont cont 10 1 1
featperform dprism result cyl_3

set square 93058.7