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

circles

This commit is contained in:
Devine Lu Linvega 2022-12-19 17:36:49 -08:00
parent 7ec4aa718a
commit d07b5757be
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tcc/day8.tal
View File

@ -31,7 +31,9 @@ JMP2r
@on-frame ( -> )
;draw-bg JSR2
#0000 ;draw-circle JSR2
;draw-circles JSR2
.f LDZ2k INC2 #007f AND2 ROT STZ2
BRK
@ -51,15 +53,27 @@ BRK
JMP2r
@draw-circles ( -- )
#1000
&l
#00 OVR #40 SFT2 ;draw-circle JSR2
INC GTHk ,&l JCN
POP2
JMP2r
@draw-circle ( offset* -- )
( x )
DUP2 .f LDZ2 ADD2 #001f ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 .Screen/x DEO2
DUP2 .f LDZ2 ADD2 #001f ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2
.Screen/x DEO2
( y )
.f LDZ2 ADD2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 #0018 ADD2 .Screen/y DEO2
.f LDZ2 ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 #0018 ADD2
.Screen/y DEO2
#16 .Screen/auto DEO
;circle-icn .Screen/addr DEO2
#05 .Screen/sprite DEOk DEO
JMP2r