Stage twentysix and twentyseven

src/aphorisms/twenty_six.clj

@@ -0,0 +1,52 @@
+(ns aphorisms.twenty-six
+  (:require [quil.core :as q]
+            [quil.middleware :as qm]
+            [thi.ng.geom.rect :as r]
+            [thi.ng.geom.core :as g]))
+
+(def bounds (r/rect 1500 500))
+
+(defn setup []
+  (q/frame-rate 30)
+  (q/ellipse-mode :center)
+  (q/color-mode :hsb 100)
+  {})
+
+(defn update-state [_]
+  _)
+
+(defn divisors [n]
+  (->>
+   (range 1 (inc (int (/ n 2))))
+   (filter #(zero? (rem n %)))))
+
+(divisors 800)
+;; => (1 2 4 5 8 10 16 20 25 32 40 50 80 100 160 200 400)
+(divisors 230)
+;; => (1 2 5 10 23 46 115)
+
+(def x-noise-scale 0.006)
+(def y-noise-scale 0.005)
+
+(defn draw-state [_]
+  (q/background 100)
+  (q/stroke-weight 1)
+  (doseq [y (range 0 (inc (- (g/height bounds) 10)) 10)
+          x (range 0 (inc (- (g/width bounds) 10)) 10)
+          :let [noise-x (* x x-noise-scale)
+                noise-y (* y y-noise-scale)]]
+    (q/with-translation [(+ x 5) (+ y 5)]
+      (q/with-rotation [(* q/TWO-PI (q/noise noise-x noise-y))]
+        (q/stroke (q/map-range (* noise-x noise-y) -1 1 90 70) 60 80)
+        (q/line [-3 0] [3 0]))))
+  #_(q/save-frame "exports/twenty-six--business-card.png"))
+
+#_:clj-kondo/ignore
+(q/defsketch twenty-six
+  :title "Twenty-Six"
+  :size (:size bounds)
+  :settings #(q/pixel-density (q/display-density))
+  :setup setup
+  :update update-state
+  :draw draw-state
+  :middleware [qm/pause-on-error qm/fun-mode])