#box s1 0 0 0 10 10 10
#pcylinder s2 2 5
#ttranslate s2 10 10 0
#trotate s1 s2 0 0 0 0 0 1 -10
#fuse s s1 s2
#save s E5678.draw 

restore [locate_data_file CFI_e5678fil.rle] s
tscale s 0 0 0 SCALE1
explode s e
mkevol result s
updatevol s_4 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
buildevol

set square 64488.9
