From dbaef55ef81153a15e3c0520944e2aacf671784c Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 24 Jul 2024 11:41:26 -0700
Subject: [PATCH] Improved gradient sprite

---
 gui/teatime/teatime.tal | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/gui/teatime/teatime.tal b/gui/teatime/teatime.tal
index 12ce8b6..1f9b6f0 100644
--- a/gui/teatime/teatime.tal
+++ b/gui/teatime/teatime.tal
@@ -73,7 +73,7 @@
 @|drawing )
 
 @<redraw> ( -- )
-	( <draw-border> <draw-bar> ) JMP2r
+	<draw-bar> !<draw-border>
 
 @<redraw-bar> ( -- )
 	;fill-icn .Screen/addr DEO2
@@ -102,17 +102,16 @@
 	POP2 POP2 POP2r JMP2r
 
 @<draw-border> ( -- )
-	#0000 DUP2 .Screen/x DEO2
-	.Screen/y DEO2
-	#82 .Screen/pixel DEO
 	;tick-icn .Screen/addr DEO2
-	#e1 .Screen/auto DEO
-	#0028 .Screen/x DEO2
-	#0008 .Screen/y DEO2
-	#08 .Screen/sprite DEOk #f1 .Screen/auto DEO
-	#0028 .Screen/x DEO2
-	#0080 .Screen/y DEO2
-	DEO
+	[ LIT2 f1 -Screen/auto ] DEO
+	#0030 .Screen/x DEO2
+	#0010 .Screen/y DEO2
+	[ LIT2r 05 -Screen/sprite ] DEOkr
+	[ LIT2 d1 -Screen/auto ] DEO
+	#0030 .Screen/x DEO2
+	#0090 .Screen/y DEO2
+	DEOr
+	JMP2r
 	( | labels )
 	#0030 .Screen/x DEO2
 	#0004 .Screen/y DEO2
@@ -168,7 +167,7 @@
 
 @arrow-icn [ 80c0 e0f0 f8fc f0c0 ]
 
-@tick-icn [ f000 0000 0000 0000 ]
+@tick-icn [ 7e00 0000 7000 0000 ]
 
 @blank-icn [ 0000 0000 0000 0000 ]