From 2e99a7604c75a004e00622d4c4b6f2d7b734c170 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 6 Feb 2024 10:34:00 -0800
Subject: [PATCH] Drawing result

---
 gui/shavian/shavian.tal | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gui/shavian/shavian.tal b/gui/shavian/shavian.tal
index 8cd7520..749c7e9 100644
--- a/gui/shavian/shavian.tal
+++ b/gui/shavian/shavian.tal
@@ -41,15 +41,24 @@
 	JMP2r
 
 @new-pixels ( -- )
-	#ff .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row $2 ] INC2k ,&row STR2
+	;buf parse-pixels .id LDZ2 #40 SFT2 ;glyphs ADD2 [ LIT2 &row $2 ] INC2k ,&row STR2
 	ADD2 STA
 	( clean ) #0000 ;buf STA2
 	JMP2r
 
+@parse-pixels ( line* -- icn )
+	[ LITr 00 ] DUP2
+	&w ( -- )
+		LDAk [ LIT "0 ] EQU ?{
+			[ LITr 01 ] ORAr }
+		[ LITr 10 ] SFTr INC2 LDAk ?&w
+	POP2 STHr JMP2r
+
 @is-pixels ( buf* -- f )
 	LDA DUP [ LIT "0 ] EQU SWP [ LIT "1 ] EQU ORA JMP2r
 
 @<draw-glyph> ( id* -- )
+	DUP2 #ffff NEQ2 ?{ POP2 JMP2r }
 	#40 SFT2 ;glyphs ADD2 .Screen/addr DEO2
 	#07 .Screen/sprite DEO
 	JMP2r