Wavey Words

[bplus]

Sounds like you are asking for MidInk? 

A double use of midInk to setup ocean view:

Code: (Select All)

Const xmax = 800, ymax = 600
Screen _NewImage(xmax, ymax, 32)
For y = 0 To (ymax - 1) / 2
    Line (0, y)-(xmax - 1, y), midInk~&(50, 0, 200, 200, 200, 255, y / (ymax / 2))
    Line (0, ymax / 2 + y)-(xmax - 1, ymax / 2 + y), midInk~&(0, 255, 255, 0, 80, 0, y / (ymax / 2))
Next

Function midInk~& (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
    midInk~& = _RGB32(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
End Function

EDIT: Sorry already modified.