uxn

commit bba64f4da74425e6b18e2375b979628c827be42d
parent 0c908a937950627b2f097462cf0ec2fd25610831
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Tue,  5 Jul 2022 11:05:00 -0700

(label.tal) Housekeeping

Diffstat:
M
projects/examples/gui/label.tal
 | 
43
+++++++++++++++++++++----------------------

1 file changed, 21 insertions(+), 22 deletions(-)
diff --git a/projects/examples/gui/label.tal b/projects/examples/gui/label.tal
@@ -13,27 +13,31 @@
 	#a0dc .System/r DEO2
 	#a0dc .System/g DEO2
 	#a0dc .System/b DEO2
+
 	( find screen center )
 	.Screen/width DEI2 #01 SFT2 .center/x STZ2
 	.Screen/height DEI2 #01 SFT2 .center/y STZ2
-	( ver )
+
+	( dashed line )
 	#02 .Screen/auto DEO
 	#0000 .Screen/y DEO2
 	.center/x LDZ2 .Screen/x DEO2
 	.Screen/height DEI2 #0000
 	&ver
-		#43 .Screen/pixel DEO
-		.Screen/y DEI2k INC2 ROT DEO2
+		DUP #01 AND .Screen/pixel DEO
 		INC2 GTH2k ,&ver JCN
 	POP2 POP2
+
 	( left )
 	.center/x LDZ2 .Screen/x DEO2
 	.center/y LDZ2 #0018 SUB2 .Screen/y DEO2
 	;left-txt ,draw-uf2 JSR
+
 	( center )
 	.center/x LDZ2 .Screen/x DEO2
 	.center/y LDZ2 .Screen/y DEO2
 	;center-txt ,draw-uf2-center JSR
+
 	( right )
 	.center/x LDZ2 .Screen/x DEO2
 	.center/y LDZ2 #0018 ADD2 .Screen/y DEO2
@@ -41,23 +45,7 @@
 
 BRK
 
-@draw-uf2-center ( text* color -- )
-
-	DUP2 ,get-width JSR #01 SFT2 STH2 
-	.Screen/x DEI2k STH2r SUB2 ROT DEO2
-	,draw-uf2 JSR
-
-JMP2r
-
-@draw-uf2-right ( text* color -- )
-
-	DUP2 ,get-width JSR STH2 
-	.Screen/x DEI2k STH2r SUB2 ROT DEO2
-	,draw-uf2 JSR
-
-JMP2r
-
-@get-width ( text* -- width* )
+@get-uf2-width ( text* -- width* )
 
 	LIT2r 0000
 	&while
@@ -68,14 +56,25 @@ JMP2r
 
 JMP2r
 
+@draw-uf2-center ( text* -- )
+
+	DUP2 ,get-uf2-width JSR #01 SFT2 STH2
+	.Screen/x DEI2k STH2r SUB2 ROT DEO2
+	,draw-uf2 JMP
+
+@draw-uf2-right ( text* -- )
+
+	DUP2 ,get-uf2-width JSR STH2
+	.Screen/x DEI2k STH2r SUB2 ROT DEO2
+
 @draw-uf2 ( text* -- )
 
 	#15 .Screen/auto DEO
 	&while
 		LDAk #20 SUB #00 SWP
 			DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
-			;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
-		#01 .Screen/sprite DEOk DEO
+			;font ADD2 LDA STHk #00 SWP .Screen/x DEI2 ADD2
+		#01 .Screen/sprite DEOk STHr #08 LTH ,&thin JCN DEOk &thin POP2
 		.Screen/x DEO2
 		INC2 LDAk ,&while JCN
 	POP2