fix z-fighting
This commit is contained in:
parent
187766e1fd
commit
d6e32d9f6a
|
@ -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)
|
||||
|
|
File diff suppressed because one or more lines are too long
Loading…
Reference in a new issue