etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-05 05:45:05 +00:00
Code Issues Projects Releases Wiki Activity

(screen.blending.tal) Added 1bpp demo

Browse source
This commit is contained in:
neauoire 2023-11-05 11:07:56 -08:00
parent 76732db18a
commit 9924af3593
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
projects/examples/devices/screen.blending.tal
View file

@ -12,20 +12,30 @@
#f0b2 .System/b DEO2
( | size )
#0080 .Screen/width DEO2
#008c .Screen/height DEO2
#010c .Screen/height DEO2
( | background )
#f2 .Screen/auto DEO
;check-icn .Screen/addr DEO2
#ee &times #02 .Screen/sprite DEO
INC DUP ?&times
POP
( | circles )
#2200
&times ( -- )
#02 .Screen/sprite DEO
INC GTHk ?&times
POP2
( | 1bpp )
#1000
&l ( -- )
&l1 ( -- )
#00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2
#00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2
DUP #80 ORA #0f AND <draw-circle>
INC GTHk ?&l1
POP2
( | 2bpp )
#1000
&l2 ( -- )
#00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2
#00 OVR #02 SFT #50 SFT2 #0088 ADD2 .Screen/y DEO2
DUP #80 ORA <draw-circle>
INC GTHk ?&l
INC GTHk ?&l2
POP2 BRK
@<draw-circle> ( color -- )