box s1 10 10 10 
pcylinder s2 3 20 
trotate s2 0 0 0 1 0 0 90
ttranslate s2 5 15 5
tscale s1 0 0 0 SCALE1
tscale s2 0 0 0 SCALE1
bfuseblend result s1 s2 0.5*SCALE1

set square 78849.6