#box b -15 -15 -15 15 30 30
#polyline w 0 0 0 10 -10 0
#circle p 0 0 0 1 0 0 12
#mkedge p p
#wire p p
#mkplane p p
#pipe s1 w p
#fuse s s1 b

restore [locate_data_file 6_H1234.draw] s
tscale s 0 0 0 SCALE2
explode s E
mkevol result s
updatevol s_14 0 3*SCALE2 1 5*SCALE2 2 6*SCALE2 3 2*SCALE2
buildevol

set square 4339.75