$
$*********************************************      basics
$
&device  -oecho no  -g_default device
&dimen -dimen meters k-nts
$
$*********************************************      read model
$
inmodel
&instate -con 32.5
medit
   &set exact =
   &describ body fl
   ~cl5 b_cat 120 %exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl6 b_cat 120 %exact -len 430 -dep -2 -slope -1e5  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl7 b_cat 120 %exact -len 430 -dep -2 -slope -.185  -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   ~cl8 b_cat 120 %exact -len 430 -dep -2 -slope -1 -buoy 0 -emod 5.6e4 \
                  -wtpl 2.69 -tab_lim 3557
   connec line5 ~cl5 -anch -000 430*.9 *fairl8
   connec line6 ~cl6 -anch -000 430*.9 *fairl8
   connec line7 ~cl7 -anch -000 430*.9 *fairl8
   connec line8 ~cl8 -anch -000 430*.9 *fairl8
end
&status cl_flex
&loop ten ( 900 800 700 600 500 )
   &cutype Tension = %ten
   &connec line5 -l_hor %ten
   &connec line6 -l_ten %ten
   &connec line7 -l_hor %ten
   &connec line8 -l_ten %ten
   &status f_connector
   &loop c ( &names(conne) )
      &status dg_connector %c -hard
   &endloop
   con
      table line5
          report
          end
   end
   &picture
&endloop
$
$*********************************************      all done
$
&fini
