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

(screen.blending) Display on the fg

Browse source
This commit is contained in:
Devine Lu Linvega 2024-02-26 09:25:29 -08:00
parent 7fc1b0887f
commit 24299dcc58
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -23,14 +23,14 @@
&l1bg ( -- ) &l1bg ( -- )
#00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2 #00 OVR #03 AND #50 SFT2 #0008 ADD2 .Screen/x DEO2
#00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2 #00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2
DUP #80 ORA #0f AND <draw-circle> DUP <draw-circle>
INC GTHk ?&l1bg INC GTHk ?&l1bg
POP2 POP2
#1000 #1000
&l1fg ( -- ) &l1fg ( -- )
#00 OVR #03 AND #50 SFT2 #0088 ADD2 .Screen/x DEO2 #00 OVR #03 AND #50 SFT2 #0088 ADD2 .Screen/x DEO2
#00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2 #00 OVR #02 SFT #50 SFT2 #0008 ADD2 .Screen/y DEO2
DUP #c0 ORA #0f AND <draw-circle> DUP #40 ORA <draw-circle>
INC GTHk ?&l1fg INC GTHk ?&l1fg
POP2 POP2
( | 2bpp ) ( | 2bpp )