&dimen -dimen feet kips
&title naval facilities engineering command
&subtitle dodge pond acoustic test facility
&default -water 62.4 -depth 40
&env nowave -spread 99 -wind 66 90 -time 200 0.50
inmodel
&instate sect_02 -locate 68.25*0   0  -3.25 0 0 0 \
         sect_03 -locate 68.25*1   0  -3.25 0 0 0 \
         sect_04 -locate 68.25*2   0  -3.25 0 0 0 \
         sect_05 -locate 68.25*3   0  -3.25 0 0 0 \
         bar_01 -locate 241.625 18.25 -2.50 0 0 90 \
         bar_02 -locate 240.208 2.605 -3.25 0 0 0 \
         bar_03 -locate 181.896 -33.474 -3.25 0 0
&type bodies &names(bod)
&type bars   &names(bod bar@)
medit
 ~shore gspr x 1e3 y 1e3
 ~pin   gspr x 1e3 y 1e3 z 1e3
 ~slide gspr x 1e3 y 1e3
 connector ~shore  p1 *hps2gm1
 connector ~shore  p2 *hps2gm2
 connector p3 ~pin    *hps2gm3  *hps3gm1
 connector p5 ~pin    *hps2gm4  *hps3gm2
 connector p4 ~pin    *hps3gm3  *hps4gm1
 connector p6 ~pin    *hps3gm4  *hps4gm2
 connector p7 ~pin    *hps4gm3  *hps5gm1
 connector p8 ~pin    *hps4gm4  *hps5gm2
 connector p9 ~slide  *hps5gm3  *hpb1gm1
 connector p10 ~slide  *hpb2gm1  *hpb1gm2
 connector p11 ~slide  *hps5gm4  *hpb2gm2
 connector p12 ~slide  *hps5gm5  *hpb2gm3
 connector p13 ~slide  *hpb3gm3  *hpb2gm4
 connector p14 ~slide  *hpb3gm4  *hpb2gm5
 connector p15 ~slide  *hps5gm6  *hpb3gm1
 connector p16 ~slide  *hps5gm7  *hpb3gm2
 connector p17 ~slide  *hpb2gm4  *hpb3gm3
 connector p18 ~slide  *hpb2gm5  *hpb3gm4
 ~chain_a b_cat  2. exact -tab_lim 240 -dep 20 -len 200 \
          -buoy 0 -wtplen .0164
 ~chain_b b_cat  2. exact  -tab_lim 240 -dep 40 -len 200 \
          -buoy 0 -wtplen .0164
 ~cable h_cat    1 -tab_lim 100 -len 300
 connector mr1 ~chain_a *mrs3gm1 -anc -90 175
 connector mr2 ~chain_a *mrs3gm2 -anc  90 175
 connector mr3 ~chain_b *mrs5gm3 -anc  90 175
 connector mr4 ~chain_b *mrb1gm4 -anc   0 175
 connector mr5 ~chain_b *mrb3gm5 -anc -90 175
 connector mr6 ~chain_b *mrb3gm6 -anc -85 175
 connector mr7 ~chain_b *mrb3gm7 -anc -45 175
 connector mr8 ~chain_b *mrb3gm8 -anc   5 175
 connector mr9 ~chain_b *mrb2gm9 -anc  40 175
 connector mr10 ~chain_b *mrb2gm10 -anc  80 175
 connector br1 ~cable *brs3gm1 *brb3gm1
 connector br2 ~cable *brs4gm2 *brb1gm2
 connector br3 ~cable *brb2gm3 *brb1gm3
 connector br4 ~cable *brb2gm4 *brb1gm4
 &connector br@ -l_tension 2
 &connector mr@ -l_tension 5
end
&equi
&status g_connec -hard
&status f_connec -hard
&status cl_flex  -hard
&status config -hard
&status spread -hard
&finish