$
$****************************************       dimensions
$
&dimen -dim feet kips
$
$****************************************       describe body
$
&describe body rod
&default -nuse @
~tube box 100*12 40*12 5 5
*1 0 0 0
*2 175 0 0
*3 200 0 0
*4 400
beam ~tube *1 *2 *3 *4
pgen -cs_curr 1 1 1 -cs_wind 1 1 1
   plane 0 125 150 400 -rect 0 20 100
end