*

: x x 0.2 + ;
: y y 0.2 + ;
: t t 4 / ;
t x + 9.1 * my 10 * + cos y / cos
t y + 9.2 * cos x / cos
t x y - + 9.3 * mx 10 * + cos x y + / cos
2dup z* push 2dup z* pop
dup z+ +
sin
dup 1.3 * dup 1.3 *

Based on: Oceanic - BradN