gistfile1.clj

(defmap color-fractal
    (let [val %
          z (.xy val)
          n (.z val)
          escape (/ n (float max-iterations))]
      (? (< 4.0 (dot z z))
         (color3 escape escape (mix 0.2 1.0 escape))
         (color3 0.0 0.0 0.0))))