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

set square 82598.9