tests/feat/featdprism/B2

   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 ttranslate cont 0 0 -100
   7 featdprism cyl cont cont -10 0 1
   8 featperform dprism result
   9
  10 set square 83382.4