$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$     ----------                                         ---------
$     ----------                 VESSEL                  ---------
$     ----------                                         ---------
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&dimen -save -dimen meters K-NTS
&default -use #@
&set diftyp = strip
$
&describe body vessel
$
$*********************************************      EXTERNAL HULL
$
pgen -diftyp %diftyp% -cs_curr 1 1 1 -cs_wind 1 1 1 -tanaka 0
  plane -3.75   -cartesian      0.000     12.500
 plane    0.00 -cartesian    0.000    0.000 +
              0.000	  8.000 +
              0.741    8.500 +
              1.414    9.00  +
              1.578    9.50 +
              2.312    10.300 +
              4.224   12.500
 plane    2.5000 -cartesian    0.000    0.000 +
              1.418    0.000 +
              2.084    0.673 +
              3.303    2.000 +
              4.643    8.300 +
              5.970   12.500
 plane    4.000 -cartesian    0.000    0.000 +
              1.518    0.000 +
              2.384    0.673 +
              2.603    2.000 +
              3.643    8.300 +
              6.970   12.500
 plane   6.7500 -cartesian    0.000    0.000 +
              3.071    0.000 +
              4.175    0.738 +
              4.535    2.000 +
              6.332    8.300 +
              9.345   12.500
 plane   12.00 -cartesian    0.000    0.000 +
              5.141    0.000 +
              6.698    0.806 +
              7.212    2.000 +
              9.927    8.300 +
             13.553   12.500
 plane   18.000 -cartesian    0.000    0.000 +
              7.729    0.000 +
             10.344    1.700 +
             10.516    2.000 +
             16.579   12.500
 plane   23.2500 -cartesian    0.000    0.000 +
             10.024    0.000 +
             13.181    1.700 +
             13.354    2.000 +
             16.416    7.300 +
             17.500   12.500
 plane   27.250 -cartesian    0.000    0.000 +
             11.612    0.000 +
             14.024    2.000 +
             16.437    4.000 +
             17.500    9.845 +
             17.500   12.500
 plane   30.000 -cartesian    0.000    0.000 +
             12.872    0.000 +
             16.318    1.700 +
             16.414    2.000 +
             17.500    5.411 +
             17.500   12.500
 plane   34.250 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
 plane   48.750 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
 plane   64.500 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
 plane   81.000 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
plane  102.750 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
 plane  118.500 -cartesian    0.000    0.000 +
             14.500    0.000 +
             15.250    0.095 +
             16.000    0.402 +
             16.750    1.016 +
             17.009    1.700 +
             17.122    2.000 +
             17.500    3.000 +
             17.500    7.800 +
             17.500   12.500
 plane  123.750 -cartesian    0.000    0.000 +
              1.000    0.380 +
             14.761    0.687 +
             15.446    0.829 +
             16.131    1.157 +
             16.815    1.768 +
             16.898    2.000 +
             17.500    3.676 +
             17.500   12.500
 plane  129.000 -cartesian    0.000    0.000 +
              1.000    1.548 +
              6.170    2.000 +
             14.761    2.751 +
             15.446    2.893 +
             16.131    3.221 +
             16.815    3.832 +
             17.500    5.740 +
             17.500   12.500
 plane  134.250 -cartesian    0.000    0.000 +
              0.599    2.000 +
              1.000    3.340 +
             14.761    4.632 +
             15.446    4.774 +
             16.131    5.102 +
             16.815    5.713 +
             17.500    7.620 +
             17.500   12.500
 plane  139.50 -cartesian    0.000    0.000 +
              0.407    2.000 +
              1.000    4.918 +
             14.561    6.210 +
             15.296    6.317 +
             16.031    6.629 +
             16.765    7.242 +
             17.500    9.198 +
             17.500   12.500
plane  145.5 -cartesian 0.000 0.000 +
0.407 2. +
1.00 4.918 +
14.761 7.545 +
15.446 7.687 +
16.131 8.015 +
17.5 10.533 +
17.5 12.5
 end
