coffee indicator

1 files changed, 9 insertions, 1 deletions

diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp
index 012f656..6ddbe3f 100644
--- a/the-price-of-a-cup-of-coffee.lisp
+++ b/the-price-of-a-cup-of-coffee.lisp
@@ -53,7 +53,7 @@
     (setf (sdl2:rect-x *status-meter-decoration-rect*)
           (+ -32 (sdl2:rect-x shape) (sdl2:rect-width shape)))
     (setf (sdl2:rect-y *status-meter-decoration-rect*)
-          (+ -12 (sdl2:rect-y shape)))
+          (+ -16 (sdl2:rect-y shape)))
     (sdl2:render-copy renderer *expression-texture*
                       :source-rect (get-expression decoration)
                       :dest-rect *status-meter-decoration-rect*)))
@@ -98,6 +98,14 @@
                    :percent 0.0
                    :max-width width)))
 
+(defmethod render :after ((cold-meter (eql *cold-meter*)) renderer)
+  (let ((x (round (* 0.45 (max-width cold-meter)))))
+    (setf (sdl2:rect-x *status-meter-decoration-rect*) x)
+    (sdl2:render-copy renderer *expression-texture*
+                      :source-rect (get-expression "coffee")
+                      :dest-rect *status-meter-decoration-rect*)))
+
+
 ;; TODO - REIMPLEMENT TO WORK WITH *TWEENS*
 ;; (defun drink-coffee ()
 ;;   (let ((now (sdl2:get-ticks))