tests/feat/featdprism/A1

   1 restore [locate_data_file cylindre.rle] cyl
   2 restore [locate_data_file contour.rle] cont
   3 mkplane cont cont
   4 nexplode cyl F
   5
   6 featdprism cyl cont cont -10 0 1
   7 featperform dprism result
   8
   9 set square 93872.9