&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
&default -nuse @
~tube tube 1200 2
~tube2 tube 600 1.25
beam ~tube *1 *2 *3
~pla plate .01
plate ~pla *1 *2 *4
beam tstbeam -scfa 10 10 10 10 10 10 10 10 ~tube2 *2 *4
#weight     25500 32 120 120                 -cen 200 0 38.33