gistfile1.clj

(ns noc.core
  (:use quil.core))

(defn setup []
  (background 255)
  (no-loop))

(defn draw []
  (pixels)
  (doseq [x (range 0 (width))
          y (range 0 (height))]
    (let [bright (map-range (noise (* x 0.05) (* y 0.05)) 0 1 0 255)]
      (aset-int (pixels) (+ x (* y (width))) (color bright))))
  (update-pixels))

(defsketch noc
  :setup setup
  :draw draw
  :size [640 320]
  :renderer :p2d)