uxn

Varvara Ordinator, written in ANSI C(SDL2)
git clone https://git.eamoncaddigan.net/uxn.git
Log | Files | Refs | README | LICENSE
commit 24299dcc589869f5918d09ce8db5c5394fc62346
parent 7fc1b0887fc608c9496743ad762cd409636fbef1
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Mon, 26 Feb 2024 09:25:29 -0800

(screen.blending) Display on the fg

Diffstat:

Mprojects/examples/devices/screen.blending.tal | 4++--


1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/projects/examples/devices/screen.blending.tal b/projects/examples/devices/screen.blending.tal
@@ -23,14 +23,14 @@
 	&l1bg ( -- )
 		#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>
+		DUP <draw-circle>
 		INC GTHk ?&l1bg
 	POP2
 	#1000
 	&l1fg ( -- )
 		#00 OVR #03 AND #50 SFT2 #0088 ADD2 .Screen/x 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
 	POP2
 	( | 2bpp )