fix z-fighting
This commit is contained in:
parent
187766e1fd
commit
d6e32d9f6a
|
@ -164,7 +164,12 @@
|
||||||
[:drop]))
|
[:drop]))
|
||||||
|
|
||||||
(vm:word :full-redraw :drawmap :player-redraw)
|
(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
|
(vm:word :player-redraw
|
||||||
:controlstate :bget
|
: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)
|
:controlstate :bset)
|
||||||
|
|
File diff suppressed because one or more lines are too long
Loading…
Reference in a new issue