`Demonstrates a convenient way to keep the weight
`of tank contents on board when flooded.

project NORUNOFF

read fv

draft 5
vcg 7
solve weight, lcg

macro norunoff
tank %1
add "non-runoff %1", {tweight}, {tlcg}, {ttcg}, {tvcg}
type flood
/

macro intact
tank %1
delete "non-runoff %1"
type intact
/

load (wt*) 0.5
solve
status

`flood tank without runoff
.norunoff wt1.s
solve
status

`restore to intact
.intact wt1.s
solve
status

end