#box b -30 -30 -30 60 60 30
#ptorus f 35 10 90 180
#explode b F
#explode f F
#glue r f b f_2 b_6

#pcylinder c 10 10
#trotate c 0 0 0 1 0 0 90
#ttranslate c 0 -30 -15  
#explode c F
#explode r F
#glue s c r c_3 r_2
#save s 6_E56.draw

restore [locate_data_file CFI_6_e56fha.rle] s
tscale s 0 0 0 SCALE2
explode s E
blend result s 8*SCALE2 s_7

set square 19514.7