From 1f7a15d05b23b3387f12261bba9ed5df06ad5682 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sat, 26 Mar 2022 18:29:38 -0700
Subject: [PATCH] (screen.tal) Improved layout

---
 projects/examples/devices/screen.tal | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/projects/examples/devices/screen.tal b/projects/examples/devices/screen.tal
index e5ed84d..a69eb74 100644
--- a/projects/examples/devices/screen.tal
+++ b/projects/examples/devices/screen.tal
@@ -35,7 +35,7 @@ BRK
 
 	#01 .Screen/auto DEO
 	.count LDZ2 INC2 [ DUP2 ] .count STZ2
-	.center/x LDZ2 #0028 ADD2 .Screen/x DEO2
+	.center/x LDZ2 #0050 ADD2 .Screen/x DEO2
 	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
 	;draw-short JSR2
 
@@ -43,18 +43,26 @@ BRK
 
 @draw-sprites ( -- )
 	
-	.center/x LDZ2 #0068 SUB2 .Screen/x DEO2
+	( horizontal )
+	.center/x LDZ2 #0060 SUB2 .Screen/x DEO2
 	.center/y LDZ2 #0048 SUB2 .Screen/y DEO2
 	;font-hex .Screen/addr DEO2
 	#f6 .Screen/auto DEO
 	#01 .Screen/sprite DEO
+	( vertical )
+	.center/x LDZ2 #0070 SUB2 .Screen/x DEO2
+	.center/y LDZ2 #0038 SUB2 .Screen/y DEO2
+	;font-hex .Screen/addr DEO2
+	#f5 .Screen/auto DEO
+	#01 .Screen/sprite DEO
+
 	#00 .Screen/auto DEO
 	( table )
 	;preview_icn .Screen/addr DEO2
 	#00 #00
 	&loop
 		( move ) DUP #0f AND #40 SFT #01 SFT #00 SWP
-			.center/x LDZ2 #0068 SUB2 ADD2 .Screen/x DEO2
+			.center/x LDZ2 #0060 SUB2 ADD2 .Screen/x DEO2
 		( move ) DUP #f0 AND #01 SFT #00 SWP
 			.center/y LDZ2 #0038 SUB2 ADD2 .Screen/y DEO2
 		( draw ) DUP .Screen/sprite DEO
@@ -71,7 +79,7 @@ JMP2r
 		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
 			[ .center/y LDZ2 #0038 SUB2 ADD2 ] STH2
 		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
-			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
+			[ .center/x LDZ2 #0010 SUB2 ADD2 ]
 		STH2r STHr #00 ,draw-circle JSR
 		INC GTHk ,&loop JCN
 	POP2
@@ -86,7 +94,7 @@ JMP2r
 		( y ) DUP #02 SFT [ #00 SWP ] #40 SFT2
 			[ .center/y LDZ2 #0008 ADD2 ADD2 ] STH2
 		( x ) DUP #03 AND [ #00 SWP ] #40 SFT2 #0040 ADD2
-			[ .center/x LDZ2 #0018 SUB2 ADD2 ]
+			[ .center/x LDZ2 #0010 SUB2 ADD2 ]
 		STH2r STHr #80 ,draw-circle JSR
 		INC GTHk ,&loop JCN
 	POP2