new screen stuff.

desktop/src-common/advent/utils.clj

@@ -38,12 +38,22 @@
 
 (defn scaler-fn-with-baseline [baseline minimum-size & [maximum-size]]
   (let [maximum-size (or maximum-size 1.0)]
-    (fn [y]
+    (fn [[_ y]]
       (if (< y baseline) maximum-size
           (let [percent-complete (- 1.0 (/ (- y baseline) (- +screen-height+ baseline)))
                 range (+ (* percent-complete (- maximum-size minimum-size)) minimum-size)]
             range)))))
 
+(defn scaler-fn-from-image [image minimum-size maximum-size]
+  (let [image (pixmap image)
+        maximum-size (or maximum-size 1.0)]
+    (fn [[x y]]
+      (let [percent-complete (-> image
+                                 (pixmap! :get-pixel x (- 240 y))
+                                 color
+                                 (.r))]
+        (+ (* percent-complete (- maximum-size minimum-size)) minimum-size)))))
+
 (defn dist [x1 y1 x2 y2]
   (let [dx (- x1 x2)
         dy (- y1 y2)]