d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(lander) Fixed leak

This commit is contained in:
Devine Lu Linvega 2023-06-10 19:18:41 -07:00
parent d50d2ec259
commit 3aeca7bbdd
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gui/lander/lander.tal
View File

@ -14,9 +14,10 @@
#0f0f .System/g DEO2
#0f0f .System/b DEO2
( resize )
#0190 .Screen/width DEO2
#00f0 .Screen/height DEO2
#0200 .Screen/width DEO2
#0160 .Screen/height DEO2
( vectors )
;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2
redraw
@ -25,20 +26,26 @@ BRK
(
@|vectors )
@on-control ( -> )
@on-frame ( -> )
[ LIT &f $1 ] INCk ,&f STR
#01 AND ?&no-read
.Controller/button DEI
DUP #10 NEQ ?&no-u
DUP #80 NEQ ?&no-u
;get-pt/offset LDA #01 SUB ;get-pt/offset STA
;draw-lander/plume LDA INC ;draw-lander/plume STA
redraw
&no-u
DUP #20 NEQ ?&no-d
DUP #40 NEQ ?&no-d
;get-pt/offset LDA INC ;get-pt/offset STA
;draw-lander/plume LDA INC ;draw-lander/plume STA
redraw
&no-d
POP
&no-read
redraw
BRK
@on-control ( -> )
BRK
@ -51,7 +58,7 @@ BRK
DUP2 .Screen/x DEO2
.Screen/y DEO2
#80 .Screen/pixel DEO
[ LIT &o $1 ] draw-lander
draw-lander
JMP2r