$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$    this is a simple set of data which demonstrates the use
$                   of otto with three barges.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*****************************************     define macros
$
&macro level zloc nod
%nod%s1 0 48 %zloc%
%nod%s2 100 48 %zloc%
%nod%s3 125  25 %zloc%
%nod%s4 100 25 %zloc%
%nod%p1 0 -48 %zloc%
%nod%p2 100 -48 %zloc%
%nod%p3 125  -25 %zloc%
%nod%p4 100 -25 %zloc%
#weight 100 %nod%s1
#weight 100 %nod%s2
#weight 100 %nod%s3
#weight 100 %nod%s4
#weight 100 %nod%p1
#weight 100 %nod%p2
#weight 100 %nod%p3
#weight 100 %nod%p4
beam ~deck %nod%s1 %nod%s2 %nod%s3 %nod%s4 %nod%p4 %nod%p3 %nod%p2 +
           %nod%p1 %nod%s1
&endmacro
&macro bow_bar ydist nod
pgen -location 0 %ydist% 0 -cs_wind 1 1 1 -cs_curr 1 1 1 -tanaka 0
   plane 0 100 -rect 0 25 75
end
&endmacro
$
$*****************************************     vessel
$
&describe body lbarge
bow_bar 48 *bstb
bow_bar -48 *bpor
pgen -diftyp 3ddif -location 125 0 0 -cs_wind 1 1 1 -cs_curr 1 1 1 \
     -tanaka 0
   plane 0 200 -rect 0 25 100
end
$
$*****************************************     gen deck
$
&default -nuse @
~deck tube 150 4
level 25 *db
level 50 *dt
beam ~deck *dbs1 *dts1
beam ~deck *dbs2 *dts2
beam ~deck *dbs3 *dts3
beam ~deck *dbs4 *dts4
beam ~deck *dbp1 *dtp1
beam ~deck *dbp2 *dtp2
beam ~deck *dbp3 *dtp3
beam ~deck *dbp4 *dtp4
$
$*****************************************     define deck mass
$
$
$*****************************************     define barges
$
*bstb1 0 48 0
*bstb2 100 48 0
*bpor1 0 -48 0
*bpor2 100 -48 0
*bstr1 125 0 0
*bstr2 225 0 0
~barge tube 1200 1
beam ~barge *bstb1 *bstb2
beam ~barge *bpor1 *bpor2
beam ~barge *bstr1 *bstr2
$
$*****************************************     barges mass
$
#weight 20801 .32*100 .29*200 .29*200 -cen 155.29 0 10
$
$*****************************************     connect
$
~conn tube 50 2
beam ~conn *bstb1 *dbs1
beam ~conn *bstb2 *dbs2
beam ~conn *bstr1 *dbs3
beam ~conn *bstr2 *dbs4
beam ~conn *bpor1 *dbp1
beam ~conn *bpor2 *dbp2
beam ~conn *bstr1 *dbp3
beam ~conn *bstr2 *dbp4