tests/feat/featprism/R8

   1 pcone c1 2 1.5 5
   2 profile p x 2 y 2 x -2 y -2
   3 trotate p 0 0 0 1 0 0 90
   4 ttranslate p -1 -4 4
   5 explode c1 f
   6 mksurface f c1_1
   7 mkface f f
   8
   9 featprism c1 p p 0 1 0 1 1
  10 featperform prism result f
  11
  12 set square 100.937