tests/feat/featprism/C2

   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 #
   8 # flo : 25/06/1998 : Argument 4 featperformval -> face et non surface
   9 #
  10 mksurface surf cyl_3
  11 mkface face surf
  12 featprism cyl cont cont 0 1 0 0 1
  13 featperformval prism result 100 face
  14
  15 set square 82461.3