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 #8000
&l &l
#00 OVR .Screen/y DEO2 #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 INC GTHk ,&l JCN
POP2 POP2
POPr POPr
JMP2r JMP2r
@get-color ( y distance -- color ) @get-color ( y distance color -- color )
ROT ROT
OVR #40 GTH ,&bottom JCN OVR #40 GTH ,&bottom JCN
#01 SFT GTH INC #01 SFT GTH MUL
JMP2r JMP2r
&bottom &bottom
#00 SWP SUB #01 SFT LTH INC #00 SWP SUB #01 SFT LTH MUL
JMP2r JMP2r
@draw-minimap ( -- ) @draw-minimap ( -- )
@ -141,7 +142,7 @@ JMP2r
JMP2r JMP2r
@cast ( -- range tile ) @cast ( -- range tile color )
#8001 #8001
&r &r