&describe body temp vessel
pgen -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane 0 100 400 -rect 0 20 100
end
*1 200 0 0
&describe part jacket
*2 200 0 0
*4 200 0 200
~tube tube 1200 1
&default -nuse @
beam ~tube *2 *4
&describe load cow
#weight 2*25500 32 120 120  -cen 200 0 38.33