add player art for all directions

two_player_cleaning_game/main.fnl

@@ -89,11 +89,26 @@
           {:x (+ x collider.x) :y (+ y collider.y) :width collider.width :height collider.height})
         ))))
 
-  (set player-art {
-    :player-sprite (love.graphics.newImage "assets/player.png")
-    :player1-quad (love.graphics.newQuad 0 0 25 25 50 25)
-    :player2-quad (love.graphics.newQuad 25 0 25 25 50 25)
-  })
+  (set player-art
+    (let [
+      player-sprite (love.graphics.newImage "assets/player.png")
+      (w h) (player-sprite:getDimensions)]
+      {
+        :player-sprite player-sprite
+        :player1 {
+          :quads {
+            :n (love.graphics.newQuad 0 0 25 25 w h)
+            :s (love.graphics.newQuad 25 0 25 25 w h)
+            :ne (love.graphics.newQuad 50 0 25 25 w h)
+            :e (love.graphics.newQuad 75 0 25 25 w h)
+            :se (love.graphics.newQuad 100 0 25 25 w h)
+            :sw (love.graphics.newQuad 125 0 25 25 w h)
+            :w (love.graphics.newQuad 150 0 25 25 w h)
+            :nw (love.graphics.newQuad 175 0 25 25 w h)
+          }
+        }
+      }
+  ))
 
   (set dust-sprite (love.graphics.newImage "assets/dust_001.png"))
   ; (print (fennel.view game-state))
@@ -169,8 +184,8 @@ while 1 do love.event.push('stdin', io.read('*line')) end") :start))
   "draw player sprite and hitbox"
   (reset-color)
   (love.graphics.draw
-    (. player-art :player-sprite)
-    (. player-art :player1-quad)
+    player-art.player-sprite
+    player-art.player1.quads.n
     player.x player.y)
   ;; draw player hitbox
   (when debug