orbit.apple

-- a=2.576
-- b=4.628
λa.λb.
{
  g ← λz.
    { x ⟜ z->1; y ⟜ z->2
    ; (sin. (x^2-y^2+a), cos. (2*x*y+b))
    };
  (frange _0.455 1 100) [(gen. (x,y) g 200)]⊗ (frange _1 0.515 100)
}