From 9924af3593c304ed04430b4b9650fc2744a7978a Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 5 Nov 2023 11:07:56 -0800
Subject: [PATCH] (screen.blending.tal) Added 1bpp demo

---
 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
index 0b32871..81fffca 100644
--- 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 -- )