$
$*********************************************      basics
$
&dimen -dimen feet kips
&device  -oecho no -g_default device
$
$*********************************************      read model
$
inmodel
&instate bow -con 10 stern -con 10
&summary
    loadg ud_f
end
medit
   assembly lleg *j0006 *j0004 stern 200  25 20 bow -tpin 5 300  25 20  -frict .05
   assembly lleg *j0003 *j0001 stern 200 -25 20 bow -tpin 5 300 -25 20  -frict .05
   ~p2 fix x   z
   ~p1 fix x   y   z
   connector ~p1 *s1 *b1
   connector ~p2 *s2 *b2
end
&status g_lway
&status f_lway
&instate jacket -move 50
launch -maxtim 40     -maxosc 5 -tstep .2 .2 .2 -winch 2 
prcpost
   traj
      report  location  -event 0 99999 1
   end
   lwforce
      report  -event 0 99999 1
   end
end
&picture  -event 0 25 3
$
$*********************************************      all done
$
&finish
