END OF AN ERA, FRACTALFORUMS.COM IS CONTINUED ON FRACTALFORUMS.ORG

simon0156-C {
  p = pixel
  x = (real(p) + 2) * 2.25
  y = 10 - ((imag(p) + 1.5) * 3)
  t = fn1(y)*(fn2(x))
  u = fn3(y)*(fn4(x))
  z = flip(u) + t
  c = 0:
  if (c == 0)
    z = z * z + p
    if (|z|>4)
      z = |z| ; * 10
      c = 1
    endif
  else
    t = t - 1
    u = u - 1
    z = z - 1
    if (t + u + z < -10)
      c = 2
    endif
  endif
  ; bailout once t + u are zero
  c < 2
}

fn1 = cotan
fn2 = sqrt
fn3 = cos
fn4 = sin