add absolutely unfinished (not even really begun) pierre soulages sketch

src/aphorisms/thirty_seven.clj

@@ -0,0 +1,41 @@
+(ns aphorisms.thirty-seven
+  (:require [quil.core :as q]
+            [quil.applet :as qa]
+            [quil.middleware :as qm]
+            [thi.ng.geom.rect :as r]
+            [thi.ng.geom.core :as g]
+            [thi.ng.geom.line :as l]
+            [thi.ng.math.core :as m]
+            [thi.ng.math.noise :as noise]
+            [thi.ng.geom.vector :as v]))
+
+;; NOTE unfinished (:
+;; just found out about pierre soulages
+
+(def ratio (/ 16 9))
+(def bounds (r/rect [600 (* 600 ratio)]))
+(def tau (* Math/PI 2))
+
+;; drawing
+
+(defn setup []
+  (q/ellipse-mode :center)
+  (q/rect-mode :corners)
+  (q/color-mode :hsb 255)
+  {})
+
+(defn draw-state [_]
+  (q/background 255)
+  (q/no-fill)
+  (q/line [0 0] [100 100]))
+
+#_:clj-kondo/ignore
+(q/defsketch thirty-seven
+  :title "Thirty-Seven"
+  :size (:size bounds)
+  :settings #(q/pixel-density (q/display-density))
+  :features [:keep-on-top]
+  :setup setup
+  :update identity
+  :draw draw-state
+  :middleware [qm/pause-on-error #_(screenshottable) qm/fun-mode])