From 66414aaff1a72bec0dfcc38cfcfdfa94693289a7 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 29 Oct 2023 12:40:54 -0700
Subject: [PATCH] (sixels) Minor optimization

---
 gui/sixels/sixels.tal    |  12 +++++-------
 gui/sixels/test02x02.icn | Bin 32 -> 0 bytes
 2 files changed, 5 insertions(+), 7 deletions(-)
 delete mode 100644 gui/sixels/test02x02.icn

diff --git a/gui/sixels/sixels.tal b/gui/sixels/sixels.tal
index 1cbfe0d..da42b09 100644
--- a/gui/sixels/sixels.tal
+++ b/gui/sixels/sixels.tal
@@ -41,7 +41,7 @@
 		LDAk [ LIT "$ ] EQU ?&op-over
 		LDAk [ LIT "- ] EQU ?&op-line
 		LDAk [ LIT "! ] EQU ?&op-rle
-		LDAk [ LIT "? ] SUB <draw-sixels>/op-col
+		LDAk <draw-sixels>/op-col
 		& INC2 LDAk ?&w
 	POP2 JMP2r
 	&op-line ( -- )
@@ -51,20 +51,18 @@
 		!&
 
 @<draw-sixels>/op-rle ( addr* -- addr* )
-	( rune ) INC2
-	( length ) sdec
-	( target ) OVR2 LDA [ LIT "? ] SUB ,&t STR
+	INC2 sdec OVR2 LDA ,&t STR
 	#0000
 	&l ( -- )
 		[ LIT &t $1 ] <draw-sixels>/op-col
 		INC2 GTH2k ?&l
 	POP2 POP2 !<draw-sixels>/
 
-@<draw-sixels>/op-col ( byte -- )
-	,&t STR
+@<draw-sixels>/op-col ( char -- )
+	[ LIT "? ] SUB ,&t STR
 	#0600
 	&l ( -- )
-		[ LIT &t $1 ] OVR SFT #01 AND INC INC .Screen/pixel DEO
+		[ LIT &t $1 ] OVR SFT #01 AND .Screen/pixel DEO
 		INC GTHk ?&l
 	POP2
 	( | advance )
diff --git a/gui/sixels/test02x02.icn b/gui/sixels/test02x02.icn
deleted file mode 100644
index fdad636d509b0ee0376137aaf5415c8e0b54ba41..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 32
UcmezW|Nn;%9~dCuKa@tI0KRYr%>V!Z