$
$*********************************************      set basics
$
&title Test Of Pulleys with Taught Lines - Repositioning
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -loca 0 0 -9
&weight -compute 5 32 .29*400 .29*400
&dcptime time to medit
medit
   ~wire h_cat 1.25   -len 4000 -tab 300
   connector sst ~wire *mla *ga
   connector sbo ~wire *mld *ga
   connector pst ~wire *mlb *gb
   connector pbb ~wire *mlc *gb
   &connecto @ -l_tension 50
   assembly pulley pulley_s sst sbo
   ~w b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008 \
                     -b_tens 500
   connector csst ~w   *mla -anc   45   20
   connector csbs ~w   *mla -anc   90   20
   connector csbb ~w   *mld -anc   90   20
   connector csbo ~w   *mld -anc  135   20
   connector cpst ~w   *mlb -anc  -45   20
   connector cpbs ~w   *mlb -anc  -90   20
   connector cpbb ~w   *mlc -anc  -90   20
   connector cpbo ~w   *mlc -anc -135   20
   &connector c@ -a_ten 100
end
hydro
   g_mdrift tbrg tbrg -md_type form
end
&env -sea issc 90 4 6
&status force
&status f_connector
repo
   show
   do
   &status force
   &status f_connector
$
$*********************************************      all done
$
&fini
