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

Wallcolors

This commit is contained in:
neauoire 2022-09-10 15:16:35 -07:00
parent 1b8c1d88a0
commit bab1152c6a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ray/src/ray.tal
View File

@ -104,21 +104,22 @@ JMP2r
#8000
&l
#00 OVR .Screen/y DEO2
DUP STHkr ;get-color JSR2 [ LIT &color $1 ] ADD .Screen/pixel DEO
DUP STHkr [ LIT &color $1 ] ;get-color JSR2 .Screen/pixel DEO
INC GTHk ,&l JCN
POP2
POPr
JMP2r
@get-color ( y distance -- color )
@get-color ( y distance color -- color )
ROT ROT
OVR #40 GTH ,&bottom JCN
#01 SFT GTH INC
#01 SFT GTH MUL
JMP2r
&bottom
#00 SWP SUB #01 SFT LTH INC
#00 SWP SUB #01 SFT LTH MUL
JMP2r
@draw-minimap ( -- )
@ -141,7 +142,7 @@ JMP2r
JMP2r
@cast ( -- range tile )
@cast ( -- range tile color )
#8001
&r