                     :s "front"
                     :n "back"
                     "right")
+        img-name (str "zakano_" direction ".png")
+        img-name-fire (str "zakano_" direction "_fire.png")
         flipped (= orientation :w)]
 
     ;; Always draw the base zakano
-    (draw-image canvas-element
-                (str "zakano_" direction ".png")
-                x y width height 0
-                flipped)
+    (if flipped
+      (draw-image-flipped-horizontally canvas-element
+                                       img-name
+                                       x y width height)
+      (draw-image canvas-element
+                  img-name
+                  x y width height))
 
     ;; See if we need to add any meta to the zakano
     (doseq [{type :type} (sort-meta meta)]
 
       (case type
         :shot
-        (draw-image canvas-element
-                    (str "zakano_" direction "_fire.png")
-                    x y width height 0
-                    flipped)
+        (if flipped
+          (draw-image-flipped-horizontally canvas-element
+                                           img-name-fire
+                                           x y width height)
+          (draw-image canvas-element
+                      img-name-fire
+                      x y width height))
 
         :explosion
         (draw-image canvas-element
                     "explosion.png"
-                    x y width height 0 false)
+                    x y width height)
 
         :smoke
         (draw-image canvas-element
                     "smoke.png"
-                    x y width height 0 false)
+                    x y width height)
 
         (js/console.log type)))))
 

                       :medium "2"
                       "1")
                     ".png")
                x y width height 0 false)
    (draw-meta canvas-element contents meta x y width height)))

(defn- draw-steel-barrier

                       :medium "2"
                       "1")
                     ".png")
                x y width height)
    (draw-meta canvas-element contents meta x y width height)))

(defn- draw-food
  [canvas-element contents meta x y width height]
  (draw-image canvas-element
              "food_cherry.png"
              x y width height)
  (draw-meta canvas-element contents meta x y width height))

(defn- draw-poison
  [canvas-element contents meta x y width height]
  (draw-image canvas-element
              "poison_vial_2.png"
              x y width height)
  (draw-meta canvas-element contents meta x y width height))

(defn- draw-open
