uxn

commit 9924af3593c304ed04430b4b9650fc2744a7978a
parent 76732db18a4494a35ce64b2ca160c29190c9cbe6
Author: neauoire <aliceffekt@gmail.com>
Date:   Sun,  5 Nov 2023 11:07:56 -0800

(screen.blending.tal) Added 1bpp demo

Diffstat:
M
projects/examples/devices/screen.blending.tal
 | 
24
+++++++++++++++++-------

1 file changed, 17 insertions(+), 7 deletions(-)
diff --git a/projects/examples/devices/screen.blending.tal b/projects/examples/devices/screen.blending.tal
@@ -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 -- )