tests/feat/featrf/B4

   1 #old revolrib8
   2 pcylinder c1 3 5
   3 pcone c2 2 1.5 3
   4 pcylinder c3 1 2
   5 ttranslate c2 0 0 5
   6 ttranslate c3 0 0 8
   7 bfuse ss c1 c2
   8 bfuse s ss c3
   9 nexplode s e
  10 blend s s 0.3 s_4 0.3 s_2
  11
  12 vertex v1 0.5 0 11.
  13 vertex v2 0.5 0 -1
  14 edge e v1 v2
  15 wire w e
  16 ttranslate w -1.3 0 0
  17 plane pl -0.8 0 11 0 1 0
  18
  19 featrf s w pl 0 0 0 0 0 1 0.2 0.2 0 1
  20 featperform rf result
  21
  22 set square 216.876