clear

vari (real) h,hmin,hint,hmax,s

macro headings
  set h={h} plus {hint}
  \\ ***** SEAKEEPING at HEADING of {h} DEGREES ***** \
  sea /head:{h} /speed:{s}
  if {h}={hmax} then exit
  exit headings
/

read fv.gf
report /box:bw

`--- Set Range of Headings ---
set hmin=0. `Set minimum heading
set hint=30. `Set heading interval
set hmax=180. `Set maximum heading

set h={hmin} minus {hint}

`--- Set Speed ---
set s=0. `Set vessel speed

`--- Loading Condition ---
we 250 0 0 5 /gyr:9.8,22.5,22.5
so 
di status profile, body@0
status weight inertia

`--- Define Wave(s) ---
wave (spe) 1.0,62.832,31.416,20.944,15.708,12.566,10.472,8.976,7.854,6.981,6.283,5.712,5.236,4.833,4.488,4.189,3.927,3.696,3.491,3.307,3.142,2.992,2.856,2.732,2.618,2.513,2.417,2.327,2.244,2.167,2.094

`--- Run Headings ---
.headings

report off