clear
proj cow059

vari sound=12
vari vtcg=-3
vari vlcg=-8

read fv
crtpt off
we 250 {vlcg} {vtcg} 5
so 

macro CGpt
 crtpt (1) "CG" {lcg} {tcg} {vcg}
/
.CGpt

di status profile:outboard, plan:be /sync /nocrit:arrow:number

macro upd8_st  `%1:wait period in seconds
 cls
 so
 status we, di:br
 wait %1
/

macro tideout
 SET sound={sound} MINUS 0.5
 ground (hull\hull.c) /floor:{sound} /NP:30
 ground (hull\skeg.c) /floor:{sound} /NP:4 
 .upd8_st 0.5
 if {sound}=0.0 then exit
 exit tideout
/

macro weloop
 SET vtcg={tcg} PLUS 0.75
 SET vlcg={lcg} PLUS 2.0
 we 250 {vlcg} {vtcg} 5 /nowarn
 .CGpt
 ground (hull\hull.c) /floor:{sound} /NP:30
 ground (hull\skeg.c) /floor:{sound} /NP:4
 .upd8_st 0.5
 if {tcg}=0.0 then exit
 exit weloop
/

macro tidein
 SET sound={sound} PLUS 0.5
 ground (hull\hull.c) /floor:{sound} /NP:30 /clear:1.5
 ground (hull\skeg.c) /floor:{sound} /NP:4 /clear:1.5
 .upd8_st 0.5
 if {sound}=10 then exit
 exit tidein
/

.tideout
.weloop
.tidein