diff --git a/desktop/resources/pathfind-test-big.png b/desktop/resources/pathfind-test-big.png index a4d1f1a3..d502853d 100644 Binary files a/desktop/resources/pathfind-test-big.png and b/desktop/resources/pathfind-test-big.png differ diff --git a/desktop/src-common/advent/core.clj b/desktop/src-common/advent/core.clj index b1dec841..67805f86 100644 --- a/desktop/src-common/advent/core.clj +++ b/desktop/src-common/advent/core.clj @@ -81,7 +81,8 @@ (let [ _ (input! :set-cursor-image (cursor "cursor.png" 0) 0 0) background (texture "bg5.png") - house (texture "house.png")] + house (texture "house.png") + overdirt (texture "overdirt.png")] {:cursor {:id "cursor" :cursor-index 0} :background (assoc background :id "background" :x 0 :y 0 @@ -90,12 +91,17 @@ :house (assoc house :x 0 :y 0 :baseline 122) - :ego (get-ego screen)})) + :overdirt (assoc overdirt + :x 0 :y 0 + :baseline 240) + :ego (get-ego screen) + :fps (assoc (label "0" (color :white) ) :x 5 :baseline 9000)})) :on-render (fn [screen [entities]] (clear!) - (let [entities (assoc entities :ego (update-ego screen entities (:ego entities)))] + (let [entities (assoc entities :ego (update-ego screen entities (:ego entities))) + _ (label! (:fps entities) :set-text (str (game :fps)))] (render! screen (sort-by :baseline (vals entities))) entities)) :on-resize (fn [screen entities]