#box b -15 -15 -15 15 30 30
#beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
#mkedge w w
#wire w w
#circle profile 0 0 0 1 0 0 10
#mkedge profile profile
#wire profile profile
#mkplane profile profile
#pipe p w profile
#explode b F
#explode p F
#glue s p b p_2 b_2

restore [locate_data_file CFI_6_g12fhd.rle] s
tscale s 0 0 0 SCALE2
explode  s E
mkevol result s
updatevol s_12 0 3*SCALE2 1 7*SCALE2 2 10*SCALE2
buildevol
 
set square 4945.02
