tests/blend/buildevol/J8

   1 #box b -20 -13 -20 40 25 20
   2 #ellipse w 0 0 0 15 10
   3 #mkedge w w
   4 #wire w w
   5 #mkplane w w
   6 #prism f w 2 0 30
   7 #fuse f1 f b
   8 #pcylinder c 8 25
   9 #trotate c 0 0 0 1 0 0 90
  10 #ttranslate c 0 0 -10
  11 #fuse s f1 c
  12
  13 restore 6_F56.draw s
  14 tscale s 0 0 0 SCALE2
  15 nexplode s E
  16 mkevol result s
  17 updatevol s_8 0 2*SCALE2 1 6*SCALE2 2 4*SCALE2
  18 buildevol
  19
  20 set square 7511.74