$
$****************************************       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 @
$
~fixl fix x y z rx ry rz
~fixr fix x   z rx ry
~fixa fix x y z rx ry rz
rest ~fixl *qp102
rest ~fixr *qp103
~pri pri .325 10
~plate plate 1
~bea pri 10*12 1
~spa pri 10*12 1 -emod 1
$
*qp301   0+45     0+30 10
*qp302  10+45     0+30 10
*qp303  20+45     0+30 10
*qp304  30+45     0+30 10
*qp305  40+45     0+30 10
$
*qp306  40+45     5+30 10
$
*qp307  40+45    10+30 10
*qp308  30+45    10+30 10
*qp309  20+45    10+30 10
*qp310  10+45    10+30 10
*qp311   0+45    10+30 10
$
*qp312   0+45     5+30 10
$
*qp201   0+45     0 10
*qp202  10+45     0 10
*qp203  20+45     0 10
*qp204  30+45     0 10
*qp205  40+45     0 10
$
*qp206  40+45    10 10
*qp207  30+45    10 10
*qp208  20+45    10 10
*qp209  10+45    10 10
*qp210   0+45    10 10
$
*qp101   0     0 10
*qp102  10     0 10
*qp103  20     0 10
*qp104  30     0 10
*qp105  40     0 10
 
*qp106  40    10 10
*qp110   0    10 10
$
&set cp =
&loop a 0 350 10
   &set  n = &string(o_number *cp000  %a)
   &set  s = &number(sind %a)
   &set  c = &number(cosd %a)
   &set xy = &number(real 20+20*%s)  &number(real 35+20*%c)
   &type %n %xy
   %n %xy
   &set cp = %cp %n
&endloop
$
plate cp  ~plate  %cp
$
plate q1  ~plate  -rel my mz -go2 00 00 01  \
       *qp101 *qp102 *qp103 *qp104 *qp105 *qp106  *qp110
$
plate q2  ~plate  -rel rz  \
             *qp201 *qp202 *qp203 *qp204 *qp205 *qp206 *qp207 *qp208 *qp209 *qp210
$
plate q3  ~plate  -rel rz *qp301 *qp302 *qp303 *qp304 *qp305 *qp306 \
                          *qp307 *qp308 *qp309 *qp310 *qp311 *qp312
&set force =  -100 0000 100
nodlod #load *qp101    %force%/2
nodlod #load *qp104    %force%/2