Initial commit w/ rudimentary visualization

src/heyarne/all_my_friends/core.cljc

@@ -0,0 +1,61 @@
+(ns heyarne.all-my-friends.core
+  (:require [quil.core :as q]
+            [quil.middlewares.pause-on-error :refer [pause-on-error]]
+            [camel-snake-kebab.core :refer [->kebab-case]]
+            [cheshire.core :as json]
+            [thi.ng.geom.vector :as v]
+            [thi.ng.geom.core :as g]
+            [thi.ng.math.core :as m]
+            [clojure.java.io :as io]
+            [clojure.string :as str]))
+
+;; TODO All PNGs are missing an extension
+(def uploads
+  #?(:clj (->>
+           (map bean (file-seq (io/file "../uploads")))
+           (filter :file)
+           (remove :hidden)
+           (sort-by :name)
+           (partition-by #(first (str/split (:name %) #"\."))))
+     :cljs [])) ;; TODO
+
+(def key-fn (comp keyword ->kebab-case))
+
+(defn parse-most-recent [uploads]
+  (when-let [most-recent (last uploads)]
+    (let [[_image computational-gaze] most-recent]
+      #?(:clj
+         (with-open [rdr (io/reader (:path computational-gaze))]
+           (json/parse-stream rdr key-fn))
+         :cljs nil)))) ;; TODO
+
+(def most-recent (parse-most-recent uploads))
+
+;; "most-recent" now contains a seq of all faces detected in the most recently
+;; uploaded picture
+
+(defn setup []
+  (q/frame-rate 60)
+  (q/color-mode :hsb))
+
+(defn draw []
+  (q/clear)
+  (q/background 40 80 255)
+  (q/stroke 240 100 255)
+  (q/stroke-weight 1)
+  (q/no-fill)
+
+  (doseq [face most-recent
+          :let [mesh (:mesh face)]]
+    (doseq [[[x1 y1 z1] pt2] (partition 2 mesh)]
+      (q/line x1 y1 (+ (q/random -2 2) x1) (+ (q/random -2 2) y1))
+      #_(apply q/line pt1 pt2))))
+
+#_:clj-kondo/ignore
+(q/defsketch all-my-friends
+  :title "These are all my friends"
+  :settings #(q/smooth 2)
+  :middleware [pause-on-error]
+  :setup setup
+  :draw draw
+  :size [500 500])