fix z-fighting

2020-12-30 13:09:16 -05:00 · 2020-12-30 13:09:16 -05:00 · d6e32d9f6a
parent 187766e1fd
commit d6e32d9f6a
3 changed files with 7 additions and 3 deletions
--- a/game/player.fnl
+++ b/game/player.fnl
@ -164,7 +164,12 @@
    [:drop]))

 (vm:word :full-redraw :drawmap :player-redraw)
+(vm:word :player-overlaps ; -- f
+  vm.false :controlstate :bget :player-yx :get
+  :over (vm:for (vm:i) :controlstate :bset :dup :player-yx :get := (vm:when :<rot :drop vm.true :>rot))
+  :drop :controlstate :bset)
+
 (vm:word :player-redraw
  :controlstate :bget
-  controlstate.count (vm:for (vm:i) :controlstate :bset :draw-player)
+  controlstate.count (vm:for (vm:i) :controlstate :bset :player-overlaps :not (vm:when :draw-player))
  :controlstate :bset)
--- a/game/tiles.json
+++ b/game/tiles.json
--- a/todo.txt
+++ b/todo.txt
@ -2,7 +2,6 @@ Game:
 * level loading
 * Title screen
 * Ending screen
-* drawing queue (tile index = priority?)

 tooling ideas:
 * REPLy buffer (Polywell?)