`Ground Point example
Clear
Read tanker
CLS

macro DISync
`This macro ignores any error generated if GHS user does not
`license CG module.
set error = -4
di(*) status profile, plan:be, body@-85 @-30 /yesempty /sync
set error = 0
/

Report Ground.pf /box:color

`Setup lightship and tank loads
We 4000 -45 0 7
Cont (cg*) do
load (cg*) .9
so
lbp 0 -95
.DISync

\\
\Floating Condition\
\
st dr we:brief disp
wait
cls
\\
ME "When the depth of water over ground is known,\
ME "set draft & trim to zero before creating ground points.\
\
ME "By aligning the vessel's baseplane with the water's surface,\
ME "the depth to ground beneath each point on the hull can be\
ME "specified using a negative penetration.\
tr 0
dr 0
wait
page
cls

Ground "Fwd" *,-85,0,0 /pen:-5.21,.01
Ground "Aft S" *,-30,5S,0 /pen:-6.37,.01
Ground "Aft P" *,-30,5P,0 /pen:-6.37,.01
\\
\Pre Solve Condition Showing Ground Depth\
\
st dr we:br disp
Ground report
wait
page
cls
\\
\Post Solve Grounded Condition\
\
so
st dr we:br disp
Ground report
wait
print preview
report off
quit