#box b -15 -15 -15 30 30 15
#psphere s 13 0 90 
#fuse s s b
restore [locate_data_file 6_C1234.draw] s
tscale s 0 0 0 SCALE2
explode s E
mkevol result s
updatevol s_8 0 3*SCALE2 1 5*SCALE2 2 5*SCALE2 3 3*SCALE2
buildevol

set square 4034.13