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

Added day 3

This commit is contained in:
neauoire 2022-12-14 19:41:09 -08:00
parent 290797e785
commit bce12147fb
1 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ttc/day3.tal Normal file
View File

@ -0,0 +1,39 @@
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|0000
@f $2
|0100
#ff0f .System/r DEO2
#f0a0 .System/g DEO2
#f020 .System/b DEO2
( size )
#0100 .Screen/width DEO2
#0080 .Screen/height DEO2
( animate )
;on-frame .Screen/vector DEO2
BRK
@on-frame ( -> )
.Screen/height DEI2 #0000
&v
STHk
DUP2 .Screen/y DEO2
.Screen/width DEI2 #0000
&h
DUP2 .Screen/x DEO2
DUP STHkr ADD #1f AND .f LDZ ADD #03 SFT
.Screen/pixel DEO
INC2 GTH2k ,&h JCN
POP2 POP2 POPr
INC2 GTH2k ,&v JCN
POP2 POP2
.f LDZk INC SWP STZ
BRK