`This run produces a Displacement Correction Table
proj displcor

variable (string) gfr,pf
variables draftloc,w0,lwl,d,d1,dd,ndrafts,t1,dt


macro resetdr
 draft @ {draftloc} = {d}
/

macro trim
 trim= {t%1}/
 .resetdr
 solve weight
 variable dw%1
 set dw%1 = {weight} minus {w0}
/

macro draft
 trim=0
 .resetdr
 solve weight
 set w0={weight}
.trim 1
.trim 2
.trim 3
.trim 4
.trim 5
.trim 6
.trim 7
.trim 8
\{ d:2} { dw1:1} { dw2:1} { dw3:1} { dw4:1} { dw5:1} { dw6:1} { dw7:1} { dw8:1}
/

macro st
 variable t%1
 set t%1 = %2
/

macro trims
 .st {n} {t}
 set n = {n} plus 1
 set t = {t} plus {dt}
/

macro drafts
 .draft
 set d = {d} plus {dd}
/

macro dctab
 variables n,t
 set n = 1
 set t = {t1}
 .trims (8)
 \
 \                      Displacement Correction Table
 \------------------------ Trim per{ lwl} {lunit }------------------------------
 \ Draft {  t1:2} {  t2:2} {  t3:2} {  t4:2} {  t5:2} {  t6:2} {  t7:2} {  t8:2}
 set d = {d1}
 .drafts ({ndrafts})
 \------------------------------------------------------------------------------
 \    Draft location: {draftloc }      Displacement corrections in {WUNIT}
 \
/

macro displcor
 read {gfr}
 report {pf}
 lwl={lwl}
 .dctab
 view
 report off
/

set gfr = "tanker.gf"
set lwl = 100       `Length over which trim is taken
set draftloc = 0.0  `Location at which drafts are taken
set t1 = -2.0
set dt = 0.5
set d1 = 2.0
set dd = 0.5
set ndrafts = 8

macro go
 template dc1 "Displacement Correction Table Dialog"
  "Geometry File" file gfr
  "Report File" file pf
  "LBP" lwl
  "Draft Loc" draftloc
  "First trim" t1 | "Trim increment" dt
  "First draft" d1 | "Draft increment" dd
  "Number of drafts" ndrafts
  "Calculate" .displcor
  exit
 //
 .dc1
/
.go