pgen -diftyp %diftyp% \
      -cs_curr 0 0 0 -cs_wind 0 0 0 -tanaka 0
 plane   145.5   -cartesian      0.000      6.161 +
                   14.761      7.545 +
                   15.446      7.687 +
                   16.131      8.015 +
                   16.815      8.626 +
                   17.500     10.533 +
                   17.500     12.500
  plane  155.25   -cartesian      0.000      7.428 +
                   14.762      8.721 +
                   15.447      8.862 +
                   16.131      9.190 +
                   16.816      9.800 +
                   17.500     11.600 +
                   17.500     12.500
 end
 pgen -port -locat 0. -3. 0. -diftyp %diftyp% \
      -cs_curr 0 0 0 -cs_wind 0 0 0 -tanaka 0
 plane  155.25   -cartesian     0. 7.6 +
	        3.411     7.828 +
                    3.604     9.611 +
                    3.743    10.134 +
                    4.00    12.500
  plane  164.250   -cartesian     0. 7.6 +
	       3.411     7.8 +
                   3.600      9.611 +
                   3.74     10.134 +
                   4.00     12.500
 end
 pgen -port -locat 0. -12. 0. -diftyp %diftyp% \
      -cs_curr 0 0 0 -cs_wind 0 0 0 -tanaka 0
  plane  155.25   -cartesian   0  8.4 +
	        3.411     8.728 +
                    4.604     9.611 +
                    4.943    10.134 +
                    5.500    12.500
  plane  164.250   -cartesian   0 8.4  +
	      3.411     8.728 +
                   4.62      9.611 +
                   4.9     10.134 +
                   5.500     12.500
 end
 pgen -stbd -locat 0. 3. 0. -diftyp %diftyp% \
      -cs_curr 0 0 0 -cs_wind 0 0 0 -tanaka 0
 plane  155.25   -cartesian     0. 7.6 +
	        3.411     7.828 +
                    3.604     9.611 +
                    3.743    10.134 +
                    4.00    12.600
  plane  164.250   -cartesian     0. 7.6 +
	       3.411     7.8 +
                   3.600      9.611 +
                   3.74     10.134 +
                   4.00     12.600
 end
 pgen -stbd -locat 0. 12. 0. -diftyp %diftyp% \
      -cs_curr 0 0 0 -cs_wind 0 0 0 -tanaka 0
  plane  155.25   -cartesian   0  8.4 +
	        3.411     8.728 +
                    4.604     9.611 +
                    4.943    10.134 +
                    5.500    12.600
  plane  164.250   -cartesian   0 8.4  +
	      3.411     8.728 +
                   4.62      9.611 +
                   4.9     10.134 +
                   5.500     12.600
 end
$
$*********************************************      WEIGHT
$
*cdg  74.94 0 12.16
#WEIGHT *cdg 36003.5*9.81   13.25 36.87 37.74
$
$*********************************************      DRAFT
$
*p1s1 0. 0. 0.
*p2s1 0. 0. 50.
*p1s2 72.75 0. 0.
*p2s2 72.75 0. 50.
*p1s3 145.5 0. 0.
*p2s3 145.5 0. 50.
$
&describe body vessel \
 -dmark ppav *p1s1 *p2s1 \
 -dmark ppm *p1s2 *p2s2 \
 -dmark ppar *p1s3 *p2s3
$
$*********************************************     FAIRLEADS
$
*bowport   6.75  -9 12.50
*bowstbd   6.75   9 12.50
*stestbd 145     17 12.50
*steport 145    -17 12.50
*bow             0   0   8
*stern        160   0   8
$
&set xtens        = 158.128
&set ytens        = -9.200
&set ztens        = 20.842
 &set cos   = &number(cosd %angle%)
 &set sin   = &number(sind %angle%)
 *tens  %xtens%  %ytens%  %ztens%
*rol1  &number(real %xtens%+4.50*%cos%)    %ytens%   &number(real %ztens%-4.50*%sin%)
*rol2  &number(real %xtens%+9.00*%cos%)    %ytens%   &number(real %ztens%-9.00*%sin%)
*rol3  &number(real %xtens%+13.5*%cos%)    %ytens%   &number(real %ztens%-13.5*%sin%)
*rol4  &number(real %xtens%+18*%cos%)      %ytens%   &number(real %ztens%-18*%sin%)
&describe interest -ass *tens *rol1 *rol2 *rol3 *rol4 *bow *stern
&dimen -remember