add player art for all directions

This commit is contained in:
Travis Shears 2026-04-14 09:27:11 +02:00
parent 50c3e41f0c
commit 0d29988a66
Signed by: travisshears
GPG key ID: CB9BF1910F3F7469
5 changed files with 22 additions and 7 deletions

View file

@ -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