diff --git a/modules/grid.scm b/modules/grid.scm index c33ba98..a8e8f28 100644 --- a/modules/grid.scm +++ b/modules/grid.scm @@ -4,6 +4,7 @@ (chicken module) raylib (imugi core) + (imugi resource) (imugi drawing) (imugi math) (srfi 1) @@ -39,12 +40,22 @@ square-pos width width - (cond - ((eqv? entity 'player) (make-color 0 0 1 1)) - ((eqv? entity 'enemy) (make-color 1 0 0 1)) - (else (make-color 0 0 0 1))) - (not (eqv? entity 'none)) - 2))))) + (make-color 0.1 0.1 0.1 0.5) + #f + 2))) + + (when (or (eqv? entity 'player) + (eqv? entity 'enemy)) + (push-render-object + 'screen + 1 + (lambda () + (draw-texture-2d + (v+ (vec 0 -5) square-pos) + (texture (case entity + ((player) "../res/sprites/pawns/blue.png") + ((enemy) "../res/sprites/pawns/red.png"))) + (make-color 1 1 1 1))))))) (export draw-grid) (define draw-grid diff --git a/res/sprites/pawns/blue.png b/res/sprites/pawns/blue.png new file mode 100644 index 0000000..d08f3b2 Binary files /dev/null and b/res/sprites/pawns/blue.png differ diff --git a/res/sprites/pawns/red.png b/res/sprites/pawns/red.png new file mode 100644 index 0000000..95faaeb Binary files /dev/null and b/res/sprites/pawns/red.png differ diff --git a/src/lose-screen.scm b/src/lose-screen.scm index 933ba16..0710e08 100644 --- a/src/lose-screen.scm +++ b/src/lose-screen.scm @@ -8,8 +8,8 @@ (imugi scene) (imugi math) (imugi resource) - (imugi drawing)) -(bd ui) + (imugi drawing) + (bd ui)) (define draw-player-sprite (make-system