Pawn sprites

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

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