$*********************************************      set basics
$
$
&device   -oecho no  -g_default device
&dimen -DIMEN METERS kn
&default -depth 31
$
$*********************************************      GEN. DATABASE
$
INMODEL
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOC   0 0 -0 0 0 0
&weight -compute 1 10 10 10
$
$*********************************************      DEFINE LINES
$
MEDIT
   &set prop  = -len 300 -clump -667 68
   &set seg1 = -b_ten 2187 -emod 960e3 -wtpl .1224 -buoy 0
   &set seg2 = -b_ten 2662 -emod 960e3 -wtpl .1491 -buoy 0
   &set seg3 = -b_ten 3360 -emod 109e3 -wtpl .6991 -buoy 0
   ~th1 b_cat 58 %prop            -depanc 1100 %seg1
   ~th1 b_cat 64 -len 1460                     %seg2
   ~th1 b_cat 64 -len  760                     %seg3
    CONNECTOR  th1  ~th1 *avant   -ANC 180 350
   &set   r1 = -drag 58    -amas 58    -refine 20
   &set   r2 = -drag 64    -amas 58    -refine 20
   &set   r3 = -drag 64*2  -amas 58*2  -refine 20
   ~rh1 rod 58 57/2 %prop         -depanc 1100 %seg1 %r1
   ~rh1 rod 64 63/2 -len 1460                  %seg2 %r2
   ~rh1 rod 64 63/2 -len  760                  %seg3 %r3
    CONNECTOR  rh1  ~rh1 *avant   -ANC 180 350
   &conne @ -a_ten 600
END
&pict
&stat f_c -hard
conn
   table th1
     report
     end
&pict
&stat dg_c -hard
&fini