init build

main.fnl

@@ -1,22 +1,21 @@
 (require :L5)
 
-(var yellow nil) ; #ffe470
-(var dark nil) ; #403830
-
 (fn setup []
   (size 640 480)
-  (textSize 100)
-  (set yellow (color 255 228 112))
-  (set dark (color 64 56 48)))
+  (textSize 100))
 
-(local steps (* 24 60))
+(local steps 1440)
 (var step 0)
 
-(lambda lpad [num] (if (< num 10) (.. "0" num) num))
-(lambda time [num]
-  (let [hour (floor (map num 0 steps 0 24))
-       min (- num (* hour 60))]
-    (.. (lpad hour) ":" (lpad min))))
+; (lambda lpad [num] (if (< num 10) (.. "0" num) num))
+; (lambda time [num]
+;   (let [hour (floor (map num 0 steps 0 24))
+;        min (- num (* hour 60))]
+;     (.. (lpad hour) ":" (lpad min))))
+
+(fn time [num]
+    (let [hour (floor (map num 0 steps 0 24))]
+      (: "%02d:%02d" :format hour (- num (* hour 60)))))
 
 (var pause false)
 (var won false)
@@ -29,15 +28,11 @@
 (fn draw []
   (when (and (not won) (not pause)) (set step (+ step 1)))
   (when (>= step steps) (set step 0))
-  (let [
-        half (/ steps 2)
-        color-step (if (> step half) (- half (- step half)) step)
-        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))
-    (when won (text "YOU WIN" 100 400)))
+  (background 0 0 0)
+  (text (time step) 175 150)
+  (text (time goal-time) 175 250)
+  (when (and pause (= goal-time step)) (set won true))
+  (when won (text "YOU WIN" 100 400)))
 
 {
   :s setup