»
This is a time-varying rippling surface using the following simple F# code - it's an exponential rotated around (0.5,0.5)
let
ripple t (x,y) =
let x,y = x - 0.5,y - 0.5 in
let r = sqrt (x*x + y*y) in
exp(-4.0 * r) * sin(6.0 * 3.14 * r + t) + 0.5
do
ff := ripple