&title test of 3d diffraction
$
$***************************************         box
$
&describe body test_bod vessel
&describe piece test_bod    -difty 3ddif -cs_wind .5 1 1 \
                      -cs_curr .5 1 1
*tpor0       -20.0000        -20.0000         25.0008
*tstb0       -20.0000         20.0000         25.0000
*bpor0       -20.0000        -20.0000          0.0000
*bstb0       -20.0000         20.0000         00.0000
*tpor40       20.0000        -20.0000         25.0008
*tstb40       20.0000         20.0000         25.0000
*bpor40       20.0000        -20.0000          0.0000
*bstb40       20.0000         20.0000         00.0000
*nwt          0.0000         0.0000         -10.0000
$reverse
PANEL     bow  *tpor0  *bpor0  *bstb0  *tstb0
PANEL    stern *tpor40 *tstb40 *bstb40 *bpor40
PANEL    stbd  *tstb0  *bstb0  *bstb40 *tstb40
PANEL    port  *tpor0  *tpor40 *bpor40 *bpor0
PANEL    top   *tpor0  *tstb0  *tstb40 *tpor40
PANEL    bot   *bstb0  *bpor0  *bpor40 *bstb40
$
$***************************************         box
$
~tube tube 36 .5
beam ~tube *tpor0 *tstb0 *bstb0 *bpor0 *tpor0
&describe load cow
#weight 5 1 1 1 -cen 0 0 10
$
$***************************************         wind history
$
&set string = &data curve w_history sf1
&loop t 1 200
   &set string = %string %t 1+&number(sin %t/20)  &number(real 90+(%t/200)*90)
&endloop
%string