tests/feat/featdprism/A4

   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 featperform dprism result cyl_3
   9
  10 set square 93058.7