tests/feat/featprism/C4

   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 puts "*"
   7 #puts "TODO OCC22810 All:Faulty .*"
   8 puts "TODO OCC22810 ALL:Error : The area of the resulting shape is"
   9 ttranslate cont 0 0 -100
  10
  11 #
  12 # flo : 25/06/1998 : Arguments 3 et 4 featperform -> face et non surface
  13 #
  14 mksurface surf cyl_3
  15 mkface face surf
  16 featprism cyl cont cont 0 1 0 0 1
  17 if { [catch { featperform prism result face face } ] != 0 } {
  18   puts "Error in featperform"
  19 }
  20
  21 set square 0