&describe body temp
pgen -loc 0 50 -cs_wind 1 1 1 -cs_curr 1 1 1
   plane 0 200 400 -rect 0 20 100
end
pgen -cs_wind 1 1 1 -cs_curr 1 1 1
   plane 0 200 400 -rect 0 20 100
end
~supa fix x y z rx
~supy fix y z
rest ~supa *1
rest ~supy *3
*1 0 0 0
*2 200 0 0
*3 400 0 000
&default -nuse @
~tube tube 1200 1
beam ~tube *1 *2 *3