add spinning radar system

game/src/levels/dev.fnl

@@ -9,6 +9,7 @@
 (local hud (require "src/systems/hud.fnl"))
 (local levels (require "levels.fnl"))
 (local fog-of-war (require "src/systems/fog_of_war.fnl"))
+(local radar (require "src/systems/radar.fnl"))
 (local info-pad (require "src/entities/info-pad.fnl"))
 
 ; TODO: refactor the args away. create a load method and get them from self.pool
@@ -60,6 +61,7 @@
         camera
         walls
         fog-of-war
+        radar
         (hud {: screen})
     ]
     })]

game/src/systems/radar.fnl

@@ -0,0 +1,36 @@
+(local color (require "src/colors.fnl"))
+(local utils (require "src/utils.fnl"))
+(local beholder (require "libs/beholder"))
+(local levels (require "levels.fnl"))
+(local assets (require "src/assets.fnl"))
+
+(local radar
+  { :player-pos [0 0]
+    :rot 0
+    :speed 4 })
+
+(lambda radar.load [self]
+  (beholder.observe "PLAYER.POS" (lambda [x y]
+    (set self.player-pos [x y]))))
+
+(lambda radar.update [self dt]
+  (set self.rot (+ self.rot (* (/ dt self.speed)))))
+
+(lambda radar.draw81 [self]
+  (let [
+    w 19 h 15
+    [x y] self.player-pos
+    ox (+ x (/ w 2))
+    oy (+ y (/ h 2))
+    ]
+    (color.set-color :dark-pink)
+    (love.graphics.push)
+    (love.graphics.translate ox oy)
+    (love.graphics.rotate self.rot)
+    (love.graphics.setPointSize 2)
+    (love.graphics.points 0 0)
+    (love.graphics.circle "line" 0 0  150)
+    (love.graphics.line 0 0 0 150)
+    (love.graphics.pop)))
+
+radar