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

(lander) Basic controls

This commit is contained in:
Devine Lu Linvega 2023-06-10 21:09:31 -07:00
parent fdcb0103bb
commit 2a5500f099
1 changed files with 43 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
gui/lander/lander.tal
View File

@ -25,6 +25,9 @@
( vectors ) ( vectors )
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-control .Controller/vector DEO2 ;on-control .Controller/vector DEO2
#0100 .pos/x STZ2
#00a0 .pos/y STZ2
redraw redraw
BRK BRK
@ -38,23 +41,18 @@ BRK
#01 AND ?&no-read #01 AND ?&no-read
.Controller/button DEI .Controller/button DEI
DUP #10 NEQ ?&no-u DUP #10 NEQ ?&no-u
.angle LDZ2 thruster
.angle LDZ2
#10 SFT2 ;circle-tbl ADD2 LDA2 SWP
( y )
#0000 ROT #00 SWP SUB2 reduce2
.force/y LDZ2 ADD2
.force/y STZ2
( y )
#0000 ROT #00 SWP SUB2 reduce2
.force/x LDZ2 ADD2
.force/x STZ2
&no-u &no-u
DUP #20 NEQ ?&no-d
#0010 .force/y STZ2
&no-d
DUP #40 NEQ ?&no-l DUP #40 NEQ ?&no-l
.angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2 .angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2
;draw-lander/plume LDA INC ;draw-lander/plume STA ;draw-lander/plume LDA INC ;draw-lander/plume STA
&no-l &no-l
DUP #80 NEQ ?&no-r DUP #80 NEQ ?&no-r
.angle LDZ2 INC2 #001f AND2 .angle STZ2 .angle LDZ2 INC2 #001f AND2 .angle STZ2
;draw-lander/plume LDA INC ;draw-lander/plume STA ;draw-lander/plume LDA INC ;draw-lander/plume STA
&no-r &no-r
@ -74,11 +72,29 @@ BRK
( (
@|core ) @|core )
@thruster ( angle* -- )
#10 SFT2 ;circle-tbl ADD2 LDA2 POP
( make short )
#80 SUB
DUP #80 AND #00 NEQ STH #ff00 STHr JMP SWP POP SWP
reduce3 .force/x LDZ2 ADD2 .force/x STZ2
.angle LDZ2 #0020 ADD2 #001f AND2 #10 SFT2 ;circle-tbl ADD2 LDA2 NIP
( make short )
#80 ADD
DUP #80 AND #00 NEQ STH #ff00 STHr JMP SWP POP SWP
reduce3
.force/y LDZ2 ADD2 .force/y STZ2
JMP2r
@apply-force ( -- ) @apply-force ( -- )
.force/y LDZ2 INC2 .force/y STZ2 [ LIT &f $1 ] INCk ,&f STR
#03 AND ?&skip
.force/y LDZ2 INC2 .force/y STZ2
&skip
.force/y LDZ2 reduce .pos/y LDZ2 ADD2 .pos/y STZ2 .force/y LDZ2 reduce .pos/y LDZ2 ADD2 .pos/y STZ2
.force/x LDZ2 reduce .pos/x LDZ2 ADD2 .pos/x STZ2 .force/x LDZ2 reduce .pos/x LDZ2 ADD2 .pos/x STZ2
JMP2r JMP2r
@ -86,16 +102,25 @@ JMP2r
@reduce ( force* -- ) @reduce ( force* -- )
DUP2 #8000 AND2 ORA ?&neg DUP2 #8000 AND2 ORA ?&neg
#02 SFT2 #01 SFT2
JMP2r JMP2r
&neg abs2 #02 SFT2 #0000 SWP2 SUB2 JMP2r &neg abs2 #01 SFT2 #0000 SWP2 SUB2 JMP2r
@reduce2 ( force* -- ) @reduce2 ( force* -- )
DUP2 #8000 AND2 ORA ?&neg DUP2 #8000 AND2 ORA ?&neg
#05 SFT2 #0001 SUB2
JMP2r JMP2r
&neg abs2 #05 SFT2 #0000 SWP2 SUB2 JMP2r &neg abs2 #0001 SUB2 #0000 SWP2 SUB2 JMP2r
@reduce3 ( force* -- )
DUP2 #8000 AND2 ORA ?&neg
#0020 DIV2
JMP2r
&neg abs2 #0020 DIV2 #0000 SWP2 SUB2 JMP2r
( (
@|drawing ) @|drawing )
@ -226,9 +251,7 @@ JMP2r
0000 0000 8040 2010 0911 1212 1212 1109 0000 0000 8040 2010 0911 1212 1212 1109
0000 0042 0042 3c00 9088 4848 4848 8890 0000 0042 0042 3c00 9088 4848 4848 8890
0804 0201 0000 0000 c33c 0081 7e00 0000 0804 0201 0000 0000 c33c 0081 7e00 0000
1020 4080 0000 0000 1020 4080 0000 0000 ]
]
@circle-tbl [ @circle-tbl [
8000 9802 b009 c715 da25 ea38 f64f fd67 8000 9802 b009 c715 da25 ea38 f64f fd67