$
$*********************************************      set basics
$
&dimen -dimen feet kips
&device   -oecho no  -g_default device
&set fact  = .2
&set start = .true.
&if %start% &then
   &set hloc1 = 100 0
   &set hloc2 = 200+100 0
   &set hei1 = 200
   &set hei2 = 200
   inmodel
   medit
      &describe part jacket -move *j0006 *j0004 *j0003 *j0001
      &instate barge -loc 0 0 -10 0 0 0 \
               jacket -loc  0 0 17 0 0 0
      ~lwaya spr z 1e5
      ~lwayz spr z 1e5
      ~fricx spr x 1e5
      ~fricy spr y 1e5
      &set offz = 0 0 0
      &set offx = 0 0 0
      &set offy = 0 0 0
      connector lway1 ~lwaya &offset( *j0001 *b@ %offz%)
      connector lway2 ~lwaya &offset( *j0002 *b@ %offz%)
      connector lway3 ~lwaya &offset( *j0003 *b@ %offz%)
      connector lway4 ~lwaya &offset( *j0004 *b@ %offz%)
      connector lway5 ~lwaya &offset( *j0005 *b@ %offz%)
      connector lway6 ~lwaya &offset( *j0006 *b@ %offz%)
      connector h_sid1 ~fricy &offset(*j0001 *b@ %offy% )
      connector h_sid3 ~fricy &offset(*j0003 *b@ %offy% )
      connector h_long ~fricx &offset(*j0003 *b@ %offx% )
      ~sling h_cat    2 -len 120
      connector sl1_1 ~sling *j0007
      connector sl1_2 ~sling *j0008
      connector sl1_3 ~sling *j0010
      connector sl1_4 ~sling *j0011
      connector sl2_1 ~sling *j0008
      connector sl2_2 ~sling *j0009
      connector sl2_3 ~sling *j0011
      connector sl2_4 ~sling *j0012
   end
   &connector sl1@ -anchor  %hloc1% %hei1% \
              sl2@ -anchor  %hloc2% %hei2% \
              sl@ -l_tension 0
   &weight -compute  barge 12 32 129 129
   &status g_connector
   &status f_connector
   &status config
&endb
f_equi
&status force
&set proces = 0
lift 2 2
$lift 2 2
$lift 2 2
$lift 2 2
$lift 2 2
struct
   str_lca
  bodsolve
end
strpost -old no
   rest loads -detail
   joint displace -local no
end
$
$*********************************************      all done
$
&fini
