$
$****************************************       macros
$
&macro lc_doit name case num = 1
   &env %name
   &apply -force -fract @ 0 %case  %num
   lcase -static %name
&endmacro
&macro nodlod name node x = 0 y = 0 z = 0 mx = 0 \
                        my = 0 mz = 0
   &describe load %node %node
   %name %node %x %y %z %mx %my %mz
&endmacro
&m_act nodlod null
$
$
$****************************************       dimensions
$
&dimen -dim feet kips
$
$****************************************       describe body
$
&describe body test
&default -nuse @
$
*qp2    -5   5  0
*qp3    -5  -5  0
*qp4     5  -5  0
*qp1     5   5  0
$
~fixl fix x y z ry $rx ry rz
~fixr fix x   z $rx ry
rest ~fixl *qp2
rest ~fixr *qp3
~pri pri .01   1
~plate plate 1
plate q  ~plate  *qp3 *qp4 *qp2 *qp1
beam  up   ~pri  -goa 0 0 +.5  *qp3 *qp4
beam  down ~pri  -goa 0 0 -.5  *qp3 *qp4
&set force =  0000 0000 100
nodlod #load *qp1    %force%/2
nodlod #load *qp4    %force%/2