From 48ba65a21dc9344372e89fa4bee1ee8c5e89b0de Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Fri, 11 Nov 2022 20:52:27 -0800
Subject: [PATCH] Faster filepath drawing

---
 src/dexe.tal | 61 ++++++++++++++++++++++++++--------------------------
 1 file changed, 30 insertions(+), 31 deletions(-)

diff --git a/src/dexe.tal b/src/dexe.tal
index 36b8281..996e091 100644
--- a/src/dexe.tal
+++ b/src/dexe.tal
@@ -101,35 +101,34 @@
 BRK
 
 @manifest
-	&menu
-		05 "File $1
-			01 "n =file-new "New $1
-			01 "r =file-rename "Rename $1
-			01 "o =file-open "Open $1
-			01 "s =file-save "Save $1
-			01 "q =exit "Exit $1
-		03 "Edit $1
-			01 "c =edit-copy "Copy $1
-			01 "C =edit-copy-string "CopyText $1
-			01 "v =edit-paste "Paste $1
-		09 "Move $1
-			10 00 =move-up "Up $1
-			20 00 =move-down "Down $1
-			40 00 =move-left "Left $1
-			80 00 =move-right "Right $1
-			14 00 =move-dech "Decr.H $1
-			24 00 =move-inch "Incr.H $1
-			44 00 =move-decw "Decr.W $1
-			84 00 =move-incw "Incr.W $1
-			00 1b =move-reset "Reset $1
-		06 "Options $1
-			00 0d =option-insert "Insert $1
-			00 08 =option-erase "Erase $1
-			00 ". =option-incr "ValIncr $1
-			00 ", =option-decr "ValDecr $1
-			04 "< =option-roll "RollLeft $1
-			04 "> =option-rolr "RollRight $1
-		$1
+	05 "File $1
+		01 "n =file-new "New $1
+		01 "r =file-rename "Rename $1
+		01 "o =file-open "Open $1
+		01 "s =file-save "Save $1
+		01 "q =exit "Exit $1
+	03 "Edit $1
+		01 "c =edit-copy "Copy $1
+		01 "C =edit-copy-string "CopyText $1
+		01 "v =edit-paste "Paste $1
+	09 "Move $1
+		10 00 =move-up "Up $1
+		20 00 =move-down "Down $1
+		40 00 =move-left "Left $1
+		80 00 =move-right "Right $1
+		14 00 =move-dech "Decr.H $1
+		24 00 =move-inch "Incr.H $1
+		44 00 =move-decw "Decr.W $1
+		84 00 =move-incw "Incr.W $1
+		00 1b =move-reset "Reset $1
+	06 "Options $1
+		00 0d =option-insert "Insert $1
+		00 08 =option-erase "Erase $1
+		00 ". =option-incr "ValIncr $1
+		00 ", =option-decr "ValDecr $1
+		04 "< =option-roll "RollLeft $1
+		04 "> =option-rolr "RollRight $1
+	$1
 
 (
 @|vectors )
@@ -779,8 +778,8 @@ JMP2r
 	.options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
 	.options-frame/y LDZ2 .Screen/y DEO2
 	;filepath ( scroll )
-		DUP2 ;slen JSR2 #0014 GTH2 #00 SWP
-		;filepath ;slen JSR2 #0014 SUB2 MUL2 ADD2
+		DUP2 ;slen JSR2 #0014 GTH2k STH
+		SUB2 #00 STHr MUL2 ADD2
 	ROT
 		;draw-string ( .. )
 
-- 
2.38.5