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

(lander) Flight

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

11
gui/lander/lander.tal
View File

@ -47,14 +47,10 @@ BRK
#0010 .force/y STZ2 #0010 .force/y STZ2
&no-d &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
&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
&no-r &no-r
POP POP
@ -86,6 +82,8 @@ BRK
reduce3 reduce3
.force/y LDZ2 ADD2 .force/y STZ2 .force/y LDZ2 ADD2 .force/y STZ2
#08 ;draw-lander/plume STA
JMP2r JMP2r
@apply-force ( -- ) @apply-force ( -- )
@ -93,6 +91,8 @@ JMP2r
[ LIT &f $1 ] INCk ,&f STR [ LIT &f $1 ] INCk ,&f STR
#03 AND ?&skip #03 AND ?&skip
.force/y LDZ2 INC2 .force/y STZ2 .force/y LDZ2 INC2 .force/y STZ2
;draw-lander/plume LDA #00 EQU ?&skip
;draw-lander/plume LDA #01 SUB ;draw-lander/plume STA
&skip &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
@ -148,7 +148,7 @@ JMP2r
#0d0c get-pt #0e0f get-pt #01 draw-line #0d0c get-pt #0e0f get-pt #01 draw-line
#130c get-pt #120f get-pt #01 draw-line #130c get-pt #120f get-pt #01 draw-line
( plume ) ( plume )
[ LIT &plume $1 ] #03 AND #0c ADD STH [ LIT &plume $1 ] #09 ADD STH
#0e08 get-pt #1208 get-pt #02 draw-line #0e08 get-pt #1208 get-pt #02 draw-line
#0e08 get-pt #10 STHkr get-pt #02 draw-line #0e08 get-pt #10 STHkr get-pt #02 draw-line
#1208 get-pt #10 STHr get-pt #02 draw-line #1208 get-pt #10 STHr get-pt #02 draw-line
@ -179,7 +179,6 @@ JMP2r
@get-pt ( id rad -- x* y* ) @get-pt ( id rad -- x* y* )
#00 SWP STH2 #00 SWP STH2
.angle LDZ2 NIP ADD .angle LDZ2 NIP ADD
!get-point/force !get-point/force