$
$****************************************       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 @ -use #dead #buoy
$
&set cp =
&loop a -85 -5  5
   &set  n = &string(o_number *cp000  %a)
   &set  s = &number(sind %a)
   &set  c = &number(cosd %a)
   &set xy = &number(real -20+20*%c)  &number(real 20*%s)
   %n %xy
   &set cp = %cp %n
&endloop
$
*ep1    00    0  0
*ep2    05    0  0
*ep3    10   00  0
*ep4    10  -30  0
*ep5   -20  -30  0
*ep6   -20  -25  0
*ep7   -20  -20  0
$
~plate plate 1
plate qfs   ~plate  *ep1 *ep2 *ep3 *ep4 *ep5 *ep6 *ep7 -free \
                    *ep3 *ep5 %cp