ptorus s 20 5 0 160 90
tscale s 0 0 0 SCALE1
explode s E
mkevol result s
updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
buildevol

set square 124704
