tests/feat/featrevol/H9

   1 #puts "TODO OCC22810 All:No error"
   2 puts "*"
   3 puts "TODO OCC22810 All:Error in featperform"
   4 puts "TODO OCC22810 All:Error : The feat grid cannot be built."
   5 #
   6 box b 8 8 8
   7 ttranslate b -4 0 0
   8 pcylinder c1 2 8
   9 bfuse c b c1
  10 profile p x 1 y 1 x -1 y -1
  11 trotate p 0 0 0 1 0 0 90
  12 trotate p 0 0 0 0 0 1 90
  13 ttranslate p 0 -2 0.5
  14 explode c f
  15 explode p e
  16 mksurface sf c_5
  17 mksurface su c_2
  18 mkface ff sf
  19 mkface fu su
  20
  21 featrevol c p p 0 0 0.5 0 0 1 0 1
  22 addslide revol p_4 c_3
  23 if { [catch { featperform revol result ff fu } ] != 0 } {
  24   puts "Error in featperform"
  25 }
  26
  27 set square 0