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

Basic lander design

This commit is contained in:
Devine Lu Linvega 2023-06-10 10:48:56 -07:00
parent fe8da50ca7
commit d50d2ec259
2 changed files with 50 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gui/lander/lander.tal
View File

@ -10,8 +10,8 @@
|0100 ( -> ) |0100 ( -> )
( theme ) ( theme )
#0f00 .System/r DEO2 #0ff0 .System/r DEO2
#0fff .System/g DEO2 #0f0f .System/g DEO2
#0f0f .System/b DEO2 #0f0f .System/b DEO2
( resize ) ( resize )
#0190 .Screen/width DEO2 #0190 .Screen/width DEO2
@ -29,14 +29,17 @@ BRK
.Controller/button DEI .Controller/button DEI
DUP #10 NEQ ?&no-u DUP #10 NEQ ?&no-u
;get-pt/offset LDA #01 SUB ;get-pt/offset STA
;draw-lander/plume LDA INC ;draw-lander/plume STA
redraw redraw
&no-u &no-u
DUP #20 NEQ ?&no-d DUP #20 NEQ ?&no-d
;get-pt/offset LDA INC ;get-pt/offset STA
;draw-lander/plume LDA INC ;draw-lander/plume STA
redraw redraw
&no-d &no-d
POP POP
BRK BRK
( (
@ -54,12 +57,28 @@ JMP2r
@draw-lander ( orientation -- ) @draw-lander ( orientation -- )
POP ( base )
#0010 #0000 #0c06 get-pt #1406 get-pt #01 draw-line
&l #0d08 get-pt #1308 get-pt #01 draw-line
DUP2 draw-circle #0c06 get-pt #0d08 get-pt #01 draw-line
INC2 GTH2k ?&l #1406 get-pt #1308 get-pt #01 draw-line
POP2 POP2 ( legs )
#0d08 get-pt #0d0c get-pt #01 draw-line
#1308 get-pt #130c get-pt #01 draw-line
#0d0c get-pt #0e0f get-pt #01 draw-line
#130c get-pt #120f get-pt #01 draw-line
( plume )
[ LIT &plume $1 ] #03 AND #0c ADD STH
#0e08 get-pt #1208 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
( face )
#26 .Screen/auto DEO
;face-icn .Screen/addr DEO2
#0014 .Screen/x DEO2
#0014 .Screen/y DEO2
#05 .Screen/sprite DEOk DEOk DEO
#00 .Screen/auto DEO
JMP2r JMP2r
@ -77,15 +96,27 @@ JMP2r
JMP2r JMP2r
@get-pt ( id rad -- x* y* )
#00 SWP STH2
[ LIT &offset $1 ] ADD
!get-point/force
@get-point ( id -- x* y* ) @get-point ( id -- x* y* )
[ LIT2r &radius $2 ] [ LIT2r &radius $2 ]
&force
#1f AND DUP ADD #1f AND DUP ADD
#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
ROT ROT
#00 SWP STH2r MUL2 #04 SFT2 #00 SWP STH2kr MUL2 #04 SFT2
( center ) #0080 STH2kr #30 SFT2 SUB2 ADD2 #02 SFT2
SWP2 SWP2
POP2r
JMP2r JMP2r
@ -133,6 +164,15 @@ JMP2r
&c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
JMP2r JMP2r
@face-icn [
0000 0000 0102 0408 0000 007e 8100 3cc3
0000 0000 8040 2010 0911 1212 1212 1109
0000 0042 0042 3c00 9088 4848 4848 8890
0804 0201 0000 0000 c33c 0081 7e00 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
ff80 fd98 f6b0 eac7 dada c7ea b0f6 98fd ff80 fd98 f6b0 eac7 dada c7ea b0f6 98fd

BIN
gui/lander/ss10x10.chr Normal file
View File

Binary file not shown.