$
$****************************************       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 @
$
*bp3    -5  -5 00
*bp4     5  -5 00
$
*qp3    -5  -5 10
*qp4     5  -5 10
*qp1     5   5 10
*qp2    -5   5 10
$
~fixl fix x y z rx ry rz
~fixr fix x   z rx ry
~fixa fix x y z rx ry rz
rest ~fixl *qp2
rest ~fixr *qp3
rest ~fixa *bp3
~pri pri .325 10
~plate plate 1   -t_stiff  24 ~pri -z
~bea pri 10*12 1 -l_stiff  24 ~pri -z
plate q  ~plate  -dir_local nodes *qp4 *qp1 *qp2 *qp3
beam  b  ~bea    *bp3 *bp4
beam  s  ~bea    *qp3 *bp3
&set force =  -100 0000 100
nodlod #load *qp1    %force%/2
nodlod #load *qp4    %force%/2
nodlod #load *bp4    %force%/2
nodlod #load *bp4    %force%/2