proj dktank1
read fv.gf
enter pm
create hull\deckspace.c
 ends 100, 23.1f
 top 30
 bot 0
 out 30
 spacing 999
 fit (int) hull.c, 0.01
/
modify deckspace.c
 vector 0,0,3
 fit (ext) hull.c
 camber 0
/
create decktank.c
 ends -100, 100
 spacing 999
 fit deckspace.c
/
write fvdecked.gf
quit pm
report /box:bw
draft 6
vcg 7
solve weight, lcg
tank decktank.c
type damaged
ref top 
ref 7.7f, 12.1, 15.6
crtpt off
crtpt "Coaming" 7.7f, 12.1, 15.6
load 1
load (db1*,wt2*) 0.9
solve trim
angles 0, 10, ... 70
display (*) status body@7.7f:=angles /page%:50
ra /graph:none
page
hmmt 500 /c1
ra 0 2.5 ... 70
print preview /thick:3
report off