tests/feat/featdprism/A5

   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 200 0
   7 featdprism cyl cont cont -10 1 1
   8 featperformval dprism result 100
   9
  10 set square  93058.7