tests/feat/featprism/F9

   1 profile p x 4 y 1 x -3 y 1 x 3 y 1 x -3 y 1 x 3 y 1 x -4 y -5
   2 prism pr p 0 0 1
   3 explode pr f
   4 profile pp x 0.5 y 0.5 x -0.5 y -0.5
   5 trotate pp 0 0 0 1 0 0 90
   6 ttranslate pp 3.5 1 0.25
   7 mksurface s1 pr_1
   8 mksurface s2 pr_7
   9 mkface f1 s1
  10 mkface f2 s2
  11
  12 featprism pr pp pp 0 1 0 0 1
  13 featperform prism result f1 f2
  14
  15 set square 59