From b4f9aaa39f7778537b8e71ad812dab13e843aa8d Mon Sep 17 00:00:00 2001
From: Travis Shears <t@travisshears.com>
Date: Wed, 27 May 2026 18:10:27 +0100
Subject: [PATCH] use l5 colorLerp and color fns

---
 main.fnl  | 11 ++++-------
 minify.bb |  2 +-
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/main.fnl b/main.fnl
index 966adb1..ecafdb5 100644
--- a/main.fnl
+++ b/main.fnl
@@ -4,11 +4,8 @@
   (size 640 480)
   (textSize 100))
 
-(local colors {
-  :yellow [255 228 112] ; #ffe470
-  :dark [64 56 48] ; #403830
-})
-
+(local yellow (color  255 228 112)) ; #ffe470
+(local dark (color 64 56 48)) ; #403830
 (local steps (* 24  60))
 (var step 0)
 
@@ -32,8 +29,8 @@
   (let [
         half (/ steps 2)
         color-step (if (> step half) (- half (- step half)) step)
-        color-fn #(+ (. colors.dark $1) (* (/ (- (. colors.yellow $1) (. colors.dark $1)) half) color-step))]
-    (background (color-fn 1) (color-fn 2) (color-fn 3)))
+        current-color (lerpColor dark yellow (map color-step 0 half 0 1))]
+    (background current-color))
     (text (time step) 175 150)
     (text (time goal-time) 175 250)
     (when (and pause (= goal-time step)) (set won true))
diff --git a/minify.bb b/minify.bb
index 35ad7a8..842bff9 100755
--- a/minify.bb
+++ b/minify.bb
@@ -58,7 +58,7 @@
 (def built-ins #{"fn" "local" "λ" "lambda" "require" "let" "+" "-" "/" "*" "<" ">" "<=" ">=" "not=" ".."
                  "var" "if" "when" "and" "or" "not" "do" "set" "each" "for" "while"
                  "true" "$1" "math.floor" "floor" "false" "nil" "size" "textSize" "background" "text" "random" "key"
-                 ":setup" ":draw" ":key-pressed" ":L5" "map"})
+                 ":setup" ":draw" ":key-pressed" ":L5" "map" "color" "lerpColor"})
 
 (defn collect-bindings [tokens]
   (reduce (fn [acc token]