Aphorism three

src/aphorisms/three.clj

@@ -0,0 +1,37 @@
+(ns aphorisms.three
+  (:require [quil.core :as q]
+            [quil.middleware :as m]))
+
+(def golden-ratio 1.61803)
+
+(defn settings []
+  (q/pixel-density (q/display-density)))
+
+(defn setup []
+  (q/frame-rate 30)
+  (q/color-mode :hsb)
+  {})
+
+(def update-state identity)
+
+(defn draw-state [_]
+  (q/background 240)
+  (q/rect-mode :center)
+  (q/with-translation [(/ (q/width) 2)
+                       (/ (q/height) 2)]
+    (doseq [i (range 1 7)]
+      (let [side (/ 100 (* i golden-ratio))
+            color (mod (+ 240 (/ 255 (* i golden-ratio))) 255)]
+        (q/no-stroke)
+        (q/fill color 255 255)
+        (q/rect side side side side)))))
+
+(q/defsketch aphorism-thrre
+  :title "Three"
+  :size [500 500]
+  :settings settings
+  :setup setup
+  :update update-state
+  :draw draw-state
+  :features [:keep-on-top]
+  :middleware [m/fun-mode m/pause-on-error])