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

Fixed crashing bug

This commit is contained in:
Devine Lu Linvega 2023-06-11 19:41:52 -07:00
parent 4b0984dc06
commit d2c67127d9
1 changed files with 11 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
gui/lander/lander.tal
View File

@ -73,12 +73,12 @@ BRK
#10 SFT2 ;circle-tbl ADD2 LDA2 POP #10 SFT2 ;circle-tbl ADD2 LDA2 POP
( make short ) ( make short )
#80 SUB #80 SUB
DUP #80 AND #00 NEQ STH #ff00 STHr JMP SWP POP SWP DUP #80 AND #00 NEQ STH #ff00 STHr [ JMP SWP POP ] SWP
reduce3 .force/x LDZ2 ADD2 .force/x STZ2 reduce3 .force/x LDZ2 ADD2 .force/x STZ2
.angle LDZ2 #0020 ADD2 #001f AND2 #10 SFT2 ;circle-tbl ADD2 LDA2 NIP .angle LDZ2 #0020 ADD2 #001f AND2 #10 SFT2 ;circle-tbl ADD2 LDA2 NIP
( make short ) ( make short )
#80 ADD #80 ADD
DUP #80 AND #00 NEQ STH #ff00 STHr JMP SWP POP SWP DUP #80 AND #00 NEQ STH #ff00 STHr [ JMP SWP POP ] SWP
reduce3 reduce3
.force/y LDZ2 ADD2 .force/y STZ2 .force/y LDZ2 ADD2 .force/y STZ2
@ -107,20 +107,13 @@ JMP2r
JMP2r JMP2r
&neg abs2 #01 SFT2 #0000 SWP2 SUB2 JMP2r &neg abs2 #01 SFT2 #0000 SWP2 SUB2 JMP2r
@reduce2 ( force* -- )
DUP2 #8000 AND2 ORA ?&neg
#0001 SUB2
JMP2r
&neg abs2 #0001 SUB2 #0000 SWP2 SUB2 JMP2r
@reduce3 ( force* -- ) @reduce3 ( force* -- )
DUP2 #8000 AND2 ORA ?&neg DUP2 #8000 AND2 ORA ?&neg
#0020 DIV2 #05 SFT2
JMP2r JMP2r
&neg abs2 #0020 DIV2 #0000 SWP2 SUB2 JMP2r &neg abs2 #05 SFT2 #0000 SWP2 SUB2 JMP2r
( (
@|drawing ) @|drawing )
@ -130,12 +123,9 @@ JMP2r
#0000 #0000
DUP2 .Screen/x DEO2 DUP2 .Screen/x DEO2
.Screen/y DEO2 .Screen/y DEO2
#80 .Screen/pixel DEO [ LIT2 80 -Screen/pixel ] DEO
draw-lander
JMP2r @draw-lander ( -- )
@draw-lander ( orientation -- )
( base ) ( base )
#0c06 get-pt #1406 get-pt #01 draw-line #0c06 get-pt #1406 get-pt #01 draw-line
@ -148,10 +138,10 @@ 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 ] #09 ADD STH [ LIT2r &plume $1 09 ] ADDr
#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
( face ) ( face )
#26 .Screen/auto DEO #26 .Screen/auto DEO
;face-icn .Screen/addr DEO2 ;face-icn .Screen/addr DEO2
@ -162,24 +152,10 @@ JMP2r
JMP2r JMP2r
@draw-circle ( radius* -- )
;get-point/radius STA2
#2000
&l
STHk
INCk get-point
STHr get-point
#01 draw-line
INC GTHk ?&l
POP2
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 #001f AND2 NIP ADD
!get-point/force !get-point/force
@ -191,11 +167,11 @@ JMP2r
#00 SWP ;circle-tbl ADD2 LDA2 #00 SWP ;circle-tbl ADD2 LDA2
#00 SWP STH2kr MUL2 #04 SFT2 #00 SWP STH2kr MUL2 #04 SFT2
( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2 ( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2
( pos ) .pos/y LDZ2 ADD2 ( pos ) .pos/y LDZ2 ADD2 #03ff AND2
ROT ROT
#00 SWP STH2kr MUL2 #04 SFT2 #00 SWP STH2kr MUL2 #04 SFT2
( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2 ( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2
( pos ) .pos/x LDZ2 ADD2 ( pos ) .pos/x LDZ2 ADD2 #03ff AND2
SWP2 SWP2
POP2r POP2r