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

(lander)Apply less than max force

This commit is contained in:
Devine Lu Linvega 2023-06-10 19:47:46 -07:00
parent 3aeca7bbdd
commit fd185c4fb0
1 changed files with 42 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
gui/lander/lander.tal
View File

@ -7,6 +7,12 @@
|80 @Controller &vector $2 &button $1 &key $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1
|0000
@pos &x $2 &y $2
@force &x $2 &y $2
@angle $2
|0100 ( -> )
( theme )
@ -31,16 +37,22 @@ BRK
[ LIT &f $1 ] INCk ,&f STR
#01 AND ?&no-read
.Controller/button DEI
DUP #80 NEQ ?&no-u
;get-pt/offset LDA #01 SUB ;get-pt/offset STA
;draw-lander/plume LDA INC ;draw-lander/plume STA
DUP #10 NEQ ?&no-u
.force/y LDZ2 #0008 SUB2 .force/y STZ2
&no-u
DUP #40 NEQ ?&no-d
;get-pt/offset LDA INC ;get-pt/offset STA
DUP #40 NEQ ?&no-l
.angle LDZ2 #0001 SUB2 .angle STZ2
;draw-lander/plume LDA INC ;draw-lander/plume STA
&no-d
&no-l
DUP #80 NEQ ?&no-r
.angle LDZ2 INC2 .angle STZ2
;draw-lander/plume LDA INC ;draw-lander/plume STA
&no-r
POP
&no-read
apply-force
( .force/y LDZ2 phex #0a18 DEO )
redraw
BRK
@ -49,6 +61,23 @@ BRK
BRK
(
@|core )
@apply-force ( -- )
.force/y LDZ2 INC2 .force/y STZ2
.force/y LDZ2 reduce .pos/y LDZ2 ADD2 .pos/y STZ2
JMP2r
@reduce ( force* -- )
DUP2 #8000 AND2 ORA ?&neg
#02 SFT2
JMP2r
&neg abs2 #02 SFT2 #0000 SWP2 SUB2 JMP2r
(
@|drawing )
@ -82,8 +111,8 @@ JMP2r
( face )
#26 .Screen/auto DEO
;face-icn .Screen/addr DEO2
#0014 .Screen/x DEO2
#0014 .Screen/y DEO2
#0014 .pos/x LDZ2 ADD2 .Screen/x DEO2
#0014 .pos/y LDZ2 ADD2 .Screen/y DEO2
#05 .Screen/sprite DEOk DEOk DEO
#00 .Screen/auto DEO
@ -105,9 +134,9 @@ JMP2r
@get-pt ( id rad -- x* y* )
#00 SWP STH2
#00 SWP STH2
[ LIT &offset $1 ] ADD
.angle LDZ2 NIP ADD
!get-point/force
@ -119,9 +148,11 @@ JMP2r
#00 SWP ;circle-tbl ADD2 LDA2
#00 SWP STH2kr MUL2 #04 SFT2
( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2
( pos ) .pos/y LDZ2 ADD2
ROT
#00 SWP STH2kr MUL2 #04 SFT2
( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2
( pos ) .pos/x LDZ2 ADD2
SWP2
POP2r
@ -178,7 +209,7 @@ JMP2r
0804 0201 0000 0000 c33c 0081 7e00 0000
1020 4080 0000 0000
]
]
@circle-tbl [
8000 9802 b009 c715 da25 ea38 f64f fd67