river is missing at the top edge

The river is missing at the top edge of the graph. I’ve obviously got an
off-by-one error that’s doing this.
I fixed it in the CreateFullRiver routine by specifying
k >= 0, instead of k > 0