$
$*********************************************      basics
$
&device  -oecho no  -g_default device
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con 0
medit
   &describ body fl
   ~bottom b_cat 3 -len 2000 -dep 500 -slope 00.0  -buoy 0 -emod 15e3  \
                   -wtpl .016 -tab_lim 700 -send 1
   ~b_ns   b_cat 3 -len 2000 -dep 500 -slope 00.0  -buoy 0 -emod 15e20  \
                   -wtpl .016 -tab_lim 700 -send 1
   ~no_st  b_cat 3 -len 2000 -dep  0 -slope -1e5  -buoy 0 -emod 15e20 \
                   -wtpl .016 -tab_lim 700 -send 1
   ~hang   b_cat 3 -len 2000 -dep  0 -slope -1e5  -buoy 0 -emod 15e3  \
                   -wtpl .016 -tab_lim 700 -send 1
   ~buoy   b_cat 3 -len 2000 -dep 500 -slope 0000  -buoy 0 -emod 15e3  \
                   -wtpl .016 -tab_lim 2700 -clump -400
   ~buoy   b_cat 3 -len 2000         -slope 0000  -buoy 0 -emod 15e3  \
                   -wtpl .016 -tab_lim 2700 -send 1
   connec bottom ~bottom -anch -000 430*.9 *fairl8
   connec b_ns   ~b_ns   -anch -000 430*.9 *fairl8
   connec no_st  ~no_st  -anch -000 430*.9 *fairl8
   connec hang   ~hang   -anch -000 430*.9 *fairl8
   connec buoy   ~buoy   -anch -000 430*.9 *fairl8
end
&status cl_flex
con
&loop lin ( bottom b_ns no_st hang buoy    )
   &cutype Line = %lin
   table %lin
       plot 1 2 -rax 3 -no
       report
       end
&endloop
end
$
$*********************************************      all done
$
&fini
