mirror of https://git.sr.ht/~rabbits/uxn
(snake) Faster tail drawing
This commit is contained in:
parent
c9b691448b
commit
220983d694
|
@ -110,12 +110,12 @@
|
||||||
STH
|
STH
|
||||||
( | draw tail )
|
( | draw tail )
|
||||||
;snake-icns .Screen/addr DEO2
|
;snake-icns .Screen/addr DEO2
|
||||||
.snake/length LDZ #00
|
.snake/tail .snake/length LDZ DUP ADD OVR ADD SWP
|
||||||
&>loop ( -- )
|
&>loop ( -- )
|
||||||
DUPk ADD .snake/tail ADD LDZ #0005 SFT2 .Screen/x DEO2
|
LDZk #0005 SFT2 .Screen/x DEO2
|
||||||
DUPk ADD .snake/tail ADD INC LDZ #0005 SFT2 .Screen/y DEO2
|
INCk LDZ #0005 SFT2 .Screen/y DEO2
|
||||||
STHkr .Screen/sprite DEO
|
STHkr .Screen/sprite DEO
|
||||||
INC GTHk ?&>loop
|
INC INC GTHk ?&>loop
|
||||||
POP2
|
POP2
|
||||||
( | draw head )
|
( | draw head )
|
||||||
.snake/x LDZ #0005 SFT2 .Screen/x DEO2
|
.snake/x LDZ #0005 SFT2 .Screen/x DEO2
|
||||||
|
|
Loading…
Reference in New Issue