#box b -20 -13 -20 40 25 20
#ellipse w 0 0 0 15 10
#mkedge w w
#wire w w
#mkplane w w
#prism f w 2 0 30
#fuse s f b

restore [locate_data_file CFI_6_f12fhb.rle] s
tscale s 0 0 0 SCALE2
explode s E
mkevol result s
updatevol s_7 0 2*SCALE2 1 6*SCALE2 2 4*SCALE2
buildevol

set square 6903.87
