visualisation of gaussian distribution in quil (from The Nature of Code - Daniel Shiffman)

gaussian-distribution-with-matrix-translate.clj

(ns fun-mode-sketch
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(def win-width 400)
(def win-height 200)
(def sd 60) ;standard deviation
(def center-x (/ win-width 2))
(def center-y (/ win-height 2))


(defn setup []
  (q/background 255) 
  (q/no-stroke)
  (q/frame-rate 3))


(defn draw []
  (q/fill 228 0 0 20)
  (let [num (q/random-gaussian)
        x (* num sd)]   
    (q/push-matrix)
    (q/translate center-x center-y)
    (q/ellipse x 0 20 20)
    (q/pop-matrix)))
     

(q/defsketch example
  :size [win-width win-height]
  :setup setup
  :draw draw)

(defn -main [& args])

gaussian-distribution.clj

(ns fun-mode-sketch
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(def win-width 400)
(def win-height 200)
(def sd 60) ;standard deviation
(def mean (/ win-width 2))
(def y (/ win-height 2))

(defn setup []
  (q/background 255) 
  (q/no-stroke)
  (q/frame-rate 3))

(defn draw []
  (q/fill 228 0 0 20)
  (let [num (q/random-gaussian)
        x (+ (* num sd) mean)]     
    (q/ellipse x y 20 20)))

(q/defsketch example
  :size [win-width win-height]
  :setup setup
  :draw draw)