`Launch example - stern first
proj launch
read fv.gf

lwl = 80

weight 160, 3.60f, 0, 10.5  `<-- Total ship weight, LCG, TCG, VCG
draft 0 @ 40f, 5 @ 40a  `<-- Initial waterplane (partly down ways)

variable d
set d = {weight} minus {displ} `<-- d is initial weight on ways
set d = {d} times 0.90  `<-- most but not all for midship supports

ground "Midship supports" {d}, {lcg}, 0, 0 /pen:*,0.02
ground "Forward poppet" *, 40f, 0, 0  `<-- Poppet location (l,t,v)
ground "Aftmost support point" *, 40a, 0, 0  `<-- to keep from tipping aft

macro step
 solve trim
 status displ
 depth = *+1.0  `<-- use suitable increment; "*" represents the current depth
/

.step (6)  `<-- use suitable number of steps