&describe body temp
pgen -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane 0 200 400 -rect 0 20 100
end
~supo fix
rest ~supo *1
*1 0 0 0 $-del
*2 200 0 0
*3 400 0 000
*4 200 0 200
~tube tube 1200 1
&default -nuse @
beam ~tube *1 *2 *3
beam tstbeam -scf 1000 1000 1000 ~tube *2 *4
#weight     25500 32 120 120                 -cen 200 0 38.33