project t
read tanker.gf
dr 5
di (*) status profile,plan /sync /yesempty
load (CGC*) .95
solve we
vcg 5
solve lcg

macro intheel
 load 0
 load int:%1
 solve
 st
` \int=%1; heel={heel}
 message %1, {heel}
 wait
/
report t
tank wbdb3.s, CGS4.s, CGC4.C
type flood
solve
status
di (*) status body@-45 /sync /yesempty
st
tank cgc4.c
type int
load 0
cont * sea

message plotstart "title" `/norotate
message plotlabel "Intermediate Load Fraction", "Heel angle"
.intheel(19,.05) .05
message plotend

type flood
solve
cont *
print preview
report off