proj swamp
clear
enter pm
create hull
cyl -8,0,2, 8, 0, 2,  4
top 2
/
create cockpit
 side c
 ends -7, 7
 top 2
 bot 0
 fit hull 0.2, 0.2, 0
/
write swamp.gf
quit pm
report
depth 0.8
vcg 1
solve weight, lcg
load (cockpit) 0.1
ref (cockpit) 0,1.8,2
crtpt edge 0,1.8,2
type (cockpit) damaged
angles  10 20 30 40
di (*) status body@0:=angles /page%:20
angles 0 2.5 ... 35 35.2 ... 40 45 ... 50
page
ra /graph:nocrt,clean
print preview /thick:4
report off