phyllotaxis.cljs

(ns my.core
  (:require [quil.core :as q :include-macros true]
            [quil.middleware :as m]))

(def c 6)

(defn setup []
  (q/frame-rate 60)
  (q/color-mode :hsb)
  (q/background 255)
  {:n 6})

(defn update-state [{:keys [n]}]
  {:n (inc n)})

(defn draw-state [{:keys [n]}]
  (let [a (* n 137,6)
        r (* c (Math/sqrt n))
        
        x (+ (* r (q/cos a)) (/ (q/width) 2))
        y (+ (* r (q/sin a)) (/ (q/width) 2))]
    
    (let [p (q/random 0 1)]
      (cond 
        (<= p 0.3) (q/fill 31 64 114)
        (and (> p 0.3) (<= p 0.6)) (q/fill 254 187 187)
        :else (q/fill 253 240 240)))
    
    (q/no-stroke)
    (q/ellipse x y 6 6)
    (q/scale 4)))

(q/defsketch my
  :host "host"
  :size [400 400]
  :setup setup
  :update update-state
  :draw draw-state
  :middleware [m/fun-mode])