gistfile1.txt

(defmap rgb-color-fractal
    (let [val %
          z (.xy val)
          n (.z val)
	  normalized-count (/ (- n (log2 (log2 (sqrt (+ (* (.x z) (.x z)) (* (.y z) (.y z)))))))
			      (float max-iterations))]
      (? (< 4.0 (dot z z))
	 (color3  normalized-count normalized-count (mix 0.2 1.0 normalized-count))
         (color3 0.0 0.0 0.0))))