#box b -10 -10 -10 20 20 20
#pcylinder c 8 15
#ttranslate c 0 0 10
#fuse s b c

restore [locate_data_file CFI_6_a12fgr.rle] s
tscale s 0 0 0 SCALE2
explode s E
mkevol result s
updatevol s_5 0 1*SCALE2 1 4*SCALE2 2 3*SCALE2
buildevol

set square 3105.92