$
$*********************************************      set basics
$
&title Test Of Tug Connectors and Reposition
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -condition 9
&status
&compartment -percent  tank .25
&weight -compute 5 32 .29*400 .29*400
&status
&type &compartm(@)
&dcptime time to medit
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   ~tug  tug_boat 400
   connector sst ~wire -anc   45   20 *mla
   connector sbs ~wire -anc   90   20 *mla
   connector sbb ~wire -anc   90   20 *mld
   connector sbo ~wire -anc  135   20 *mld
   connector pst ~tug  -tug  -45   20 *mlb
   connector pbs ~tug  -tug  -90   20 *mlb
   connector pbb ~tug  -tug  -90   20 *mlc
   connector pbo ~tug  -tug -135   20 *mlc
end
hydro
   g_mdrift tbrg tbrg -md_type form
end
&connector sst sbs sbb sbo -a_tension 400
&connector pst pbs pbb pbo -t_force   400
&env -sea issc 90 40 6
repo
   show
   do
   &status force
   &status f_connector
   tug 1 1 p@
   do
   &status force
   &status f_connector
   &status spread
   &connector sst sbs sbb sbo -a_tension 400
   &connector pst pbs pbb pbo -t_force   400
   &status force
   &instate -c_force compute
   &status force
   &status spread
   &instate -move 0 0 0 0 0 10
   do
   &status spread
$
$*********************************************      all done
$
&fini
