From 434ba5077f134229126f0363c50d8d9c2d7631d0 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Fri, 8 Mar 2024 20:39:32 -0800
Subject: [PATCH] Function to draw special characters

---
 src/assets.tal |  2 ++
 src/left.tal   | 12 ++++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/src/assets.tal b/src/assets.tal
index 4acf8e7..c20fe5d 100644
--- a/src/assets.tal
+++ b/src/assets.tal
@@ -30,6 +30,8 @@
 @linebreak-icn [
 	0000 0000 0000 1028 1000 0000 0000 0000
 	0000 0000 0000 0000 0000 0000 0000 0000 ]
+@dotdot-icn [
+	0000 0000 0000 0000 0000 0048 0000 0000 ]
 @checkered-icn [
 	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ]
 @blinker-icn [
diff --git a/src/left.tal b/src/left.tal
index 4958dab..4f06701 100644
--- a/src/left.tal
+++ b/src/left.tal
@@ -1224,6 +1224,13 @@
 	POP2 STH2r ADD2 .Screen/x DEO2
 	JMP2r
 
+@<draw-short-glyph> ( length* addr* -- )
+	.Screen/addr DEO2
+	.Screen/x DEI2
+	( ) ;<draw-utf8-glyph>/color LDA .Screen/sprite DEO
+	ADD2 .Screen/x DEO2
+	JMP2r
+
 @<draw-navbar> ( -- )
 	( | clear )
 	#0090 .Screen/x DEO2
@@ -1299,10 +1306,7 @@
 	( | rewind )
 	find-prev-spacer LDA2k [ LIT2 "@| ] NEQ2 ?{ INC2 INC2 }
 	&>w ( -- )
-		.Screen/x DEI2 #007c LTH2 ?{
-			;<draw-utf8-glyph>/color LDA ;<draw-chr>/color STA
-			[ LIT2 ".. ] <draw-chr>
-			<draw-chr>
+		.Screen/x DEI2 #007c LTH2 ?{ #0006 ;dotdot-icn <draw-short-glyph>
 			!&end }
 		<draw-utf8-glyph>
 		next-glyph LDAk #20 GTH ?&>w