restore [locate_data_file cylindre.rle] cyl
restore [locate_data_file contour.rle] cont
mkplane cont cont
nexplode cyl F
ttranslate cont 0 0 -100

#
# flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
#
mksurface surf cyl_3
mkface face surf
featprism cyl cont cont 0 1 0 0 1
if { [catch { featperform prism result face face } ] != 0 } {
  puts "Error in featperform"
}

checkprops result -s 82351.1
