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

featdprism cyl cont cont 10 0 1
featperformval dprism result -100

set square 78539.8
