2D isotropic harmonic oscillator

Frank Lin

: v dup 0.008 - x < Swap 0.008 + x > and ;
: h dup 0.008 - y < Swap 0.008 + y > and ;
T sin 0.5 * 0.5 + v
T 10 + sin 0.5 * 0.5 + h or