$
$****************************************  define macros
$
&macro coordrol
&type
&cutype ROLLER COORDINATES IN BODIES SYSTEM OF REFERENCE
&type
&loop n 0 19 1
&set body     = &point(coor *r%n% -body)
&set bodyx    = &token(1 %body%)
&set bodyy    = &token(2 %body%)
&set bodyz    = &token(3 %body%)
&set bodyx    = &format(f7.3 %bodyx%)
&set bodyy    = &format(f7.3 %bodyy%)
&set bodyz    = &format(f7.3 %bodyz%)
&if &match(%n% 0) &then
 &type        R%n%  :  %bodyx%  %bodyy%  %bodyz%   TENSIONER
&else
 &type        R%n%  :  %bodyx%  %bodyy%  %bodyz%
&endif
&endloop
&type
&cutype ROLLER COORDINATES REFERING TO CL OF TENSIONER AND Z OF DECK
&type
&loop n 0 19 1
&set global   = &point(coor *r%n% -glob)
&set globx    = &token(1 %global%)
&set globy    = &token(2 %global%)
&set globz    = &token(3 %global%)
&set xtens    = &number(real %globx%-187+106.847)
&set xtens    = &format(f7.3 %xtens%)
&set zdeck    = &number(real %globz%-6.50)
&set zdeck    = &format(f7.3 %zdeck%)
&set globy    = &format(f7.3 %globy%)
&if &match(%n% 0) &then
 &type        R%n%  :  %xtens%  %globy%  %zdeck%   TENSIONER
&else
 &type        R%n%  :  %xtens%  %globy%  %zdeck%
&endif
&endloop
&endmacro
$
$****************************************  set dimensions
$
&dimen -save -dimen meters m-tons
$
$****************************************  set title
$
&title Comparision of MOSES/Offpipe
$
$****************************************  height of rollers
$
&set ZR0   =  (%draft%+10.864)
&set ZR1   =  (%draft%+10.864)
&set ZR2   =  (%draft%+10.864)
&set ZR3   =  (%draft%+10.864)
&set ZR4   =  (%draft%+10.864)
&set ZR5   =  (%draft%+10.864)
&set ZR6   =  (%draft%+10.864)
&set ZR7   =  (%draft%+10.864)
&set ZR8   =  (%draft%+10.864)
&set ZR9   =  (%draft%+10.864)
&set ZR10  =  (%draft%+9.113)
&set ZR11  =  (%draft%+6.324)
&set ZR12  =  (%draft%+2.296)
&set ZR13  =  (%draft%-2.755)
&set ZR14  =  (%draft%-8.982)
&set ZR15  =  (%draft%-14.563)
&set ZR16  =  (%draft%-22.866)
&set ZR17  =  (%draft%-29.629)
&set ZR18  =  (%draft%-36.792)
&set ZR19  =  (%draft%-45.874)
$
$****************************************  define body
$
&describe body barge
$
$****************************************  define winch loc.
$
*SS   187    24    12
*SB     0    24    12
*PS   187   -24    12
*PB     0   -24    12
$
$****************************************  ten. & rollers
$
*R0    187-106.847    0     %ZR0%     $  TENSIONER
*R1    187-97.840     0     %ZR1%
*R2    187-92.005     0     %ZR2%
*R3    187-82.294     0     %ZR3%
*R4    187-73.016     0     %ZR4%
*R5    187-66.577     0     %ZR5%
*R6    187-58.622     0     %ZR6%
*R7    187-49.866     0     %ZR7%
*R8    187-43.435     0     %ZR8%
*R9    187-33.180     0     %ZR9%
*R10   187-21.844     0     %ZR10%
*R11   187-11.949     0     %ZR11%
*R12   187-2.743      0     %ZR12%
*R13   187+5.446      0     %ZR13%
*R14   187+12.938     0     %ZR14%
*R15   187+17.963     0     %ZR15%
*R16   187+23.505     0     %ZR16%
*R17   187+26.752     0     %ZR17%
*R18   187+29.213     0     %ZR18%
*R19   187+31.077     0     %ZR19%
$
$****************************************  reset dimensions
$
&dimen -remember