$
$****************************************       dimensions
$
&dimen -dim feet kips
$
$****************************************       describe body
$
&describe body cone
&default -use @
*1 0 0 0
*2 0 0 100
~cone cone 144 1  72  -len 20 -refine 3
~cone tube 72  1
~cone cone 72  1 144  -len 20 -refine 3
beam cone ~cone *1 *2