box s 0 0 0 100 100 100
tscale s 0 0 0 SCALE1
explode s E
mkevol result s
updatevol s_5 0 10*SCALE1 1 1.e-4 2 10*SCALE1
buildevol
explode result V
 
set square 1.49427e+06
