`Demonstrates raising a sunken vessel by reducing the load in
`a given tank with another BUBBLE-type tank responding to
`the decreasing pressure as the vessel rises.

proj bubble2

macro st
 solve trim
 `status
 if {first}<>0 then display (*) status profile@0 /sync else display status /update
 set first=0
 load (hold1.c, focsle.c) `Shows loads of these tanks on the screen.
 wait
/

read fv

`Establish a light ship condition:
vcg 6
draft 6
solve weight, lcg

`Set up sunken condition:
heel 180
trim 10
depth -2
ground "Bottom point 1" * -48, 0, 23
ground "Bottom point 2" *  36, 0, 15
type (*) flood
tank focsle.c
type bubble
ref -48, 0, 23
load .5 /press: 1.3
tank hold1.c
type intact
load 1

macro ld
load %1
.st
/

variable first=1

.ld 0.9
.ld 0.5
.ld 0.1